ref: 2fe1505babaf02b995cc0d9c3a827b798935b19a
dir: /scripts/VermilionGym.asm/
VermilionGym_Script: ld hl, wCurrentMapScriptFlags bit 5, [hl] res 5, [hl] push hl call nz, .LoadNames pop hl bit 6, [hl] res 6, [hl] call nz, VermilionGymSetDoorTile call EnableAutoTextBoxDrawing ld hl, VermilionGymTrainerHeader0 ld de, VermilionGym_ScriptPointers ld a, [wVermilionGymCurScript] call ExecuteCurMapScriptInTable ld [wVermilionGymCurScript], a ret .LoadNames: ld hl, .CityName ld de, .LeaderName jp LoadGymLeaderAndCityName .CityName: db "VERMILION CITY@" .LeaderName: db "LT.SURGE@" VermilionGymSetDoorTile: CheckEvent EVENT_2ND_LOCK_OPENED jr nz, .doorsOpen ld a, $24 ; double door tile ID jr .replaceTile .doorsOpen ld a, SFX_GO_INSIDE call PlaySound ld a, $5 ; clear floor tile ID .replaceTile ld [wNewTileBlockID], a lb bc, 2, 2 predef_jump ReplaceTileBlock VermilionGymResetScripts: xor a ld [wJoyIgnore], a ld [wVermilionGymCurScript], a ld [wCurMapScript], a ret VermilionGym_ScriptPointers: dw CheckFightingMapTrainers dw DisplayEnemyTrainerTextAndStartBattle dw EndTrainerBattle dw VermilionGymLTSurgePostBattle VermilionGymLTSurgePostBattle: ld a, [wIsInBattle] cp $ff ; did we lose? jp z, VermilionGymResetScripts ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN ld [wJoyIgnore], a VermilionGymReceiveTM24: ld a, $6 ldh [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_BEAT_LT_SURGE lb bc, TM_THUNDERBOLT, 1 call GiveItem jr nc, .BagFull ld a, $7 ldh [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_GOT_TM24 jr .gymVictory .BagFull ld a, $8 ldh [hSpriteIndexOrTextID], a call DisplayTextID .gymVictory ld hl, wObtainedBadges set BIT_THUNDERBADGE, [hl] ld hl, wBeatGymFlags set BIT_THUNDERBADGE, [hl] ; deactivate gym trainers SetEventRange EVENT_BEAT_VERMILION_GYM_TRAINER_0, EVENT_BEAT_VERMILION_GYM_TRAINER_2 jp VermilionGymResetScripts VermilionGym_TextPointers: dw LTSurgeText dw VermilionGymTrainerText1 dw VermilionGymTrainerText2 dw VermilionGymTrainerText3 dw VermilionGymFanText dw LTSurgeThunderbadgeInfoText dw ReceivedTM24Text dw TM24NoRoomText VermilionGymTrainerHeader0: trainer EVENT_BEAT_VERMILION_GYM_TRAINER_0, 3, VermilionGymBattleText1, VermilionGymEndBattleText1, VermilionGymAfterBattleText1 VermilionGymTrainerHeader1: trainer EVENT_BEAT_VERMILION_GYM_TRAINER_1, 2, VermilionGymBattleText2, VermilionGymEndBattleText2, VermilionGymAfterBattleText2 VermilionGymTrainerHeader2: trainer EVENT_BEAT_VERMILION_GYM_TRAINER_2, 3, VermilionGymBattleText3, VermilionGymEndBattleText3, VermilionGymAfterBattleText3 db -1 ; end LTSurgeText: text_asm CheckEvent EVENT_BEAT_LT_SURGE jr z, .beforeBeat CheckEventReuseA EVENT_GOT_TM24 jr nz, .afterBeat call z, VermilionGymReceiveTM24 call DisableWaitingAfterTextDisplay jr .done .afterBeat ld hl, LTSurgePostBattleAdviceText call PrintText jr .done .beforeBeat ld hl, LTSurgePreBattleText call PrintText ld hl, wd72d set 6, [hl] set 7, [hl] ld hl, ReceivedThunderbadgeText ld de, ReceivedThunderbadgeText call SaveEndBattleTextPointers ldh a, [hSpriteIndex] ld [wSpriteIndex], a call EngageMapTrainer call InitBattleEnemyParameters ld a, $3 ld [wGymLeaderNo], a xor a ldh [hJoyHeld], a ld a, $3 ; set script index to LT Surge post-battle script ld [wVermilionGymCurScript], a ld [wCurMapScript], a .done jp TextScriptEnd LTSurgePreBattleText: text_far _LTSurgePreBattleText text_end LTSurgePostBattleAdviceText: text_far _LTSurgePostBattleAdviceText text_end LTSurgeThunderbadgeInfoText: text_far _LTSurgeThunderbadgeInfoText text_end ReceivedTM24Text: text_far _ReceivedTM24Text sound_get_key_item text_far _TM24ExplanationText text_end TM24NoRoomText: text_far _TM24NoRoomText text_end ReceivedThunderbadgeText: text_far _ReceivedThunderbadgeText text_end VermilionGymTrainerText1: text_asm ld hl, VermilionGymTrainerHeader0 call TalkToTrainer jp TextScriptEnd VermilionGymBattleText1: text_far _VermilionGymBattleText1 text_end VermilionGymEndBattleText1: text_far _VermilionGymEndBattleText1 text_end VermilionGymAfterBattleText1: text_far _VermilionGymAfterBattleText1 text_end VermilionGymTrainerText2: text_asm ld hl, VermilionGymTrainerHeader1 call TalkToTrainer jp TextScriptEnd VermilionGymBattleText2: text_far _VermilionGymBattleText2 text_end VermilionGymEndBattleText2: text_far _VermilionGymEndBattleText2 text_end VermilionGymAfterBattleText2: text_far _VermilionGymAfterBattleText2 text_end VermilionGymTrainerText3: text_asm ld hl, VermilionGymTrainerHeader2 call TalkToTrainer jp TextScriptEnd VermilionGymBattleText3: text_far _VermilionGymBattleText3 text_end VermilionGymEndBattleText3: text_far _VermilionGymEndBattleText3 text_end VermilionGymAfterBattleText3: text_far _VermilionGymAfterBattleText3 text_end VermilionGymFanText: text_asm ld a, [wBeatGymFlags] bit BIT_THUNDERBADGE, a jr nz, .afterBeat ld hl, VermilionGymFanPreBattleText call PrintText jr .done .afterBeat ld hl, VermilionGymFanPostBattleText call PrintText .done jp TextScriptEnd VermilionGymFanPreBattleText: text_far _VermilionGymFanPreBattleText text_end VermilionGymFanPostBattleText: text_far _VermilionGymFanPostBattleText text_end