Simba Code:
function Closewin(button,WaitT:integer): Boolean; //0 = noclick, 1 = click
var
bmp, t, x, y, i: integer;
begin
Result := False;
Bmp := BitmapFromString(11, 9, 'meJzTzp6rs/Gv1oyHWgYZSkqhkso' + 'JQDZQRDKyj4dHRlPTUMcwEiICJBXMaiBstSn3OEScmJmlmZiEpaW9' + 'FFXSIeIQBJTlFgtkZTVmYVECKpCSspeWChLTLoErENUu4eZ24uCAK' + 'hASshSRigTqwmUCp6gTRBZIAs2BszmErZmZpRgZuaUi+yAiPOKBPD' + 'xOQL0QNUBfMDEJycioAJUB1XCKWLOxGUMQUC9ElomJZ/r06UBDgBY' + 'BlQFtBCIgA2yyEFA8MzPv1KlTAA4RVsQ=');
MarkTime(T);
while (TimefromMark(t) < WaitT) do
begin
if FindBitmapToleranceIn(bmp, x, y, 400, 0, 500, 100, 20) then
begin
writeln('Found x');
If (button = 1) Then
begin
MMouse(x, y, 3, 3);
ClickMouse2(True);
end;
Result := True;
FreeBitmap(bmp);
exit;
end;
inc(i);
getmousepos(x, y);
If (TimeFromMark(t) Mod 4) = 0 then
MMouse(x + randomrange( - 5, 5), y + Randomrange( - 5, 5), 2, 2);
wait(randomrange(10,50));
end;
FreeBitmap(bmp);
end;
function GetMaxHp: Integer;
begin
CloseWin(1,300);
GameTab(tab_Equip);
if not WaitTabExists(tab_Equip, 3000) then
begin
Result := - 1;
Exit;
end;
MMouse(RandomRange(555, 590), RandomRange(420, 450), 3, 3);
ClickMouse2(True);
CloseWin(0,1000);
Result := StrToInt(Replace(GetTextAtExWrap(250, 68, 290, 80, 0, 1, 4, 12903403, 75, 'EquipChars'), ' ', ''));
CloseWin(1,100);
if result < 800 then
result := getmaxhp;
end;