I was wondering if someone could help me with this small procedure because I've read almost every tut and I've looked through the procedure like a thousand times but I can't figure out what's wrong.. Can someone help?
SCAR Code:
Procedure Chop;
var
loops:integer;
i:integer;
Begin
Loops := 0
repeat
Loops:=Loops+1;
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)
FindTheEnt;
FindTheHead;
AttachTheHead;
AutoTalk;
FindNormalRandomsChoice;
OtherAntiBan;
Wait(1000 + random(500));
i=i+1
until (InChat('logs.')) or (InChat('get some'));
if(not(FindObj3(x, y,'ew', YewColor,3)))then
begin
Tries:=Tries + 1
if(Tries = 15)then
begin
Writeln('Sorry,the script could not work')
Writeln('Please try restarting the script')
Writeln('If problem persists, please notify me')
Players[CurrentPlayer].Active := False;
LogOut;
Exit;
NextPlayer(False)
end;
end;
end;
end;