ref: 9571c550b6a0dcb3a4f54513c881661a87271024
dir: /scripts/VermilionGym.asm/
VermilionGym_Script: ld hl, wCurrentMapScriptFlags bit 5, [hl] res 5, [hl] push hl call nz, VermilionGymLoadName 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 VermilionGymLoadName: ld hl, Gym3CityName ld de, Gym3LeaderName jp LoadGymLeaderAndCityName Gym3CityName: db "VERMILION CITY@" Gym3LeaderName: 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 2, [hl] ld hl, wBeatGymFlags set 2, [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: dbEventFlagBit EVENT_BEAT_VERMILION_GYM_TRAINER_0 db ($3 << 4) ; trainer's view range dwEventFlagAddress EVENT_BEAT_VERMILION_GYM_TRAINER_0 dw VermilionGymBattleText1 ; TextBeforeBattle dw VermilionGymAfterBattleText1 ; TextAfterBattle dw VermilionGymEndBattleText1 ; TextEndBattle dw VermilionGymEndBattleText1 ; TextEndBattle VermilionGymTrainerHeader1: dbEventFlagBit EVENT_BEAT_VERMILION_GYM_TRAINER_1 db ($2 << 4) ; trainer's view range dwEventFlagAddress EVENT_BEAT_VERMILION_GYM_TRAINER_1 dw VermilionGymBattleText2 ; TextBeforeBattle dw VermilionGymAfterBattleText2 ; TextAfterBattle dw VermilionGymEndBattleText2 ; TextEndBattle dw VermilionGymEndBattleText2 ; TextEndBattle VermilionGymTrainerHeader2: dbEventFlagBit EVENT_BEAT_VERMILION_GYM_TRAINER_2 db ($3 << 4) ; trainer's view range dwEventFlagAddress EVENT_BEAT_VERMILION_GYM_TRAINER_2 dw VermilionGymBattleText3 ; TextBeforeBattle dw VermilionGymAfterBattleText3 ; TextAfterBattle dw VermilionGymEndBattleText3 ; TextEndBattle dw VermilionGymEndBattleText3 ; TextEndBattle db $ff 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 2, 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