Simba Code:
program Curveball;
{$i srl/srl.simba}
Procedure StartGame;
begin
Mouse(330, 225, 3, 3, 1);
wait(randomrange(1000,2000));
end;
Procedure Ingame;
var
x, y:integer;
PBox:TBox;
begin
PBox := IntToBox(0, 0, 616, 413);
repeat
findcolorspiraltolerance(x, y, 10485682, 0, 0, 616, 431, 10);
Movemouse(x, y);
until(pixelshift(Pbox, 10) = 0)
end;
procedure StartRound;
var
x, y:integer;
PBox: TBox;
begin
PBox := IntToBox(0, 0, 616, 413);
if pixelshift(Pbox, 20) < 10 then
begin
findcolorspiraltolerance(x, y, 10485682, 0, 0, 616, 431, 3)
Mouse(x, y, 5, 5, 1);
end else
Ingame;
end;
begin
SetupSRL
StartGame
repeat
StartRound
Ingame
until(false);
end.