mirror of
https://github.com/pret/pokered.git
synced 2024-10-22 22:55:31 +00:00
477 lines
11 KiB
NASM
477 lines
11 KiB
NASM
CinnabarGym_Script:
|
|
call CinnabarGymSetMapAndTiles
|
|
call EnableAutoTextBoxDrawing
|
|
ld hl, CinnabarGym_ScriptPointers
|
|
ld a, [wCinnabarGymCurScript]
|
|
jp CallFunctionInTable
|
|
|
|
CinnabarGymSetMapAndTiles:
|
|
ld hl, wCurrentMapScriptFlags
|
|
bit 6, [hl]
|
|
res 6, [hl]
|
|
push hl
|
|
call nz, .LoadNames
|
|
pop hl
|
|
bit 5, [hl]
|
|
res 5, [hl]
|
|
call nz, UpdateCinnabarGymGateTileBlocks
|
|
ResetEvent EVENT_2A7
|
|
ret
|
|
|
|
.LoadNames:
|
|
ld hl, .CityName
|
|
ld de, .LeaderName
|
|
jp LoadGymLeaderAndCityName
|
|
|
|
.CityName:
|
|
db "CINNABAR ISLAND@"
|
|
|
|
.LeaderName:
|
|
db "BLAINE@"
|
|
|
|
CinnabarGymResetScripts:
|
|
xor a ; SCRIPT_CINNABARGYM_DEFAULT
|
|
ld [wJoyIgnore], a
|
|
ld [wCinnabarGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
ld [wOpponentAfterWrongAnswer], a
|
|
ret
|
|
|
|
CinnabarGymSetTrainerHeader:
|
|
ldh a, [hSpriteIndexOrTextID]
|
|
ld [wTrainerHeaderFlagBit], a
|
|
ret
|
|
|
|
CinnabarGym_ScriptPointers:
|
|
def_script_pointers
|
|
dw_const CinnabarGymDefaultScript, SCRIPT_CINNABARGYM_DEFAULT
|
|
dw_const CinnabarGymGetOpponentTextScript, SCRIPT_CINNABARGYM_GET_OPPONENT_TEXT
|
|
dw_const CinnabarGymOpenGateScript, SCRIPT_CINNABARGYM_OPEN_GATE
|
|
dw_const CinnabarGymBlainePostBattleScript, SCRIPT_CINNABARGYM_BLAINE_POST_BATTLE
|
|
|
|
CinnabarGymDefaultScript:
|
|
ld a, [wOpponentAfterWrongAnswer]
|
|
and a
|
|
ret z
|
|
ldh [hSpriteIndex], a
|
|
cp CINNABARGYM_SUPER_NERD3
|
|
jr nz, .not_super_nerd3
|
|
ld a, PLAYER_DIR_DOWN
|
|
ld [wPlayerMovingDirection], a
|
|
ld de, MovementNpcToLeftAndUp
|
|
jr .MoveSprite
|
|
.not_super_nerd3
|
|
ld de, MovementNpcToLeft
|
|
ld a, PLAYER_DIR_RIGHT
|
|
ld [wPlayerMovingDirection], a
|
|
.MoveSprite
|
|
call MoveSprite
|
|
ld a, SCRIPT_CINNABARGYM_GET_OPPONENT_TEXT
|
|
ld [wCinnabarGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
MovementNpcToLeftAndUp:
|
|
db NPC_MOVEMENT_LEFT
|
|
db NPC_MOVEMENT_UP
|
|
db -1 ; end
|
|
|
|
MovementNpcToLeft:
|
|
db NPC_MOVEMENT_LEFT
|
|
db -1 ; end
|
|
|
|
CinnabarGymGetOpponentTextScript:
|
|
ld a, [wStatusFlags5]
|
|
bit BIT_SCRIPTED_NPC_MOVEMENT, a
|
|
ret nz
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld a, [wOpponentAfterWrongAnswer]
|
|
ld [wTrainerHeaderFlagBit], a
|
|
ldh [hSpriteIndexOrTextID], a
|
|
jp DisplayTextID
|
|
|
|
CinnabarGymFlagAction:
|
|
predef_jump FlagActionPredef
|
|
|
|
CinnabarGymOpenGateScript:
|
|
ld a, [wIsInBattle]
|
|
cp $ff
|
|
jp z, CinnabarGymResetScripts
|
|
ld a, [wTrainerHeaderFlagBit]
|
|
ldh [hGymGateIndex], a
|
|
AdjustEventBit EVENT_BEAT_CINNABAR_GYM_TRAINER_0, 2
|
|
ld c, a
|
|
ld b, FLAG_TEST
|
|
EventFlagAddress hl, EVENT_BEAT_CINNABAR_GYM_TRAINER_0
|
|
call CinnabarGymFlagAction
|
|
ld a, c
|
|
and a
|
|
jr nz, .no_sound
|
|
call WaitForSoundToFinish
|
|
ld a, SFX_GO_INSIDE
|
|
call PlaySound
|
|
call WaitForSoundToFinish
|
|
.no_sound
|
|
ld a, [wTrainerHeaderFlagBit]
|
|
ldh [hGymGateIndex], a
|
|
AdjustEventBit EVENT_BEAT_CINNABAR_GYM_TRAINER_0, 2
|
|
ld c, a
|
|
ld b, FLAG_SET
|
|
EventFlagAddress hl, EVENT_BEAT_CINNABAR_GYM_TRAINER_0
|
|
call CinnabarGymFlagAction
|
|
ld a, [wTrainerHeaderFlagBit]
|
|
sub $2
|
|
AdjustEventBit EVENT_CINNABAR_GYM_GATE0_UNLOCKED, 0
|
|
ld c, a
|
|
ld b, FLAG_SET
|
|
EventFlagAddress hl, EVENT_CINNABAR_GYM_GATE0_UNLOCKED
|
|
call CinnabarGymFlagAction
|
|
call UpdateCinnabarGymGateTileBlocks
|
|
xor a
|
|
ld [wJoyIgnore], a
|
|
ld [wOpponentAfterWrongAnswer], a
|
|
ld a, SCRIPT_CINNABARGYM_DEFAULT
|
|
ld [wCinnabarGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
ret
|
|
|
|
CinnabarGymBlainePostBattleScript:
|
|
ld a, [wIsInBattle]
|
|
cp $ff
|
|
jp z, CinnabarGymResetScripts
|
|
ld a, D_RIGHT | D_LEFT | D_UP | D_DOWN
|
|
ld [wJoyIgnore], a
|
|
; fallthrough
|
|
CinnabarGymReceiveTM38:
|
|
ld a, TEXT_CINNABARGYM_BLAINE_VOLCANO_BADGE_INFO
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
SetEvent EVENT_BEAT_BLAINE
|
|
lb bc, TM_FIRE_BLAST, 1
|
|
call GiveItem
|
|
jr nc, .BagFull
|
|
ld a, TEXT_CINNABARGYM_BLAINE_RECEIVED_TM38
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
SetEvent EVENT_GOT_TM38
|
|
jr .gymVictory
|
|
.BagFull
|
|
ld a, TEXT_CINNABARGYM_BLAINE_TM38_NO_ROOM
|
|
ldh [hSpriteIndexOrTextID], a
|
|
call DisplayTextID
|
|
.gymVictory
|
|
ld hl, wObtainedBadges
|
|
set BIT_VOLCANOBADGE, [hl]
|
|
ld hl, wBeatGymFlags
|
|
set BIT_VOLCANOBADGE, [hl]
|
|
|
|
; deactivate gym trainers
|
|
SetEventRange EVENT_BEAT_CINNABAR_GYM_TRAINER_0, EVENT_BEAT_CINNABAR_GYM_TRAINER_6
|
|
|
|
ld hl, wCurrentMapScriptFlags
|
|
set 5, [hl]
|
|
|
|
jp CinnabarGymResetScripts
|
|
|
|
CinnabarGym_TextPointers:
|
|
def_text_pointers
|
|
dw_const CinnabarGymBlaineText, TEXT_CINNABARGYM_BLAINE
|
|
dw_const CinnabarGymSuperNerd1, TEXT_CINNABARGYM_SUPER_NERD1
|
|
dw_const CinnabarGymSuperNerd2, TEXT_CINNABARGYM_SUPER_NERD2
|
|
dw_const CinnabarGymSuperNerd3, TEXT_CINNABARGYM_SUPER_NERD3
|
|
dw_const CinnabarGymSuperNerd4, TEXT_CINNABARGYM_SUPER_NERD4
|
|
dw_const CinnabarGymSuperNerd5, TEXT_CINNABARGYM_SUPER_NERD5
|
|
dw_const CinnabarGymSuperNerd6, TEXT_CINNABARGYM_SUPER_NERD6
|
|
dw_const CinnabarGymSuperNerd7, TEXT_CINNABARGYM_SUPER_NERD7
|
|
dw_const CinnabarGymGymGuideText, TEXT_CINNABARGYM_GYM_GUIDE
|
|
dw_const CinnabarGymBlaineVolcanoBadgeInfoText, TEXT_CINNABARGYM_BLAINE_VOLCANO_BADGE_INFO
|
|
dw_const CinnabarGymBlaineReceivedTM38Text, TEXT_CINNABARGYM_BLAINE_RECEIVED_TM38
|
|
dw_const CinnabarGymBlaineTM38NoRoomText, TEXT_CINNABARGYM_BLAINE_TM38_NO_ROOM
|
|
|
|
CinnabarGymStartBattleScript:
|
|
ldh a, [hSpriteIndexOrTextID]
|
|
ld [wSpriteIndex], a
|
|
call EngageMapTrainer
|
|
call InitBattleEnemyParameters
|
|
ld hl, wStatusFlags3
|
|
set BIT_TALKED_TO_TRAINER, [hl]
|
|
set BIT_PRINT_END_BATTLE_TEXT, [hl]
|
|
ld a, [wSpriteIndex]
|
|
cp CINNABARGYM_BLAINE
|
|
jr z, .blaine
|
|
ld a, SCRIPT_CINNABARGYM_OPEN_GATE
|
|
jr .not_blaine
|
|
.blaine
|
|
ld a, SCRIPT_CINNABARGYM_BLAINE_POST_BATTLE
|
|
.not_blaine
|
|
ld [wCinnabarGymCurScript], a
|
|
ld [wCurMapScript], a
|
|
jp TextScriptEnd
|
|
|
|
CinnabarGymBlaineText:
|
|
text_asm
|
|
CheckEvent EVENT_BEAT_BLAINE
|
|
jr z, .beforeBeat
|
|
CheckEventReuseA EVENT_GOT_TM38
|
|
jr nz, .afterBeat
|
|
call z, CinnabarGymReceiveTM38
|
|
call DisableWaitingAfterTextDisplay
|
|
jp TextScriptEnd
|
|
.afterBeat
|
|
ld hl, .PostBattleAdviceText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
.beforeBeat
|
|
ld hl, .PreBattleText
|
|
call PrintText
|
|
ld hl, .ReceivedVolcanoBadgeText
|
|
ld de, .ReceivedVolcanoBadgeText
|
|
call SaveEndBattleTextPointers
|
|
ld a, $7
|
|
ld [wGymLeaderNo], a
|
|
jp CinnabarGymStartBattleScript
|
|
|
|
.PreBattleText:
|
|
text_far _CinnabarGymBlainePreBattleText
|
|
text_end
|
|
|
|
.ReceivedVolcanoBadgeText:
|
|
text_far _CinnabarGymBlaineReceivedVolcanoBadgeText
|
|
sound_get_key_item ; actually plays the second channel of SFX_BALL_POOF due to the wrong music bank being loaded
|
|
text_waitbutton
|
|
text_end
|
|
|
|
.PostBattleAdviceText:
|
|
text_far _CinnabarGymBlainePostBattleAdviceText
|
|
text_end
|
|
|
|
CinnabarGymBlaineVolcanoBadgeInfoText:
|
|
text_far _CinnabarGymBlaineVolcanoBadgeInfoText
|
|
text_end
|
|
|
|
CinnabarGymBlaineReceivedTM38Text:
|
|
text_far _CinnabarGymBlaineReceivedTM38Text
|
|
sound_get_item_1
|
|
text_far _CinnabarGymBlaineTM38ExplanationText
|
|
text_end
|
|
|
|
CinnabarGymBlaineTM38NoRoomText:
|
|
text_far _CinnabarGymBlaineTM38NoRoomText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd1:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_0
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd1BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd1EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd1AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd2:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_1
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd2BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd2EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd2AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd3:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_2
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd3BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd3EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd3AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd4:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_3
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd4BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd4EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd4AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd5:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_4
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd5BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd5EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd5AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd6:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_5
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd6BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd6EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd6AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymSuperNerd7:
|
|
text_asm
|
|
call CinnabarGymSetTrainerHeader
|
|
CheckEvent EVENT_BEAT_CINNABAR_GYM_TRAINER_6
|
|
jr nz, .defeated
|
|
ld hl, .BattleText
|
|
call PrintText
|
|
ld hl, .EndBattleText
|
|
ld de, .EndBattleText
|
|
call SaveEndBattleTextPointers
|
|
jp CinnabarGymStartBattleScript
|
|
.defeated
|
|
ld hl, .AfterBattleText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.BattleText:
|
|
text_far _CinnabarGymSuperNerd7BattleText
|
|
text_end
|
|
|
|
.EndBattleText:
|
|
text_far _CinnabarGymSuperNerd7EndBattleText
|
|
text_end
|
|
|
|
.AfterBattleText:
|
|
text_far _CinnabarGymSuperNerd7AfterBattleText
|
|
text_end
|
|
|
|
CinnabarGymGymGuideText:
|
|
text_asm
|
|
CheckEvent EVENT_BEAT_BLAINE
|
|
jr nz, .afterBeat
|
|
ld hl, .ChampInMakingText
|
|
jr .done
|
|
.afterBeat
|
|
ld hl, .BeatBlaineText
|
|
.done
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
.ChampInMakingText:
|
|
text_far _CinnabarGymGymGuideChampInMakingText
|
|
text_end
|
|
|
|
.BeatBlaineText:
|
|
text_far _CinnabarGymGymGuideBeatBlaineText
|
|
text_end
|