mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
d001ced41b
This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified.
290 lines
7 KiB
NASM
290 lines
7 KiB
NASM
CeladonGym_Script:
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 6, [hl]
|
|
res 6, [hl]
|
|
call nz, .LoadNames
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, CeladonGymTrainerHeaders
|
|
ld de, CeladonGym_ScriptPointers
|
|
ld a, [wCeladonGymCurScript]
|
|
call ExecuteCurMapScriptInTable
|
|
ld [wCeladonGymCurScript], a
|
|
ret
|
|
|
|
.LoadNames:
|
|
ld hl, .CityName
|
|
ld de, .LeaderName
|
|
jp LoadGymLeaderAndCityName
|
|
|
|
.CityName:
|
|
db "CELADON CITY@"
|
|
|
|
.LeaderName:
|
|
db "ERIKA@"
|
|
|
|
CeladonGymResetScripts:
|
|
xor a ; SCRIPT_CELADONGYM_DEFAULT
|
|
ld [wJoyIgnore], a
|
|
ld [wCeladonGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
CeladonGym_ScriptPointers:
|
|
def_script_pointers
|
|
dw_const CheckFightingMapTrainers, SCRIPT_CELADONGYM_DEFAULT
|
|
dw_const DisplayEnemyTrainerTextAndStartBattle, SCRIPT_CELADONGYM_START_BATTLE
|
|
dw_const EndTrainerBattle, SCRIPT_CELADONGYM_END_BATTLE
|
|
dw_const CeladonGymErikaPostBattleScript, SCRIPT_CELADONGYM_ERIKA_POST_BATTLE
|
|
|
|
CeladonGymErikaPostBattleScript:
|
|
ld a, [wIsInBattle]
|
|
cp $ff
|
|
jp z, CeladonGymResetScripts
|
|
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
|
|
ld [wJoyIgnore], a
|
|
|
|
CeladonGymReceiveTM21:
|
|
ld a, TEXT_CELADONGYM_RAINBOWBADGE_INFO
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
SetEvent EVENT_BEAT_ERIKA
|
|
lb bc, TM_MEGA_DRAIN, 1
|
|
call GiveItem
|
|
jr nc, .BagFull
|
|
ld a, TEXT_CELADONGYM_RECEIVED_TM21
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
SetEvent EVENT_GOT_TM21
|
|
jr .gymVictory
|
|
.BagFull
|
|
ld a, TEXT_CELADONGYM_TM21_NO_ROOM
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
.gymVictory
|
|
ld hl, wObtainedBadges
|
|
set BIT_RAINBOWBADGE, [hl]
|
|
ld hl, wBeatGymFlags
|
|
set BIT_RAINBOWBADGE, [hl]
|
|
|
|
; deactivate gym trainers
|
|
SetEventRange EVENT_BEAT_CELADON_GYM_TRAINER_0, EVENT_BEAT_CELADON_GYM_TRAINER_6
|
|
|
|
jp CeladonGymResetScripts
|
|
|
|
CeladonGym_TextPointers:
|
|
def_text_pointers
|
|
dw_const CeladonGymErikaText, TEXT_CELADONGYM_ERIKA
|
|
dw_const CeladonGymCooltrainerF1Text, TEXT_CELADONGYM_COOLTRAINER_F1
|
|
dw_const CeladonGymBeauty1Text, TEXT_CELADONGYM_BEAUTY1
|
|
dw_const CeladonGymCooltrainerF2Text, TEXT_CELADONGYM_COOLTRAINER_F2
|
|
dw_const CeladonGymBeauty2Text, TEXT_CELADONGYM_BEAUTY2
|
|
dw_const CeladonGymCooltrainerF3Text, TEXT_CELADONGYM_COOLTRAINER_F3
|
|
dw_const CeladonGymBeauty3Text, TEXT_CELADONGYM_BEAUTY3
|
|
dw_const CeladonGymCooltrainerF4Text, TEXT_CELADONGYM_COOLTRAINER_F4
|
|
dw_const CeladonGymRainbowBadgeInfoText, TEXT_CELADONGYM_RAINBOWBADGE_INFO
|
|
dw_const CeladonGymReceivedTM21Text, TEXT_CELADONGYM_RECEIVED_TM21
|
|
dw_const CeladonGymTM21NoRoomText, TEXT_CELADONGYM_TM21_NO_ROOM
|
|
|
|
CeladonGymTrainerHeaders:
|
|
def_trainers 2
|
|
CeladonGymTrainerHeader0:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_0, 2, CeladonGymBattleText2, CeladonGymEndBattleText2, CeladonGymAfterBattleText2
|
|
CeladonGymTrainerHeader1:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_1, 2, CeladonGymBattleText3, CeladonGymEndBattleText3, CeladonGymAfterBattleText3
|
|
CeladonGymTrainerHeader2:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_2, 4, CeladonGymBattleText4, CeladonGymEndBattleText4, CeladonGymAfterBattleText4
|
|
CeladonGymTrainerHeader3:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_3, 4, CeladonGymBattleText5, CeladonGymEndBattleText5, CeladonGymAfterBattleText5
|
|
CeladonGymTrainerHeader4:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_4, 2, CeladonGymBattleText6, CeladonGymEndBattleText6, CeladonGymAfterBattleText6
|
|
CeladonGymTrainerHeader5:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_5, 2, CeladonGymBattleText7, CeladonGymEndBattleText7, CeladonGymAfterBattleText7
|
|
CeladonGymTrainerHeader6:
|
|
trainer EVENT_BEAT_CELADON_GYM_TRAINER_6, 3, CeladonGymBattleText8, CeladonGymEndBattleText8, CeladonGymAfterBattleText8
|
|
db -1 ; end
|
|
|
|
CeladonGymErikaText:
|
|
text_asm
|
|
CheckEvent EVENT_BEAT_ERIKA
|
|
jr z, .beforeBeat
|
|
CheckEventReuseA EVENT_GOT_TM21
|
|
jr nz, .afterBeat
|
|
call z, CeladonGymReceiveTM21
|
|
call DisableWaitingAfterTextDisplay
|
|
jr .done
|
|
.afterBeat
|
|
ld hl, .PostBattleAdviceText
|
|
call PrintText
|
|
jr .done
|
|
.beforeBeat
|
|
ld hl, .PreBattleText
|
|
call PrintText
|
|
ld hl, wd72d
|
|
set 6, [hl]
|
|
set 7, [hl]
|
|
ld hl, .ReceivedRainbowBadgeText
|
|
ld de, .ReceivedRainbowBadgeText
|
|
call SaveEndBattleTextPointers
|
|
ldh a, [hSpriteIndex]
|
|
ld [wSpriteIndex], a
|
|
call EngageMapTrainer
|
|
call InitBattleEnemyParameters
|
|
ld a, $4
|
|
ld [wGymLeaderNo], a
|
|
ld a, SCRIPT_CELADONGYM_ERIKA_POST_BATTLE
|
|
ld [wCeladonGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
.done
|
|
jp TextScriptEnd
|
|
|
|
.PreBattleText:
|
|
text_far _CeladonGymErikaPreBattleText
|
|
text_end
|
|
|
|
.ReceivedRainbowBadgeText:
|
|
text_far _CeladonGymErikaReceivedRainbowBadgeText
|
|
text_end
|
|
|
|
.PostBattleAdviceText:
|
|
text_far _CeladonGymErikaPostBattleAdviceText
|
|
text_end
|
|
|
|
CeladonGymRainbowBadgeInfoText:
|
|
text_far _CeladonGymRainbowBadgeInfoText
|
|
text_end
|
|
|
|
CeladonGymReceivedTM21Text:
|
|
text_far _CeladonGymReceivedTM21Text
|
|
sound_get_item_1
|
|
text_far _TM21ExplanationText
|
|
text_end
|
|
|
|
CeladonGymTM21NoRoomText:
|
|
text_far _CeladonGymTM21NoRoomText
|
|
text_end
|
|
|
|
CeladonGymCooltrainerF1Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader0
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText2:
|
|
text_far _CeladonGymBattleText2
|
|
text_end
|
|
|
|
CeladonGymEndBattleText2:
|
|
text_far _CeladonGymEndBattleText2
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText2:
|
|
text_far _CeladonGymAfterBattleText2
|
|
text_end
|
|
|
|
CeladonGymBeauty1Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader1
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText3:
|
|
text_far _CeladonGymBattleText3
|
|
text_end
|
|
|
|
CeladonGymEndBattleText3:
|
|
text_far _CeladonGymEndBattleText3
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText3:
|
|
text_far _CeladonGymAfterBattleText3
|
|
text_end
|
|
|
|
CeladonGymCooltrainerF2Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader2
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText4:
|
|
text_far _CeladonGymBattleText4
|
|
text_end
|
|
|
|
CeladonGymEndBattleText4:
|
|
text_far _CeladonGymEndBattleText4
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText4:
|
|
text_far _CeladonGymAfterBattleText4
|
|
text_end
|
|
|
|
CeladonGymBeauty2Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader3
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText5:
|
|
text_far _CeladonGymBattleText5
|
|
text_end
|
|
|
|
CeladonGymEndBattleText5:
|
|
text_far _CeladonGymEndBattleText5
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText5:
|
|
text_far _CeladonGymAfterBattleText5
|
|
text_end
|
|
|
|
CeladonGymCooltrainerF3Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader4
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText6:
|
|
text_far _CeladonGymBattleText6
|
|
text_end
|
|
|
|
CeladonGymEndBattleText6:
|
|
text_far _CeladonGymEndBattleText6
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText6:
|
|
text_far _CeladonGymAfterBattleText6
|
|
text_end
|
|
|
|
CeladonGymBeauty3Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader5
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText7:
|
|
text_far _CeladonGymBattleText7
|
|
text_end
|
|
|
|
CeladonGymEndBattleText7:
|
|
text_far _CeladonGymEndBattleText7
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText7:
|
|
text_far _CeladonGymAfterBattleText7
|
|
text_end
|
|
|
|
CeladonGymCooltrainerF4Text:
|
|
text_asm
|
|
ld hl, CeladonGymTrainerHeader6
|
|
call TalkToTrainer
|
|
jp TextScriptEnd
|
|
|
|
CeladonGymBattleText8:
|
|
text_far _CeladonGymBattleText8
|
|
text_end
|
|
|
|
CeladonGymEndBattleText8:
|
|
text_far _CeladonGymEndBattleText8
|
|
text_end
|
|
|
|
CeladonGymAfterBattleText8:
|
|
text_far _CeladonGymAfterBattleText8
|
|
text_end
|