diff options
Diffstat (limited to 'scripts/safarizoneentrance2.asm')
| -rwxr-xr-x | scripts/safarizoneentrance2.asm | 251 |
1 files changed, 0 insertions, 251 deletions
diff --git a/scripts/safarizoneentrance2.asm b/scripts/safarizoneentrance2.asm deleted file mode 100755 index 4a6c23e6..00000000 --- a/scripts/safarizoneentrance2.asm +++ /dev/null @@ -1,251 +0,0 @@ -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 [wSafariZoneEntranceCurScript], 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 [wSafariZoneEntranceCurScript], a -.asm_f2024 - ret - -.WelcomeText - TX_FAR SafariZoneEntranceText_9e6e4 - db "@" - -.MakePaymentText - TX_FAR SafariZoneEntranceText_9e747 - TX_SFX_ITEM - 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 - 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 |