pokecrystal-board/engine/events/mom.asm

698 lines
11 KiB
NASM
Raw Normal View History

2018-06-24 07:09:41 -07:00
BankOfMom:
ldh a, [hInMenu]
push af
ld a, $1
ldh [hInMenu], a
xor a
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
2015-12-18 17:07:09 -08:00
.loop
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
bit 7, a
2015-12-18 17:07:09 -08:00
jr nz, .done
call .RunJumptable
jr .loop
2015-12-18 17:07:09 -08:00
.done
pop af
ldh [hInMenu], a
ret
2018-06-24 07:09:41 -07:00
.RunJumptable:
2015-10-24 16:49:19 -07:00
ld a, [wJumptableIndex]
ld e, a
ld d, 0
2015-12-26 18:59:03 -08:00
ld hl, .dw
add hl, de
add hl, de
ld a, [hli]
ld h, [hl]
ld l, a
jp hl
2018-06-24 07:09:41 -07:00
.dw
2015-12-26 18:59:03 -08:00
dw .CheckIfBankInitialized
dw .InitializeBank
dw .IsThisAboutYourMoney
dw .AccessBankOfMom
dw .StoreMoney
dw .TakeMoney
dw .StopOrStartSavingMoney
dw .AskDST
dw .JustDoWhatYouCan
2018-06-24 07:09:41 -07:00
.CheckIfBankInitialized:
2015-11-12 21:49:27 -08:00
ld a, [wMomSavingMoney]
2018-01-22 10:57:44 -08:00
bit MOM_ACTIVE_F, a
2015-10-19 13:49:29 -07:00
jr nz, .savingmoneyalready
2018-01-22 10:57:44 -08:00
set MOM_ACTIVE_F, a
2015-11-12 21:49:27 -08:00
ld [wMomSavingMoney], a
ld a, $1
2015-10-19 13:49:29 -07:00
jr .done_0
2015-10-19 13:49:29 -07:00
.savingmoneyalready
ld a, $2
2015-10-19 13:49:29 -07:00
.done_0
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.InitializeBank:
ld hl, UnknownText_0x16649
call PrintText
call YesNoBox
2015-10-19 13:49:29 -07:00
jr c, .DontSaveMoney
ld hl, UnknownText_0x1664e
call PrintText
2018-01-22 10:57:44 -08:00
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F)
2015-10-19 13:49:29 -07:00
jr .done_1
.DontSaveMoney:
2018-01-22 10:57:44 -08:00
ld a, 1 << MOM_ACTIVE_F
2015-10-19 13:49:29 -07:00
.done_1
2015-11-12 21:49:27 -08:00
ld [wMomSavingMoney], a
ld hl, UnknownText_0x16653
call PrintText
ld a, $8
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.IsThisAboutYourMoney:
ld hl, UnknownText_0x16658
call PrintText
call YesNoBox
2015-10-19 13:49:29 -07:00
jr c, .nope
ld a, $3
2015-10-19 13:49:29 -07:00
jr .done_2
2015-10-19 13:49:29 -07:00
.nope
call DSTChecks
ld a, $7
2015-10-19 13:49:29 -07:00
.done_2
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.AccessBankOfMom:
ld hl, UnknownText_0x1665d
call PrintText
call LoadStandardMenuHeader
ld hl, MenuHeader_0x166b5
call CopyMenuHeader
2015-12-15 15:59:49 -08:00
call VerticalMenu
call CloseWindow
2015-10-19 13:49:29 -07:00
jr c, .cancel
2015-12-15 15:59:49 -08:00
ld a, [wMenuCursorY]
cp $1
2015-10-19 13:49:29 -07:00
jr z, .withdraw
cp $2
2015-10-19 13:49:29 -07:00
jr z, .deposit
cp $3
2015-10-19 13:49:29 -07:00
jr z, .stopsaving
2015-10-19 13:49:29 -07:00
.cancel
ld a, $7
2015-10-19 13:49:29 -07:00
jr .done_3
2015-10-19 13:49:29 -07:00
.withdraw
ld a, $5
2015-10-19 13:49:29 -07:00
jr .done_3
2015-10-19 13:49:29 -07:00
.deposit
ld a, $4
2015-10-19 13:49:29 -07:00
jr .done_3
2015-10-19 13:49:29 -07:00
.stopsaving
ld a, $6
2015-10-19 13:49:29 -07:00
.done_3
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.StoreMoney:
ld hl, UnknownText_0x16662
call PrintText
xor a
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld [hli], a
ld [hli], a
ld [hl], a
2018-01-22 10:57:44 -08:00
ld a, 5
2018-01-11 12:36:11 -08:00
ld [wMomBankDigitCursorPosition], a
call LoadStandardMenuHeader
2016-05-10 09:59:34 -07:00
call Mom_SetUpDepositMenu
call Mom_Wait10Frames
call Mom_WithdrawDepositMenuJoypad
call CloseWindow
2015-10-19 13:49:29 -07:00
jr c, .CancelDeposit
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld a, [hli]
or [hl]
inc hl
or [hl]
2015-10-19 13:49:29 -07:00
jr z, .CancelDeposit
2018-01-23 14:39:09 -08:00
ld de, wMoney
ld bc, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall CompareMoney
2015-10-19 13:49:29 -07:00
jr c, .DontHaveThatMuchToDeposit
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld de, wStringBuffer2 + 3
2015-10-19 13:49:29 -07:00
ld bc, 3
call CopyBytes
2015-11-12 21:49:27 -08:00
ld bc, wMomsMoney
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall GiveMoney
2015-10-19 13:49:29 -07:00
jr c, .CantDepositThatMuch
2018-01-23 14:39:09 -08:00
ld bc, wStringBuffer2 + 3
ld de, wMoney
2017-12-24 09:47:30 -08:00
farcall TakeMoney
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
2015-11-12 21:49:27 -08:00
ld de, wMomsMoney
2015-10-19 13:49:29 -07:00
ld bc, 3
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, UnknownText_0x1668a
call PrintText
ld a, $8
2015-10-19 13:49:29 -07:00
jr .done_4
.DontHaveThatMuchToDeposit:
ld hl, UnknownText_0x1667b
call PrintText
ret
.CantDepositThatMuch:
ld hl, UnknownText_0x16680
call PrintText
ret
.CancelDeposit:
ld a, $7
2015-10-19 13:49:29 -07:00
.done_4
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.TakeMoney:
ld hl, UnknownText_0x16667
call PrintText
xor a
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld [hli], a
ld [hli], a
ld [hl], a
2018-01-22 10:57:44 -08:00
ld a, 5
2018-01-11 12:36:11 -08:00
ld [wMomBankDigitCursorPosition], a
call LoadStandardMenuHeader
2016-05-10 09:59:34 -07:00
call Mom_SetUpWithdrawMenu
call Mom_Wait10Frames
call Mom_WithdrawDepositMenuJoypad
call CloseWindow
2015-10-19 13:49:29 -07:00
jr c, .CancelWithdraw
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld a, [hli]
or [hl]
inc hl
or [hl]
2015-10-19 13:49:29 -07:00
jr z, .CancelWithdraw
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld de, wStringBuffer2 + 3
ld bc, 3
call CopyBytes
2015-11-12 21:49:27 -08:00
ld de, wMomsMoney
2018-01-23 14:39:09 -08:00
ld bc, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall CompareMoney
2015-10-19 13:49:29 -07:00
jr c, .InsufficientFundsInBank
2018-01-23 14:39:09 -08:00
ld bc, wMoney
ld de, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall GiveMoney
2015-10-19 13:49:29 -07:00
jr c, .NotEnoughRoomInWallet
2018-01-23 14:39:09 -08:00
ld bc, wStringBuffer2 + 3
2015-11-12 21:49:27 -08:00
ld de, wMomsMoney
2017-12-24 09:47:30 -08:00
farcall TakeMoney
2018-01-23 14:39:09 -08:00
ld hl, wStringBuffer2
ld de, wMoney
ld bc, 3
call CopyBytes
ld de, SFX_TRANSACTION
call PlaySFX
call WaitSFX
ld hl, UnknownText_0x1668f
call PrintText
ld a, $8
2015-10-19 13:49:29 -07:00
jr .done_5
.InsufficientFundsInBank:
ld hl, UnknownText_0x16671
call PrintText
ret
.NotEnoughRoomInWallet:
ld hl, UnknownText_0x16676
call PrintText
ret
.CancelWithdraw:
2015-10-19 13:49:29 -07:00
ld a, $7
2015-10-19 13:49:29 -07:00
.done_5
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.StopOrStartSavingMoney:
ld hl, UnknownText_0x1666c
call PrintText
call YesNoBox
2015-10-19 13:49:29 -07:00
jr c, .StopSavingMoney
2018-01-22 10:57:44 -08:00
ld a, (1 << MOM_ACTIVE_F) | (1 << MOM_SAVING_SOME_MONEY_F)
2015-11-12 21:49:27 -08:00
ld [wMomSavingMoney], a
ld hl, UnknownText_0x16685
call PrintText
ld a, $8
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
.StopSavingMoney:
2018-01-22 10:57:44 -08:00
ld a, 1 << MOM_ACTIVE_F
2015-11-12 21:49:27 -08:00
ld [wMomSavingMoney], a
ld a, $7
2015-10-24 16:49:19 -07:00
ld [wJumptableIndex], a
ret
2018-06-24 07:09:41 -07:00
.AskDST:
ld hl, UnknownText_0x16694
call PrintText
2018-06-24 07:09:41 -07:00
.JustDoWhatYouCan:
2015-10-24 16:49:19 -07:00
ld hl, wJumptableIndex
set 7, [hl]
ret
2018-06-24 07:09:41 -07:00
DSTChecks:
; check the time; avoid changing DST if doing so would change the current day
ld a, [wDST]
bit 7, a
ldh a, [hHours]
2015-12-18 17:07:09 -08:00
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:
2015-12-18 17:07:09 -08:00
call .ClearBox
bccoord 1, 14
2015-12-18 17:07:09 -08:00
ld hl, .Text_AdjustClock
call PlaceHLTextAtBC
call YesNoBox
ret c
2015-12-18 17:07:09 -08:00
call .ClearBox
bccoord 1, 14
2015-12-18 17:07:09 -08:00
ld hl, .Text_LostInstructionBooklet
call PlaceHLTextAtBC
ret
.loop
2015-12-18 17:07:09 -08:00
call .ClearBox
bccoord 1, 14
ld a, [wDST]
bit 7, a
2015-12-18 17:07:09 -08:00
jr z, .SetDST
ld hl, .Text_IsDSTOver
call PlaceHLTextAtBC
call YesNoBox
ret c
ld a, [wDST]
res 7, a
ld [wDST], a
2015-12-18 17:07:09 -08:00
call .SetClockBack
call .ClearBox
bccoord 1, 14
2015-12-18 17:07:09 -08:00
ld hl, .Text_SetClockBack
call PlaceHLTextAtBC
ret
.SetDST:
2015-12-18 17:07:09 -08:00
ld hl, .Text_SwitchToDST
call PlaceHLTextAtBC
call YesNoBox
ret c
ld a, [wDST]
set 7, a
ld [wDST], a
2015-12-18 17:07:09 -08:00
call .SetClockForward
call .ClearBox
bccoord 1, 14
2015-12-18 17:07:09 -08:00
ld hl, .Text_SetClockForward
call PlaceHLTextAtBC
ret
2018-06-24 07:09:41 -07:00
.SetClockForward:
2018-01-23 14:39:09 -08:00
ld a, [wStartHour]
add 1
sub 24
2015-12-18 17:07:09 -08:00
jr nc, .DontLoopHourForward
add 24
.DontLoopHourForward:
2018-01-23 14:39:09 -08:00
ld [wStartHour], a
ccf
2018-01-23 14:39:09 -08:00
ld a, [wStartDay]
adc 0
2018-01-23 14:39:09 -08:00
ld [wStartDay], a
ret
2018-06-24 07:09:41 -07:00
.SetClockBack:
2018-01-23 14:39:09 -08:00
ld a, [wStartHour]
sub 1
2015-12-18 17:07:09 -08:00
jr nc, .DontLoopHourBack
add 24
.DontLoopHourBack:
2018-01-23 14:39:09 -08:00
ld [wStartHour], a
ld a, [wStartDay]
sbc 0
2015-12-18 17:07:09 -08:00
jr nc, .DontLoopDayBack
add 7
.DontLoopDayBack:
2018-01-23 14:39:09 -08:00
ld [wStartDay], a
ret
2018-06-24 07:09:41 -07:00
.ClearBox:
hlcoord 1, 14
lb bc, 3, 18
call ClearBox
ret
.Text_AdjustClock:
; Do you want to adjust your clock for Daylight Saving Time?
text_far UnknownText_0x1c6095
text_end
.Text_LostInstructionBooklet:
; I lost the instruction booklet for the POKéGEAR.
; Come back again in a while.
text_far UnknownText_0x1c60d1
text_end
.Text_SwitchToDST:
; Do you want to switch to Daylight Saving Time?
text_far UnknownText_0x1c6000
text_end
.Text_SetClockForward:
; I set the clock forward by one hour.
text_far UnknownText_0x1c6030
text_end
.Text_IsDSTOver:
; Is Daylight Saving Time over?
text_far UnknownText_0x1c6056
text_end
.Text_SetClockBack:
; I put the clock back one hour.
text_far UnknownText_0x1c6075
text_end
2018-06-24 07:09:41 -07:00
Mom_SetUpWithdrawMenu:
2016-05-10 09:59:34 -07:00
ld de, Mon_WithdrawString
jr Mom_ContinueMenuSetup
2018-06-24 07:09:41 -07:00
Mom_SetUpDepositMenu:
2016-05-10 09:59:34 -07:00
ld de, Mom_DepositString
2018-06-24 07:09:41 -07:00
Mom_ContinueMenuSetup:
push de
xor a
ldh [hBGMapMode], a
hlcoord 0, 0
lb bc, 6, 18
call TextBox
hlcoord 1, 2
2016-05-10 09:59:34 -07:00
ld de, Mom_SavedString
call PlaceString
hlcoord 12, 2
2015-11-12 21:49:27 -08:00
ld de, wMomsMoney
lb bc, PRINTNUM_MONEY | 3, 6
call PrintNum
hlcoord 1, 4
2016-05-10 09:59:34 -07:00
ld de, Mom_HeldString
call PlaceString
hlcoord 12, 4
2018-01-23 14:39:09 -08:00
ld de, wMoney
lb bc, PRINTNUM_MONEY | 3, 6
call PrintNum
hlcoord 1, 6
pop de
call PlaceString
hlcoord 12, 6
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
lb bc, PRINTNUM_MONEY | PRINTNUM_LEADINGZEROS | 3, 6
call PrintNum
call UpdateSprites
call CGBOnly_CopyTilemapAtOnce
ret
2018-06-24 07:09:41 -07:00
Mom_Wait10Frames:
ld c, 10
call DelayFrames
ret
2018-06-24 07:09:41 -07:00
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
2018-01-23 14:39:09 -08:00
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
2016-05-10 09:59:34 -07:00
.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
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall GiveMoney
ret
.decrementdigit
ld hl, .DigitQuantities
call .getdigitquantity
ld c, l
ld b, h
2018-01-23 14:39:09 -08:00
ld de, wStringBuffer2
2017-12-24 09:47:30 -08:00
farcall TakeMoney
ret
2016-05-10 09:59:34 -07:00
.getdigitquantity
ld a, [wMomBankDigitCursorPosition]
push de
ld e, a
ld d, 0
add hl, de
add hl, de
add hl, de
pop de
ret
2018-06-24 07:09:41 -07:00
.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
UnknownText_0x16649:
; Wow, that's a cute #MON. Where did you get it? … So, you're leaving on an adventure… OK! I'll help too. But what can I do for you? I know! I'll save money for you. On a long journey, money's important. Do you want me to save your money?
text_far UnknownText_0x1bd77f
text_end
UnknownText_0x1664e:
; OK, I'll take care of your money.
text_far UnknownText_0x1bd868
text_end
UnknownText_0x16653:
; Be careful. #MON are your friends. You need to work as a team. Now, go on!
text_far UnknownText_0x1bd88e
text_end
UnknownText_0x16658:
; Hi! Welcome home! You're trying very hard, I see. I've kept your room tidy. Or is this about your money?
text_far UnknownText_0x1bd8da
text_end
UnknownText_0x1665d:
; What do you want to do?
text_far UnknownText_0x1bd942
text_end
UnknownText_0x16662:
; How much do you want to save?
text_far UnknownText_0x1bd95b
text_end
UnknownText_0x16667:
; How much do you want to take?
text_far UnknownText_0x1bd97a
text_end
UnknownText_0x1666c:
; Do you want to save some money?
text_far UnknownText_0x1bd999
text_end
UnknownText_0x16671:
; You haven't saved that much.
text_far UnknownText_0x1bd9ba
text_end
UnknownText_0x16676:
; You can't take that much.
text_far UnknownText_0x1bd9d7
text_end
UnknownText_0x1667b:
; You don't have that much.
text_far UnknownText_0x1bd9f1
text_end
UnknownText_0x16680:
; You can't save that much.
text_far UnknownText_0x1bda0b
text_end
UnknownText_0x16685:
; OK, I'll save your money. Trust me! , stick with it!
text_far UnknownText_0x1bda25
text_end
UnknownText_0x1668a:
; Your money's safe here! Get going!
text_far UnknownText_0x1bda5b
text_end
UnknownText_0x1668f:
; , don't give up!
text_far UnknownText_0x1bda7e
text_end
UnknownText_0x16694:
; Just do what you can.
text_far UnknownText_0x1bda90
text_end
2018-06-24 07:09:41 -07:00
Mom_SavedString:
db "SAVED@"
2018-06-24 07:09:41 -07:00
Mon_WithdrawString:
db "WITHDRAW@"
2018-06-24 07:09:41 -07:00
Mom_DepositString:
db "DEPOSIT@"
2018-06-24 07:09:41 -07:00
Mom_HeldString:
db "HELD@"
MenuHeader_0x166b5:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 10, 10
dw MenuData_0x166bd
db 1 ; default option
MenuData_0x166bd:
db STATICMENU_CURSOR ; flags
db 4 ; items
db "GET@"
db "SAVE@"
db "CHANGE@"
db "CANCEL@"