if (A = 8) then
is the line i get the error at
this is the whole procedure:
SCAR Code:procedure CrafterSoft;
var
A: Integer;
begin
repeat
A := A + 1;
UseItem(1);
Wait(300+random(200));
UseItem(28);
Wait(1500+random(200));
until (FindBitmap(Xer, x, y) or (A = 8));
if (A = 8) then
begin
NextPlayer(False);
end;
FreeBitmap(Xer);
end;




Reply With Quote


