Simba Code:
program new;
{$include mkex.simba}
{$i OpenTesseract.simba}
/////////////////////////////////
//Config:
const BATTLE_GEAR = 5;
REGEN_GEAR = 1;
/////////////////////////////////
var s:string;
IHFilter: TTesseractFilter;
procedure Init();
begin
mk.Init();
_Tesseract_Setup();
IHFilter := TTesseractFilter([4, 4, [False, 20, TM_Mean]]);
end;
procedure SwitchGear(no:byte);
begin
mk.ClickMouse(200, 531);
sleep(200);
mk.ClickMouse(167, 445);
sleep(300);
mk.ClickMouse(762,395+(no-1)*30);
sleep(1000);
mk.ClickMouse(777, 70);
sleep(1000);
end;
procedure RegenHandler();
var s:string;
var changeFlag : boolean;
var sa: TStringArray;
begin
s := Tesseract_GetText( 64, 350,103, 364,IHFilter ,'1234567890:');
ExplodeWrap(':',s,sa);
if (strToIntDef(sa[0],99) = 0)and (strToIntDef(sa[1],99)<20) then
changeFlag := TRUE;
if (not changeFlag) then
begin
s := Tesseract_GetText( 64, 374,103, 388,IHFilter ,'1234567890:');
ExplodeWrap(':',s,sa);
if (strToIntDef(sa[0],99) = 0)and (strToIntDef(sa[1],99)<20) then
changeFlag := TRUE;
end;
if changeFlag then
begin
SwitchGear(REGEN_GEAR);
sleep(23000);
SwitchGear(BATTLE_GEAR);
end;
end;
begin
Init();
while (true) do
begin
RegenHandler();
//mk.ClickKey(VK_1);
sleep(8000);
end;
end.