SCAR Code:
procedure clickfountain;
begin
FindRandoms;
SRLRandomsReport;
Ban;
If (FindObj(x,y, 'fountain', FountainColor, ColorTolerance)) then
end;
begin
if (not(FindObj(x,y, 'fountain', FountainColor, ColorTolerance)))then
ColorTolerance := ColorTolerance+4;
until(FindObj(x, y, 'fountain', FountainColor, ColorTolerance))or//this line gives error
(ColorTolerance > 20)
end;
if(ColorTolerance > 20)then
begin
Writeln('Couldnt find fountain try another color');
NextPlayer(False);
end;
end;
end;
how come it keeps saying idetifier expected?