ref: e475ce6fdaad21ba34a64a708f7c23bad5625917
dir: /engine/events/mom.asm/
BankOfMom: ldh a, [hInMenu] push af ld a, $1 ldh [hInMenu], a xor a ld [wJumptableIndex], a .loop ld a, [wJumptableIndex] bit 7, a jr nz, .done call .RunJumptable jr .loop .done pop af ldh [hInMenu], a ret .RunJumptable: jumptable .dw, wJumptableIndex .dw dw .CheckIfBankInitialized dw .InitializeBank dw .IsThisAboutYourMoney dw .AccessBankOfMom dw .StoreMoney dw .TakeMoney dw .StopOrStartSavingMoney dw .JustDoWhatYouCan dw .AskDST .CheckIfBankInitialized: ld a, [wMomSavingMoney] bit MOM_ACTIVE_F, a jr nz, .savingmoneyalready set MOM_ACTIVE_F, a ld [wMomSavingMoney], a ld a, $1 jr .done_0 .savingmoneyalready ld a, $2 .done_0 ld [wJumptableIndex], a ret .InitializeBank: ld hl, MomLeavingText1 call PrintText call YesNoBox jr c, .DontSaveMoney ld hl, MomLeavingText2 call PrintText ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F) jr .done_1 .DontSaveMoney: ld a, 1 << MOM_ACTIVE_F .done_1 ld [wMomSavingMoney], a ld hl, MomLeavingText3 call PrintText ld a, $8 ld [wJumptableIndex], a ret .IsThisAboutYourMoney: ld hl, MomIsThisAboutYourMoneyText call PrintText call YesNoBox jr c, .nope ld a, $3 jr .done_2 .nope call DSTChecks ld a, $7 .done_2 ld [wJumptableIndex], a ret .AccessBankOfMom: ld hl, MomBankWhatDoYouWantToDoText call PrintText call LoadStandardMenuHeader ld hl, BankOfMom_MenuHeader call CopyMenuHeader call VerticalMenu call CloseWindow jr c, .cancel ld a, [wMenuCursorY] cp $1 jr z, .withdraw cp $2 jr z, .deposit cp $3 jr z, .stopsaving .cancel ld a, $7 jr .done_3 .withdraw ld a, $5 jr .done_3 .deposit ld a, $4 jr .done_3 .stopsaving ld a, $6 .done_3 ld [wJumptableIndex], a ret .StoreMoney: ld hl, MomStoreMoneyText call PrintText xor a ld hl, wStringBuffer2 ld [hli], a ld [hli], a ld [hl], a ld a, 5 ld [wMomBankDigitCursorPosition], a call LoadStandardMenuHeader call Mom_SetUpDepositMenu call Mom_Wait10Frames call Mom_WithdrawDepositMenuJoypad call CloseWindow jr c, .CancelDeposit ld hl, wStringBuffer2 ld a, [hli] or [hl] inc hl or [hl] jr z, .CancelDeposit ld de, wMoney ld bc, wStringBuffer2 farcall CompareMoney jr c, .InsufficientFundsInWallet ld hl, wStringBuffer2 ld de, wStringBuffer2 + 3 ld bc, 3 call CopyBytes ld bc, wMomsMoney ld de, wStringBuffer2 farcall GiveMoney jr c, .NotEnoughRoomInBank ld bc, wStringBuffer2 + 3 ld de, wMoney farcall TakeMoney ld hl, wStringBuffer2 ld de, wMomsMoney ld bc, 3 call CopyBytes ld de, SFX_TRANSACTION call PlaySFX call WaitSFX ld hl, MomStoredMoneyText call PrintText ld a, $8 jr .done_4 .InsufficientFundsInWallet: ld hl, MomInsufficientFundsInWalletText call PrintText ret .NotEnoughRoomInBank: ld hl, MomNotEnoughRoomInBankText call PrintText ret .CancelDeposit: ld a, $7 .done_4 ld [wJumptableIndex], a ret .TakeMoney: ld hl, MomTakeMoneyText call PrintText xor a ld hl, wStringBuffer2 ld [hli], a ld [hli], a ld [hl], a ld a, 5 ld [wMomBankDigitCursorPosition], a call LoadStandardMenuHeader call Mom_SetUpWithdrawMenu call Mom_Wait10Frames call Mom_WithdrawDepositMenuJoypad call CloseWindow jr c, .CancelWithdraw ld hl, wStringBuffer2 ld a, [hli] or [hl] inc hl or [hl] jr z, .CancelWithdraw ld hl, wStringBuffer2 ld de, wStringBuffer2 + 3 ld bc, 3 call CopyBytes ld de, wMomsMoney ld bc, wStringBuffer2 farcall CompareMoney jr c, .InsufficientFundsInBank ld bc, wMoney ld de, wStringBuffer2 farcall GiveMoney jr c, .NotEnoughRoomInWallet ld bc, wStringBuffer2 + 3 ld de, wMomsMoney farcall TakeMoney ld hl, wStringBuffer2 ld de, wMoney ld bc, 3 call CopyBytes ld de, SFX_TRANSACTION call PlaySFX call WaitSFX ld hl, MomTakenMoneyText call PrintText ld a, $8 jr .done_5 .InsufficientFundsInBank: ld hl, MomHaventSavedThatMuchText call PrintText ret .NotEnoughRoomInWallet: ld hl, MomNotEnoughRoomInWalletText call PrintText ret .CancelWithdraw: ld a, $7 .done_5 ld [wJumptableIndex], a ret .StopOrStartSavingMoney: ld hl, MomSaveMoneyText call PrintText call YesNoBox jr c, .StopSavingMoney ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F) ld [wMomSavingMoney], a ld hl, MomStartSavingMoneyText call PrintText ld a, $8 ld [wJumptableIndex], a ret .StopSavingMoney: ld a, 1 << MOM_ACTIVE_F ld [wMomSavingMoney], a ld a, $7 ld [wJumptableIndex], a ret .JustDoWhatYouCan: ld hl, MomJustDoWhatYouCanText call PrintText .AskDST: ld hl, wJumptableIndex set 7, [hl] ret DSTChecks: ; check the time; avoid changing DST if doing so would change the current day ld a, [wDST] bit 7, a ldh a, [hHours] jr z, .NotDST and a ; within one hour of 00:00? jr z, .LostBooklet jr .loop .NotDST: cp 23 ; within one hour of 23:00? jr nz, .loop ; fallthrough .LostBooklet: call .ClearBox bccoord 1, 14 ld hl, .TimesetAskAdjustDSTText call PlaceHLTextAtBC call YesNoBox ret c call .ClearBox bccoord 1, 14 ld hl, .MomLostGearBookletText call PlaceHLTextAtBC ret .loop call .ClearBox bccoord 1, 14 ld a, [wDST] bit 7, a jr z, .SetDST ld hl, .TimesetAskNotDSTText call PlaceHLTextAtBC call YesNoBox ret c ld a, [wDST] res 7, a ld [wDST], a call .SetClockBack call .ClearBox bccoord 1, 14 ld hl, .TimesetNotDSTText call PlaceHLTextAtBC ret .SetDST: ld hl, .TimesetAskDSTText call PlaceHLTextAtBC call YesNoBox ret c ld a, [wDST] set 7, a ld [wDST], a call .SetClockForward call .ClearBox bccoord 1, 14 ld hl, .TimesetDSTText call PlaceHLTextAtBC ret .SetClockForward: ld a, [wStartHour] add 1 sub 24 jr nc, .DontLoopHourForward add 24 .DontLoopHourForward: ld [wStartHour], a ccf ld a, [wStartDay] adc 0 ld [wStartDay], a ret .SetClockBack: ld a, [wStartHour] sub 1 jr nc, .DontLoopHourBack add 24 .DontLoopHourBack: ld [wStartHour], a ld a, [wStartDay] sbc 0 jr nc, .DontLoopDayBack add 7 .DontLoopDayBack: ld [wStartDay], a ret .ClearBox: hlcoord 1, 14 lb bc, 3, 18 call ClearBox ret .TimesetAskAdjustDSTText: text_far _TimesetAskAdjustDSTText text_end .MomLostGearBookletText: text_far _MomLostGearBookletText text_end .TimesetAskDSTText: text_far _TimesetAskDSTText text_end .TimesetDSTText: text_far _TimesetDSTText text_end .TimesetAskNotDSTText: text_far _TimesetAskNotDSTText text_end .TimesetNotDSTText: text_far _TimesetNotDSTText text_end Mom_SetUpWithdrawMenu: ld de, Mon_WithdrawString jr Mom_ContinueMenuSetup Mom_SetUpDepositMenu: ld de, Mom_DepositString Mom_ContinueMenuSetup: push de xor a ldh [hBGMapMode], a hlcoord 0, 0 lb bc, 6, 18 call Textbox hlcoord 1, 2 ld de, Mom_SavedString call PlaceString hlcoord 12, 2 ld de, wMomsMoney lb bc, PRINTNUM_MONEY | 3, 6 call PrintNum hlcoord 1, 4 ld de, Mom_HeldString call PlaceString hlcoord 12, 4 ld de, wMoney lb bc, PRINTNUM_MONEY | 3, 6 call PrintNum hlcoord 1, 6 pop de call PlaceString hlcoord 12, 6 ld de, wStringBuffer2 lb bc, PRINTNUM_MONEY | PRINTNUM_LEADINGZEROS | 3, 6 call PrintNum call UpdateSprites call CGBOnly_CopyTilemapAtOnce ret Mom_Wait10Frames: ld c, 10 call DelayFrames ret Mom_WithdrawDepositMenuJoypad: .loop call JoyTextDelay ld hl, hJoyPressed ld a, [hl] and B_BUTTON jr nz, .pressedB ld a, [hl] and A_BUTTON jr nz, .pressedA call .dpadaction xor a ldh [hBGMapMode], a hlcoord 12, 6 ld bc, 7 ld a, " " call ByteFill hlcoord 12, 6 ld de, wStringBuffer2 lb bc, PRINTNUM_MONEY | PRINTNUM_LEADINGZEROS | 3, 6 call PrintNum ldh a, [hVBlankCounter] and $10 jr nz, .skip hlcoord 13, 6 ld a, [wMomBankDigitCursorPosition] ld c, a ld b, 0 add hl, bc ld [hl], " " .skip call WaitBGMap jr .loop .pressedB scf ret .pressedA and a ret .dpadaction ld hl, hJoyLast ld a, [hl] and D_UP jr nz, .incrementdigit ld a, [hl] and D_DOWN jr nz, .decrementdigit ld a, [hl] and D_LEFT jr nz, .movecursorleft ld a, [hl] and D_RIGHT jr nz, .movecursorright and a ret .movecursorleft ld hl, wMomBankDigitCursorPosition ld a, [hl] and a ret z dec [hl] ret .movecursorright ld hl, wMomBankDigitCursorPosition ld a, [hl] cp 5 ret nc inc [hl] ret .incrementdigit ld hl, .DigitQuantities call .getdigitquantity ld c, l ld b, h ld de, wStringBuffer2 farcall GiveMoney ret .decrementdigit ld hl, .DigitQuantities call .getdigitquantity ld c, l ld b, h ld de, wStringBuffer2 farcall TakeMoney ret .getdigitquantity ld a, [wMomBankDigitCursorPosition] push de ld e, a ld d, 0 add hl, de add hl, de add hl, de pop de ret .DigitQuantities: dt 100000 dt 10000 dt 1000 dt 100 dt 10 dt 1 dt 100000 dt 10000 dt 1000 dt 100 dt 10 dt 1 dt 900000 dt 90000 dt 9000 dt 900 dt 90 dt 9 MomLeavingText1: text_far _MomLeavingText1 text_end MomLeavingText2: text_far _MomLeavingText2 text_end MomLeavingText3: text_far _MomLeavingText3 text_end MomIsThisAboutYourMoneyText: text_far _MomIsThisAboutYourMoneyText text_end MomBankWhatDoYouWantToDoText: text_far _MomBankWhatDoYouWantToDoText text_end MomStoreMoneyText: text_far _MomStoreMoneyText text_end MomTakeMoneyText: text_far _MomTakeMoneyText text_end MomSaveMoneyText: text_far _MomSaveMoneyText text_end MomHaventSavedThatMuchText: text_far _MomHaventSavedThatMuchText text_end MomNotEnoughRoomInWalletText: text_far _MomNotEnoughRoomInWalletText text_end MomInsufficientFundsInWalletText: text_far _MomInsufficientFundsInWalletText text_end MomNotEnoughRoomInBankText: text_far _MomNotEnoughRoomInBankText text_end MomStartSavingMoneyText: text_far _MomStartSavingMoneyText text_end MomStoredMoneyText: text_far _MomStoredMoneyText text_end MomTakenMoneyText: text_far _MomTakenMoneyText text_end MomJustDoWhatYouCanText: text_far _MomJustDoWhatYouCanText text_end Mom_SavedString: db "SAVED@" Mon_WithdrawString: db "WITHDRAW@" Mom_DepositString: db "DEPOSIT@" Mom_HeldString: db "HELD@" BankOfMom_MenuHeader: db MENU_BACKUP_TILES ; flags menu_coords 0, 0, 10, 10 dw .MenuData db 1 ; default option .MenuData: db STATICMENU_CURSOR ; flags db 4 ; items db "GET@" db "SAVE@" db "CHANGE@" db "CANCEL@"