procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'ree', COLOR, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
repeat
wait(1200+random(250));
Until not IsUpText('ree') or (InvFull);
Until (InvFull);
end;
Error : [Error] (37:1): Syntax error at line 36
Compiling failed.
Line 36 = "procedure ChopTree;"


Reply With Quote




