pokeemerald/data/maps/BattleFrontier_BattlePyramidTop/scripts.inc
2021-07-20 15:18:31 -04:00

348 lines
13 KiB
PHP

.set LOCALID_ATTENDANT, 1
.set LOCALID_BRANDON, 2
BattleFrontier_BattlePyramidTop_MapScripts::
map_script MAP_SCRIPT_ON_RESUME, BattleFrontier_BattlePyramidTop_OnResume
map_script MAP_SCRIPT_ON_FRAME_TABLE, BattleFrontier_BattlePyramidTop_OnFrame
map_script MAP_SCRIPT_ON_TRANSITION, BattleFrontier_BattlePyramidTop_OnTransition
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, BattleFrontier_BattlePyramidTop_OnWarp
.byte 0
BattleFrontier_BattlePyramidTop_OnTransition:
pyramid_updatelight 200, PYRAMID_LIGHT_SET_RADIUS
setvar VAR_TEMP_F, 1
end
BattleFrontier_BattlePyramidTop_OnWarp:
map_script_2 VAR_TEMP_1, 0, BattleFrontier_BattlePyramidTop_EventScript_SetUpObjects
.2byte 0
BattleFrontier_BattlePyramidTop_EventScript_SetUpObjects::
setvar VAR_TEMP_1, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
compare VAR_TEMP_C, 0
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_EndSetUpObjects
setobjectxyperm LOCALID_BRANDON, 0, 0
BattleFrontier_BattlePyramidTop_EventScript_EndSetUpObjects::
end
BattleFrontier_BattlePyramidTop_OnResume:
frontier_getbrainstatus
compare VAR_RESULT, FRONTIER_BRAIN_NOT_READY
goto_if_eq BattleFrontier_BattlePyramidTop_EventScript_CheckChallengeStatus
call BattleFrontier_EventScript_SetBrainObjectGfx
BattleFrontier_BattlePyramidTop_EventScript_CheckChallengeStatus::
copyvar VAR_TEMP_C, VAR_RESULT
frontier_getstatus
switch VAR_TEMP_0
case 0, BattleFrontier_BattlePyramidTop_EventScript_ReadyChallenge
case CHALLENGE_STATUS_SAVING, BattleFrontier_BattlePyramid_EventScript_WarpToLobby
case CHALLENGE_STATUS_PAUSED, BattleFrontier_BattlePyramidTop_EventScript_ReadyChallenge
frontier_get FRONTIER_DATA_BATTLE_OUTCOME
compare VAR_RESULT, B_OUTCOME_LOST
goto_if_eq BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost
compare VAR_RESULT, B_OUTCOME_DREW
goto_if_eq BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost
compare VAR_RESULT, B_OUTCOME_FORFEITED
goto_if_eq BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost
end
BattleFrontier_BattlePyramidTop_OnFrame:
map_script_2 VAR_TEMP_E, 0, BattleFrontier_BattlePyramidTop_EventScript_PlayPyramidMusic
map_script_2 VAR_TEMP_F, 1, BattleFrontier_BattlePyramidTop_EventScript_ShowMapName
.2byte 0
BattleFrontier_BattlePyramidTop_EventScript_PlayPyramidMusic::
playbgm MUS_B_PYRAMID_TOP, FALSE
setvar VAR_TEMP_E, 1
end
BattleFrontier_BattlePyramidTop_EventScript_ShowMapName::
special ShowMapNamePopup
setvar VAR_TEMP_F, 0
end
BattleFrontier_BattlePyramidTop_EventScript_ReadyChallenge::
pyramid_save CHALLENGE_STATUS_SAVING
special SavePlayerParty
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
pyramid_settrainers
frontier_setpartyorder FRONTIER_PARTY_SIZE
setvar VAR_TEMP_F, 1
end
BattleFrontier_BattlePyramidTop_EventScript_Attendant::
lock
faceplayer
compare VAR_TEMP_D, 0
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_StepForwardWhenReady
compare VAR_TEMP_C, FRONTIER_BRAIN_NOT_READY
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_BrandonHereMoveAside
msgbox BattleFrontier_BattlePyramidTop_Text_ReachedSummitUpYouGo, MSGBOX_DEFAULT
closemessage
applymovement LOCALID_ATTENDANT, BattleFrontier_BattlePyramidTop_Movement_AttendantMoveAside
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePyramidTop_Movement_PlayerClimbToTop
waitmovement 0
applymovement LOCALID_ATTENDANT, BattleFrontier_BattlePyramidTop_Movement_AttendantBlockPath
waitmovement 0
message BattleFrontier_BattlePyramidTop_Text_PlayerConqueredPyramid
waitmessage
playfanfare MUS_OBTAIN_B_POINTS
waitfanfare
closemessage
BattleFrontier_BattlePyramidTop_EventScript_WarpToLobbyWon::
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, CHALLENGE_STATUS_WON
warp MAP_BATTLE_FRONTIER_BATTLE_PYRAMID_LOBBY, 255, 7, 13
waitstate
end
BattleFrontier_BattlePyramidTop_EventScript_StepForwardWhenReady::
msgbox BattleFrontier_BattlePyramidTop_Text_StepForwardWhenReady, MSGBOX_DEFAULT
closemessage
end
BattleFrontier_BattlePyramidTop_EventScript_BrandonHereMoveAside::
msgbox BattleFrontier_BattlePyramidTop_Text_ChiefBeatYouHere, MSGBOX_DEFAULT
applymovement LOCALID_ATTENDANT, BattleFrontier_BattlePyramidTop_Movement_AttendantMoveAside
setvar VAR_TEMP_D, 1
closemessage
end
BattleFrontier_BattlePyramidTop_EventScript_BattleBrandon::
lockall
switch VAR_TEMP_C
case FRONTIER_BRAIN_GOLD, BattleFrontier_BattlePyramidTop_EventScript_BrandonIntroGold
case FRONTIER_BRAIN_STREAK, BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardSilverSpeech
case FRONTIER_BRAIN_STREAK_LONG, BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardGoldSpeech
frontier_get FRONTIER_DATA_HEARD_BRAIN_SPEECH
compare VAR_RESULT, FALSE
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardSilverSpeech
special SpawnCameraObject
applymovement OBJ_EVENT_ID_CAMERA, BattleFrontier_BattlePyramidTop_Movement_CameraPanUp
waitmovement 0
msgbox BattleFrontier_BattlePyramidTop_Text_ExplorationsAreGrandestAdventure, MSGBOX_DEFAULT
closemessage
frontier_set FRONTIER_DATA_HEARD_BRAIN_SPEECH
applymovement LOCALID_BRANDON, BattleFrontier_BattlePyramidTop_Movement_BrandonApproachPlayer
waitmovement 0
msgbox BattleFrontier_BattlePyramidTop_Text_ImPyramidKingBrandon, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidTop_EventScript_BattleBrandonSilver
end
BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardSilverSpeech::
applymovement LOCALID_BRANDON, BattleFrontier_BattlePyramidTop_Movement_BrandonApproachPlayer
waitmovement 0
BattleFrontier_BattlePyramidTop_EventScript_BattleBrandonSilver::
msgbox BattleFrontier_BattlePyramidTop_Text_BringCourageToOurBattle, MSGBOX_DEFAULT
call BattleFrontier_BattlePyramidTop_EventScript_DoBrandonBattle
playbgm MUS_B_PYRAMID_TOP, FALSE
compare VAR_RESULT, 1
goto_if_eq BattleFrontier_BattlePyramidTop_EventScript_DefeatedBrandonSilver
goto BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost
BattleFrontier_BattlePyramidTop_EventScript_DefeatedBrandonSilver::
frontier_getsymbols
compare VAR_RESULT, 0
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_WarpToLobbyWon
msgbox BattleFrontier_BattlePyramidTop_Text_BrandonFrontierPassPlease, MSGBOX_DEFAULT
playfanfare MUS_OBTAIN_SYMBOL
message BattleFrontier_BattlePyramidTop_Text_ReceivedBraveSymbol
waitmessage
waitfanfare
frontier_givesymbol
msgbox BattleFrontier_BattlePyramidTop_Text_LookForwardToNextMeeting, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidTop_EventScript_WarpToLobbyWon
BattleFrontier_BattlePyramidTop_EventScript_BrandonIntroGold::
frontier_get FRONTIER_DATA_HEARD_BRAIN_SPEECH
compare VAR_RESULT, FALSE
goto_if_ne BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardGoldSpeech
special SpawnCameraObject
applymovement OBJ_EVENT_ID_CAMERA, BattleFrontier_BattlePyramidTop_Movement_CameraPanUp
waitmovement 0
msgbox BattleFrontier_BattlePyramidTop_Text_BrandonYouveReturned, MSGBOX_DEFAULT
closemessage
frontier_set FRONTIER_DATA_HEARD_BRAIN_SPEECH
applymovement LOCALID_BRANDON, BattleFrontier_BattlePyramidTop_Movement_BrandonApproachPlayer
waitmovement 0
msgbox BattleFrontier_BattlePyramidTop_Text_MyCourageIsOffMeter, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidTop_EventScript_BattleBrandonGold
end
BattleFrontier_BattlePyramidTop_EventScript_BrandonHeardGoldSpeech::
applymovement LOCALID_BRANDON, BattleFrontier_BattlePyramidTop_Movement_BrandonApproachPlayer
waitmovement 0
BattleFrontier_BattlePyramidTop_EventScript_BattleBrandonGold::
msgbox BattleFrontier_BattlePyramidTop_Text_EverythingYouHave, MSGBOX_DEFAULT
call BattleFrontier_BattlePyramidTop_EventScript_DoBrandonBattle
playbgm MUS_B_PYRAMID_TOP, FALSE
compare VAR_RESULT, 1
goto_if_eq BattleFrontier_BattlePyramidTop_EventScript_DefeatedBrandonGold
goto BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost
BattleFrontier_BattlePyramidTop_EventScript_DefeatedBrandonGold::
frontier_getsymbols
compare VAR_RESULT, 2
goto_if_eq BattleFrontier_BattlePyramidTop_EventScript_WarpToLobbyWon
msgbox BattleFrontier_BattlePyramidTop_Text_BrandonRemarkableHaveThis, MSGBOX_DEFAULT
playfanfare MUS_OBTAIN_SYMBOL
message BattleFrontier_BattlePyramidTop_Text_BraveSymbolTookGoldenShine
waitmessage
waitfanfare
frontier_givesymbol
msgbox BattleFrontier_BattlePyramidTop_Text_FarewellForNow, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidTop_EventScript_WarpToLobbyWon
BattleFrontier_BattlePyramidTop_EventScript_DoBrandonBattle::
closemessage
setvar VAR_0x8004, SPECIAL_BATTLE_PYRAMID
setvar VAR_0x8005, 0
special DoSpecialTrainerBattle
waitstate
return
BattleFrontier_BattlePyramidTop_Movement_AttendantMoveAside:
walk_right
walk_in_place_fastest_left
step_end
BattleFrontier_BattlePyramidTop_Movement_AttendantBlockPath:
walk_left
walk_in_place_fastest_up
step_end
BattleFrontier_BattlePyramidTop_Movement_PlayerClimbToTop:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_in_place_fastest_down
step_end
BattleFrontier_BattlePyramidTop_Movement_BrandonApproachPlayer:
walk_fast_down
step_end
BattleFrontier_BattlePyramidTop_Movement_CameraPanUp:
walk_slow_up
walk_slow_up
delay_16
step_end
BattleFrontier_BattlePyramidTop_Text_ReachedSummitUpYouGo:
.string "It is a delight to see you here!\n"
.string "You have reached the summit of\l"
.string "the BATTLE PYRAMID!\p"
.string "Above here is the PYRAMID's\n"
.string "lookout point.\p"
.string "It is a place open only to those\n"
.string "who have conquered the PYRAMID.\p"
.string "Now, please!\n"
.string "Up you go!$"
BattleFrontier_BattlePyramidTop_Text_PlayerConqueredPyramid:
.string "The PYRAMID's new conqueror!\n"
.string "Let the name {PLAYER} be known!$"
BattleFrontier_BattlePyramidTop_Text_ChiefBeatYouHere:
.string "It is a delight to see you here!\p"
.string "Unfortunately, you were second by\n"
.string "a mere fraction of time!\p"
.string "Our chief has already conquered\n"
.string "the PYRAMID ahead of you.\p"
.string "However, my young explorer…\n"
.string "You are a TRAINER!\p"
.string "Assert your power and take the glory\n"
.string "of the pinnacle from our chief!\p"
.string "Now, please! When you are ready,\n"
.string "take one more step of courage!$"
BattleFrontier_BattlePyramidTop_Text_ExplorationsAreGrandestAdventure:
.string "Young adventurer…\p"
.string "Wouldn't you agree that explorations\n"
.string "are the grandest of adventures?\p"
.string "Your own wits!\p"
.string "Your own strength!\p"
.string "Your own POKéMON!\p"
.string "And, above all, only your own courage\n"
.string "to lead you through unknown worlds…$"
BattleFrontier_BattlePyramidTop_Text_ImPyramidKingBrandon:
.string "Aah, yes, indeed this life is grand!\n"
.string "Grand, it is! Eh?\p"
.string "I'm BRANDON!\p"
.string "I'm the PYRAMID KING, which means\n"
.string "I'm in charge here.\p"
.string "Most people call me the chief!\p"
.string "You coming here means you have\n"
.string "that much confidence in yourself,\l"
.string "am I right?\p"
.string "Hahahah!\n"
.string "This should be exciting!$"
BattleFrontier_BattlePyramidTop_Text_BringCourageToOurBattle:
.string "Now, then!\n"
.string "Bring your courage to our battle!$"
BattleFrontier_BattlePyramidTop_Text_BrandonFrontierPassPlease:
.string "BRANDON: Hahahah! Grand it was!\n"
.string "Grand, yes, indeed!\p"
.string "Well done! You've earned recognition!\n"
.string "Your FRONTIER PASS, please!$"
BattleFrontier_BattlePyramidTop_Text_ReceivedBraveSymbol:
.string "The Brave Symbol was embossed on\n"
.string "the FRONTIER PASS!$"
BattleFrontier_BattlePyramidTop_Text_LookForwardToNextMeeting:
.string "Young explorer!\n"
.string "I look forward to our next meeting!$"
BattleFrontier_BattlePyramidTop_Text_BrandonYouveReturned:
.string "BRANDON: …You've finally returned,\n"
.string "young explorer…\p"
.string "Your love of adventure seems to come\n"
.string "deep from within your heart…\p"
.string "Yes… You are exactly as I was in\n"
.string "my own youth…\p"
.string "… … …Ah…\p"
.string "The passionate!\p"
.string "The dangerous!\p"
.string "The desperate!\p"
.string "Those days of death-defying,\n"
.string "life-affirming adventures are back…$"
BattleFrontier_BattlePyramidTop_Text_MyCourageIsOffMeter:
.string "Now, then!\p"
.string "I sense my own courage is off\n"
.string "the meter!$"
BattleFrontier_BattlePyramidTop_Text_EverythingYouHave:
.string "Everything you have!\n"
.string "I'm braced for it all!$"
BattleFrontier_BattlePyramidTop_Text_BrandonRemarkableHaveThis:
.string "BRANDON: Hahahah!\n"
.string "Remarkable!\l"
.string "Yes, it's grand, indeed!\p"
.string "Young explorer!\p"
.string "You've bested me through and through!\n"
.string "Here! I want you to have this!$"
BattleFrontier_BattlePyramidTop_Text_BraveSymbolTookGoldenShine:
.string "The Brave Symbol took on\n"
.string "a golden shine!$"
BattleFrontier_BattlePyramidTop_Text_FarewellForNow:
.string "Ah, yes! It just goes to show that\n"
.string "I have much to learn still!\p"
.string "May our paths cross again!\n"
.string "Farewell for now, young explorer!$"
BattleFrontier_BattlePyramidTop_Text_StepForwardWhenReady:
.string "Now, when you are ready, take courage\n"
.string "and step forward.$"