procedure Banking;
begin
Antiban;
OpenBankChest(SRL_BANK_SW);
if(PinScreen) then
InPin('');
if(BankScreen) then
Deposit(1, 27, True);
MiniBreaker;
Withdraw(9, 0, 27);
CloseBank;
Antiban;
end;
procedure CastSpell;
var
Humi, X, Y:Integer;
begin
Antiban;
if GetCurrentTab = (tab_Magic) then
begin
WriteLn('Current tab is magic tab, correct!')
end else
begin
FTab(tab_Magic);
WriteLn('Changed tabs to magic tab')
end;
begin
Humi :=
if (FindBitmapToleranceIn(Humi, X, Y, 549, 201, 737, 250, 10)) then
Case Random(25) of
0..14: begin;
Mouse(X, Y, 8, 8, True);
WriteLn('We clicked humidify using method 1')
Wait(RandomRange(2000, 2500));
end;
15..18: begin;
Mouse(X, Y, 8, 8, False);
WaitOption('ast', 500);
WriteLn('We clicked humidify using method 2')
Wait(RandomRange(2000, 2500));
end;
19..20: begin;
Mouse(X, Y, 4, 4, True);
WriteLn('We clicked humidify using method 3')
RandomMovement;
Wait(RandomRange(500, 1500));
end;
21.22: begin;
Mouse(X, Y, 4, 4, False);
WaitOption('ast', 500);
WriteLn('We clicked humidify using method 4')
Wait(RandomRange(500, 1500));
end;
23: begin;
Wait(RandomRange(200, 800));
Mouse(X, Y, 6, 6, False);
Wait(RandomRange(100, 200));
WaitOption('ast', 300);
WriteLn('We clicked humidify using method 5')
Wait(RandomRange(300, 600));
Boredhuman;
Wait(RandomRange(1000, 1500));
end;
24: begin;
Wait(RandomRange(200, 800));
Mouse(X, Y, 4, 4, False);
Wait(RandomRange(100, 200));
WaitOption('ast', 300);
WriteLn('We clicked humidify using method 6')
Wait(RandomRange(200, 800));
Boredhuman;
Wait(RandomRange(1200, 1800));
end;
end;
FreeBitMap(Humi);
end;
end;