tumbledemerald-legacy/data/maps/BattleFrontier_ScottsHouse/scripts.inc

350 lines
14 KiB
PHP

.set LOCALID_SCOTT, 1
BattleFrontier_ScottsHouse_MapScripts::
.byte 0
BattleFrontier_ScottsHouse_EventScript_Scott::
lock
faceplayer
goto_if_set FLAG_TEMP_4, BattleFrontier_ScottsHouse_EventScript_GivenBerry
goto_if_set FLAG_TEMP_3, BattleFrontier_ScottsHouse_EventScript_GivenShield
goto_if_set FLAG_TEMP_2, BattleFrontier_ScottsHouse_EventScript_GivenBattlePoints
goto BattleFrontier_ScottsHouse_EventScript_CheckGiveItems
end
BattleFrontier_ScottsHouse_EventScript_CheckGiveItems::
goto_if_unset FLAG_SCOTT_GIVES_BATTLE_POINTS, BattleFrontier_ScottsHouse_EventScript_WelcomeToFrontier
goto_if_unset FLAG_COLLECTED_ALL_SILVER_SYMBOLS, BattleFrontier_ScottsHouse_EventScript_CheckSilverSymbols
goto_if_unset FLAG_COLLECTED_ALL_GOLD_SYMBOLS, BattleFrontier_ScottsHouse_EventScript_CheckGoldSymbols
goto BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
end
BattleFrontier_ScottsHouse_EventScript_CheckGiveShield::
goto_if_unset FLAG_RECEIVED_SILVER_SHIELD, BattleFrontier_ScottsHouse_EventScript_CheckGiveSilverShield
goto_if_unset FLAG_RECEIVED_GOLD_SHIELD, BattleFrontier_ScottsHouse_EventScript_CheckGiveGoldShield
goto BattleFrontier_ScottsHouse_EventScript_RandomComment
end
BattleFrontier_ScottsHouse_EventScript_CheckSilverSymbols::
goto_if_unset FLAG_SYS_TOWER_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_DOME_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PALACE_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_ARENA_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_FACTORY_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PIKE_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PYRAMID_SILVER, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
msgbox BattleFrontier_ScottsHouse_Text_YouveCollectedAllSilverSymbols, MSGBOX_DEFAULT
giveitem ITEM_LANSAT_BERRY
goto_if_eq VAR_RESULT, FALSE, BattleFrontier_ScottsHouse_EventScript_BerryPocketFull
setflag FLAG_COLLECTED_ALL_SILVER_SYMBOLS
setflag FLAG_TEMP_4
release
end
BattleFrontier_ScottsHouse_EventScript_CheckGoldSymbols::
goto_if_unset FLAG_SYS_TOWER_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_DOME_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PALACE_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_ARENA_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_FACTORY_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PIKE_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
goto_if_unset FLAG_SYS_PYRAMID_GOLD, BattleFrontier_ScottsHouse_EventScript_CheckGiveShield
msgbox BattleFrontier_ScottsHouse_Text_YouveCollectedAllGoldSymbols, MSGBOX_DEFAULT
giveitem ITEM_STARF_BERRY
goto_if_eq VAR_RESULT, FALSE, BattleFrontier_ScottsHouse_EventScript_BerryPocketFull
setflag FLAG_COLLECTED_ALL_GOLD_SYMBOLS
setflag FLAG_TEMP_4
release
end
BattleFrontier_ScottsHouse_EventScript_BerryPocketFull::
msgbox BattleFrontier_ScottsHouse_Text_BerryPocketStuffed, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_GivenBerry::
msgbox BattleFrontier_ScottsHouse_Text_SoGladIBroughtYouHere, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_RandomComment::
random 3
goto_if_eq VAR_RESULT, 1, BattleFrontier_ScottsHouse_EventScript_FrontierBrainComment
goto_if_eq VAR_RESULT, 2, BattleFrontier_ScottsHouse_EventScript_ArtisanCaveComment
msgbox BattleFrontier_ScottsHouse_Text_WhyIGoSeekingTrainers, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_FrontierBrainComment::
msgbox BattleFrontier_ScottsHouse_Text_HaveYouMetFrontierBrain, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_ArtisanCaveComment::
msgbox BattleFrontier_ScottsHouse_Text_MayFindWildMonsInFrontier, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_CheckGiveSilverShield::
setvar VAR_FRONTIER_BATTLE_MODE, FRONTIER_MODE_SINGLES
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_50
tower_get TOWER_DATA_WIN_STREAK
goto_if_ge VAR_RESULT, 50, BattleFrontier_ScottsHouse_EventScript_GiveSilverShield
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_OPEN
tower_get TOWER_DATA_WIN_STREAK
goto_if_ge VAR_RESULT, 50, BattleFrontier_ScottsHouse_EventScript_GiveSilverShield
goto BattleFrontier_ScottsHouse_EventScript_RandomComment
end
BattleFrontier_ScottsHouse_EventScript_GiveSilverShield::
msgbox BattleFrontier_ScottsHouse_Text_Beat50TrainersInARow, MSGBOX_DEFAULT
givedecoration DECOR_SILVER_SHIELD
goto_if_eq VAR_RESULT, FALSE, BattleFrontier_ScottsHouse_EventScript_NoRoomForShield
setflag FLAG_RECEIVED_SILVER_SHIELD
setflag FLAG_TEMP_3
goto BattleFrontier_ScottsHouse_EventScript_GivenShield
end
BattleFrontier_ScottsHouse_EventScript_NoRoomForShield::
msgbox BattleFrontier_ScottsHouse_Text_ComeBackForThisLater, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_GivenShield::
msgbox BattleFrontier_ScottsHouse_Text_ExpectingToHearEvenGreaterThings, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_CheckGiveGoldShield::
setvar VAR_FRONTIER_BATTLE_MODE, FRONTIER_MODE_SINGLES
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_50
tower_get TOWER_DATA_WIN_STREAK
goto_if_ge VAR_RESULT, 100, BattleFrontier_ScottsHouse_EventScript_GiveGoldShield
frontier_set FRONTIER_DATA_LVL_MODE, FRONTIER_LVL_OPEN
tower_get TOWER_DATA_WIN_STREAK
goto_if_ge VAR_RESULT, 100, BattleFrontier_ScottsHouse_EventScript_GiveGoldShield
goto BattleFrontier_ScottsHouse_EventScript_RandomComment
end
BattleFrontier_ScottsHouse_EventScript_GiveGoldShield::
msgbox BattleFrontier_ScottsHouse_Text_Beat100TrainersInARow, MSGBOX_DEFAULT
givedecoration DECOR_GOLD_SHIELD
goto_if_eq VAR_RESULT, FALSE, BattleFrontier_ScottsHouse_EventScript_NoRoomForShield
setflag FLAG_RECEIVED_GOLD_SHIELD
setflag FLAG_TEMP_3
goto BattleFrontier_ScottsHouse_EventScript_GivenShield
end
BattleFrontier_ScottsHouse_EventScript_GivenBattlePoints::
msgbox BattleFrontier_ScottsHouse_Text_ExpectingGreatThings, MSGBOX_DEFAULT
release
end
BattleFrontier_ScottsHouse_EventScript_WelcomeToFrontier::
msgbox BattleFrontier_ScottsHouse_Text_WelcomeToBattleFrontier, MSGBOX_DEFAULT
closemessage
delay 30
call_if_eq VAR_FACING, DIR_NORTH, BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayNorth
call_if_eq VAR_FACING, DIR_SOUTH, BattleFrontier_ScottsHouse_EventScript_ScottFaceAwaySouth
call_if_eq VAR_FACING, DIR_EAST, BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayEast
call_if_eq VAR_FACING, DIR_WEST, BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayWest
msgbox BattleFrontier_ScottsHouse_Text_HowMuchEffortItTookToMakeReal, MSGBOX_DEFAULT
applymovement LOCALID_SCOTT, Common_Movement_FacePlayer
waitmovement 0
msgbox BattleFrontier_ScottsHouse_Text_HaveThisAsMementoOfOurPathsCrossing, MSGBOX_DEFAULT
goto_if_eq VAR_SCOTT_STATE, 13, BattleFrontier_ScottsHouse_EventScript_Give4BattlePoints
goto_if_ge VAR_SCOTT_STATE, 9, BattleFrontier_ScottsHouse_EventScript_Give3BattlePoints
goto_if_ge VAR_SCOTT_STATE, 6, BattleFrontier_ScottsHouse_EventScript_Give2BattlePoints
goto BattleFrontier_ScottsHouse_EventScript_Give1BattlePoint
end
BattleFrontier_ScottsHouse_EventScript_Give4BattlePoints::
buffernumberstring STR_VAR_1, 4
setvar VAR_0x8004, 4
goto BattleFrontier_ScottsHouse_EventScript_GiveBattlePoints
end
BattleFrontier_ScottsHouse_EventScript_Give3BattlePoints::
buffernumberstring STR_VAR_1, 3
setvar VAR_0x8004, 3
goto BattleFrontier_ScottsHouse_EventScript_GiveBattlePoints
end
BattleFrontier_ScottsHouse_EventScript_Give2BattlePoints::
buffernumberstring STR_VAR_1, 2
setvar VAR_0x8004, 2
goto BattleFrontier_ScottsHouse_EventScript_GiveBattlePoints
end
BattleFrontier_ScottsHouse_EventScript_Give1BattlePoint::
buffernumberstring STR_VAR_1, 1
setvar VAR_0x8004, 1
goto BattleFrontier_ScottsHouse_EventScript_GiveBattlePoints
end
BattleFrontier_ScottsHouse_EventScript_GiveBattlePoints::
special GiveFrontierBattlePoints
msgbox BattleFrontier_ScottsHouse_Text_ObtainedXBattlePoints, MSGBOX_GETPOINTS
msgbox BattleFrontier_ScottsHouse_Text_ExplainBattlePoints, MSGBOX_DEFAULT
setflag FLAG_SCOTT_GIVES_BATTLE_POINTS
setflag FLAG_TEMP_2
release
end
BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayNorth::
applymovement LOCALID_SCOTT, Common_Movement_WalkInPlaceFasterUp
waitmovement 0
return
BattleFrontier_ScottsHouse_EventScript_ScottFaceAwaySouth::
applymovement LOCALID_SCOTT, Common_Movement_WalkInPlaceFasterDown
waitmovement 0
return
BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayEast::
applymovement LOCALID_SCOTT, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
return
BattleFrontier_ScottsHouse_EventScript_ScottFaceAwayWest::
applymovement LOCALID_SCOTT, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
BattleFrontier_ScottsHouse_Text_WelcomeToBattleFrontier:
.string "Scott: Well, hello and welcome!\n"
.string "Heheh… Sorry about the cramped space.\p"
.string "Anyway, {PLAYER}{KUN}, let me formally\n"
.string "welcome you to the Battle Frontier.\p"
.string "This is my dream come true.\n"
.string "It took me years and years, but I've\l"
.string "finally given shape to my dream.$"
BattleFrontier_ScottsHouse_Text_HowMuchEffortItTookToMakeReal:
.string "On reflection, it was a terribly long\n"
.string "journey…\p"
.string "I left home alone on a quest to find\n"
.string "strong Trainers.\p"
.string "No one can imagine how much effort\n"
.string "or time it took to make this real.$"
BattleFrontier_ScottsHouse_Text_HaveThisAsMementoOfOurPathsCrossing:
.string "But that's all in the past.\n"
.string "No point dwelling on that!\p"
.string "All I want for you is to enjoy battling\n"
.string "to your heart's content here.\p"
.string "{PLAYER}{KUN}, I want you to have this\n"
.string "as a memento for all the time our\l"
.string "paths crossed on our journeys.$"
BattleFrontier_ScottsHouse_Text_ObtainedXBattlePoints:
.string "{PLAYER} obtained\n"
.string "{STR_VAR_1} Battle Point(s).$"
BattleFrontier_ScottsHouse_Text_ExplainBattlePoints:
.string "Scott: You can check your Battle\n"
.string "Points on your Frontier Pass.\p"
.string "The more success you have here at\n"
.string "the Battle Frontier, the more Battle\l"
.string "Points you will collect.\p"
.string "Use your Battle Points the way you\n"
.string "see fit, like trading them for items.$"
BattleFrontier_ScottsHouse_Text_ExpectingGreatThings:
.string "I'm expecting great things from you!$"
BattleFrontier_ScottsHouse_Text_WhyIGoSeekingTrainers:
.string "Scott: Every Trainer is an individual.\n"
.string "They all lead lives of their own.\p"
.string "But when they're in a battle,\n"
.string "it doesn't matter who they are.\p"
.string "They're all the same!\p"
.string "I love the purity of battle,\n"
.string "where everyone is equal.\p"
.string "That's why I go everywhere seeking\n"
.string "Trainers who are serious about\l"
.string "battling, and invite them here.$"
BattleFrontier_ScottsHouse_Text_HaveYouMetFrontierBrain:
.string "Scott: Have you met any of\n"
.string "the Frontier Brains?\p"
.string "Better yet, have you obtained any\n"
.string "symbols from them?\p"
.string "I handpicked the Frontier Brains\n"
.string "as the toughest Trainers anywhere.\p"
.string "But I'm sure that seeing how tough\n"
.string "you are will startle even them!$"
BattleFrontier_ScottsHouse_Text_MayFindWildMonsInFrontier:
.string "Scott: You don't just train for battle,\n"
.string "right?\p"
.string "I think I remember you working on\n"
.string "a Pokédex as well.\p"
.string "Well, guess what?\p"
.string "You may run into wild Pokémon in\n"
.string "the Battle Frontier somewhere…\l"
.string "Fufufu!$"
BattleFrontier_ScottsHouse_Text_YouveCollectedAllSilverSymbols:
.string "Scott: Are you enjoying things in\n"
.string "the Battle Frontier?\p"
.string "…Wait a second…\n"
.string "Oh!\p"
.string "Your Frontier Pass!\n"
.string "You've collected the full set\l"
.string "of silver symbols!\p"
.string "That's more than impressive!\n"
.string "You are tough, just as I suspected!\p"
.string "Normally, I wouldn't do something\n"
.string "like this, but this is a special time!\p"
.string "I want you to have this.\n"
.string "I'm sure you can put it to proper use.$"
BattleFrontier_ScottsHouse_Text_YouveCollectedAllGoldSymbols:
.string "Scott: I hope you're enjoying\n"
.string "everything in the Battle Frontier.\p"
.string "…Wait a second…\n"
.string "Oh, my disbelieving eyes!\p"
.string "Your Frontier Pass!\n"
.string "You've gathered up the full set\l"
.string "of gold symbols!\p"
.string "That's more than stupendous!\n"
.string "You're incredible, just as I suspected!\p"
.string "… … … … … …\p"
.string "{PLAYER}, you've got to accept this!\p"
.string "I think you will be able to\n"
.string "appreciate the value of my gift!$"
BattleFrontier_ScottsHouse_Text_SoGladIBroughtYouHere:
.string "I must say I have the gift of knowing\n"
.string "a good Trainer when I see one.\p"
.string "I'm so glad I had the foresight to\n"
.string "bring you here!$"
BattleFrontier_ScottsHouse_Text_BerryPocketStuffed:
.string "Your Berry Pocket seems to\n"
.string "be stuffed.$"
BattleFrontier_ScottsHouse_Text_Beat50TrainersInARow:
.string "Scott: Oh, I heard about you!\n"
.string "How you ruled the Battle Tower!\l"
.string "You beat over 50 Trainers in a row?\p"
.string "That's fantastic!\n"
.string "I want you to have this!$"
BattleFrontier_ScottsHouse_Text_Beat100TrainersInARow:
.string "Scott: Oh, my! I heard about you!\n"
.string "How you overwhelmed the Battle Tower!\l"
.string "You beat over 100 Trainers in a row?\p"
.string "That's ridiculously spectacular!\n"
.string "You've got to have this!$"
BattleFrontier_ScottsHouse_Text_ExpectingToHearEvenGreaterThings:
.string "I'll be expecting to hear even greater\n"
.string "things about you now!$"
BattleFrontier_ScottsHouse_Text_ComeBackForThisLater:
.string "Oops, well, if you have too much\n"
.string "stuff, come back for this later.$"