Hi guys!
Im glad to post my first script (h)
Its a automager for the lesser up in the Wizard Tower next to draynor.
When u want to start, u need to autocast the spell u wanna use and stay before the lesser.
I probably works with a d hally or rune hally too.
Im working on it, and updates will come soon.
SCAR Code:
program MageLesser;
{.include SRL\SRL.scar}
var
x, y: Integer;
// Setup
const
LesserColor1 = 1847158 ; // Lesser Colors
LesserColor2 = 4154;
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '***'; //username
Players[0].Pass := '***'; //password
Players[0].Nick := 'Feel'; //3-4 letters from your username
Players[0].Active := True;
end;
procedure setup;
begin
wait(300+random(500))
makecompass('n');
wait(400+random(330))
setrun(true);
wait(400)
gametab(4);
wait(500+random(300))
gametab(4)
wait(400+random(400))
writeln('Setup successfully')
wait(4000+random(2000))
cleardebug;
wait(2000)
end;
procedure attackLesser;
begin
if findcolortolerance(x, y, LesserColor1, 0, 0, 700, 500, 5) or
findcolortolerance(x, y, LesserColor2, 0, 0, 700, 500, 5) then
begin
Mouse(x ,y, 0, 0, false)
ChooseOption('ttack')
wait(3000+random(3000))
end;
end;
procedure saitime;
begin
wait(400)
writeln(TimeRunning)
wait(330)
end;
procedure login;
begin
if (not(loggedin)) then loginplayer;
wait(200);
highestangle;
makecompass('n');
begin
setBar('brightness',4);
players[currentplayer].booleans[1]:=true;
end;
end;
begin
SetUpSRL;
declarePlayers;
login;
activateclient;
setup;
repeat
saitime;
wait(2000+random(1000))
attackLesser;
until(false)
end.
Help is always welcome. Im a real scar noob
Bye!