Code:
Function GetPick(PickType:string):boolean;
var x,y,GenericPick:integer;
begin
PickType:=LowerCase(PickType);
case PickType of
'rune' : GenericPick:= DTMFromString('78DA63EC666060706540038C482490EE07124' +
'EA82A1C231219F891D5F402097B02E6CC06125E04D43403896802' +
'6A261061D72C20E14D404D0F90F0C1AF0600251307DD');
'adamant' : GenericPick:= DTMFromString('78DA637CC9C0C0E0CA800618914820FD16483' +
'8A1AA70087060E04756F31A48D81330E72790F022A0E621908826' +
'A0E61D1176FD0012DE04D4BC02123EF8D50000D84C0AA3');
'mithril' : GenericPick:= DTMFromString('78DA63DCC5C0C0E0CA800618914820BD0F483' +
'8A1AAB0B68E60E04756B30748D81330E71490F022A06613908826' +
'A0663F11769D0412DE04D4EC06123EF8D50000E9DA0929');
'steel' : GenericPick:= DTMFromString('78DA6374606260B8C3800618914820ED02547' +
'3135545494E36033FB21A27A09A6B04CC0900AA7948408D0550CD' +
'27026A5C89B0CB1FA8E61101358E40358FF1AB0100E3E20A9E');
'iron' : GenericPick:= DTMFromString('78DA63DCC5C0C0E0CA800618914820BD0F483' +
'8A1AAF0F37067E04756B30748D81330E71490F022A06613908826' +
'A0663F11769D0412DE04D4EC06123EF8D50000F7870938');
'bronze' : GenericPick:= DTMFromString('78DA63EC666060706540038C482490EE07124' +
'EA82ABCAD1419F891D5F402097B02E6CC06125E04D43403896802' +
'6A261061D72C902309A8E901123EF8D50000D9820789');
end;
if FindDTM(GenericPick,x,y,1,1,MSX2,MSY2) then
begin
//Writeln('Found '+PickType+' Pick BMP at '+IntToStr(x)+','+IntToStr(y));
Mouse(x,y,2,2,true);
Wait(3000);
if not(FindDTM(GenericPick,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
FreeDTM(GenericPick);
GetPick(PickType);
exit;
end;
Result:=true;
FreeDTM(GenericPick);
Writeln('Withdrew '+PickType+' pick');
Wait(500+random(1000));
exit;
end else
begin
FreeDTM(GenericPick);
case PickType of
'bronze' :result:=false;
'iron' :result:=GetPick('bronze');
'steel' :result:=GetPick('iron');
'mithril' :result:=GetPick('steel');
'adamant' :result:=GetPick('mithril');
'rune' :result:=GetPick('adamant');
end;
end;
end;
That's what I use for Picks. Change the DTMs to axes, and it should work fine.