ninjdai/pokeemerald
1
0
Fork 0
mirror of https://github.com/Ninjdai1/pokeemerald.git synced 2024-12-30 14:20:42 +01:00
Code Issues Packages Projects Releases Wiki Activity
0bca01cb74
pokeemerald/data/maps/BattleFrontier_BattlePyramidLobby/scripts.inc
GriffinR 06351bf63c Remove address comments
2021-07-20 15:18:31 -04:00

914 lines
35 KiB
PHP
Raw Blame History

.set LOCALID_ATTENDANT, 1
.set LOCALID_HINT_GIVER, 2
BattleFrontier_BattlePyramidLobby_MapScripts::
map_script MAP_SCRIPT_ON_FRAME_TABLE, BattleFrontier_BattlePyramidLobby_OnFrame
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, BattleFrontier_BattleDomeLobby_OnWarp
.byte 0
@ Unused. Pyramid uses Dome's OnWarp (presumably by mistake). Their effects are identical
BattleFrontier_BattlePyramidLobby_OnWarp:
map_script_2 VAR_TEMP_1, 0, BattleFrontier_BattlePyramidLobby_EventScript_TurnPlayerNorth
.2byte 0
BattleFrontier_BattlePyramidLobby_EventScript_TurnPlayerNorth:
setvar VAR_TEMP_1, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
BattleFrontier_BattlePyramidLobby_OnFrame:
map_script_2 VAR_TEMP_0, 0, BattleFrontier_BattlePyramidLobby_EventScript_GetChallengeStatus
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_SAVING, BattleFrontier_BattlePyramidLobby_EventScript_QuitWithoutSaving
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_PAUSED, BattleFrontier_BattlePyramidLobby_EventScript_ResumeChallenge
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_WON, BattleFrontier_BattlePyramidLobby_EventScript_WonChallenge
map_script_2 VAR_TEMP_0, CHALLENGE_STATUS_LOST, BattleFrontier_BattlePyramidLobby_EventScript_LostChallenge
.2byte 0
BattleFrontier_BattlePyramidLobby_EventScript_GetChallengeStatus::
frontier_getstatus
end
BattleFrontier_BattlePyramidLobby_EventScript_QuitWithoutSaving::
lockall
message BattleFrontier_BattlePyramidLobby_Text_DidntSaveBeforeQuittingTakeBag
waitmessage
playse SE_EXP_MAX
waitse
closemessage
pyramid_set PYRAMID_DATA_WIN_STREAK, 0
pyramid_set PYRAMID_DATA_WIN_STREAK_ACTIVE, FALSE
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
setvar VAR_TEMP_0, 255
releaseall
end
BattleFrontier_BattlePyramidLobby_EventScript_WonChallenge::
lockall
frontier_isbrain
compare VAR_RESULT, TRUE
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_DefeatedKing
msgbox BattleFrontier_BattlePyramidLobby_Text_YouveConqueredPyramid, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_GiveBattlePoints
BattleFrontier_BattlePyramidLobby_EventScript_DefeatedKing::
msgbox BattleFrontier_BattlePyramidLobby_Text_YouveDefeatedPyramidKing, MSGBOX_DEFAULT
BattleFrontier_BattlePyramidLobby_EventScript_GiveBattlePoints::
special DoBattlePyramidMonsHaveHeldItem
compare VAR_RESULT, TRUE
call_if_eq BattleFrontier_BattlePyramidLobby_EventScript_StoreHeldItemsInPyramidBag
clearflag FLAG_STORING_ITEMS_IN_PYRAMID_BAG
frontier_checkairshow
special LoadPlayerParty
pyramid_clearhelditems
special HealPlayerParty
message BattleFrontier_BattlePyramidLobby_Text_UsedBattleBagWillBeKept
waitmessage
playse SE_EXP_MAX
waitse
msgbox BattleFrontier_BattlePyramidLobby_Text_GiveYouTheseBattlePoints, MSGBOX_DEFAULT
frontier_givepoints
msgbox BattleFrontier_Text_ObtainedXBattlePoints, MSGBOX_GETPOINTS
message BattleFrontier_BattlePyramidLobby_Text_RecordResultsWait
waitmessage
pyramid_setprize
pyramid_save 0
playse SE_SAVE
waitse
msgbox BattleFrontier_BattlePyramidLobby_Text_LookForwardToNextChallenge, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_0, 255
releaseall
end
BattleFrontier_BattlePyramidLobby_EventScript_LostChallenge::
frontier_checkairshow
special LoadPlayerParty
pyramid_clearhelditems
special HealPlayerParty
lockall
message BattleFrontier_BattlePyramidLobby_Text_DisappointingHereIsBag
waitmessage
playse SE_EXP_MAX
waitse
message BattleFrontier_BattlePyramidLobby_Text_RecordResultsWait
waitmessage
pyramid_set PYRAMID_DATA_WIN_STREAK_ACTIVE, FALSE
pyramid_save 0
playse SE_SAVE
waitse
msgbox BattleFrontier_BattlePyramidLobby_Text_LookForwardToNextChallenge, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_0, 255
releaseall
end
BattleFrontier_BattlePyramidLobby_EventScript_ResumeChallenge::
goto BattleFrontier_BattlePyramidLobby_EventScript_EnterChallenge
BattleFrontier_BattlePyramidLobby_EventScript_Attendant::
lock
faceplayer
setvar VAR_FRONTIER_FACILITY, FRONTIER_FACILITY_PYRAMID
setvar VAR_FRONTIER_BATTLE_MODE, FRONTIER_MODE_SINGLES
special SavePlayerParty
msgbox BattleFrontier_BattlePyramidLobby_Text_WelcomeToBattlePyramid, MSGBOX_DEFAULT
BattleFrontier_BattlePyramidLobby_EventScript_AskTakeChallenge::
message BattleFrontier_BattlePyramidLobby_Text_EmbarkOnChallenge
waitmessage
multichoice 17, 6, MULTI_CHALLENGEINFO, FALSE
switch VAR_RESULT
case 0, BattleFrontier_BattlePyramidLobby_EventScript_TryEnterChallenge
case 1, BattleFrontier_BattlePyramidLobby_EventScript_ExplainChallenge
case 2, BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge
BattleFrontier_BattlePyramidLobby_EventScript_TryEnterChallenge::
message BattleFrontier_BattlePyramidLobby_Text_WhichLevelMode
waitmessage
multichoice 17, 6, MULTI_LEVEL_MODE, FALSE
switch VAR_RESULT
case FRONTIER_LVL_TENT, BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge
frontier_checkineligible
compare VAR_0x8004, TRUE
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMons
frontier_set FRONTIER_DATA_LVL_MODE, VAR_RESULT
msgbox BattleFrontier_BattlePyramidLobby_Text_SelectThreeMons, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
call BattleFrontier_EventScript_GetLvlMode
copyvar VAR_0x8004, VAR_RESULT
setvar VAR_0x8005, FRONTIER_PARTY_SIZE
special ChoosePartyForBattleFrontier
waitstate
compare VAR_RESULT, 0
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_LoadPartyAndCancelChallenge
msgbox BattleFrontier_BattlePyramidLobby_Text_OkayToSaveBeforeChallenge, MSGBOX_YESNO
switch VAR_RESULT
case NO, BattleFrontier_BattlePyramidLobby_EventScript_LoadPartyAndCancelChallenge
case YES, BattleFrontier_BattlePyramidLobby_EventScript_SaveBeforeChallenge
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_LoadPartyAndCancelChallenge
BattleFrontier_BattlePyramidLobby_EventScript_SaveBeforeChallenge::
setvar VAR_TEMP_0, 0
frontier_set FRONTIER_DATA_SELECTED_MON_ORDER
pyramid_init
pyramid_set PYRAMID_DATA_WIN_STREAK_ACTIVE, TRUE
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, CHALLENGE_STATUS_SAVING
frontier_set FRONTIER_DATA_PAUSED, FALSE
pyramid_seedfloor
pyramid_settrainers
special LoadPlayerParty
closemessage
delay 2
call Common_EventScript_SaveGame
setvar VAR_TEMP_0, 255
compare VAR_RESULT, 0
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_CancelChallengeSaveFailed
BattleFrontier_BattlePyramidLobby_EventScript_EnterChallenge::
special SavePlayerParty
frontier_setpartyorder FRONTIER_PARTY_SIZE
msgbox BattleFrontier_BattlePyramidLobby_Text_ShowYouIntoPyramid, MSGBOX_DEFAULT
closemessage
call BattleFrontier_BattlePyramidLobby_EventScript_WalkToPanelAndReceiveBag
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
setvar VAR_RESULT, 0
special HealPlayerParty
warp MAP_BATTLE_FRONTIER_BATTLE_PYRAMID_FLOOR, 255, 1, 1
setvar VAR_TEMP_0, 0
waitstate
end
BattleFrontier_BattlePyramidLobby_EventScript_ExplainChallenge::
msgbox BattleFrontier_BattlePyramidLobby_Text_ExplainBattlePyramid, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_AskTakeChallenge
BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMons::
switch VAR_RESULT
case FRONTIER_LVL_50, BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMonsLv50
case FRONTIER_LVL_OPEN, BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMonsLvOpen
BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMonsLv50::
msgbox BattleFrontier_BattlePyramidLobby_Text_NotEnoughValidMonsLv50, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_EndCancelChallenge
BattleFrontier_BattlePyramidLobby_EventScript_NotEnoughValidMonsLvOpen::
msgbox BattleFrontier_BattlePyramidLobby_Text_NotEnoughValidMonsLvOpen, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_EndCancelChallenge
BattleFrontier_BattlePyramidLobby_EventScript_CancelChallengeSaveFailed::
frontier_set FRONTIER_DATA_CHALLENGE_STATUS, 0
goto BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge
BattleFrontier_BattlePyramidLobby_EventScript_LoadPartyAndCancelChallenge::
special LoadPlayerParty
BattleFrontier_BattlePyramidLobby_EventScript_CancelChallenge::
msgbox BattleFrontier_BattlePyramidLobby_Text_AwaitFutureChallenge, MSGBOX_DEFAULT
BattleFrontier_BattlePyramidLobby_EventScript_EndCancelChallenge::
release
end
BattleFrontier_BattlePyramidLobby_EventScript_HintGiver::
lockall
applymovement LOCALID_HINT_GIVER, Common_Movement_FacePlayer
waitmovement 0
msgbox BattleFrontier_BattlePyramidLobby_Text_TellYouWhatMisfortunesAwait, MSGBOX_DEFAULT
call BattleFrontier_BattlePyramidLobby_EventScript_GiveHint
msgbox BattleFrontier_BattlePyramidLobby_Text_BelieveMyFortunesOrNot, MSGBOX_DEFAULT
releaseall
end
BattleFrontier_BattlePyramidLobby_EventScript_GiveHint::
multichoice 17, 6, MULTI_LEVEL_MODE, FALSE
switch VAR_RESULT
case FRONTIER_LVL_50, BattleFrontier_BattlePyramidLobby_EventScript_GiveHintLv50
case FRONTIER_LVL_OPEN, BattleFrontier_BattlePyramidLobby_EventScript_GiveHintLvOpen
case FRONTIER_LVL_TENT, BattleFrontier_BattlePyramidLobby_EventScript_NoHint
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_NoHint
return
@ Shouldnt occur
BattleFrontier_BattlePyramidLobby_EventScript_NoHint::
return
BattleFrontier_BattlePyramidLobby_EventScript_GiveHintLv50::
msgbox BattleFrontier_BattlePyramidLobby_Text_Aah, MSGBOX_DEFAULT
pyramid_get PYRAMID_DATA_WIN_STREAK_ACTIVE_50
compare VAR_RESULT, FALSE
goto_if_ne BattleFrontier_BattlePyramidLobby_EventScript_GiveHintGetLv50Streak
setvar VAR_RESULT, 0
goto BattleFrontier_BattlePyramidLobby_EventScript_DoHintComment
return
BattleFrontier_BattlePyramidLobby_EventScript_GiveHintGetLv50Streak::
pyramid_get PYRAMID_DATA_WIN_STREAK_50
goto BattleFrontier_BattlePyramidLobby_EventScript_DoHintComment
return
BattleFrontier_BattlePyramidLobby_EventScript_GiveHintLvOpen::
msgbox BattleFrontier_BattlePyramidLobby_Text_Aah, MSGBOX_DEFAULT
pyramid_get PYRAMID_DATA_WIN_STREAK_ACTIVE_OPEN
compare VAR_RESULT, FALSE
goto_if_ne BattleFrontier_BattlePyramidLobby_EventScript_GiveHintGetLvOpenStreak
setvar VAR_RESULT, 0
goto BattleFrontier_BattlePyramidLobby_EventScript_DoHintComment
return
BattleFrontier_BattlePyramidLobby_EventScript_GiveHintGetLvOpenStreak::
pyramid_get PYRAMID_DATA_WIN_STREAK_OPEN
goto BattleFrontier_BattlePyramidLobby_EventScript_DoHintComment
return
BattleFrontier_BattlePyramidLobby_EventScript_DoHintComment::
copyvar VAR_0x8004, VAR_RESULT
special GetBattlePyramidHint
switch VAR_RESULT
case 0, BattleFrontier_BattlePyramidLobby_EventScript_HintParalysis
case 1, BattleFrontier_BattlePyramidLobby_EventScript_HintPoison
case 2, BattleFrontier_BattlePyramidLobby_EventScript_HintBurn
case 3, BattleFrontier_BattlePyramidLobby_EventScript_HintPPWaste
case 4, BattleFrontier_BattlePyramidLobby_EventScript_HintLevitate
case 5, BattleFrontier_BattlePyramidLobby_EventScript_HintTrapAbility
case 6, BattleFrontier_BattlePyramidLobby_EventScript_HintIce
case 7, BattleFrontier_BattlePyramidLobby_EventScript_HintExplosion
case 8, BattleFrontier_BattlePyramidLobby_EventScript_HintPsychic
case 9, BattleFrontier_BattlePyramidLobby_EventScript_HintRock
case 10, BattleFrontier_BattlePyramidLobby_EventScript_HintFighting
case 11, BattleFrontier_BattlePyramidLobby_EventScript_HintWeather
case 12, BattleFrontier_BattlePyramidLobby_EventScript_HintBug
case 13, BattleFrontier_BattlePyramidLobby_EventScript_HintDark
case 14, BattleFrontier_BattlePyramidLobby_EventScript_HintWater
case 15, BattleFrontier_BattlePyramidLobby_EventScript_HintGhost
case 16, BattleFrontier_BattlePyramidLobby_EventScript_HintSteel
case 17, BattleFrontier_BattlePyramidLobby_EventScript_HintFlyingDragon
case 18, BattleFrontier_BattlePyramidLobby_EventScript_HintStoneEvolve
case 19, BattleFrontier_BattlePyramidLobby_EventScript_HintNormal
return
BattleFrontier_BattlePyramidLobby_EventScript_HintParalysis::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintParalysis, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintPoison::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintPoison, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintBurn::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintBurn, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintPPWaste::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintPPWaste, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintLevitate::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintLevitate, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintTrapAbility::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintTrapAbility, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintIce::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintIce, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintExplosion::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintExplosion, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintPsychic::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintPsychic, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintRock::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintRock, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintFighting::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintFighting, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintWeather::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintWeather, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintBug::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintBug, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintDark::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintDark, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintWater::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintWater, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintGhost::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintGhost, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintSteel::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintSteel, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintFlyingDragon::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintFlyingDragon, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintStoneEvolve::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintStoneEvolve, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_HintNormal::
msgbox BattleFrontier_BattlePyramidLobby_Text_HintNormal, MSGBOX_DEFAULT
return
BattleFrontier_BattlePyramidLobby_EventScript_ShowResults::
lockall
frontier_results FRONTIER_FACILITY_PYRAMID
waitbuttonpress
special RemoveRecordsWindow
releaseall
end
BattleFrontier_BattlePyramidLobby_EventScript_WalkToPanelAndReceiveBag::
applymovement LOCALID_ATTENDANT, BattleFrontier_BattlePyramidLobby_Movement_AttendantWalkToPanel
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePyramidLobby_Movement_PlayerWalkToPanel
waitmovement 0
msgbox BattleFrontier_BattlePyramidLobby_Text_WeWillHoldBagForSafekeeping, MSGBOX_DEFAULT
pyramid_get PYRAMID_DATA_WIN_STREAK
compare VAR_RESULT, 0
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_ReceiveNewBattleBag
msgbox BattleFrontier_BattlePyramidLobby_Text_PleaseTakePreviousBattleBag, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReceiveBattleBag
BattleFrontier_BattlePyramidLobby_EventScript_ReceiveNewBattleBag::
msgbox BattleFrontier_BattlePyramidLobby_Text_PleaseTakeThisBattleBag, MSGBOX_DEFAULT
BattleFrontier_BattlePyramidLobby_EventScript_ReceiveBattleBag::
message BattleFrontier_BattlePyramidLobby_Text_ExchangedBagForBattleBag
waitmessage
playse SE_EXP_MAX
waitse
msgbox BattleFrontier_BattlePyramidLobby_Text_StepOnFloorPanel, MSGBOX_DEFAULT
closemessage
applymovement LOCALID_ATTENDANT, BattleFrontier_BattlePyramidLobby_Movement_AttendantMoveAside
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePyramidLobby_Movement_PlayerStepOnPanel
waitmovement 0
return
BattleFrontier_BattlePyramidLobby_Movement_AttendantWalkToPanel:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
face_down
step_end
BattleFrontier_BattlePyramidLobby_Movement_PlayerWalkToPanel:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
step_end
BattleFrontier_BattlePyramidLobby_Movement_AttendantMoveAside:
walk_right
face_left
step_end
BattleFrontier_BattlePyramidLobby_Movement_PlayerStepOnPanel:
walk_up
walk_up
step_end
BattleFrontier_BattlePyramidLobby_EventScript_StoreHeldItemsInPyramidBag::
msgbox BattleFrontier_BattlePyramidLobby_Text_MonHoldingItemCannotTake, MSGBOX_DEFAULT
setflag FLAG_STORING_ITEMS_IN_PYRAMID_BAG
special TryStoreHeldItemsInPyramidBag
compare VAR_RESULT, 0
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_HeldItemsStoredInPyramidBag
message BattleFrontier_BattlePyramidLobby_Text_BagCannotHoldPickItemsToKeep
waitmessage
goto BattleFrontier_BattlePyramidLobby_EventScript_PickItemsToKeep
end
BattleFrontier_BattlePyramidLobby_EventScript_HeldItemsStoredInPyramidBag::
msgbox BattleFrontier_BattlePyramidLobby_Text_HeldItemsMovedToBag, MSGBOX_DEFAULT
return
@ When exiting Battle Pyramid with a full pyramid bag and held items the player must select to keep/toss party held items and make room for any kept items by tossing from the pyramid bag
BattleFrontier_BattlePyramidLobby_EventScript_PickItemsToKeep::
multichoice 17, 6, MULTI_FRONTIER_ITEM_CHOOSE, FALSE
switch VAR_RESULT
case 0, BattleFrontier_BattlePyramidLobby_EventScript_PickItemsFromBag
case 1, BattleFrontier_BattlePyramidLobby_EventScript_PickItemsFromParty
case 2, BattleFrontier_BattlePyramidLobby_EventScript_ExitPickItems
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_ExitPickItems
end
BattleFrontier_BattlePyramidLobby_EventScript_PickItemsFromBag::
special ChooseItemsToTossFromPyramidBag
waitstate
message BattleFrontier_BattlePyramidLobby_Text_PickItemsToKeep
waitmessage
goto BattleFrontier_BattlePyramidLobby_EventScript_PickItemsToKeep
end
BattleFrontier_BattlePyramidLobby_EventScript_PickItemsFromParty::
special BattlePyramidChooseMonHeldItems
waitstate
message BattleFrontier_BattlePyramidLobby_Text_PickItemsToKeep
waitmessage
goto BattleFrontier_BattlePyramidLobby_EventScript_PickItemsToKeep
end
BattleFrontier_BattlePyramidLobby_EventScript_ExitPickItems::
special DoBattlePyramidMonsHaveHeldItem
compare VAR_RESULT, TRUE
goto_if_eq BattleFrontier_BattlePyramidLobby_EventScript_PartyStillHasHeldItems
return
BattleFrontier_BattlePyramidLobby_EventScript_PartyStillHasHeldItems::
msgbox BattleFrontier_BattlePyramidLobby_Text_LeastOneMonHoldingItem, MSGBOX_DEFAULT
message BattleFrontier_BattlePyramidLobby_Text_PickItemsToKeep
waitmessage
goto BattleFrontier_BattlePyramidLobby_EventScript_PickItemsToKeep
end
BattleFrontier_BattlePyramidLobby_EventScript_Woman::
msgbox BattleFrontier_BattlePyramidLobby_Text_TrainersNoticeRunning, MSGBOX_NPC
end
BattleFrontier_BattlePyramidLobby_EventScript_FatMan::
msgbox BattleFrontier_BattlePyramidLobby_Text_LostLotOfItems, MSGBOX_NPC
end
BattleFrontier_BattlePyramidLobby_EventScript_RulesBoard::
lockall
msgbox BattleFrontier_BattlePyramidLobby_Text_RulesAreListed, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard
end
BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard::
message BattleFrontier_BattlePyramidLobby_Text_ReadWhichHeading
waitmessage
multichoice 15, 2, MULTI_BATTLE_PYRAMID_RULES, FALSE
switch VAR_RESULT
case 0, BattleFrontier_BattlePyramidLobby_EventScript_RulesPokemon
case 1, BattleFrontier_BattlePyramidLobby_EventScript_RulesTrainers
case 2, BattleFrontier_BattlePyramidLobby_EventScript_RulesMaze
case 3, BattleFrontier_BattlePyramidLobby_EventScript_RulesBag
case 4, BattleFrontier_BattlePyramidLobby_EventScript_ExitRules
case MULTI_B_PRESSED, BattleFrontier_BattlePyramidLobby_EventScript_ExitRules
end
BattleFrontier_BattlePyramidLobby_EventScript_RulesPokemon::
msgbox BattleFrontier_BattlePyramidLobby_Text_ExplainMonRules, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard
end
BattleFrontier_BattlePyramidLobby_EventScript_RulesTrainers::
msgbox BattleFrontier_BattlePyramidLobby_Text_ExplainTrainerRules, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard
end
BattleFrontier_BattlePyramidLobby_EventScript_RulesMaze::
msgbox BattleFrontier_BattlePyramidLobby_Text_ExplainMazeRules, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard
end
BattleFrontier_BattlePyramidLobby_EventScript_RulesBag::
msgbox BattleFrontier_BattlePyramidLobby_Text_ExplainBagRules, MSGBOX_DEFAULT
goto BattleFrontier_BattlePyramidLobby_EventScript_ReadRulesBoard
end
BattleFrontier_BattlePyramidLobby_EventScript_ExitRules::
releaseall
end
BattleFrontier_BattlePyramidLobby_Text_WelcomeToBattlePyramid:
.string "Where the courage of TRAINERS\n"
.string "is put to the test!\p"
.string "Welcome to the BATTLE PYRAMID!\p"
.string "I am your guide to\n"
.string "the Battle Quest.$"
BattleFrontier_BattlePyramidLobby_Text_EmbarkOnChallenge:
.string "Have you the courage to embark on\n"
.string "the Battle Quest challenge?$"
BattleFrontier_BattlePyramidLobby_Text_AwaitFutureChallenge:
.string "We await your challenge in the future!$"
BattleFrontier_BattlePyramidLobby_Text_ExplainBattlePyramid:
.string "The Battle Quest is a battling\n"
.string "event in which you must explore\l"
.string "the PYRAMID and try to reach the top.\p"
.string "In the PYRAMID are seven floors of\n"
.string "mazes, all of them filled with not only\l"
.string "skilled TRAINERS but also wild POKéMON.\p"
.string "You must enter with three POKéMON,\n"
.string "none of them holding an item.\p"
.string "On your ascent, you will be provided\n"
.string "with a BATTLE BAG for items.\p"
.string "If you fail in your challenge, any item\n"
.string "placed in the BATTLE BAG disappears.\p"
.string "If you want to interrupt your\n"
.string "challenge, you must select “REST”\l"
.string "and save the game.\p"
.string "If you don't save before interrupting,\n"
.string "you will be disqualified.$"
BattleFrontier_BattlePyramidLobby_Text_WhichLevelMode:
.string "The PYRAMID offers two courses,\n"
.string "Level 50 and Open Level.\l"
.string "Which will you enter?$"
BattleFrontier_BattlePyramidLobby_Text_SelectThreeMons:
.string "Very good. Now, please select the three\n"
.string "POKéMON you wish to accompany you.$"
BattleFrontier_BattlePyramidLobby_Text_NotEnoughValidMonsLvOpen:
.string "A slight problem, adventurer!\p"
.string "You seem to not have the three\n"
.string "POKéMON qualified for the challenge.\p"
.string "Please also remember to take all\n"
.string "items from your POKéMON.\p"
.string "EGGS{STR_VAR_1} ineligible.\p"
.string "When you are ready, please have\n"
.string "a word with me.$"
BattleFrontier_BattlePyramidLobby_Text_NotEnoughValidMonsLv50:
.string "A slight problem, adventurer!\p"
.string "You seem to not have the three\n"
.string "POKéMON qualified for the challenge.\p"
.string "The three POKéMON must be different\n"
.string "and each no higher than Level 50.\p"
.string "Please also remember to take all\n"
.string "items from your POKéMON.\p"
.string "EGGS{STR_VAR_1} ineligible.\p"
.string "When you are ready, please have\n"
.string "a word with me.$"
BattleFrontier_BattlePyramidLobby_Text_OkayToSaveBeforeChallenge:
.string "Before you enter the BATTLE PYRAMID,\n"
.string "the game must be saved. Is that okay?$"
BattleFrontier_BattlePyramidLobby_Text_ShowYouIntoPyramid:
.string "Very good. I will now show you into\n"
.string "the BATTLE PYRAMID.$"
BattleFrontier_BattlePyramidLobby_Text_WeWillHoldBagForSafekeeping:
.string "We will hold your BAG for safekeeping,\n"
.string "{PLAYER}, while you are exploring.$"
BattleFrontier_BattlePyramidLobby_Text_PleaseTakePreviousBattleBag:
.string "In exchange, please take this BATTLE\n"
.string "BAG, the one you used previously.$"
BattleFrontier_BattlePyramidLobby_Text_PleaseTakeThisBattleBag:
.string "In exchange, please take this\n"
.string "BATTLE BAG.$"
BattleFrontier_BattlePyramidLobby_Text_ExchangedBagForBattleBag:
.string "{PLAYER} exchanged the BAG for\n"
.string "the BATTLE BAG.$"
BattleFrontier_BattlePyramidLobby_Text_StepOnFloorPanel:
.string "When you step on this floor panel,\n"
.string "you will be transported to a higher\l"
.string "floor in the PYRAMID.\p"
.string "I hope for your sake that your\n"
.string "quest goes safely!$"
BattleFrontier_BattlePyramidLobby_Text_DidntSaveBeforeQuittingTakeBag:
.string "A major problem, explorer!\p"
.string "You did not save before ending\n"
.string "your challenge the last time.\p"
.string "Consequently, your challenge has\n"
.string "been disqualified, I'm sorry to say.\p"
.string "Here is the BAG we've been holding\n"
.string "for you.\p"
.string "{PLAYER} got the BAG back.$"
BattleFrontier_BattlePyramidLobby_Text_YouveConqueredPyramid:
.string "Excellent to see you back!\p"
.string "You've conquered the PYRAMID!\n"
.string "How splendid!$"
BattleFrontier_BattlePyramidLobby_Text_MonHoldingItemCannotTake:
.string "Ah, a slight problem.\p"
.string "At least one POKéMON is holding\n"
.string "an item.\p"
.string "I'm sorry to say, items obtained in\n"
.string "the PYRAMID cannot be taken away.$"
BattleFrontier_BattlePyramidLobby_Text_HeldItemsMovedToBag:
.string "All items held by your POKéMON will be\n"
.string "moved to your BATTLE BAG, {PLAYER}.$"
BattleFrontier_BattlePyramidLobby_Text_BagCannotHoldPickItemsToKeep:
.string "The BATTLE BAG cannot hold all your\n"
.string "items, I'm sorry to say.\p"
.string "Please pick the items you'll keep in the\n"
.string "BATTLE BAG, and with your POKéMON.$"
BattleFrontier_BattlePyramidLobby_Text_LeastOneMonHoldingItem:
.string "At least one POKéMON is still\n"
.string "holding an item.$"
BattleFrontier_BattlePyramidLobby_Text_PickItemsToKeep:
.string "Please pick the items you'll keep in the\n"
.string "BATTLE BAG, and with your POKéMON.$"
@ Unused
BattleFrontier_BattlePyramidLobby_Text_ReturnedEverythingMonsHeld:
.string "{PLAYER} returned everything that\n"
.string "the POKéMON held.$"
BattleFrontier_BattlePyramidLobby_Text_UsedBattleBagWillBeKept:
.string "The BATTLE BAG you used will be kept\n"
.string "in readiness for your next challenge.\p"
.string "{PLAYER} turned the BATTLE BAG over\n"
.string "for the BAG's return.$"
BattleFrontier_BattlePyramidLobby_Text_RecordResultsWait:
.string "I must record your results.\n"
.string "Please wait.$"
@ Unused
BattleFrontier_BattlePyramidLobby_Text_ForConqueringPyramidTakeThis:
.string "As a memento for conquering\n"
.string "the BATTLE PYRAMID, please take this.$"
@ Unused
BattleFrontier_BattlePyramidLobby_Text_ReceivedPrizeItem:
.string "{PLAYER} received the prize\n"
.string "{STR_VAR_1}.$"
@ Unused
BattleFrontier_BattlePyramidLobby_Text_BagIsFull:
.string "…Ah…\n"
.string "Your BAG appears to be filled.\p"
.string "Please return after you've organized\n"
.string "your BAG's contents.$"
BattleFrontier_BattlePyramidLobby_Text_DisappointingHereIsBag:
.string "How disappointing for you…\p"
.string "Here is the BAG we've been holding\n"
.string "for you.\p"
.string "{PLAYER} got the BAG back.$"
BattleFrontier_BattlePyramidLobby_Text_LookForwardToNextChallenge:
.string "We look forward to your\n"
.string "next challenge!$"
@ Unused
BattleFrontier_BattlePyramidLobby_Text_HereIsPrize:
.string "We have been looking forward to\n"
.string "your arrival!\p"
.string "Here is your prize for conquering\n"
.string "the PYRAMID.$"
BattleFrontier_BattlePyramidLobby_Text_TellYouWhatMisfortunesAwait:
.string "Welcome…\p"
.string "I shall be pleased to tell you what\n"
.string "misfortunes await in the PYRAMID…$"
BattleFrontier_BattlePyramidLobby_Text_Aah:
.string "… … … … … …\n"
.string "… … … … … …\p"
.string "… … … … … …\n"
.string "Aah!$"
BattleFrontier_BattlePyramidLobby_Text_HintParalysis:
.string "I see a shower of sparks…\p"
.string "…And in it, I see your POKéMON\n"
.string "struggling with paralysis…$"
BattleFrontier_BattlePyramidLobby_Text_HintPoison:
.string "I see poison…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from the effects of poison…$"
BattleFrontier_BattlePyramidLobby_Text_HintBurn:
.string "I see bright red flames…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from burns…$"
BattleFrontier_BattlePyramidLobby_Text_HintPPWaste:
.string "I sense the tremendous pressure of\n"
.string "unrequited anger…\p"
.string "It is a curse…\p"
.string "…And, I see your POKéMON drained of\n"
.string "Power Points and having no recourse\l"
.string "but to use STRUGGLE…$"
BattleFrontier_BattlePyramidLobby_Text_HintLevitate:
.string "I see POKéMON loftily airborne…\p"
.string "…And, I see your POKéMON frustrated\n"
.string "by powerless GROUND-type moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintTrapAbility:
.string "I sense terrific energy rising from\n"
.string "the ground below…\p"
.string "…And, I see your POKéMON unable to\n"
.string "escape the power's clutches…$"
BattleFrontier_BattlePyramidLobby_Text_HintIce:
.string "I see ICE-type POKéMON…\p"
.string "…And, I see your POKéMON fighting\n"
.string "the freezing effects of ice…$"
BattleFrontier_BattlePyramidLobby_Text_HintExplosion:
.string "I see a flurry of moves that imperil\n"
.string "the user…\p"
.string "…And, I see your POKéMON falling\n"
.string "to them…$"
BattleFrontier_BattlePyramidLobby_Text_HintPsychic:
.string "I see PSYCHIC-type POKéMON…\p"
.string "…And, I see your POKéMON in torment\n"
.string "from PSYCHIC moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintRock:
.string "I see ROCK-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from ROCK moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintFighting:
.string "I see FIGHTING-type POKéMON…\p"
.string "…And, I see your POKéMON pummeled\n"
.string "by FIGHTING moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintWeather:
.string "RAIN DANCE… SUNNY DAY…\n"
.string "SANDSTORM… HAIL…\p"
.string "I see POKéMON that become stronger\n"
.string "with the weather…\p"
.string "…And, I see your POKéMON confounded\n"
.string "by different types of moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintBug:
.string "I see BUG-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from different kinds of attacks…$"
BattleFrontier_BattlePyramidLobby_Text_HintDark:
.string "I see DARK-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from DARK-type moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintWater:
.string "I see WATER-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from WATER-type moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintGhost:
.string "I see GHOST-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from GHOST-type moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintSteel:
.string "I see STEEL-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from enormously powerful moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintFlyingDragon:
.string "I see flying POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from enormously powerful moves…$"
BattleFrontier_BattlePyramidLobby_Text_HintStoneEvolve:
.string "I see those that have evolved from\n"
.string "the power of stones…\p"
.string "I also sense fire, water,\n"
.string "and electricity…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from those three powers…$"
BattleFrontier_BattlePyramidLobby_Text_HintNormal:
.string "I see NORMAL-type POKéMON…\p"
.string "…And, I see your POKéMON suffering\n"
.string "from enormously powerful moves…$"
BattleFrontier_BattlePyramidLobby_Text_BelieveMyFortunesOrNot:
.string "Whether you believe my fortunes\n"
.string "or not, the choice is yours…\p"
.string "The future can be changed anytime…\n"
.string "I wish you safe passage…$"
BattleFrontier_BattlePyramidLobby_Text_TrainersNoticeRunning:
.string "Did you know?\p"
.string "If you run fast, TRAINERS may notice\n"
.string "and come after you for a battle.\p"
.string "So, if you want to avoid TRAINERS,\n"
.string "don't catch their eyes, but sneak\l"
.string "cautiously and quietly past them.$"
BattleFrontier_BattlePyramidLobby_Text_LostLotOfItems:
.string "Awaaaaaaarrrrgh!\p"
.string "I had a whole lot of items, but I lost\n"
.string "them all when I lost!\p"
.string "Awaaaaaaarrrrgh!$"
BattleFrontier_BattlePyramidLobby_Text_YouveDefeatedPyramidKing:
.string "Welcome back!\n"
.string "You've done the unthinkable!\p"
.string "You've defeated the PYRAMID KING\n"
.string "and conquered the BATTLE PYRAMID!$"
BattleFrontier_BattlePyramidLobby_Text_GiveYouTheseBattlePoints:
.string "Young explorer!\n"
.string "In commendation of your courage,\l"
.string "we give you these Battle Point(s)!$"
BattleFrontier_BattlePyramidLobby_Text_RulesAreListed:
.string "The Battle Quest rules are listed.$"
BattleFrontier_BattlePyramidLobby_Text_ReadWhichHeading:
.string "Which heading do you want to read?$"
BattleFrontier_BattlePyramidLobby_Text_ExplainMonRules:
.string "When the PYRAMID is conquered,\n"
.string "the wild POKéMON that appear in it\l"
.string "are replaced by different kinds.\p"
.string "Explore, observe, and learn what kinds\n"
.string "of wild POKéMON you may encounter.$"
BattleFrontier_BattlePyramidLobby_Text_ExplainTrainerRules:
.string "TRAINERS are lying in wait for you\n"
.string "inside the PYRAMID.\p"
.string "On each floor, there are up to\n"
.string "eight TRAINERS.\p"
.string "When you defeat a TRAINER, you will\n"
.string "get a helpful hint for your adventure.$"
BattleFrontier_BattlePyramidLobby_Text_ExplainMazeRules:
.string "The mazes in the PYRAMID rearrange\n"
.string "themselves every time you enter it.\p"
.string "The mazes are poorly lit.\n"
.string "You must advance with caution.\p"
.string "The light grows brighter whenever you\n"
.string "defeat a wild POKéMON or a TRAINER.$"
BattleFrontier_BattlePyramidLobby_Text_ExplainBagRules:
.string "The BATTLE BAG serves as your BAG\n"
.string "while in the PYRAMID.\p"
.string "There are two separate BATTLE BAGS--\n"
.string "one each for the Level 50 and\l"
.string "Open Level adventures.\p"
.string "They each can hold up to 99 pieces\n"
.string "of ten kinds of items.\p"
.string "The contents of the BATTLE BAG are\n"
.string "lost if you fail in your quest.$"
View Git Blame Copy Permalink