Skip lines in Scar

The script is

Findcolor(x,y,5789791,259,211,277,244)
If findcolor(x,y,5789791,259,211,277,244) then;
ixaxis:=random(15)+ 260;
iyaxis:=random(25)+ 215;
Clickmouse(ixaxis,iyaxis,true)
iwait:=(500)+5000
Wait(iwait);

If not findcolor(x,y,5789791,259,211,277,244) then;
ixaxis:=random(25)+ 216;
iyaxis:=random(9)+ 185;
Movemousesmooth(ixaxis,iyaxis);
iwait:=random(100)+250;
Wait(iwait);

This is for a power-miner but at the moment it is still clicking on a used-up rock and also how can u tell it to skip the If not command if it has found it?

 

Code:

program New;
begin
If findcolor(x,y,5789791,259,211,277,244) then
begin
ixaxis:=random(15)+ 260;
iyaxis:=random(25)+ 215;
Clickmouse(ixaxis,iyaxis,true)
iwait:=(500)+5000
Wait(iwait);
end;

If not findcolor(x,y,5789791,259,211,277,244) then
begin
ixaxis:=random(25)+ 216;
iyaxis:=random(9)+ 185;
Movemousesmooth(ixaxis,iyaxis);
iwait:=random(100)+250;
Wait(iwait);
end;

end.

Cleaned up a little bit.