Code:
program SaveTheGoldfish;
procedure StartGame;
Begin
MoveMouse (341, 572);
ClickMouse (341, 572, 1);
Wait (500);
MoveMouse (499, 541);
ClickMouse (499, 541, 1);
Wait (500);
MoveMouse (449, 370);
ClickMouse (449, 370, 1);
End;
procedure savegoldfish
var
x, y:Integer;
begin
if findcolorspiraltolerance (x, y, 13260 , 118, 239, 377, 474, 20) or
if findcolorspiraltolerance (x, y, 1471228, 118, 239, 377, 474, 20) or
if findcolorspiraltolerance (x, y, 676092 , 118, 239, 377, 474, 20) or
if findcolorspiraltolerance (x, y, 1204732, 118, 239, 377, 474, 20) or
if findcolorspiraltolerance (x, y, 735742 , 118, 239, 377, 474, 20) then
begin
MoveMouse (x, y);
HoldMouse (x, y, 1);
MoveMouse (486, 245);
ReleaseMouse (486, 245, 1);
end;
end;
begin
StartGame;
repeat
savegoldfish;
until (false);
end.
If you take a look at the Procedure savegoldfish, right under it is the var followed by x, y:Integer;. But when i compile script it says that var is not valid or something here is a screenshot of my screen when this happens to me.