How to make a loot procedure

[Helper]

Hellow, i want to know how to make a procedure to loot gold charms.

:norris:

[belbn]

procedure Loot;
begin
If(FindColorTolerance(x,y,COLOR,msx1,mxy1,msx2,msy 2,10)then
begin

mousebox(x,y,x,y,0);

if WaitUpText('Gold',RandomRange(150,250)) then
begin

clickmouse2(true);

end

end;
end;

[Helper]

procedure Loot;
begin
If(FindColorTolerance(x,y,COLOR,msx1,mxy1,msx2,msy 2,10)then
begin

mousebox(x,y,x,y,0);

if WaitUpText('Gold',RandomRange(150,250)) then
begin

clickmouse2(true);

end

end;
end;


Thank you so much, i give you some reputation

[cause]

Maybe an easier way is to use:
Function Loot: boolean; //Returns true if successful, false if not
var
x, y: integer;
if FindObjCustom(x, y, ['old'], 1234, 5) then //1234 is the color of the looted and old is Gold without the first letter
begin
Mouse(x, y, 1, 1, true);
wait(100 + random(250));
WriteLn('Found and clicked!');
Result := true;
end
else
begin
WriteLn('Didn''t find :(');
Result := false;
end;

Belbn's procedure won't work because he forgot his variables :P

[Helper]

Maybe an easier way is to use:
Function Loot: boolean; //Returns true if successful, false if not
var
x, y: integer;
if FindObjCustom(x, y, ['old'], 1234, 5) then //1234 is the color of the looted and old is Gold without the first letter
begin
Mouse(x, y, 1, 1, true);
wait(100 + random(250));
WriteLn('Found and clicked!');
Result := true;
end
else
begin
WriteLn('Didn''t find :(');
Result := false;
end;

Belbn's procedure won't work because he forgot his variables :P

It worked, thank you so much :norris: