SCAR Code:
Program RuneBuyer;
{.include SRL\SRL.SCAR}
Var t,p,u :integer;
Const
Natures = 5 ; // Number of purchases x10
Chaos = 10 ; // Number of purchases x10
Death = 10 ; // Number of purchases x10
//Login
Procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers (HowManyPlayers);
CurrentPlayer := 1;
Players[0].Name :=''; //user name
Players[0].Pass :=''; //password
Players[0].Nick :=''; //3 consecutive letters of username
Players[0].Active := True; //don't touch
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := True;
End;
//Converse
Procedure Talk;
Begin
If(FindColor(x, y, 527690, 25, 117, 406, 354))Then
begin
Mouse(x,y,1,1,true)
Wait(1000+random(500));
end;
If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(1000+random(500));
end;
If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(1000+random(500));
end;
If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(1000+random(500));
end;
If(FindColor(x, y, 16777215, 117, 461, 432, 468))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(1000+random(500));
end;
If(FindColor(x, y, 16711680, 132, 435, 501, 506))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(5000+random(500));
end;
If(FindColor(x, y, 16777215, 208, 479, 311, 483))Then
begin
Mouse(x,y,1,1,true)
MoveMouse(237,446)
Wait(1000+random(500));
end;
End;
//Buying Natures
Procedure BuyNatures;
Begin
t:=0
x := MSCX;
y := MSCY;
begin
If(FindColorSpiralTolerance(x, y, 1280272, 88, 128, 108, 147, 10))Then
begin
Mouse(x,y,1,1,true)
end;
repeat
t:=t+1
BuyNatures;
until (t = Natures)
end;
end;
//Buying Chaos
Procedure BuyChaos;
Begin
p:=0
x := MSCX;
y := MSCY;
begin
If(FindColorSpiralTolerance(x, y, 1681119, 182, 127, 204, 145, 10))Then
begin
Mouse(x,y,1,1,true)
end;
repeat
p:=p+1
BuyChaos;
until (p = Chaos)
end;
end;
//Buying Deaths
Procedure BuyDeath;
Begin
u:=0
x := MSCX;
y := MSCY;
begin
If(FindColorSpiralTolerance(x, y, 14737636, 234, 125, 249, 145, 10))Then
begin
Mouse(x,y,1,1,true)
end;
repeat
u:=u+1
BuyDeath;
until (t = Death)
end;
end;
Procedure StartScript;
Begin
SetupSRL;
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
DeclarePlayers;
LoginPlayer;
HighestAngle;
PerfectNorth;
End;
Begin
Repeat
StartScript;
AntiBan;
begin
repeat
AntiBan;
Talk;
BuyNatures;
BuyChaos;
BuyDeath;
until(not(LoggedIn));
NextPlayer(true);
end;
if(not(Loggedin)) then NextPlayer(false);
Until(false);
End.