Hey guys getting this error When i try to compile:
Error] (22:7): Syntax error at line 21
Heres the chunk i code i think is giving the error:
Simba Code:
Procedure SaveFish;
Var
X, Y:Integer;
Begin
If FindColorSpiralTolerance(X, Y, 1471228 , 325, 394, 771, 661, 20) Or
If FindColorSpiralTolerance(X, Y, 1204732 , 325, 394, 771, 661, 20) Then <------This is the line giving the error!
Begin
MoveMouse(X, Y);
HoldMouse(X, Y, 1);
MoveMouse(361, 84);
ReleaseMouse(361, 84, 1);
End;
End;
Heres the whole code just incase:
Simba Code:
program new;
Procedure StartGame;
Begin
MoveMouse(224, 354);
ClickMouse(224, 354, 1);
MoveMouse(379, 330);
ClickMouse(379, 330, 1);
MoveMouse(350, 159);
ClickMouse(350, 159, 1);
End;
Procedure SaveFish;
Var
X, Y:Integer;
Begin
If FindColorSpiralTolerance(X, Y, 1471228 , 325, 394, 771, 661, 20) Or
If FindColorSpiralTolerance(X, Y, 1204732 , 325, 394, 771, 661, 20) Then
Begin
MoveMouse(X, Y);
HoldMouse(X, Y, 1);
MoveMouse(361, 84);
ReleaseMouse(361, 84, 1);
End;
End;
begin
StartGame;
Repeat
SaveFish;
Until(False);
end.