SCAR Code:
program SimpleAutocurser;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\magic.scar}
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
////// Made by: jellehier0 //////
////// This is my first script //////
////// so please, don't flame me //////
////// if you have any comments, //////
////// please PM me and can someone //////
////// explain me how to insert anti- //////
////// randoms, how to include the mage //////
////// skill of srl into my script? //////
////// Thnx alot! //////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
// How to use: fill in everything.. stand next to the zamorak mage
// in varrock castle with enough runes to cast 'curse'
var
zammonk: integer;
i: Integer;
x,y: Integer;
castedspells: Integer;
g,p: Integer;
randomsfound: Integer;
const
skilll= 'prayer'; // same, but for failsave
spelll= 'curse'; // change curse into weaken, curse of confuse or any other spell
monstername= 'onk'; // part of the name of the monk
ZammonkColor1= 2172254; //colour of 'monk of zamorak'
ZammonkColor2= 3488915; //second colour of the monk
ZammonkColor3= 4212913; //third color of the monk
Runs= 0; // times you want to run the script ( 0 = unlimited)
procedure declareplayers;
begin
HowManyPlayers :=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='name'; //name
Players[0].Pass :='pass'; // password
Players[0].Nick :='nick'; // nickname, abriviation of your name.
Players[0].Skill:='Magic';// skill doing is magic
players[0].loc:='varrock castle';// location
Players[0].Active:=True;
Players[1].Name :='name'; //name
Players[1].Pass :='pass'; // password
Players[1].Nick :='nick'; // nickname, abriviation of your name.
Players[1].Skill:='Magic';// skill doing is magic
players[0].loc:='varrock castle';// location
Players[1].Active:=false; // change to true if you use 2 accounts
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
begin
for g:=1 to 10 do
begin
case g of
1: If FindMod then
Result := True;
2: If FindDead then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
begin
result := true;
logout;
end;
7: if FindLamp(skilll) then Result := True;
8: If FindTalk Then Result := True;
9: If SolveChatRandom Then Result := True;
10: ClickToContinue;
end;
begin
if findfastrandoms= True then
begin
Randomsfound:=Randomsfound + 1;
end;
end;
end;
end;
procedure runaway;
begin
if (FindFight= true) then
begin
MakeCompass ('n')
RunAwayDirection('s');
wait(10000);
RunBack;
end;
end;
procedure antiiban;
begin
case (7) of
0: begin
GameTab(2);
Hoverskill('magic',false);
end;
1: SendKeys('good way of training magic!'+chr(13));
2: SendKeys('lool...'+chr(13));
3: SendKeys('Booooring!!!!!'+chr(13));
4: SendKeys (+chr(13));
5: SendKeys (+chr(13));
6: ;
7: ;
end;
end;
procedure Curse; //select the curse spell
Begin
cast(spelll);
end;
procedure Findmage; //find the mage of zamorak
Begin
if (FindObj(x,y,monstername,zammonkcolor1,10))
or (FindObj(x,y,monstername,zammonkcolor2,10))
or (FindObj(x,y,monstername,zammonkcolor3,10)) then
begin
Writeln('Found Zamorak Monk');
MMouse( x,y,5,2);
mouse(x,y,1,1,true);
castedspells:= castedspells + 1;
end else
if (not(findcolor(x,y,ZammonkColor1,0,0,600,600)))
or (not(findcolor(x,y,ZammonkColor2,0,0,600,600)))
or (not(findcolor (x,y,ZammonkColor3,0,0,600,600))) then
begin
p:= 1;
begin
p:= p + 1;
Writeln ('Did not found zamorak monk');
Case random (3) Of
0: Makecompass ('s')
1: Makecompass ('n')
2: Makecompass ('w')
3: Makecompass ('e')
end;
if p = 10 then
begin
logout;
writeln('logging out...')
end;
end;
end;
end;
procedure report;
begin
cleardebug;
writeln('>---------------------------<');
writeln('jellehier0s simpleautocurser!');
writeln('running time:' + (timerunning) + '');
writeln('curses casted:' + inttostr(castedspells) +'');
writeln('randoms found:' + inttostr(randomsfound) +'');
end;
begin //mainloop
SetupSRL;
SetupMagic;
DeclarePlayers;
if (not (loggedin)) then
begin
loginplayer;
HighestAngle;
setchat('hide',1)
makecompass ('w')
end;
begin
i:= 0;
repeat
i:= i + 1;
Curse;
ftwait(1+random(1));
Findmage;
Runaway;
FindFastRandoms;
wait(1000+random(114));
antiiban;
report;
until(i = runs)
nextplayer(false)
logout;
end;
end.