insanomano
2008-06-29 16:18:59
<!– BEGIN TEMPLATE: formanswers –>
insanomano - SRL Member Application Form
insanomano
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
none
How Long have You Played Runescape
over 2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am 14 i enjoy programming and pushing myself to the limit, I am not amazing at it but I like it and defenitely can learn more, I can grasp the concept of new things to learn and I am open-minded and trying my best to learn programming languages as fast as I can!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
insanomano - SRL Member Application Form
insanomano
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
none
How Long have You Played Runescape
over 2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am 14 i enjoy programming and pushing myself to the limit, I am not amazing at it but I like it and defenitely can learn more, I can grasp the concept of new things to learn and I am open-minded and trying my best to learn programming languages as fast as I can!
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{********************************************
** Insanomano's Chicken Killer V 1.0 **
********************************************
** Start your players logged out or in at **
** a chicken coop with a weapon and **
** nothing in your inventory. **
********************************************
** -FEATURES **
** Anti-Ban **
** Anti-Randoms **
** S.M.A.R.T **
** Multi-Player **
********************************************
** ENJOY. **
********************************************}
program ChickenKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
var
x,y,bones: integer;
const
SmartWorld= 39; //set this to world you wanna log in on.
LampLevel= 'Prayer'; //Set the skill you want a lamp to do.
BonesToBury= 50; // Set how many bones you want to bury
procedure DeclarePlayers;
begin
HowManyPlayers:= 5; // How many players are you using
CurrentPlayer:= 0; // Don't touch this.
NumberOfPlayers(HowManyPlayers); // Don't touch this.
Players[0].Name := 'username'; // Username.
Players[0].Pass := 'password'; // Password.
Players[0].Nick := 'ser'; // 2-4 letters of Username (that are not capital letters or numbers).
Players[0].Active := True; // Don't touch this.
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := False;
end;
function InFight: Boolean;
var
x, y : Integer;
begin
Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
230, 130, 280, 180))
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: DoEmote(400 +Random(90));
3: BoredHuman;
end;
end;
Procedure AntiRandoms;
begin
FindNormalRandoms;
FindLamp((LampLevel));
SolveNonTalkingRandoms;
end;
Procedure FeatherGrabber;
begin
if(FindColorTolerance(x,y,402948,MSX1, MSY1, MSX2, MSY2,15)) then
begin
Mouse(x,y,1,1,false);
ChooseOption('eather');
end;
end;
Procedure BoneGrabber;
begin
if(FindColorTolerance(x,y,7632274,MSX1, MSY1, MSX2, MSY2,15)) then
begin
Mouse(x,y,1,1,false);
ChooseOption('ones');
end;
end;
Procedure BoneBury;
Begin
if(FindColorSpiralTolerance(x,y,7303288,MIX1, MIY1, MIX2, MIY2,15)) then
MMouse(x,y,1,1);
if (IsUpText('ury')) then
wait(3000+random(300));
Mouse(x,y,1,1,true);
Bones:= bones + 1;
end;
Procedure Proggy;
begin
WriteLn('------------THE CHICKEN KILLER------------');
WriteLn('--Buried ' + IntToStr(Bones) + ' Bones');
WriteLn('--Ran for ' + TimeRunning + '');
WriteLn('------------------------------------------');
begin
if(Bones >= (BonesToBury)) then
NextPlayer(true);
end
end;
Procedure Signature;
begin
writeln('MADE BY-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
wait(300)
writeln(' _______ _ _ _____ ___ _ _ ______ _ _ ___ _ _ ______ ');
wait(300)
writeln('|__ __|| \ | || ____| / _ \ | \ | || __ || \ / | / _ \ | \ | || __ |');
wait(300)
writeln(' | | | \| || |___ / |_| \ | \| || | | || \/ | / |_| \ | \| || | | |');
wait(300)
writeln(' | | | . ` ||___ || ___ || . ` || | | || || ___ || . ` || | | |');
wait(300)
writeln(' __| |__ | |\ | ___| || | | || |\ || |__| || |\/| || | | || |\ || |__| |');
wait(300)
writeln('|_______||_| \_||_____||_| |_||_| \_||______||_| |_||_| |_||_| \_||______|');
wait(300)
writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
wait(300)
end;
Procedure ChickenFrier;
begin
repeat
AntiBan;
if(FindColorTolerance(x,y,857707,MSX1, MSY1, MSX2, MSY2,15)) then //White chicken
Mouse(x,y,1,1,false);
ChooseOption('ttack');
AntiRandoms;
wait(3000+random(400))
FeatherGrabber;
BoneGrabber;
until(InvFull)
repeat
if(FindColorTolerance(x,y,923763,MSX1, MSY1, MSX2, MSY2,15)) then //Brown chicken
Mouse(x,y,1,1,false);
ChooseOption('ttack');
AntiRandoms;
wait(3000+random(400))
FeatherGrabber;
BoneGrabber;
until(InvFull)
BoneBury;
end;
begin
SmartSetUpEx(SmartWorld,False, True);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
Wait(100);
SetupSRL;
DeclarePlayers;
Signature;
wait(4000);
ClearDebug;
LoginPlayer;
repeat
SetAngle(true);
MakeCompass('N');
SetRun(True);
ChickenFrier;
Proggy;
until(false)
end.——————————————————
<!– END TEMPLATE: formanswers –>