Timba
2012-03-25 00:47:21
Hi. I'm having trouble fixing a script I made (along with YoHo's tutorials, thanks btw) for a game called Save The Gold Fish:
program SaveTheGoldfish;
procedure StartGame;
begin
MoveMouse(238, 356);
ClickMouse(238, 356, 1);
Wait(400);
MoveMouse(381, 326);
ClickMouse(381, 326, 1);
Wait(200);
MoveMouse(345, 155);
ClickMouse(345, 155, 1);
end;
procedure SaveGoldfish;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 1471228 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 1204732 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 1003517 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 869629 , 21, 25, 264, 224, 20) or then
Begin
MoveMouseMouse(x, y);
HoldMouse(x, y, 1);
MoveMouse(1111,521):
ReleaseMouse(1111, 521);
end;
end;
begin
StartGame;
repeat
SaveTheGoldfish;
until(false);
end.
But at line 20 (if FindColorSpiralTolerance(x, y, 1204732 , 21, 25, 264, 224, 20) or)
I get
[Error] (21:5): Syntax error at line 20
Compiling failed.
Can anyone tell me whats wrong?
program SaveTheGoldfish;
procedure StartGame;
begin
MoveMouse(238, 356);
ClickMouse(238, 356, 1);
Wait(400);
MoveMouse(381, 326);
ClickMouse(381, 326, 1);
Wait(200);
MoveMouse(345, 155);
ClickMouse(345, 155, 1);
end;
procedure SaveGoldfish;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 1471228 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 1204732 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 1003517 , 21, 25, 264, 224, 20) or
if FindColorSpiralTolerance(x, y, 869629 , 21, 25, 264, 224, 20) or then
Begin
MoveMouseMouse(x, y);
HoldMouse(x, y, 1);
MoveMouse(1111,521):
ReleaseMouse(1111, 521);
end;
end;
begin
StartGame;
repeat
SaveTheGoldfish;
until(false);
end.
But at line 20 (if FindColorSpiralTolerance(x, y, 1204732 , 21, 25, 264, 224, 20) or)
I get
[Error] (21:5): Syntax error at line 20
Compiling failed.
Can anyone tell me whats wrong?