mirror of
https://github.com/pret/pokeyellow.git
synced 2026-05-09 04:11:32 -05:00
252 lines
4.3 KiB
NASM
Executable File
252 lines
4.3 KiB
NASM
Executable File
Func_f1f77:
|
|
ld hl, .WelcomeText
|
|
call PrintText
|
|
ld a, MONEY_BOX
|
|
ld [wTextBoxID], a
|
|
call DisplayTextBoxID
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jp nz, .declined
|
|
ld hl, wPlayerMoney
|
|
ld a, [hli]
|
|
or [hl]
|
|
inc hl
|
|
or [hl]
|
|
jr nz, .has_positive_balance
|
|
call SafariZoneEntranceGetLowCostAdmissionText
|
|
jr c, .deny_entry
|
|
jr .poor_mans_discount
|
|
|
|
.has_positive_balance
|
|
xor a
|
|
ld [hMoney], a
|
|
ld a, $5
|
|
ld [hMoney + 1], a
|
|
ld a, $0
|
|
ld [hMoney + 2], a
|
|
call HasEnoughMoney
|
|
jr nc, .has_enough_money
|
|
ld hl, .NotEnoughMoneyText
|
|
call PrintText
|
|
call SafariZoneEntranceCalculateLowCostAdmission
|
|
jr c, .deny_entry
|
|
jr .poor_mans_discount
|
|
|
|
.has_enough_money
|
|
xor a
|
|
ld [wPriceTemp + 0], a
|
|
ld a, $5
|
|
ld [wPriceTemp + 1], a
|
|
ld a, $0
|
|
ld [wPriceTemp + 2], a
|
|
ld hl, wTrainerInfoTextBoxNextRowOffset
|
|
ld de, wPlayerMoney + 2
|
|
ld c, 3
|
|
predef SubBCDPredef
|
|
ld a, SFX_PURCHASE
|
|
call PlaySoundWaitForCurrent
|
|
call WaitForSoundToFinish
|
|
ld a, MONEY_BOX
|
|
ld [wTextBoxID], a
|
|
call DisplayTextBoxID
|
|
ld hl, .MakePaymentText
|
|
call PrintText
|
|
ld a, 30
|
|
ld hl, 502
|
|
.poor_mans_discount
|
|
ld [wNumSafariBalls], a
|
|
ld a, h
|
|
ld [wSafariSteps], a
|
|
ld a, l
|
|
ld [wSafariSteps + 1], a
|
|
ld a, D_UP
|
|
ld c, 3
|
|
call SafariZoneEntranceStartSimulatingJoypadStates
|
|
SetEvent EVENT_IN_SAFARI_ZONE
|
|
ResetEventReuseHL EVENT_SAFARI_GAME_OVER
|
|
ld a, $3
|
|
ld [wSafariZoneGateCurScript], a
|
|
jr .asm_f2024
|
|
.declined:
|
|
ld hl, .PleaseComeAgainText
|
|
call PrintText
|
|
.deny_entry
|
|
ld a, D_DOWN
|
|
ld c, 1
|
|
call SafariZoneEntranceStartSimulatingJoypadStates
|
|
ld a, $4
|
|
ld [wSafariZoneGateCurScript], a
|
|
.asm_f2024
|
|
ret
|
|
|
|
.WelcomeText
|
|
TX_FAR SafariZoneEntranceText_9e6e4
|
|
db "@"
|
|
|
|
.MakePaymentText
|
|
TX_FAR SafariZoneEntranceText_9e747
|
|
TX_SFX_ITEM_1
|
|
TX_FAR _SafariZoneEntranceText_75360
|
|
db "@"
|
|
|
|
.PleaseComeAgainText
|
|
TX_FAR _SafariZoneEntranceText_75365
|
|
db "@"
|
|
|
|
.NotEnoughMoneyText
|
|
TX_FAR _SafariZoneEntranceText_7536a
|
|
db "@"
|
|
|
|
Func_f203e:
|
|
ld hl, .FirstTimeQuestionText
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
ld hl, .RegularText
|
|
jr nz, .Explanation
|
|
ld hl, .ExplanationText
|
|
.Explanation
|
|
call PrintText
|
|
ret
|
|
|
|
.FirstTimeQuestionText
|
|
TX_FAR _SafariZoneEntranceText_753e6
|
|
db "@"
|
|
|
|
.ExplanationText
|
|
TX_FAR _SafariZoneEntranceText_753eb
|
|
db "@"
|
|
|
|
.RegularText
|
|
TX_FAR _SafariZoneEntranceText_753f0
|
|
db "@"
|
|
|
|
SafariZoneEntranceStartSimulatingJoypadStates:
|
|
push af
|
|
ld b, $0
|
|
ld a, c
|
|
ld [wSimulatedJoypadStatesIndex], a
|
|
ld hl, wParentMenuItem
|
|
pop af
|
|
call FillMemory
|
|
jp StartSimulatingJoypadStates
|
|
|
|
SafariZoneEntranceCalculateLowCostAdmission:
|
|
ld hl, wPlayerMoney
|
|
ld de, hMoney
|
|
ld bc, $3
|
|
call CopyData
|
|
xor a
|
|
ld [hDivideBCDDivisor], a
|
|
ld [hDivideBCDDivisor + 1], a
|
|
ld a, 23
|
|
ld [hDivideBCDDivisor + 2], a
|
|
predef DivideBCDPredef3
|
|
ld a, [hDivideBCDQuotient + 2]
|
|
call SafariZoneEntranceConvertBCDtoNumber
|
|
push af
|
|
ld hl, wPlayerMoney
|
|
xor a
|
|
ld bc, $3
|
|
call FillMemory
|
|
ld hl, SafariZoneEntranceText_f20c4
|
|
call PrintText_NoCreatingTextBox
|
|
ld a, MONEY_BOX
|
|
ld [wTextBoxID], a
|
|
call DisplayTextBoxID
|
|
ld hl, SafariZoneEntranceText_f20c9
|
|
call PrintText
|
|
pop af
|
|
inc a
|
|
jr z, .max_balls
|
|
cp 29
|
|
jr c, .load_balls
|
|
.max_balls
|
|
ld a, 29
|
|
.load_balls
|
|
ld hl, 502
|
|
and a
|
|
ret
|
|
|
|
SafariZoneEntranceText_f20c4:
|
|
TX_FAR _SafariZoneLowCostText1
|
|
db "@"
|
|
|
|
SafariZoneEntranceText_f20c9:
|
|
TX_FAR _SafariZoneLowCostText2
|
|
db "@"
|
|
|
|
SafariZoneEntranceGetLowCostAdmissionText:
|
|
ld hl, wSafariSteps
|
|
ld a, [hl]
|
|
push af
|
|
inc [hl]
|
|
ld e, a
|
|
ld d, $0
|
|
ld hl, Pointers_f2100
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
call PrintText
|
|
pop af
|
|
cp $3
|
|
jr z, .give_one_ball
|
|
scf
|
|
ret
|
|
|
|
.give_one_ball
|
|
ld hl, SafariZoneEntranceText_f20f6
|
|
call PrintText_NoCreatingTextBox
|
|
ld a, $1
|
|
ld hl, 502
|
|
and a
|
|
ret
|
|
|
|
SafariZoneEntranceText_f20f6:
|
|
TX_FAR _SafariZoneLowCostText3
|
|
TX_SFX_ITEM_1
|
|
TX_FAR _SafariZoneLowCostText4
|
|
db "@"
|
|
|
|
Pointers_f2100:
|
|
dw SafariZoneEntranceText_f210a
|
|
dw SafariZoneEntranceText_f210f
|
|
dw SafariZoneEntranceText_f2114
|
|
dw SafariZoneEntranceText_f2119
|
|
dw SafariZoneEntranceText_f2119
|
|
|
|
SafariZoneEntranceText_f210a:
|
|
TX_FAR _SafariZoneLowCostText5
|
|
db "@"
|
|
|
|
SafariZoneEntranceText_f210f:
|
|
TX_FAR _SafariZoneLowCostText6
|
|
db "@"
|
|
|
|
SafariZoneEntranceText_f2114:
|
|
TX_FAR _SafariZoneLowCostText7
|
|
db "@"
|
|
|
|
SafariZoneEntranceText_f2119:
|
|
TX_FAR _SafariZoneLowCostText8
|
|
db "@"
|
|
|
|
SafariZoneEntranceConvertBCDtoNumber:
|
|
push hl
|
|
ld c, a
|
|
and $f
|
|
ld l, a
|
|
ld h, $0
|
|
ld a, c
|
|
and $f0
|
|
swap a
|
|
ld bc, 10
|
|
call AddNTimes
|
|
ld a, l
|
|
pop hl
|
|
ret
|