kep-hack/scripts/MtMoonPokecenter.asm
Llinos Evans 9b387cab7e Expanding on Pokemon icon usage
This adds Pikachu, Cat, and "Small Bird" menu icons. The cat has a custom animation done by myself.

The Jigglypuff in the Pokemon Centre now uses the new sprite, nice 'n' pretty. Officer Jenny is also in Cerulean. The Pokemon from Melanie's house in Yellow have been put in Mr. Fuji's House, given the purpose of the house in RB is different. I think it ends up fitting very nicely.

Chansey has been given its proper sprite in Fuschia. Yellow didn't actually do this, as Chansey doesn't have a walk cycle, causing the stuff that exists to go unused. I wanted it, though, so I had Chansey just not walk and turn around. Oh, and it's in all the Pokemon Centres now. Yeah, that's a...lot of changed files.
2023-04-23 21:25:45 +01:00

101 lines
1.8 KiB
NASM

MtMoonPokecenter_Script:
call Serial_TryEstablishingExternallyClockedConnection
jp EnableAutoTextBoxDrawing
MtMoonPokecenter_TextPointers:
dw MtMoonHealNurseText
dw MtMoonPokecenterText2
dw MtMoonPokecenterText3
dw MagikarpSalesmanText
dw MtMoonPokecenterText5
dw MtMoonTradeNurseText
dw MtMoonPokecenterText6
MtMoonHealNurseText:
script_pokecenter_nurse
MtMoonPokecenterText2:
text_far _MtMoonPokecenterText1
text_end
MtMoonPokecenterText3:
text_far _MtMoonPokecenterText3
text_end
MagikarpSalesmanText:
text_asm
CheckEvent EVENT_BOUGHT_MAGIKARP, 1
jp c, .alreadyBoughtMagikarp
ld hl, .Text1
call PrintText
ld a, MONEY_BOX
ld [wTextBoxID], a
call DisplayTextBoxID
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jp nz, .choseNo
ldh [hMoney], a
ldh [hMoney + 2], a
ld a, $5
ldh [hMoney + 1], a
call HasEnoughMoney
jr nc, .enoughMoney
ld hl, .NoMoneyText
jr .printText
.enoughMoney
lb bc, MAGIKARP, 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
SetEvent EVENT_BOUGHT_MAGIKARP
jr .done
.choseNo
ld hl, .RefuseText
jr .printText
.alreadyBoughtMagikarp
ld hl, .Text2
.printText
call PrintText
.done
jp TextScriptEnd
.Text1
text_far _MagikarpSalesmanText1
text_end
.RefuseText
text_far _MagikarpSalesmanNoText
text_end
.NoMoneyText
text_far _MagikarpSalesmanNoMoneyText
text_end
.Text2
text_far _MagikarpSalesmanText2
text_end
MtMoonPokecenterText5:
text_far _MtMoonPokecenterText5
text_end
MtMoonTradeNurseText:
script_cable_club_receptionist
MtMoonPokecenterText6:
text_asm
callfar PokecenterChanseyText
jp TextScriptEnd