New problem, the script runs, clicks the npc and loops but sometimes it does not right click the loot, and it does not click the bitmap at all!
Simba Code:
program fite;
Var
X, Y, charm: Integer;
Const
// fill out
NPC=1122383;
loot=11908542;
tolerence=15;
time=7; // in seconds
rwait=1000;
tleft= 41;
tright = 44;
bleft=426;
bright=280;
// hitbar
hpx1=242;
hpy1=159;
hpx2=296;
hpy2=165;
hpcol=50036;
Procedure carmmap;
Begin
charm := BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
End;
Procedure Freecharm;
Begin
FreeBitMap(charm);
End;
procedure pickup;
Begin
charm := BitmapFromString(31, 12, 'meJyTUdeWIQU5TPgPRyRpJNJkBj' +
'CgrvnIJkNEkNnUMpwMvVN3HIMj/IZjDXOscQFxCcRMiDdxmY/scrQ' +
'wxx8XcMPR2HiCBZmLi40ZJnAvUNdwBiSAJ9iJNxwevGiOx59mMJMl' +
'VnHMdIvf8WjKiBGnEQIAUtQGXA==');
FindColorTolerance(X,Y,11185078,225,132,323,220,15)
movemouse(x, y);
Wait(120 + Random(80));
ClickMouse(x, y, Mouse_right)
wait(1000);
If FindBitMapToleranceIn(charm, X, Y,248, 197, 270, 214, 65) Then
Begin
WriteLn('LOOTCHARM');
movemouse(X, Y);
ClickMouse(X, Y, Mouse_left)
wait(3000);
End Else
WriteLn('Debug: We Could Not Find The charm');
End;
procedure checkcombat;
begin
Wait((time*1000) + Random(rwait));
pickup;
end;
procedure clicknpc;
var
X, Y, charm: Integer;
begin // kill npc
FindColorTolerance(X,Y,NPC,tleft,tright,bleft,bright,tolerence)
movemouse(x, y);
Wait(120 + Random(80));
ClickMouse(x, y, Mouse_Left)
checkcombat;
End;
begin
repeat
clicknpc;
Freecharm;
until (False);
end.