mafia miles
2013-04-03 14:32:12
I want to select make all on the uptext for smithing. heres the code I have :
procedure Smelt;
var
pX,pY:integer;
begin
InvMouse(2, 1);
wait(1000);
MMouse(x,y,5,5);
wait(1000);
ClickMouse2(mouse_left);
Wait(1200+Random(100));
if FindObjCustom(x,y, ['urnace','melt'],[1715865], 35) then
begin
MMouse(x, y, 3, 3);
wait(567);
MMouse(1040, 469, 2, 35);
wait(200 + random(50));
begin
clickMouse2(mouse_right);
if ChooseOptionMulti(['1']) then
writeln('WithDrawing');
wait(800 + random(800));
wait(800 + random(800));
end;
end;
end;