Program Humidify;
{.include SRL\SRL.scar}
var
X, y, VialsFilled: Integer;
const
pin = 'bankpin';
Procedure Bank;
var
WaterVial, time: Integer;
begin
MarkTime(time);
repeat
if (not(Loggedin)) then break;
OpenBankFast('feb')
until(BankScreen) or (PinScreen);
if Pinscreen then
inPin(Pin);
if BankScreen
then
Deposit(3, 28, True);
WriteLn('We have banked ' +IntToStr(VialsFilled) + ' watervials');
wait(10+random(100));
Withdraw(10,4,0);
wait(200+random(300));
CloseBank;
end;
Procedure CastHumidify;
begin;
GameTab(7);
Mouse(567, 253, 11, 11, True);
wait(10+random(300));
end;
Begin
SetupSrl;
Bank;
CastHumidify;
repeat
Bank;
CastHumidify;
until(False);
end.