Change the color the npc and loot color. pics up gold charms.I'm still working on it though so.. its not 100% flawless.
program fite;
Var
X, Y, charm: Integer;
Const
// fill out
NPC=7897473;
loot=14079706;
tolerence=5;
time=7; // in seconds
rwait=1000;
tleft= 41;
tright = 44;
bleft=426;
bright=280;
procedure pickup;
Begin
charm := BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
WriteLn('Looking for bones . . . ');
Wait(1700 + Random(1200));
{if} FindColorTolerance(X,Y,loot,223,129,319,238,15){ then}
WriteLn('Found bones');
movemouse(x, y);
Wait(120 + Random(80));
ClickMouse(x, y, Mouse_right);
{End;
else
Begin
clicknpc;
End;
Begin }
WriteLn('Looking for charm . . . ');
wait(1100);
{if} FindBitMapToleranceIn(charm, X, Y,161, 95, 330, 205, 75) {then}
movemouse(X, Y);
WriteLn('Found charm ');
wait(500);
ClickMouse(X, Y, Mouse_left)
FreeBitMap(charm);
wait(3000);
End;
{else
Begin
clicknpc;
End; }
procedure checkcombat;
begin
Wait((time*500) + Random(rwait));
WriteLn('Waiting for loot . . .');
Wait((time*500) + Random(rwait));
pickup;
End;
procedure clicknpc;
var
X, Y, charm: Integer;
begin // kill npc
WriteLn('Attacking skeleton . . .');
if FindColorTolerance(X,Y,NPC,tleft,tright,bleft,bright,tolerence) then
movemouse(x, y);
Wait(10 + Random(10));
ClickMouse(x, y, Mouse_Left)
checkcombat;
end;
{ End else;
Begin
clicknpc;
End;}
Begin
repeat
clicknpc;
until (False);
End.