Grimtoker
2011-12-22 04:22:24
I'm learning to put TPA's into my script to find an object and even though it finds the object and clicks it, i'm still experiencing another problem. The script will for some reason keep repeating the procedure instead of moving onto the next one like it should do.
The code is below, how can I make it stop repeating the procedure and move onto the next? I thought Exit; would stop it?
The code is below, how can I make it stop repeating the procedure and move onto the next? I thought Exit; would stop it?
Procedure BranchUp;
Begin
AntiRandoms;
AntiBan;
begin
FindColorsTolerance(MyTPA, 999018, 150, 129, 363, 272, 10);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i]
MMouse (MyPoint.x, MyPoint.y, 5, 5);
if (IsUpTextMultiCustom(['ranch', 'ree'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('og');
Wait(500+random(250));
Exit;
end;
Wait(6500+Random(500));
WriteLn('Branch done..');
end;
end;
End;