ref: 4d88812f40c4165e4b893a0631fa658e72d17874
dir: /scripts/mtmoonpokecenter.asm/
MtMoonPokecenterScript: ; 492cf (12:52cf) call Serial_TryEstablishingExternallyClockedConnection jp EnableAutoTextBoxDrawing MtMoonPokecenterTextPointers: ; 492d5 (12:52d5) dw MtMoonPokecenterText1 dw MtMoonPokecenterText2 dw MtMoonPokecenterText3 dw MtMoonPokecenterText4 dw MtMoonPokecenterText5 dw MtMoonPokecenterText6 MtMoonPokecenterText1: ; 492e1 (12:52e1) db $ff MtMoonPokecenterText2: ; 492e2 (12:52e2) TX_FAR _MtMoonPokecenterText1 db "@" MtMoonPokecenterText3: ; 492e7 (12:52e7) TX_FAR _MtMoonPokecenterText3 db "@" MtMoonPokecenterText4: ; 492ec (12:52ec) TX_ASM ld a, [wd7c6] add a jp c, .alreadyBoughtMagikarp ld hl, MtMoonPokecenterText_4935c call PrintText ld a, MONEY_BOX ld [wTextBoxID], a call DisplayTextBoxID call YesNoChoice ld a, [wCurrentMenuItem] and a jp nz, .choseNo ld [hMoney], a ld [hMoney + 2], a ld a, $5 ld [hMoney + 1], a call HasEnoughMoney jr nc, .enoughMoney ld hl, MtMoonPokecenterText_49366 jr .printText .enoughMoney ld bc,(MAGIKARP << 8) | 5 call GivePokemon jr nc, .done xor a ld [wPriceTemp], a ld [wPriceTemp + 2], a ld a, $5 ld [wPriceTemp + 1], a ld hl, wPriceTemp + 2 ld de, wPlayerMoney + 2 ld c, $3 predef SubBCDPredef ld a, MONEY_BOX ld [wTextBoxID], a call DisplayTextBoxID ld hl, wd7c6 set 7, [hl] jr .done .choseNo ld hl, MtMoonPokecenterText_49361 jr .printText .alreadyBoughtMagikarp ld hl, MtMoonPokecenterText_4936b .printText call PrintText .done jp TextScriptEnd MtMoonPokecenterText_4935c: ; 4935c (12:535c) TX_FAR _MtMoonPokecenterText_4935c db "@" MtMoonPokecenterText_49361: ; 49361 (12:5361) TX_FAR _MtMoonPokecenterText_49361 db "@" MtMoonPokecenterText_49366: ; 49366 (12:5366) TX_FAR _MtMoonPokecenterText_49366 db "@" MtMoonPokecenterText_4936b: ; 4936b (12:536b) TX_FAR _MtMoonPokecenterText_4936b db "@" MtMoonPokecenterText5: ; 49370 (12:5370) TX_FAR _MtMoonPokecenterText5 db "@" MtMoonPokecenterText6: ; 49375 (12:5375) db $f6