mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 18:30:50 +12:00
9c35a2c12c
- Added LuciShrimp's amazing demake of the Area Zero theme! Plays in Mt. Moon Crater. - Lickilicky now has access to Explosion and Selfdestruct. - Sirfetch'd forgot how to Fly. - Steelix is now even more susceptible to getting BubbleBeamed to death since it now has 10 less base Special. - Small changes to a handful of trainer parties. - Changed some encounter tables, mainly making Ramoose more scarce and Tangela more common. - Blissey, Magmortar and Rhyperior all receieved updated sprites by Albatross! - Jynx also receieved an updated sprite, giving it the purple skin it has in later generations. - Minor level changes. - Updated README.
96 lines
1.7 KiB
NASM
96 lines
1.7 KiB
NASM
RockTunnelPokecenter_Script:
|
|
call Serial_TryEstablishingExternallyClockedConnection
|
|
jp EnableAutoTextBoxDrawing
|
|
|
|
RockTunnelPokecenter_TextPointers:
|
|
dw RockTunnelHealNurseText
|
|
dw RockTunnelPokecenterText2
|
|
dw RockTunnelPokecenterText3
|
|
dw RockTunnelTradeNurseText
|
|
dw DittoSalesmanText
|
|
dw RockTunnelPokecenterText4
|
|
|
|
RockTunnelHealNurseText:
|
|
script_pokecenter_nurse
|
|
|
|
RockTunnelPokecenterText2:
|
|
text_far _RockTunnelPokecenterText2
|
|
text_end
|
|
|
|
RockTunnelPokecenterText3:
|
|
text_far _RockTunnelPokecenterText3
|
|
text_end
|
|
|
|
RockTunnelTradeNurseText:
|
|
script_cable_club_receptionist
|
|
|
|
DittoSalesmanText:
|
|
text_asm
|
|
CheckEvent EVENT_BOUGHT_DITTO, 1
|
|
jp c, .alreadyBoughtDitto
|
|
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, DITTO, 20
|
|
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_DITTO
|
|
jr .done
|
|
.choseNo
|
|
ld hl, .RefuseText
|
|
jr .printText
|
|
.alreadyBoughtDitto
|
|
ld hl, .Text2
|
|
.printText
|
|
call PrintText
|
|
.done
|
|
jp TextScriptEnd
|
|
|
|
.Text1
|
|
text_far _DittoSalesmanText1
|
|
text_end
|
|
|
|
.RefuseText
|
|
text_far _DittoSalesmanNoText
|
|
text_end
|
|
|
|
.NoMoneyText
|
|
text_far _DittoSalesmanNoMoneyText
|
|
text_end
|
|
|
|
.Text2
|
|
text_far _DittoSalesmanText2
|
|
text_end
|
|
|
|
RockTunnelPokecenterText4:
|
|
text_asm
|
|
callfar PokecenterChanseyText
|
|
jp TextScriptEnd
|