program new;
{$I BankCore.simba}

var
  IRON_ORE := DTMFromString('mPwEAAHic42dgYHjPyMDwBIjfAfErIP4IxD+A+DcQvwXih0B8D4gfAfFzIH7NCNHzCYg7gLgdiHuBuAeKQexWIG6CYpCafiCeBMRToTSI76OnxJAeYgV0ASPJWAFIKpClkzKMBgBH8Rgh');
  IRON_BAR := DTMFromString('mwQAAAHichcwxCoAgAEbhXzc3W2yJFpegI+XWVaKwobAT9yBo1Aff+pyk0UodPHoMiJgQMOMwUsaFggc3TmzYsaaFm6mKalc/fP5e76kHVQ==');

begin
  Banker.AddInstr(opOpenBank,      Argz(BANK_EAST));
  Banker.AddInstr(opJLT,           Argz(IRON_BAR, 1, 1));
  Banker.AddInstr(opDepositItem,   Argz(IRON_BAR, DEPOSIT_ALL));
  Banker.AddInstr(opWithdrawItem,  Argz(IRON_ORE, WITHDRAW_ALL, 'Iron ore'));
  Banker.AddInstr(opCloseBank);

  Banker.AddInstr(opAwaitTab,      Argz(Int32(tabMagic), 6000));
  Banker.AddInstr(opClickSpell,    Argz(Int32(CAST_SUPERHEAT_ITEM)));
  Banker.AddInstr(opAwaitTab,      Argz(Int32(tabInventory), 6000));
  Banker.AddInstr(opClickItem,     Argz(IRON_ORE, mouse_Left));
  Banker.AddInstr(opJGT,           Argz(IRON_ORE, 0, -5));

  Banker.AddInstr(opJMP,           Argz(0));
  Banker.AddInstr(opReturn);

  Banker.Execute();
end.