
Originally Posted by
i luffs yeww
What? Haha no I meant like.. from the last login update. The font/colors they use for HP could have changed, so it doesn't work at all percents. Unless it worked at one point then it didn't at that same point later.. But uhh.. What about it just getting stuck in an infinite loop somehow (in your script)? Could that be a possibility?
Or if it's neither, then it might be that the OCR is wrong for that for whatever reason. If that's the case, then I dunno right now. At work. :<
It failed again, it started eating all my fish at 100 % HP
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.
That script works fine, until a random moment in time BOOM, Lets eat all of camaro's fish.