ref: b8dfee511453d322051f21bddc74c79307f23007
dir: /scripts/pewtergym.asm/
PewterGymScript: ; 5c387 (17:4387) ld hl, wCurrentMapScriptFlags bit 6, [hl] res 6, [hl] call nz, PewterGymScript_5c3a4 call EnableAutoTextBoxDrawing ld hl, PewterGymTrainerHeaders ld de, PewterGymScriptPointers ld a, [wPewterGymCurScript] call ExecuteCurMapScriptInTable ld [wPewterGymCurScript], a ret PewterGymScript_5c3a4: ; 5c3a4 (17:43a4) ld hl, Gym1CityName ld de, Gym1LeaderName jp LoadGymLeaderAndCityName Gym1CityName: ; 5c3ad (17:43ad) db "PEWTER CITY@" Gym1LeaderName: ; 5c3b9 (17:43b9) db "BROCK@" PewterGymScript_5c3bf: ; 5c3bf (17:43bf) xor a ld [wJoyIgnore], a ld [wPewterGymCurScript], a ld [wCurMapScript], a ret PewterGymScriptPointers: ; 5c3ca (17:43ca) dw CheckFightingMapTrainers dw DisplayEnemyTrainerTextAndStartBattle dw EndTrainerBattle dw PewterGymScript3 PewterGymScript3: ; 5c3d2 (17:43d2) ld a, [wIsInBattle] cp $ff jp z, PewterGymScript_5c3bf ld a, $f0 ld [wJoyIgnore], a PewterGymScript_5c3df: ; 5c3df (17:43df) ld a, $4 ld [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_BEAT_BROCK lb bc, TM_34, 1 call GiveItem jr nc, .BagFull ld a, $5 ld [hSpriteIndexOrTextID], a call DisplayTextID SetEvent EVENT_GOT_TM34 jr .asm_5c408 .BagFull ld a, $6 ld [hSpriteIndexOrTextID], a call DisplayTextID .asm_5c408 ld hl, wObtainedBadges set 0, [hl] ld hl, wBeatGymFlags set 0, [hl] ld a, HS_GYM_GUY ld [wMissableObjectIndex], a predef HideObject ld a, HS_ROUTE_22_RIVAL_1 ld [wMissableObjectIndex], a predef HideObject ResetEvents EVENT_1ST_ROUTE22_RIVAL_BATTLE, EVENT_ROUTE22_RIVAL_WANTS_BATTLE ; deactivate gym trainers SetEvent EVENT_BEAT_PEWTER_GYM_TRAINER_0 jp PewterGymScript_5c3bf PewterGymTextPointers: ; 5c435 (17:4435) dw PewterGymText1 dw PewterGymText2 dw PewterGymText3 dw PewterGymText4 dw PewterGymText5 dw PewterGymText6 PewterGymTrainerHeaders: ; 5c441 (17:4441) PewterGymTrainerHeader0: ; 5c441 (17:4441) dbEventFlagBit EVENT_BEAT_PEWTER_GYM_TRAINER_0 db ($5 << 4) ; trainer's view range dwEventFlagAddress EVENT_BEAT_PEWTER_GYM_TRAINER_0 dw PewterGymBattleText1 ; TextBeforeBattle dw PewterGymAfterBattleText1 ; TextAfterBattle dw PewterGymEndBattleText1 ; TextEndBattle dw PewterGymEndBattleText1 ; TextEndBattle db $ff PewterGymText1: ; 5c44e (17:444e) TX_ASM CheckEvent EVENT_BEAT_BROCK jr z, .asm_5c46a CheckEventReuseA EVENT_GOT_TM34 jr nz, .asm_5c462 call z, PewterGymScript_5c3df call DisableWaitingAfterTextDisplay jr .asm_5c49b .asm_5c462 ld hl, PewterGymText_5c4a3 call PrintText jr .asm_5c49b .asm_5c46a ld hl, PewterGymText_5c49e call PrintText ld hl, wd72d set 6, [hl] set 7, [hl] ld hl, PewterGymText_5c4bc ld de, PewterGymText_5c4bc call SaveEndBattleTextPointers ld a, [H_SPRITEINDEX] ld [wSpriteIndex], a call EngageMapTrainer call InitBattleEnemyParameters ld a, $1 ld [wGymLeaderNo], a xor a ld [hJoyHeld], a ld a, $3 ld [wPewterGymCurScript], a ld [wCurMapScript], a .asm_5c49b jp TextScriptEnd PewterGymText_5c49e: ; 5c49e (17:449e) TX_FAR _PewterGymText_5c49e db "@" PewterGymText_5c4a3: ; 5c4a3 (17:44a3) TX_FAR _PewterGymText_5c4a3 db "@" PewterGymText4: ; 5c4a8 (17:44a8) TX_FAR _TM34PreReceiveText db "@" PewterGymText5: ; 5c4ad (17:44ad) TX_FAR _ReceivedTM34Text db $0B TX_FAR _TM34ExplanationText db "@" PewterGymText6: ; 5c4b7 (17:44b7) TX_FAR _TM34NoRoomText db "@" PewterGymText_5c4bc: ; 5c4bc (17:44bc) TX_FAR _PewterGymText_5c4bc db $0B TX_FAR _PewterGymText_5c4c1 db "@" PewterGymText2: ; 5c4c6 (17:44c6) TX_ASM ld hl, PewterGymTrainerHeader0 call TalkToTrainer jp TextScriptEnd PewterGymBattleText1: ; 5c4d0 (17:44d0) TX_FAR _PewterGymBattleText1 db "@" PewterGymEndBattleText1: ; 5c4d5 (17:44d5) TX_FAR _PewterGymEndBattleText1 db "@" PewterGymAfterBattleText1: ; 5c4da (17:44da) TX_FAR _PewterGymAfterBattleText1 db "@" PewterGymText3: ; 5c4df (17:44df) TX_ASM ld a, [wBeatGymFlags] bit 0, a jr nz, .asm_5c50c ld hl, PewterGymText_5c515 call PrintText call YesNoChoice ld a, [wCurrentMenuItem] and a jr nz, .asm_5c4fe ld hl, PewterGymText_5c51a call PrintText jr .asm_5c504 .asm_5c4fe ld hl, PewterGymText_5c524 call PrintText .asm_5c504 ld hl, PewterGymText_5c51f call PrintText jr .asm_5c512 .asm_5c50c ld hl, PewterGymText_5c529 call PrintText .asm_5c512 jp TextScriptEnd PewterGymText_5c515: ; 5c515 (17:4515) TX_FAR _PewterGymText_5c515 db "@" PewterGymText_5c51a: ; 5c51a (17:451a) TX_FAR _PewterGymText_5c51a db "@" PewterGymText_5c51f: ; 5c51f (17:451f) TX_FAR _PewterGymText_5c51f db "@" PewterGymText_5c524: ; 5c524 (17:4524) TX_FAR _PewterGymText_5c524 db "@" PewterGymText_5c529: ; 5c529 (17:4529) TX_FAR _PewterGymText_5c529 db "@"