In this procedure I can't find the identifer expected and whats wrong with it can someone help?
SCAR Code:
Procedure Chop;
var
loops:integer;
i:integer;
Begin
repeat
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N')
CheckForEnt;
FindFastRandoms;
Wait(5000+random(5000));
If(FindObj3(x, y,'ew', YewColor,3)) then
begin
MMouse(x, y, 1, 1);
Wait(1000+random(500));
if(IsUpText('hop')) or (IsUpText('cho')) or (IsUpText('hop'))then
begin
Mouse(x, y, 1, 1, true);
Wait(TreeTB*1000/2+random(2000));
CheckForEnt;
OtherAntiBan;
FindTheHead;
AttachTheHead;
AutoTalk;
FindFastRandoms;
Wait(TreeTB*1000/2+random(2000));
until(InChat('logs.')) or (InChat('get some');
end;
end;
if(not(FindObj3(x, y,'ew', YewColor,3)))then
begin
I:=0
repeat
Wait(5000+random(1000));
I:=I+1;
until (FindObj3(x, y,'ew', YewColor,3));
end;
if(I = 15)then
begin
Writeln('Sorry,the script could not work');
Writeln('Please try restarting the script');
Writeln('If problem persists, please notify me');
end;
Players[CurrentPlayer].Active := False;
LogOut;
Exit;
NextPlayer(False)
end;