Compiling failed.

[Reamt]

program SavetheGoldfish;

//My first simba script

procedure StartGame;
Begin
MoveMouse(317, 727);
ClickMouse(317, 727, 1);
Wait(1000);
MoveMouse(500, 715);
ClickMouse(500, 715, 1);
Wait(1000);
MoveMouse(451, 531);
ClickMouse(451, 531, 1);
End;

procedure SaveGoldFish;
Var
x, y:Integer;
Begin
if FindColorSpiralTolerance(x, y, 690943, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 677886, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 804093, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 735742, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 1338092, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 1146364, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 415688, 109, 402, 357, 652, 20); or
FindColorSpiralTolerance(x, y, 1070589, 109, 402, 357, 652, 20); then
Begin
MoveMouse(x, y);
HoldMouse(x, y, 1);
MoveMouse(459, 449);
ReleaseMouse(459, 449, 1);
End
End




begin
StartGame;
end.


[Error] (22:68): 'THEN' expected at line 21


I am doing some tutorials but I am getting stuck here, please help.

[Rich]

if (FindColorSpiralTolerance(x, y, 690943, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 677886, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 804093, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 735742, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1338092, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1146364, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 415688, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1070589, 109, 402, 357, 652, 20)) then :)

[Reamt]

if (FindColorSpiralTolerance(x, y, 690943, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 677886, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 804093, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 735742, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1338092, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1146364, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 415688, 109, 402, 357, 652, 20) or
FindColorSpiralTolerance(x, y, 1070589, 109, 402, 357, 652, 20)) then :)

Thanks for the quick reply and the help!