Hey Hy, I made this quick rice grabber too. It does same thing as yours except doesn't have database =/. So it is like 1000x worse. Anyways you can use the Startclick from it (for the first click) instead of making other people do the first click. Also you might want to use
OpenWebPage ('http://freerice.com/index.php');
SCAR Code:
program New;
{.include SRL/SRL.scar}
procedure clickme;
var
sleepy : integer;
begin
if sleepy = 50 then
begin
Wait(20000 + random(5000));
end else
begin
case random(4) of
0: begin
mouse(235, 420, 15, 3, true);
WriteLn('guessed : 1');
end;
1: begin
mouse(235, 455, 10, 3, true);
WriteLn('guessed : 2');
end;
2: begin
mouse(235, 490, 15, 3, true);
WriteLn('guessed : 3');
end;
3: begin
mouse(235, 530, 10, 3, true);
WriteLn('guessed : 4');
end;
end;
Inc(sleepy);
end;
end;
procedure startclick;
begin
case random(4) of
0: begin
mouse(410, 335, 15, 3, true);
WriteLn('guessed : 1');
end;
1: begin
mouse(410, 390, 10, 3, true);
WriteLn('guessed : 2');
end;
2: begin
mouse(410, 430, 15, 3, true);
WriteLn('guessed : 3');
end;
3: begin
mouse(410, 465, 10, 3, true);
WriteLn('guessed : 4');
end;
end;
end;
begin
SetUpSRL;
ClearDebug;
mousespeed := 20 + Random(5);
OpenWebPage('http://freerice.com/index.php');
wait(5000);
startclick;
repeat
begin
WriteLn('clicking');
clickme;
wait(1000 + random(1000));
end;
until(false)
end.
I like mine better, cause its a quick one. As in you don't have to set any constants or anything, or even open the website. Just click play :D.
Maybe we can make this be a default script SCAR comes with.
Also I'm prety sure the Sleepy doesn't work (in my script).