Code:
program SaveTheFish;
procedure StartGame;
Begin
MoveMouse(230, 357);
ClickMouse(230, 357, 1);
Wait(1500);
MoveMouse(404, 326);
ClickMouse(404, 326, 1);
Wait(1500);
MoveMouse(342, 153);
ClickMouse(342, 153, 1);
end;
procedure SaveGoldFish;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 1471228, 16, 29, 260, 244, 20) or
FindColorSpiralTolerance(x, y, 1003517, 16, 29, 260, 244, 20) or
FindColorSpiralTolerance(x, y, 172287, 16, 29, 260, 244, 20) or
FindColorSpiralTolerance(x, y, 1271548, 16, 29, 260, 244, 20) or
FindColorSpiralTolerance(x, y, 1003517, 16, 29, 260, 244, 20) then
Begin
MoveMouse(x, y);
HoldMouse(x, y, 1);
MoveMouse(360, 75);
ReleaseMouse(360, 75, 1);
end;
end;
begin
StartGame;
repeat
SaveGoldFish;
until(false);
end.
After attempting to run, i get an error:
Code:
if FindColorSpiralTolerance(x, y, 936444, 15, 25, 266, 230, 20); or