Code:
program AutoDropper;
const
drop_first = false;
// false if pick/hatchet is in first invy slot.
procedure mouse(x,y:integer; leftMouse:boolean);
begin
moveMouseSmooth(x,y);
wait(50+random(100));
holdMouse(x,y,leftMouse);
wait(50+random(100));
releaseMouse(x,y,leftMouse);
end;
procedure clickInvy(col,row:integer; leftMouse,clickIfItem:boolean; var itemFound:boolean);
var
x,y,x2,y2: integer;
itemPresent: boolean;
begin
x:= 573+(42*(col-1))+random(10);
y:= 222+(36*(row-1))+random(10);
moveMouseSmooth(x,y);
wait(100+random(100));
if(clickIfItem)then
begin
itemPresent:= findColorTolerance(x2,y2,14804451,0,0,15,15,35);
itemFound:= itemPresent;
end;
if((clickIfItem and itemPresent) or not(clickIfItem))then
begin
holdMouse(x,y,leftMouse);
wait(50+random(100));
releaseMouse(x,y,leftMouse);
end;
end;
procedure clearPopUp();
var
x,y: integer;
begin
getMousePos(x,y);
moveMouseSmooth(x-(100+random(50)),y-(100+random(50)));
end;
var
dropImg,col,row,x,y: integer;
itemFound: boolean;
begin
dropImg := BitmapFromString(2, 10, 'beNrbMfXYDnIRAPCmKX0=');
itemFound:= false;
row:= 0;
col:= 1;
if(drop_first)then
begin
col:= 0;
end;
repeat
inc(row);
repeat
inc(col);
clickInvy(col,row,false,true,itemFound);
if(itemFound)then
begin
if(findBitmap(x,y,dropImg))then
begin
moveMouseSmooth(x,y);
wait(1000+random(50));
clickMouse(x,y,true);
end else begin
clearPopUp();
end;
wait(100+random(50));
end;
until(col > 3);
col:= 0;
until(row > 6);
freeBitmap(dropImg);
end.
Any comments on how to improve my script (other than the problem above) would be awesome