SCAR Code:
program new;
{.include srl/srl.scar}
Procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name :='i i';
Players[0].Pass :='';
Players[0].Nick :='eeee';
Players[0].Active := True;
end;
Procedure afk;
Begin
// cleardebug;
case random(88) of
0: begin
KeyDown(VK_RIGHT);
Wait(Random(1000));
KeyUp(VK_Right);
end;
1: begin
KeyDown(VK_UP);
Wait(Random(1000));
KeyUp(VK_UP);
end;
2..5: begin
mmouse(random(500),random(500), 0,0);
end;
6: begin
KeyDown(VK_LEFT);
Wait(Random(1000));
KeyUp(VK_LEFT);
end;
7: begin
KeyDown(VK_DOWN);
Wait(random(1000));
KeyUp(VK_DOWN);
end;
8..88: Wait(random(1000));
end;
findnormalrandoms;
userewardbox;
end;
procedure letseat;
var i,x,y:integer;
begin
cleardebug;
for i := 5 to 28 do
begin
if ExistsItem(i) then
begin
mMouseItem(i);
wait(60+random(60));
if isuptext('at') then
begin
getmousepos(x,y);
mouse(x,y,0,0,true);
writeln('ate');
wait(1500+random(1500));
end;
if (hppercent > (65 + random(3))) then exit;
end;
end;
if hpPercent < 50 then
begin
writeln('uh oh ');
alert('HELPZ0r');
end;
end;
begin
setupsrl;
declareplayers;
gametab(tab_inv);
repeat
afk;
if HpPercent < ( 60 - random(5)) then
letseat;
wait(400+random(400));
writeln('t r = '+timerunning+'');
until false;
end.
end.