Simba Code:
procedure Heal;
var
x, y, monkchatbox: integer;
begin
Proggy('Checking Hitpoints');
if (GetSkillInfo('hitpoints', true) < HEALAT) then
begin
Proggy('Healing');
repeat
if (not InCombat) then
begin
if (FindObjCustom(x, y, ['Attack', 'ttack', 'onk'], [MONKCOLOR1, MONKCOLOR2, MONKCOLOR3], 3)) then
ClickMouse2(mouse_right);
ChooseOption('alk');
monkchatbox := BitmapFromString(38, 11, 'meJx9VEEOwjAM29N5A6gSgmcg7T' + 'DGjQNoHPok3Hl1TTohRVOapHaSJkvTkqblNL6H4QC53D8QKGnO5Vt' + 'daQ0LApf04+3ZXHOGyzF59Iu0QxejLJRwZOROGpUrXFQwdVIERrl0' + 'UV5XQqVgDBaHgpzHl+Mrjb6NgVGwoaK+4Q7l+V8fmUcqCsNF2mVRz' + '3ctbhe4RAk7vhBAXVq0dkmzFHL2woPdwft6PVufVTGG4JDqLqPPJN' + '7OB96DS13dO/bBHIC+1c6IZWFp3lK+EbvH+K2ThKrVNeQ5hzH7UyP' + 'XU3vHABw5qyBiGqxRCfST4NsqOtwSgk9L+v2xeIZMvm30nDfqylL6' + 's74pw0jRXrlO14ZgkbSE9fkC7/HkKQ==');
wait(randomrange(200,400));
FindBitmapToleranceIn(monkchatbox, x, y, 282, 362, 333, 383, 10);
mousebox(232, 443, 359, 459, 1);
wait(randomrange(300, 700));
mousebox(156, 387, 361, 400, 1);
wait(randomrange(300, 700));
mousebox(232, 443, 359, 459, 1);
wait(randomrange(300, 700));
mousebox(232, 443, 359, 459, 1);
end
else
begin
Writeln('We need to heal but we are in combat! waiting..');
repeat
wait(randomrange(1000, 3000));
until(not InCombat)
begin
if (FindObjCustom(x, y, ['Attack', 'ttack', 'onk'], [MONKCOLOR1, MONKCOLOR2, MONKCOLOR3], 10)) then
ClickMouse2(mouse_right);
ChooseOption('alk');
monkchatbox := BitmapFromString(38, 11, 'meJx9VEEOwjAM29N5A6gSgmcg7T' + 'DGjQNoHPok3Hl1TTohRVOapHaSJkvTkqblNL6H4QC53D8QKGnO5Vt' + 'daQ0LApf04+3ZXHOGyzF59Iu0QxejLJRwZOROGpUrXFQwdVIERrl0' + 'UV5XQqVgDBaHgpzHl+Mrjb6NgVGwoaK+4Q7l+V8fmUcqCsNF2mVRz' + '3ctbhe4RAk7vhBAXVq0dkmzFHL2woPdwft6PVufVTGG4JDqLqPPJN' + '7OB96DS13dO/bBHIC+1c6IZWFp3lK+EbvH+K2ThKrVNeQ5hzH7UyP' + 'XU3vHABw5qyBiGqxRCfST4NsqOtwSgk9L+v2xeIZMvm30nDfqylL6' + 's74pw0jRXrlO14ZgkbSE9fkC7/HkKQ==');
repeat
begin
wait(randomrange(100, 300));
end;
until (FindBitmapToleranceIn(monkchatbox, x, y, 282, 362, 333, 383, 10));
mousebox(232, 443, 359, 459, 1);
wait(randomrange(300, 700));
mousebox(156, 387, 361, 400, 1);
wait(randomrange(300, 700));
mousebox(232, 443, 359, 459, 1);
wait(randomrange(300, 700));
mousebox(232, 443, 359, 459, 1);
wait(randomrange(500,1000));
end;
end;
until(GetSkillInfo('hitpoints', true) = MAXHPMINUSONE) or ((GetSkillInfo('hitpoints', true) > MAXHPMINUSONE;
end
else
begin
Writeln('Hp is fine');
end;
end;