import from github

This commit is contained in:
2022-05-19 17:14:13 +00:00
parent 5247c34f50
commit ab32b30591
12612 changed files with 1905035 additions and 83 deletions

View File

@ -0,0 +1,425 @@
AbnormalWeather_EventScript_PlaceTilesRoute114North::
setmetatile 7, 3, METATILE_Fallarbor_RedCaveEntrance_Top, TRUE
setmetatile 7, 4, METATILE_Fallarbor_RedCaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute114South::
setmetatile 6, 45, METATILE_Fallarbor_BrownCaveEntrance_Top, TRUE
setmetatile 6, 46, METATILE_Fallarbor_BrownCaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute115West::
setmetatile 21, 5, METATILE_Fallarbor_BrownCaveEntrance_Top, TRUE
setmetatile 21, 6, METATILE_Fallarbor_BrownCaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute115East::
setmetatile 36, 9, METATILE_Fallarbor_BrownCaveEntrance_Top, TRUE
setmetatile 36, 10, METATILE_Fallarbor_BrownCaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute116North::
setmetatile 59, 12, METATILE_General_CaveEntrance_Top, TRUE
setmetatile 59, 13, METATILE_General_CaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute116South::
setmetatile 79, 5, METATILE_General_CaveEntrance_Top, TRUE
setmetatile 79, 6, METATILE_General_CaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute118East::
setmetatile 42, 5, METATILE_General_CaveEntrance_Top, TRUE
setmetatile 42, 6, METATILE_General_CaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute118West::
setmetatile 9, 5, METATILE_General_CaveEntrance_Top, TRUE
setmetatile 9, 6, METATILE_General_CaveEntrance_Bottom, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute105North::
setmetatile 10, 28, METATILE_General_RoughWater, FALSE
setmetatile 11, 28, METATILE_General_RoughWater, FALSE
setmetatile 9, 29, METATILE_General_RoughWater, FALSE
setmetatile 10, 29, METATILE_General_RoughDeepWater, FALSE
setmetatile 11, 29, METATILE_General_RoughDeepWater, FALSE
setmetatile 12, 29, METATILE_General_RoughWater, FALSE
setmetatile 9, 30, METATILE_General_RoughWater, FALSE
setmetatile 10, 30, METATILE_General_RoughDeepWater, FALSE
setmetatile 11, 30, METATILE_General_RoughDeepWater, FALSE
setmetatile 12, 30, METATILE_General_RoughWater, FALSE
setmetatile 10, 31, METATILE_General_RoughWater, FALSE
setmetatile 11, 31, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute105South::
setmetatile 20, 53, METATILE_General_RoughWater, FALSE
setmetatile 21, 53, METATILE_General_RoughWater, FALSE
setmetatile 19, 54, METATILE_General_RoughWater, FALSE
setmetatile 20, 54, METATILE_General_RoughDeepWater, FALSE
setmetatile 21, 54, METATILE_General_RoughDeepWater, FALSE
setmetatile 22, 54, METATILE_General_RoughWater, FALSE
setmetatile 19, 55, METATILE_General_RoughWater, FALSE
setmetatile 20, 55, METATILE_General_RoughDeepWater, FALSE
setmetatile 21, 55, METATILE_General_RoughDeepWater, FALSE
setmetatile 22, 55, METATILE_General_RoughWater, FALSE
setmetatile 20, 56, METATILE_General_RoughWater, FALSE
setmetatile 21, 56, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute125West::
setmetatile 8, 16, METATILE_General_RoughWater, FALSE
setmetatile 9, 16, METATILE_General_RoughWater, FALSE
setmetatile 7, 17, METATILE_General_RoughWater, FALSE
setmetatile 8, 17, METATILE_General_RoughDeepWater, FALSE
setmetatile 9, 17, METATILE_General_RoughDeepWater, FALSE
setmetatile 10, 17, METATILE_General_RoughWater, FALSE
setmetatile 7, 18, METATILE_General_RoughWater, FALSE
setmetatile 8, 18, METATILE_General_RoughDeepWater, FALSE
setmetatile 9, 18, METATILE_General_RoughDeepWater, FALSE
setmetatile 10, 18, METATILE_General_RoughWater, FALSE
setmetatile 8, 19, METATILE_General_RoughWater, FALSE
setmetatile 9, 19, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute125East::
setmetatile 53, 18, METATILE_General_RoughWater, FALSE
setmetatile 54, 18, METATILE_General_RoughWater, FALSE
setmetatile 52, 19, METATILE_General_RoughWater, FALSE
setmetatile 53, 19, METATILE_General_RoughDeepWater, FALSE
setmetatile 54, 19, METATILE_General_RoughDeepWater, FALSE
setmetatile 55, 19, METATILE_General_RoughWater, FALSE
setmetatile 52, 20, METATILE_General_RoughWater, FALSE
setmetatile 53, 20, METATILE_General_RoughDeepWater, FALSE
setmetatile 54, 20, METATILE_General_RoughDeepWater, FALSE
setmetatile 55, 20, METATILE_General_RoughWater, FALSE
setmetatile 53, 21, METATILE_General_RoughWater, FALSE
setmetatile 54, 21, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute127North::
setmetatile 57, 9, METATILE_General_RoughWater, FALSE
setmetatile 58, 9, METATILE_General_RoughWater, FALSE
setmetatile 56, 10, METATILE_General_RoughWater, FALSE
setmetatile 57, 10, METATILE_General_RoughDeepWater, FALSE
setmetatile 58, 10, METATILE_General_RoughDeepWater, FALSE
setmetatile 59, 10, METATILE_General_RoughWater, FALSE
setmetatile 56, 11, METATILE_General_RoughWater, FALSE
setmetatile 57, 11, METATILE_General_RoughDeepWater, FALSE
setmetatile 58, 11, METATILE_General_RoughDeepWater, FALSE
setmetatile 59, 11, METATILE_General_RoughWater, FALSE
setmetatile 57, 12, METATILE_General_RoughWater, FALSE
setmetatile 58, 12, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute127South::
setmetatile 61, 30, METATILE_General_RoughWater, FALSE
setmetatile 62, 30, METATILE_General_RoughWater, FALSE
setmetatile 60, 31, METATILE_General_RoughWater, FALSE
setmetatile 61, 31, METATILE_General_RoughDeepWater, FALSE
setmetatile 62, 31, METATILE_General_RoughDeepWater, FALSE
setmetatile 63, 31, METATILE_General_RoughWater, FALSE
setmetatile 60, 32, METATILE_General_RoughWater, FALSE
setmetatile 61, 32, METATILE_General_RoughDeepWater, FALSE
setmetatile 62, 32, METATILE_General_RoughDeepWater, FALSE
setmetatile 63, 32, METATILE_General_RoughWater, FALSE
setmetatile 61, 33, METATILE_General_RoughWater, FALSE
setmetatile 62, 33, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute129West::
setmetatile 16, 14, METATILE_General_RoughWater, FALSE
setmetatile 17, 14, METATILE_General_RoughWater, FALSE
setmetatile 15, 15, METATILE_General_RoughWater, FALSE
setmetatile 16, 15, METATILE_General_RoughDeepWater, FALSE
setmetatile 17, 15, METATILE_General_RoughDeepWater, FALSE
setmetatile 18, 15, METATILE_General_RoughWater, FALSE
setmetatile 15, 16, METATILE_General_RoughWater, FALSE
setmetatile 16, 16, METATILE_General_RoughDeepWater, FALSE
setmetatile 17, 16, METATILE_General_RoughDeepWater, FALSE
setmetatile 18, 16, METATILE_General_RoughWater, FALSE
setmetatile 16, 17, METATILE_General_RoughWater, FALSE
setmetatile 17, 17, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_PlaceTilesRoute129East::
setmetatile 42, 19, METATILE_General_RoughWater, FALSE
setmetatile 43, 19, METATILE_General_RoughWater, FALSE
setmetatile 41, 20, METATILE_General_RoughWater, FALSE
setmetatile 42, 20, METATILE_General_RoughDeepWater, FALSE
setmetatile 43, 20, METATILE_General_RoughDeepWater, FALSE
setmetatile 44, 20, METATILE_General_RoughWater, FALSE
setmetatile 41, 21, METATILE_General_RoughWater, FALSE
setmetatile 42, 21, METATILE_General_RoughDeepWater, FALSE
setmetatile 43, 21, METATILE_General_RoughDeepWater, FALSE
setmetatile 44, 21, METATILE_General_RoughWater, FALSE
setmetatile 42, 22, METATILE_General_RoughWater, FALSE
setmetatile 43, 22, METATILE_General_RoughWater, FALSE
return
AbnormalWeather_EventScript_HideMapNamePopup::
setflag FLAG_HIDE_MAP_NAME_POPUP
return
AbnormalWeather_StartKyogreWeather::
setweather WEATHER_DOWNPOUR
return
AbnormalWeather_StartGroudonWeather::
setweather WEATHER_DROUGHT
return
AbnormalWeather_EventScript_EndEventAndCleanup_1::
lockall
goto_if_ge VAR_ABNORMAL_WEATHER_LOCATION, MARINE_CAVE_LOCATIONS_START, AbnormalWeather_EventScript_ShowRainEndedMessage
goto AbnormalWeather_EventScript_ShowSunEndedMessage
end
AbnormalWeather_EventScript_EndEventAndCleanup_2::
closemessage
fadescreenswapbuffers FADE_TO_BLACK
setweather WEATHER_SUNNY
doweather
call AbnormalWeather_EventScript_CleanupMapTiles
special DrawWholeMapView
setvar VAR_ABNORMAL_WEATHER_LOCATION, ABNORMAL_WEATHER_NONE
setvar VAR_SHOULD_END_ABNORMAL_WEATHER, 0
clearflag FLAG_HIDE_MAP_NAME_POPUP
fadescreenswapbuffers FADE_FROM_BLACK
releaseall
end
AbnormalWeather_EventScript_ShowRainEndedMessage::
msgbox gText_AbnormalWeatherEnded_Rain, MSGBOX_DEFAULT
goto AbnormalWeather_EventScript_EndEventAndCleanup_2
end
AbnormalWeather_EventScript_ShowSunEndedMessage::
msgbox gText_AbnormalWeatherEnded_Sun, MSGBOX_DEFAULT
goto AbnormalWeather_EventScript_EndEventAndCleanup_2
end
AbnormalWeather_EventScript_CleanupMapTiles::
switch VAR_ABNORMAL_WEATHER_LOCATION
case ABNORMAL_WEATHER_ROUTE_114_NORTH, AbnormalWeather_EventScript_CleanupRoute114North
case ABNORMAL_WEATHER_ROUTE_114_SOUTH, AbnormalWeather_EventScript_CleanupRoute114South
case ABNORMAL_WEATHER_ROUTE_115_WEST, AbnormalWeather_EventScript_CleanupRoute115West
case ABNORMAL_WEATHER_ROUTE_115_EAST, AbnormalWeather_EventScript_CleanupRoute115East
case ABNORMAL_WEATHER_ROUTE_116_NORTH, AbnormalWeather_EventScript_CleanupRoute116North
case ABNORMAL_WEATHER_ROUTE_116_SOUTH, AbnormalWeather_EventScript_CleanupRoute116South
case ABNORMAL_WEATHER_ROUTE_118_EAST, AbnormalWeather_EventScript_CleanupRoute118East
case ABNORMAL_WEATHER_ROUTE_118_WEST, AbnormalWeather_EventScript_CleanupRoute118West
case ABNORMAL_WEATHER_ROUTE_105_NORTH, AbnormalWeather_EventScript_CleanupRoute105North
case ABNORMAL_WEATHER_ROUTE_105_SOUTH, AbnormalWeather_EventScript_CleanupRoute105South
case ABNORMAL_WEATHER_ROUTE_125_WEST, AbnormalWeather_EventScript_CleanupRoute125West
case ABNORMAL_WEATHER_ROUTE_125_EAST, AbnormalWeather_EventScript_CleanupRoute125East
case ABNORMAL_WEATHER_ROUTE_127_NORTH, AbnormalWeather_EventScript_CleanupRoute127North
case ABNORMAL_WEATHER_ROUTE_127_SOUTH, AbnormalWeather_EventScript_CleanupRoute127South
case ABNORMAL_WEATHER_ROUTE_129_WEST, AbnormalWeather_EventScript_CleanupRoute129West
case ABNORMAL_WEATHER_ROUTE_129_EAST, AbnormalWeather_EventScript_CleanupRoute129East
return
AbnormalWeather_EventScript_CleanupRoute114North::
setmetatile 7, 3, METATILE_Fallarbor_RedRockWall, TRUE
setmetatile 7, 4, METATILE_Fallarbor_RedRockWall, TRUE
return
AbnormalWeather_EventScript_CleanupRoute114South::
setmetatile 6, 45, METATILE_Fallarbor_BrownRockWall, TRUE
setmetatile 6, 46, METATILE_Fallarbor_BrownRockWall, TRUE
return
AbnormalWeather_EventScript_CleanupRoute115West::
setmetatile 21, 5, METATILE_Fallarbor_BrownRockWall, TRUE
setmetatile 21, 6, METATILE_Fallarbor_BrownRockWall, TRUE
return
AbnormalWeather_EventScript_CleanupRoute115East::
setmetatile 36, 9, METATILE_Fallarbor_BrownRockWall, TRUE
setmetatile 36, 10, METATILE_Fallarbor_BrownRockWall, TRUE
return
AbnormalWeather_EventScript_CleanupRoute116North::
setmetatile 59, 12, METATILE_General_RockWall_RockBase, TRUE
setmetatile 59, 13, METATILE_General_RockWall_RockBase, TRUE
return
AbnormalWeather_EventScript_CleanupRoute116South::
setmetatile 79, 5, METATILE_General_RockWall_RockBase, TRUE
setmetatile 79, 6, METATILE_General_RockWall_RockBase, TRUE
return
AbnormalWeather_EventScript_CleanupRoute118East::
setmetatile 42, 5, METATILE_General_RockWall_RockBase, TRUE
setmetatile 42, 6, METATILE_General_RockWall_GrassBase, TRUE
return
AbnormalWeather_EventScript_CleanupRoute118West::
setmetatile 9, 5, METATILE_General_RockWall_RockBase, TRUE
setmetatile 9, 6, METATILE_General_RockWall_GrassBase, TRUE
return
AbnormalWeather_EventScript_CleanupRoute105North::
setmetatile 10, 28, METATILE_General_CalmWater, FALSE
setmetatile 11, 28, METATILE_General_CalmWater, FALSE
setmetatile 9, 29, METATILE_General_CalmWater, FALSE
setmetatile 10, 29, METATILE_General_CalmWater, FALSE
setmetatile 11, 29, METATILE_General_CalmWater, FALSE
setmetatile 12, 29, METATILE_General_CalmWater, FALSE
setmetatile 9, 30, METATILE_General_CalmWater, FALSE
setmetatile 10, 30, METATILE_General_CalmWater, FALSE
setmetatile 11, 30, METATILE_General_CalmWater, FALSE
setmetatile 12, 30, METATILE_General_CalmWater, FALSE
setmetatile 10, 31, METATILE_General_CalmWater, FALSE
setmetatile 11, 31, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute105South::
setmetatile 20, 53, METATILE_General_CalmWater, FALSE
setmetatile 21, 53, METATILE_General_CalmWater, FALSE
setmetatile 19, 54, METATILE_General_CalmWater, FALSE
setmetatile 20, 54, METATILE_General_CalmWater, FALSE
setmetatile 21, 54, METATILE_General_CalmWater, FALSE
setmetatile 22, 54, METATILE_General_CalmWater, FALSE
setmetatile 19, 55, METATILE_General_CalmWater, FALSE
setmetatile 20, 55, METATILE_General_CalmWater, FALSE
setmetatile 21, 55, METATILE_General_CalmWater, FALSE
setmetatile 22, 55, METATILE_General_CalmWater, FALSE
setmetatile 20, 56, METATILE_General_CalmWater, FALSE
setmetatile 21, 56, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute125West::
setmetatile 8, 16, METATILE_General_CalmWater, FALSE
setmetatile 9, 16, METATILE_General_CalmWater, FALSE
setmetatile 7, 17, METATILE_General_CalmWater, FALSE
setmetatile 8, 17, METATILE_General_CalmWater, FALSE
setmetatile 9, 17, METATILE_General_CalmWater, FALSE
setmetatile 10, 17, METATILE_General_CalmWater, FALSE
setmetatile 7, 18, METATILE_General_CalmWater, FALSE
setmetatile 8, 18, METATILE_General_CalmWater, FALSE
setmetatile 9, 18, METATILE_General_CalmWater, FALSE
setmetatile 10, 18, METATILE_General_CalmWater, FALSE
setmetatile 8, 19, METATILE_General_CalmWater, FALSE
setmetatile 9, 19, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute125East::
setmetatile 53, 18, METATILE_General_CalmWater, FALSE
setmetatile 54, 18, METATILE_General_CalmWater, FALSE
setmetatile 52, 19, METATILE_General_CalmWater, FALSE
setmetatile 53, 19, METATILE_General_CalmWater, FALSE
setmetatile 54, 19, METATILE_General_CalmWater, FALSE
setmetatile 55, 19, METATILE_General_CalmWater, FALSE
setmetatile 52, 20, METATILE_General_CalmWater, FALSE
setmetatile 53, 20, METATILE_General_CalmWater, FALSE
setmetatile 54, 20, METATILE_General_CalmWater, FALSE
setmetatile 55, 20, METATILE_General_CalmWater, FALSE
setmetatile 53, 21, METATILE_General_CalmWater, FALSE
setmetatile 54, 21, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute127North::
setmetatile 57, 9, METATILE_General_CalmWater, FALSE
setmetatile 58, 9, METATILE_General_CalmWater, FALSE
setmetatile 56, 10, METATILE_General_CalmWater, FALSE
setmetatile 57, 10, METATILE_General_CalmWater, FALSE
setmetatile 58, 10, METATILE_General_CalmWater, FALSE
setmetatile 59, 10, METATILE_General_CalmWater, FALSE
setmetatile 56, 11, METATILE_General_CalmWater, FALSE
setmetatile 57, 11, METATILE_General_CalmWater, FALSE
setmetatile 58, 11, METATILE_General_CalmWater, FALSE
setmetatile 59, 11, METATILE_General_CalmWater, FALSE
setmetatile 57, 12, METATILE_General_CalmWater, FALSE
setmetatile 58, 12, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute127South::
setmetatile 61, 30, METATILE_General_CalmWater, FALSE
setmetatile 62, 30, METATILE_General_CalmWater, FALSE
setmetatile 60, 31, METATILE_General_CalmWater, FALSE
setmetatile 61, 31, METATILE_General_CalmWater, FALSE
setmetatile 62, 31, METATILE_General_CalmWater, FALSE
setmetatile 63, 31, METATILE_General_CalmWater, FALSE
setmetatile 60, 32, METATILE_General_CalmWater, FALSE
setmetatile 61, 32, METATILE_General_CalmWater, FALSE
setmetatile 62, 32, METATILE_General_CalmWater, FALSE
setmetatile 63, 32, METATILE_General_CalmWater, FALSE
setmetatile 61, 33, METATILE_General_CalmWater, FALSE
setmetatile 62, 33, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute129West::
setmetatile 16, 14, METATILE_General_CalmWater, FALSE
setmetatile 17, 14, METATILE_General_CalmWater, FALSE
setmetatile 15, 15, METATILE_General_CalmWater, FALSE
setmetatile 16, 15, METATILE_General_CalmWater, FALSE
setmetatile 17, 15, METATILE_General_CalmWater, FALSE
setmetatile 18, 15, METATILE_General_CalmWater, FALSE
setmetatile 15, 16, METATILE_General_CalmWater, FALSE
setmetatile 16, 16, METATILE_General_CalmWater, FALSE
setmetatile 17, 16, METATILE_General_CalmWater, FALSE
setmetatile 18, 16, METATILE_General_CalmWater, FALSE
setmetatile 16, 17, METATILE_General_CalmWater, FALSE
setmetatile 17, 17, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_EventScript_CleanupRoute129East::
setmetatile 42, 19, METATILE_General_CalmWater, FALSE
setmetatile 43, 19, METATILE_General_CalmWater, FALSE
setmetatile 41, 20, METATILE_General_CalmWater, FALSE
setmetatile 42, 20, METATILE_General_CalmWater, FALSE
setmetatile 43, 20, METATILE_General_CalmWater, FALSE
setmetatile 44, 20, METATILE_General_CalmWater, FALSE
setmetatile 41, 21, METATILE_General_CalmWater, FALSE
setmetatile 42, 21, METATILE_General_CalmWater, FALSE
setmetatile 43, 21, METATILE_General_CalmWater, FALSE
setmetatile 44, 21, METATILE_General_CalmWater, FALSE
setmetatile 42, 22, METATILE_General_CalmWater, FALSE
setmetatile 43, 22, METATILE_General_CalmWater, FALSE
return
AbnormalWeather_Underwater_SetupEscapeWarp::
switch VAR_ABNORMAL_WEATHER_LOCATION
case ABNORMAL_WEATHER_ROUTE_105_NORTH, AbnormalWeather_Underwater_SetupEscapeWarpRoute105North
case ABNORMAL_WEATHER_ROUTE_105_SOUTH, AbnormalWeather_Underwater_SetupEscapeWarpRoute105South
case ABNORMAL_WEATHER_ROUTE_125_WEST, AbnormalWeather_Underwater_SetupEscapeWarpRoute125West
case ABNORMAL_WEATHER_ROUTE_125_EAST, AbnormalWeather_Underwater_SetupEscapeWarpRoute125East
case ABNORMAL_WEATHER_ROUTE_127_NORTH, AbnormalWeather_Underwater_SetupEscapeWarpRoute127North
case ABNORMAL_WEATHER_ROUTE_127_SOUTH, AbnormalWeather_Underwater_SetupEscapeWarpRoute127South
case ABNORMAL_WEATHER_ROUTE_129_WEST, AbnormalWeather_Underwater_SetupEscapeWarpRoute129West
case ABNORMAL_WEATHER_ROUTE_129_EAST, AbnormalWeather_Underwater_SetupEscapeWarpRoute129East
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute105North::
setescapewarp MAP_ROUTE105, 11, 29
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute105South::
setescapewarp MAP_ROUTE105, 21, 54
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute125West::
setescapewarp MAP_ROUTE125, 9, 17
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute125East::
setescapewarp MAP_ROUTE125, 54, 19
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute127North::
setescapewarp MAP_ROUTE127, 58, 10
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute127South::
setescapewarp MAP_ROUTE127, 62, 31
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute129West::
setescapewarp MAP_ROUTE129, 17, 15
return
AbnormalWeather_Underwater_SetupEscapeWarpRoute129East::
setescapewarp MAP_ROUTE129, 43, 20
return

249
data/scripts/apprentice.inc Normal file
View File

@ -0,0 +1,249 @@
.set LOCALID_APPRENTICE, 6
BattleFrontier_BattleTowerLobby_EventScript_Apprentice::
lock
faceplayer
apprentice_gavelvlmode
goto_if_eq VAR_RESULT, FALSE, Apprentice_EventScript_FirstMeeting
apprentice_shouldcheckgone
goto_if_eq VAR_0x8004, FALSE, Apprentice_EventScript_AskQuestion @ VAR_0x8004 always TRUE here
goto_if_set FLAG_DAILY_APPRENTICE_LEAVES, Apprentice_EventScript_Gone
Apprentice_EventScript_AskQuestion:
apprentice_getquestion
goto_if_eq VAR_RESULT, APPRENTICE_QUESTION_WHICH_MON, Apprentice_EventScript_UseWhichMon
goto_if_eq VAR_RESULT, APPRENTICE_QUESTION_WHAT_ITEM, Apprentice_EventScript_UseWhatHeldItem
goto_if_eq VAR_RESULT, APPRENTICE_QUESTION_WHICH_MOVE, Apprentice_EventScript_UseWhichMove
goto_if_eq VAR_RESULT, APPRENTICE_QUESTION_WHICH_FIRST, Apprentice_EventScript_PutWhichMonFirst
goto_if_eq VAR_RESULT, APPRENTICE_QUESTION_WIN_SPEECH, Apprentice_EventScript_PickWinSpeech
release
releaseall
end
Apprentice_EventScript_FirstMeeting:
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_NAME
apprentice_msg FALSE, APPRENTICE_MSG_PLEASE_TEACH
Apprentice_EventScript_WhichLvlMode:
apprentice_menu APPRENTICE_ASK_YES_NO
goto_if_eq VAR_RESULT, 1, Apprentice_EventScript_RejectTeach
apprentice_msg FALSE, APPRENTICE_MSG_WHICH_LVL_MODE
apprentice_menu APPRENTICE_ASK_WHICH_LEVEL
apprentice_setlvlmode VAR_RESULT
apprentice_shufflespecies
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_LEVEL
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_LVL_MODE
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
@ Its impossible to fully reject an Apprentice, they just keep asking for you to teach them
Apprentice_EventScript_RejectTeach:
apprentice_msg FALSE, APPRENTICE_MSG_REJECT
goto Apprentice_EventScript_WhichLvlMode
Apprentice_EventScript_UseWhichMon:
apprentice_initquestion APPRENTICE_QUESTION_WHICH_MON
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_SPECIES1
apprentice_buff STR_VAR_2, APPRENTICE_BUFF_SPECIES2
apprentice_msg FALSE, APPRENTICE_MSG_WHICH_MON
apprentice_menu APPRENTICE_ASK_2SPECIES
copyvar VAR_0x8005, VAR_RESULT
call_if_eq VAR_0x8005, 0, Apprentice_EventScript_ChoseFirstMon
call_if_eq VAR_0x8005, 1, Apprentice_EventScript_ChoseSecondMon
apprentice_getnumpartymons
apprentice_setpartymon VAR_RESULT
apprentice_answeredquestion
apprentice_getnumpartymons
call_if_eq VAR_RESULT, MULTI_PARTY_SIZE, Apprentice_EventScript_LastMonSelected
apprentice_buff STR_VAR_1, VAR_0x8007
apprentice_freequestion
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_MON
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
Apprentice_EventScript_ChoseFirstMon:
setvar VAR_0x8007, APPRENTICE_BUFF_SPECIES1
return
Apprentice_EventScript_ChoseSecondMon:
setvar VAR_0x8007, APPRENTICE_BUFF_SPECIES2
return
Apprentice_EventScript_LastMonSelected:
apprentice_randomizequestions
return
Apprentice_EventScript_UseWhatHeldItem:
apprentice_initquestion APPRENTICE_QUESTION_WHAT_ITEM
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_SPECIES3
apprentice_msg TRUE, APPRENTICE_MSG_WHAT_HELD_ITEM
apprentice_freequestion
Apprentice_EventScript_ChooseHoldItem:
fadescreen FADE_TO_BLACK
setvar VAR_RESULT, 0
apprentice_openbag
goto_if_eq VAR_RESULT, FALSE, Apprentice_EventScript_ConfirmHoldNothing
apprentice_trysetitem
goto_if_eq VAR_RESULT, FALSE, Apprentice_EventScript_AlreadySuggestedItem
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_ITEM
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_HELD_ITEM
apprentice_answeredquestion
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
Apprentice_EventScript_ConfirmHoldNothing:
apprentice_initquestion APPRENTICE_QUESTION_WHAT_ITEM
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_SPECIES3
apprentice_msg FALSE, APPRENTICE_MSG_HOLD_NOTHING
apprentice_menu APPRENTICE_ASK_GIVE
apprentice_freequestion
goto_if_eq VAR_RESULT, 0, Apprentice_EventScript_ChooseHoldItem
Apprentice_EventScript_HoldNothing:
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_NO_HELD_ITEM
apprentice_answeredquestion
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
@ Because Battle Tower mons may not hold the same item, the player must suggest a
@ different item if theyve already told the Apprentice to use it for another mon
Apprentice_EventScript_AlreadySuggestedItem:
apprentice_initquestion APPRENTICE_QUESTION_WHAT_ITEM
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_ITEM
apprentice_buff STR_VAR_2, APPRENTICE_BUFF_SPECIES3
apprentice_msg FALSE, APPRENTICE_MSG_ITEM_ALREADY_SUGGESTED
apprentice_menu APPRENTICE_ASK_GIVE
apprentice_freequestion
goto_if_eq VAR_RESULT, 0, Apprentice_EventScript_ChooseHoldItem
goto Apprentice_EventScript_HoldNothing
end
Apprentice_EventScript_UseWhichMove:
apprentice_initquestion APPRENTICE_QUESTION_WHICH_MOVE
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_SPECIES3
apprentice_buff STR_VAR_2, APPRENTICE_BUFF_MOVE1
apprentice_buff STR_VAR_3, APPRENTICE_BUFF_MOVE2
apprentice_msg FALSE, APPRENTICE_MSG_WHICH_MOVE
apprentice_menu APPRENTICE_ASK_MOVES
copyvar VAR_0x8005, VAR_RESULT
call_if_eq VAR_0x8005, 0, Apprentice_EventScript_ChoseMove1
call_if_eq VAR_0x8005, 1, Apprentice_EventScript_ChoseMove2
apprentice_setmove
apprentice_answeredquestion
apprentice_buff STR_VAR_1, VAR_0x8007
apprentice_freequestion
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_MOVE
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
Apprentice_EventScript_ChoseMove1:
setvar VAR_0x8007, APPRENTICE_BUFF_MOVE1
return
Apprentice_EventScript_ChoseMove2:
setvar VAR_0x8007, APPRENTICE_BUFF_MOVE2
return
Apprentice_EventScript_PutWhichMonFirst:
apprentice_msg FALSE, APPRENTICE_MSG_WHICH_MON_FIRST
apprentice_menu APPRENTICE_ASK_3SPECIES
apprentice_setleadmon VAR_RESULT
apprentice_answeredquestion
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_LEAD_MON_SPECIES
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_MON_FIRST
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
@ Last question, after which the Apprentice leaves (and is saved) to be replaced by another
Apprentice_EventScript_PickWinSpeech:
apprentice_msg TRUE, APPRENTICE_MSG_PICK_WIN_SPEECH
apprentice_shiftsaved
setvar VAR_0x8004, EASY_CHAT_TYPE_APPRENTICE
call Common_ShowEasyChatScreen
lock
faceplayer
apprentice_save
apprentice_buff STR_VAR_1, APPRENTICE_BUFF_WIN_SPEECH
apprentice_msg TRUE, APPRENTICE_MSG_THANKS_WIN_SPEECH
apprentice_reset
call Apprentice_EventScript_SetHideFlags
release
releaseall
switch VAR_FACING
case DIR_NORTH, Apprentice_EventScript_LeaveNorth
goto Apprentice_EventScript_Leave
end
Apprentice_EventScript_SetHideFlags:
setflag FLAG_HIDE_APPRENTICE
setflag FLAG_DAILY_APPRENTICE_LEAVES
return
Apprentice_EventScript_LeaveNorth:
apprentice_shouldleave
goto_if_eq VAR_0x8004, FALSE, Apprentice_EventScript_DontMove @ VAR_0x8004 always TRUE here
applymovement LOCALID_APPRENTICE, Apprentice_Movement_LeaveNorth
waitmovement 0
end
Apprentice_EventScript_Leave:
apprentice_shouldleave
goto_if_eq VAR_0x8004, FALSE, Apprentice_EventScript_DontMove @ VAR_0x8004 always TRUE here
applymovement LOCALID_APPRENTICE, Apprentice_Movement_Leave
waitmovement 0
end
Apprentice_EventScript_Gone:
release
releaseall
end
Apprentice_EventScript_DontMove:
end
Apprentice_Movement_LeaveNorth:
walk_fast_right
Apprentice_Movement_Leave:
walk_fast_down
walk_fast_down
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_right
set_invisible
slide_down
slide_down
slide_down
step_end

View File

@ -0,0 +1,241 @@
@ Note: LOCALIDs shared with BattleFrontier_BattlePikeRoomNormal
BattleFrontier_BattlePikeRoom_MapScripts:
map_script MAP_SCRIPT_ON_TRANSITION, BattleFrontier_BattlePikeRoom_OnTransition
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, BattleFrontier_BattlePikeRoom_OnWarp
BattleFrontier_BattlePikeRoom_OnTransition:
pike_setroomobjects
pike_getroomtype
switch VAR_RESULT
case PIKE_ROOM_SINGLE_BATTLE, BattleFrontier_BattlePikeRoomNormal_EventScript_SetOneObjectRoomPos
case PIKE_ROOM_HEAL_FULL, BattleFrontier_BattlePikeRoomNormal_EventScript_SetOneObjectRoomPos
case PIKE_ROOM_NPC, BattleFrontier_BattlePikeRoomNormal_EventScript_SetNPCRoomObjPos
case PIKE_ROOM_STATUS, BattleFrontier_BattlePikeRoomNormal_EventScript_SetTwoObjectRoomPos
case PIKE_ROOM_HEAL_PART, BattleFrontier_BattlePikeRoomNormal_EventScript_SetOneObjectRoomPos
case PIKE_ROOM_DOUBLE_BATTLE, BattleFrontier_BattlePikeRoomNormal_EventScript_SetDoubleBattleObjPos
case PIKE_ROOM_HARD_BATTLE, BattleFrontier_BattlePikeRoomNormal_EventScript_SetTwoObjectRoomPos
case PIKE_ROOM_BRAIN, BattleFrontier_BattlePikeRoomNormal_EventScript_SetBrainRoomObjPos
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetDoubleBattleObjPos::
setobjectxyperm LOCALID_OBJ_0, 2, 5
setobjectxyperm LOCALID_OBJ_1, 6, 5
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetTwoObjectRoomPos::
setobjectxyperm LOCALID_OBJ_0, 4, 4
setobjectxyperm LOCALID_OBJ_1, 3, 4
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetOneObjectRoomPos::
setobjectxyperm LOCALID_OBJ_0, 4, 4
setobjectxyperm LOCALID_OBJ_1, 0, 0
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetNPCRoomObjPos::
setobjectxyperm LOCALID_OBJ_0, 5, 5
setobjectxyperm LOCALID_OBJ_1, 0, 0
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetBrainRoomObjPos::
setobjectxyperm LOCALID_OBJ_0, 4, 3
setobjectxyperm LOCALID_OBJ_1, 4, 4
end
BattleFrontier_BattlePikeRoom_OnWarp:
map_script_2 VAR_TEMP_4, 0, BattleFrontier_BattlePikeRoomNormal_EventScript_InitRoomObjects
.2byte 0
BattleFrontier_BattlePikeRoomNormal_EventScript_InitRoomObjects::
setvar VAR_OBJ_GFX_ID_1, OBJ_EVENT_GFX_LINK_RECEPTIONIST
setvar VAR_OBJ_GFX_ID_0, OBJ_EVENT_GFX_LINK_RECEPTIONIST
pike_getroomtype
goto_if_eq VAR_RESULT, PIKE_ROOM_STATUS, BattleFrontier_BattlePikeRoomNormal_EventScript_InitTwoObjectRoom
goto_if_eq VAR_RESULT, PIKE_ROOM_HARD_BATTLE, BattleFrontier_BattlePikeRoomNormal_EventScript_InitTwoObjectRoom
goto_if_eq VAR_RESULT, PIKE_ROOM_DOUBLE_BATTLE, BattleFrontier_BattlePikeRoomNormal_EventScript_InitTwoObjectRoom
goto_if_eq VAR_RESULT, PIKE_ROOM_BRAIN, BattleFrontier_BattlePikeRoomNormal_EventScript_InitBrainRoomObjects
hideobjectat LOCALID_OBJ_1, MAP_BATTLE_FRONTIER_BATTLE_PIKE_ROOM_NORMAL
setvar VAR_TEMP_4, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
BattleFrontier_BattlePikeRoomNormal_EventScript_InitTwoObjectRoom::
setvar VAR_TEMP_4, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
BattleFrontier_BattlePikeRoomNormal_EventScript_InitBrainRoomObjects::
setvar VAR_TEMP_4, 1
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
hideobjectat LOCALID_OBJ_0, MAP_BATTLE_FRONTIER_BATTLE_PIKE_ROOM_NORMAL @ Pike Queen hidden initially
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_LeftRoomWarp::
setvar VAR_0x8007, PIKE_ROOM_LEFT
goto BattleFrontier_BattlePikeThreePathRoom_EventScript_RoomWarp
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_CenterRoomWarp::
setvar VAR_0x8007, PIKE_ROOM_CENTER
goto BattleFrontier_BattlePikeThreePathRoom_EventScript_RoomWarp
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_RightRoomWarp::
setvar VAR_0x8007, PIKE_ROOM_RIGHT
goto BattleFrontier_BattlePikeThreePathRoom_EventScript_RoomWarp
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_RoomWarp::
pike_get PIKE_DATA_WIN_STREAK
addvar VAR_RESULT, 1
pike_set PIKE_DATA_WIN_STREAK, VAR_RESULT
frontier_get FRONTIER_DATA_BATTLE_NUM
addvar VAR_RESULT, 1
frontier_set FRONTIER_DATA_BATTLE_NUM, VAR_RESULT
pike_setnextroom
pike_getroomtype
switch VAR_RESULT
case PIKE_ROOM_SINGLE_BATTLE, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_HEAL_FULL, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_NPC, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_STATUS, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_HEAL_PART, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_WILD_MONS, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpWildMonRoom
case PIKE_ROOM_HARD_BATTLE, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_DOUBLE_BATTLE, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
case PIKE_ROOM_BRAIN, BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpNPCRoom::
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePikeRoom_Movement_HidePlayer
waitmovement 0
call BattleFrontier_BattlePike_EventScript_CloseCurtain
warpsilent MAP_BATTLE_FRONTIER_BATTLE_PIKE_ROOM_NORMAL, 4, 7
waitstate
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_WarpWildMonRoom::
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePikeRoom_Movement_HidePlayer
waitmovement 0
call BattleFrontier_BattlePike_EventScript_CloseCurtain
warpsilent MAP_BATTLE_FRONTIER_BATTLE_PIKE_ROOM_WILD_MONS, 4, 19
waitstate
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_SetEnteredRoom::
setvar VAR_TEMP_3, 1
setvar VAR_TEMP_2, 1
end
BattleFrontier_BattlePikeThreePathRoom_EventScript_NoTurningBack::
setvar VAR_TEMP_3, 0
setvar VAR_TEMP_2, 0
lockall
msgbox BattleFrontier_BattlePike_Text_PathBlockedNoTurningBack, MSGBOX_DEFAULT
closemessage
end
BattleFrontier_BattlePikeRoomNormal_EventScript_SetEnteredRoom::
setvar VAR_TEMP_3, 1
setvar VAR_TEMP_2, 1
end
BattleFrontier_BattlePikeRoomNormal_EventScript_NoTurningBack::
setvar VAR_TEMP_3, 0
setvar VAR_TEMP_2, 0
lockall
msgbox BattleFrontier_BattlePike_Text_PathBlockedNoTurningBack, MSGBOX_DEFAULT
closemessage
end
BattleFrontier_BattlePikeRoomNormal_EventScript_Exit::
pike_ispartyfullhealth
call_if_eq VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_DisableHealing
call_if_ne VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_EnableHealing
pike_get PIKE_DATA_WIN_STREAK
addvar VAR_RESULT, 1
pike_set PIKE_DATA_WIN_STREAK, VAR_RESULT
frontier_get FRONTIER_DATA_BATTLE_NUM
addvar VAR_RESULT, 1
frontier_set FRONTIER_DATA_BATTLE_NUM, VAR_RESULT
pike_isfinalroom
call_if_eq VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_WarpToFinalRoom
call_if_eq VAR_RESULT, FALSE, BattleFrontier_BattlePikeRoom_EventScript_WarpToThreePathRoom
waitstate
end
BattleFrontier_BattlePikeRoom_EventScript_DisableHealing::
pike_nohealing TRUE
return
BattleFrontier_BattlePikeRoom_EventScript_EnableHealing::
pike_nohealing FALSE
return
BattleFrontier_BattlePikeRoom_EventScript_WarpToFinalRoom::
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePikeRoom_Movement_HidePlayer
waitmovement 0
call BattleFrontier_BattlePike_EventScript_CloseCurtain
warpsilent MAP_BATTLE_FRONTIER_BATTLE_PIKE_ROOM_FINAL, 2, 7
return
BattleFrontier_BattlePikeRoom_EventScript_WarpToThreePathRoom::
applymovement OBJ_EVENT_ID_PLAYER, BattleFrontier_BattlePikeRoom_Movement_HidePlayer
waitmovement 0
call BattleFrontier_BattlePike_EventScript_CloseCurtain
warpsilent MAP_BATTLE_FRONTIER_BATTLE_PIKE_THREE_PATH_ROOM, 6, 10
return
BattleFrontier_BattlePikeRoomWildMons_EventScript_Exit::
pike_exitwildmonroom
pike_ispartyfullhealth
call_if_eq VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_DisableHealing
call_if_ne VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_EnableHealing
pike_get PIKE_DATA_WIN_STREAK
addvar VAR_RESULT, 1
pike_set PIKE_DATA_WIN_STREAK, VAR_RESULT
frontier_get FRONTIER_DATA_BATTLE_NUM
addvar VAR_RESULT, 1
frontier_set FRONTIER_DATA_BATTLE_NUM, VAR_RESULT
pike_isfinalroom
call_if_eq VAR_RESULT, TRUE, BattleFrontier_BattlePikeRoom_EventScript_WarpToFinalRoom
call_if_eq VAR_RESULT, FALSE, BattleFrontier_BattlePikeRoom_EventScript_WarpToThreePathRoom
waitstate
end
BattleFrontier_BattlePikeRoomWildMons_EventScript_SetEnteredRoom::
setvar VAR_TEMP_3, 1
setvar VAR_TEMP_2, 1
end
BattleFrontier_BattlePikeRoomWildMons_EventScript_NoTurningBack::
setvar VAR_TEMP_3, 0
setvar VAR_TEMP_2, 0
lockall
msgbox BattleFrontier_BattlePike_Text_PathBlockedNoTurningBack, MSGBOX_DEFAULT
closemessage
end
BattleFrontier_BattlePike_EventScript_Retire::
frontier_set FRONTIER_DATA_CHALLENGE_STATUS CHALLENGE_STATUS_LOST
warp MAP_BATTLE_FRONTIER_BATTLE_PIKE_LOBBY, 5, 6
waitstate
end
BattleFrontier_BattlePikeRoom_OnResume:
setorcopyvar VAR_0x8006, VAR_RESULT @ Save VAR_RESULT from being overwritten
frontier_get FRONTIER_DATA_CHALLENGE_STATUS
goto_if_eq VAR_RESULT, CHALLENGE_STATUS_PAUSED, BattleFrontier_BattlePikeThreePathRoom_EventScript_EndOnResume
goto_if_eq VAR_RESULT, CHALLENGE_STATUS_SAVING, BattleFrontier_BattlePikeThreePathRoom_EventScript_EndOnResume
call BattleFrontier_BattlePikeRoom_EventScript_ResetSketchedMoves
BattleFrontier_BattlePikeThreePathRoom_EventScript_EndOnResume::
setorcopyvar VAR_RESULT, VAR_0x8006
end
BattleFrontier_BattlePikeRoom_EventScript_ResetSketchedMoves::
frontier_resetsketch
return
BattleFrontier_BattlePikeRoom_Movement_HidePlayer:
set_invisible
step_end

View File

@ -0,0 +1,710 @@
@ Note: local IDs shared with scripts.inc for LilycoveCity_ContestLobby
.set LOCALID_MAN, 3
.set LOCALID_BOY, 9
.set LOCALID_TWIN, 10
.set LOCALID_POKEFAN_F, 15
.set LOCALID_EXPERT_M, 16
.set LOCALID_GIRL, 17
.set NUM_OPPONENTS, VAR_0x8009
BerryBlender_Text_WantToMakePokeblocks:
.string "Oh? Did you want to make some {POKEBLOCK}S\n"
.string "with this old-timer?$"
BerryBlender_Text_Excellent:
.string "Excellent!$"
BerryBlender_Text_MadeOldTimerSad:
.string "Oh…\n"
.string "You've made this old-timer sad…$"
BerryBlender_Text_KnowHowToMakePokeblocks:
.string "Do you know how to make a {POKEBLOCK}?$"
BerryBlender_Text_LetsBerryBlender:
.string "Let's get started, then!\p"
.string "Let's BERRY BLENDER!$"
BerryBlender_Text_ExplainBerryBlending:
.string "Okay, a little explanation, then.\p"
.string "Oh, don't worry, it's quite simple.\p"
.string "When the BLENDER's arrow comes to\n"
.string "your marker, just press the A Button.\p"
.string "That's all you have to do.\n"
.string "You'll see how easy it is when you try.$"
BerryBlender_Text_DontHaveAnyBerries:
.string "Oh?\n"
.string "You don't have any BERRIES?\p"
.string "If you don't have any BERRIES,\n"
.string "you can't make any {POKEBLOCK}S.$"
BerryBlender_Text_CanHaveOneOfMyBerries:
.string "Well, that won't do at all now, will it?\p"
.string "If you don't mind leftovers, you can\n"
.string "have one of my BERRIES.\p"
.string "That way, we could make some {POKEBLOCK}S\n"
.string "together using the BERRY BLENDER.$"
BerryBlender_Text_DontHaveAnyBerriesToSpare:
.string "If I had some BERRIES left over,\n"
.string "I'd gladly give you one…\p"
.string "But, I don't have any to spare today.\n"
.string "We'll have to do this another time.$"
BerryBlender_Text_PokeblockCaseIsFull:
.string "But your {POKEBLOCK} CASE is full.\p"
.string "You should use some {POKEBLOCK}S before\n"
.string "you come see me again.$"
BerryBlender_Text_DontHavePokeblockCase:
.string "But you don't have a {POKEBLOCK} CASE.\p"
.string "You should get a {POKEBLOCK} CASE and then\n"
.string "come see me.$"
BerryBlender_Text_LetsGetBlendingAlready:
.string "Let's get blending already!$"
BerryBlender_Text_WhatKindOfPokeblockWillIGet:
.string "I wonder what kind of {POKEBLOCK} I'll get?\n"
.string "This is so exciting!$"
BerryBlender_Text_WantToBlendPokeblocksWithUs:
.string "Hi, there! Did you want to blend some\n"
.string "{POKEBLOCK}S with us?$"
BerryBlender_Text_Okay:
.string "Okay!$"
BerryBlender_Text_ThatsTooBad:
.string "That's too bad…\p"
.string "But we'll always be around whenever\n"
.string "you get the urge to blend!$"
BerryBlender_Text_KnowHowToMakePokeblocks2:
.string "Of course, you do know how to\n"
.string "blend {POKEBLOCK}S, don't you?$"
BerryBlender_Text_LetsBerryBlender2:
.string "Let's get started, then!\p"
.string "Let's BERRY BLENDER!$"
BerryBlender_Text_ExplainBerryBlending2:
.string "Okay!\n"
.string "Let me explain it to you!\p"
.string "When the spinning BLENDER's arrow\n"
.string "reaches your marker, just press\l"
.string "the A Button.\p"
.string "That's all it takes.\n"
.string "Pretty easy, don't you think?$"
BerryBlender_Text_DontHaveAnyBerries2:
.string "Oh, but wait a second here…\n"
.string "You don't have any BERRIES.\p"
.string "You can't make any {POKEBLOCK}S without\n"
.string "BERRIES…\p"
.string "We'll always be around whenever you\n"
.string "get hold of some BERRIES to blend.$"
BerryBlender_Text_PokeblockCaseIsFull2:
.string "Oh, but wait a second here…\n"
.string "Your {POKEBLOCK} CASE is full.\p"
.string "You should use some {POKEBLOCK}S and\n"
.string "then come back.$"
BerryBlender_Text_DontHavePokeblockCase2:
.string "Oh, but wait a second here…\n"
.string "You don't have a {POKEBLOCK} CASE.\p"
.string "You should get a {POKEBLOCK} CASE and\n"
.string "then come back.$"
@ Unused
BerryBlender_Text_MakePokeblocksWithOurGroup:
.string "Oh, hello! Did you want to make some\n"
.string "{POKEBLOCK}S with our little group?$"
BerryBlender_Text_OhDear:
.string "Oh, dear!$"
BerryBlender_Text_LeftUsInShock:
.string "Oh, dear me…\p"
.string "You've left us in shock!$"
BerryBlender_Text_KnowHowToMakePokeblocks3:
.string "Naturally, you know how to make\n"
.string "{POKEBLOCK}S, don't you?$"
BerryBlender_Text_LetsBerryBlender3:
.string "Okay, dear!\n"
.string "Let's get started!\p"
.string "Let's BERRY BLENDER!$"
BerryBlender_Text_ExplainBerryBlending3:
.string "Oh, dear!\p"
.string "Then, I'll explain it to you nicely.\p"
.string "When the BLENDER's arrow spins to\n"
.string "your marker, press the A Button.\p"
.string "That's all it takes.\n"
.string "Isn't it simple?$"
BerryBlender_Text_DontHaveAnyBerries3:
.string "You don't have any BERRIES,\n"
.string "do you?\p"
.string "If you don't have any BERRIES,\n"
.string "you can't make any {POKEBLOCK}S.\p"
.string "We'll always be making {POKEBLOCK}S here,\n"
.string "so let's make some together when\l"
.string "you get a BERRY or two.$"
BerryBlender_Text_PokeblockCaseIsFull3:
.string "Your {POKEBLOCK} CASE is full,\n"
.string "it looks like.\p"
.string "You should use some {POKEBLOCK}S up\n"
.string "and then come back.$"
BerryBlender_Text_DontHavePokeblockCase3:
.string "You haven't gotten a {POKEBLOCK} CASE\n"
.string "yet, it looks like.\p"
.string "You need to get a {POKEBLOCK} CASE before\n"
.string "you come back.$"
BerryBlender_Text_SetNewBlenderRecord:
.string "Okay! Today's going to be the day that\n"
.string "I set a new BLENDER speed record!$"
BerryBlender_Text_LookGoodAtBlendingJoinUs:
.string "Oh, dear!\n"
.string "You look as if you're good at blending.\l"
.string "Would you like to join us?$"
BerryBlender_Text_MakeDeliciousPokeblocks:
.string "I'm going to make delicious {POKEBLOCK}S\n"
.string "and make my POKéMON cuter.$"
BerryBlender_Text_SaveGameBeforeBerryBlenderLink:
.string "{POKEBLOCK}S will be made with your friends \n"
.string "from BERRIES in the BERRY BLENDER.\p"
.string "Is it okay to save the game before\n"
.string "linking with your friends?$"
BerryBlender_Text_SearchingForFriends:
.string "Searching for your friends…\n"
.string "… … B Button: Cancel$"
BerryBlender_Text_Player1Arrived:
.string "{STR_VAR_1} arrived.$"
BerryBlender_Text_Player1And2Arrived:
.string "{STR_VAR_1} and {STR_VAR_2} arrived.$"
BerryBlender_Text_AllPlayersArrived:
.string "{STR_VAR_1}, {STR_VAR_2}, and\n"
.string "{STR_VAR_3} arrived.$"
BerryBlender_Text_NoBerriesLink:
.string "You have no BERRIES.\n"
.string "The BERRY BLENDER can't be used.$"
BerryBlender_Text_PokeblockCaseIsFullLink:
.string "Your {POKEBLOCK} CASE is full.\n"
.string "The BERRY BLENDER can't be used.$"
BerryBlender_Text_DontHavePokeblockCaseLink:
.string "You don't have a {POKEBLOCK} CASE.\n"
.string "The BERRY BLENDER can't be used.$"
BerryBlender_Text_LoveMakingPokeblocks:
.string "I love making {POKEBLOCK}S.\p"
.string "I always have some BERRIES with me.$"
BerryBlender_Text_MakePokeblocksUsingBerryBlender:
.string "If you'd like, we could make some\n"
.string "{POKEBLOCK}S together using the\l"
.string "BERRY BLENDER.$"
BerryBlender_Text_DontHaveAnyBerriesHaveOne:
.string "Oh?\n"
.string "You don't have any BERRIES?\p"
.string "Well, that won't do at all now, will it?\p"
.string "If you don't mind leftovers, you can\n"
.string "have one of my BERRIES.$"
BerryBlender_Text_UseItToMakePokeblocksTogether:
.string "We'll use it to make {POKEBLOCK}S together\n"
.string "using the BERRY BLENDER.$"
BerryBlender_Text_DontHaveAnyBerriesNoneToSpare:
.string "Oh?\n"
.string "You don't have any BERRIES?\p"
.string "If I had some left over, I'd gladly\n"
.string "give you one…\p"
.string "But, I don't have any to spare today.\n"
.string "Sorry about that.$"
BerryBlender_EventScript_BerryBlender1::
lockall
goto_if_unset FLAG_HIDE_LILYCOVE_CONTEST_HALL_BLEND_MASTER, BerryBlender_EventScript_BlendMasterPresent
setvar NUM_OPPONENTS, 1
applymovement LOCALID_EXPERT_M, BerryBlender_Movement_BlendLeaderWalkInPlace
waitmovement 0
msgbox BerryBlender_Text_WantToMakePokeblocks, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_TryUseBerryBlender1
goto BerryBlender_EventScript_DeclineBlender1
end
BerryBlender_EventScript_DeclineBlender1:
msgbox BerryBlender_Text_MadeOldTimerSad, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender1NoBerries:
msgbox BerryBlender_Text_DontHaveAnyBerries, MSGBOX_DEFAULT
dotimebasedevents
goto_if_set FLAG_DAILY_CONTEST_LOBBY_RECEIVED_BERRY, BerryBlender_EventScript_Blender1NoSpareBerries
goto BerryBlender_EventScript_Blender1GiveSpareBerry
end
BerryBlender_EventScript_Blender1NoSpareBerries:
msgbox BerryBlender_Text_DontHaveAnyBerriesToSpare, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender1GiveSpareBerry:
msgbox BerryBlender_Text_CanHaveOneOfMyBerries, MSGBOX_DEFAULT
giveitem ITEM_PECHA_BERRY
setflag FLAG_DAILY_CONTEST_LOBBY_RECEIVED_BERRY
goto BerryBlender_EventScript_UseBerryBlender1
end
BerryBlender_EventScript_UseBerryBlender1:
msgbox BerryBlender_Text_KnowHowToMakePokeblocks, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_StartBlender1
goto BerryBlender_EventScript_ExplainBlending1
end
BerryBlender_EventScript_StartBlender1:
msgbox BerryBlender_Text_LetsBerryBlender, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoBerryBlending
end
BerryBlender_EventScript_ExplainBlending1:
msgbox BerryBlender_Text_ExplainBerryBlending, MSGBOX_DEFAULT
goto BerryBlender_EventScript_StartBlender1
end
BerryBlender_EventScript_TryUseBerryBlender1:
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender1NoCase
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_Blender1CaseFull
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender1NoBerries
msgbox BerryBlender_Text_Excellent, MSGBOX_DEFAULT
goto BerryBlender_EventScript_UseBerryBlender1
end
BerryBlender_EventScript_DoBerryBlending:
copyvar VAR_0x8004, NUM_OPPONENTS
fadescreen FADE_TO_BLACK
special DoBerryBlending
waitstate
releaseall
end
BerryBlender_EventScript_Blender1CaseFull:
msgbox BerryBlender_Text_PokeblockCaseIsFull, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender1NoCase:
msgbox BerryBlender_Text_DontHavePokeblockCase, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_BerryBlender2::
lockall
setvar NUM_OPPONENTS, 2
applymovement LOCALID_TWIN, Common_Movement_FaceOriginalDirection
applymovement LOCALID_MAN, BerryBlender_Movement_BlendLeaderWalkInPlace
waitmovement 0
msgbox BerryBlender_Text_WantToBlendPokeblocksWithUs, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_TryUseBerryBlender2
goto BerryBlender_EventScript_DeclineBlender2
end
BerryBlender_EventScript_DeclineBlender2:
msgbox BerryBlender_Text_ThatsTooBad, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender2NoBerries:
msgbox BerryBlender_Text_DontHaveAnyBerries2, MSGBOX_DEFAULT
release
end
BerryBlender_EventScript_UseBerryBlender2:
msgbox BerryBlender_Text_KnowHowToMakePokeblocks2, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_StartBlender2
goto BerryBlender_EventScript_ExplainBlending2
end
BerryBlender_EventScript_StartBlender2:
msgbox BerryBlender_Text_LetsBerryBlender2, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoBerryBlending
end
BerryBlender_EventScript_ExplainBlending2:
msgbox BerryBlender_Text_ExplainBerryBlending2, MSGBOX_DEFAULT
goto BerryBlender_EventScript_StartBlender2
end
BerryBlender_EventScript_TryUseBerryBlender2:
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender2NoBerries
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender2NoCase
msgbox BerryBlender_Text_Okay, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_ne VAR_RESULT, 65535, BerryBlender_EventScript_UseBerryBlender2
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_Blender2CaseFull
end
BerryBlender_EventScript_Blender2CaseFull:
msgbox BerryBlender_Text_PokeblockCaseIsFull2, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender2NoCase:
msgbox BerryBlender_Text_DontHavePokeblockCase2, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_BerryBlender3::
lockall
setvar VAR_0x8008, LOCALID_POKEFAN_F
setvar NUM_OPPONENTS, 3
applymovement LOCALID_BOY, Common_Movement_FaceOriginalDirection
applymovement LOCALID_GIRL, Common_Movement_FaceOriginalDirection
applymovement VAR_0x8008, BerryBlender_Movement_BlendLeaderWalkInPlace
waitmovement 0
msgbox BerryBlender_Text_LookGoodAtBlendingJoinUs, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_TryUseBlender3
goto BerryBlender_EventScript_DeclineBlender3
end
BerryBlender_EventScript_DeclineBlender3:
msgbox BerryBlender_Text_LeftUsInShock, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender3NoBerries:
msgbox BerryBlender_Text_DontHaveAnyBerries3, MSGBOX_DEFAULT
release
end
BerryBlender_EventScript_UseBerryBlender3:
msgbox BerryBlender_Text_KnowHowToMakePokeblocks3, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_StartBlender3
goto BerryBlender_EventScript_ExplainBlending3
end
BerryBlender_EventScript_StartBlender3:
msgbox BerryBlender_Text_LetsBerryBlender3, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoBerryBlending
end
BerryBlender_EventScript_ExplainBlending3:
msgbox BerryBlender_Text_ExplainBerryBlending3, MSGBOX_DEFAULT
goto BerryBlender_EventScript_StartBlender3
end
BerryBlender_EventScript_TryUseBlender3:
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender3NoBerries
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_Blender3NoCase
msgbox BerryBlender_Text_OhDear, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_ne VAR_RESULT, 65535, BerryBlender_EventScript_UseBerryBlender3
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_Blender3CaseFull
end
BerryBlender_EventScript_Blender3CaseFull:
msgbox BerryBlender_Text_PokeblockCaseIsFull3, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender3NoCase:
msgbox BerryBlender_Text_DontHavePokeblockCase3, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_BlendMasterPresent:
lockall
setvar NUM_OPPONENTS, 1
msgbox BerryBlender_Text_SeeMyMasteryInAction, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_TryBlendWithBlendMaster
msgbox BerryBlender_Text_TooBusyNowIsee, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_BlendMasterNoBerries:
msgbox BerryBlender_Text_BlendMasterNoBerries, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_TryBlendWithBlendMaster:
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_BlendMasterNoCase
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_BlendMasterNoBerries
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_ne VAR_RESULT, 65535, BerryBlender_EventScript_BlendWithBlendMaster
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_BlendMasterCaseFull
end
BerryBlender_EventScript_BlendWithBlendMaster:
msgbox BerryBlender_Text_BlendMasterKnowHowToMakePokeblocks, MSGBOX_YESNO
call_if_eq VAR_RESULT, NO, BerryBlender_EventScript_BlendMasterExplainBlending
msgbox BerryBlender_Text_BlendMasterLetsBerryBlender, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoBerryBlending
end
BerryBlender_EventScript_BlendMasterExplainBlending:
msgbox BerryBlender_Text_BlendMasterExplainBerryBlending, MSGBOX_DEFAULT
return
BerryBlender_EventScript_BlendMasterNoCase:
msgbox BerryBlender_Text_BlendMasterNoPokeblockCase, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_BlendMasterCaseFull:
msgbox BerryBlender_Text_BlendMasterPokeblockCaseFull, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_Blender2Man::
msgbox BerryBlender_Text_SetNewBlenderRecord, MSGBOX_NPC
end
BerryBlender_EventScript_Blender3PokefanF::
msgbox BerryBlender_Text_LookGoodAtBlendingJoinUs, MSGBOX_NPC
end
BerryBlender_EventScript_Blender2Twin::
msgbox BerryBlender_Text_MakeDeliciousPokeblocks, MSGBOX_NPC
end
BerryBlender_EventScript_Blender1ExpertM::
setvar VAR_0x8008, 15
goto BerryBlender_EventScript_ExpertMCheckGiveBerry
end
BerryBlender_EventScript_ExpertMCheckGiveBerry:
lock
faceplayer
msgbox BerryBlender_Text_LoveMakingPokeblocks, MSGBOX_DEFAULT
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, TRUE, BerryBlender_EventScript_ExpertMPlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_ExpertMNoBerries
end
BerryBlender_EventScript_ExpertMPlayerHasBerries:
msgbox BerryBlender_Text_MakePokeblocksUsingBerryBlender, MSGBOX_DEFAULT
release
end
BerryBlender_EventScript_ExpertMNoBerries:
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_ExpertMNoSpareBerries
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_ExpertMNoSpareBerries
dotimebasedevents
goto_if_set FLAG_DAILY_CONTEST_LOBBY_RECEIVED_BERRY, BerryBlender_EventScript_ExpertMNoSpareBerries
goto BerryBlender_EventScript_ExpertMGiveBerry
end
BerryBlender_EventScript_ExpertMNoSpareBerries:
msgbox BerryBlender_Text_DontHaveAnyBerriesNoneToSpare, MSGBOX_DEFAULT
release
end
BerryBlender_EventScript_ExpertMGiveBerry:
msgbox BerryBlender_Text_DontHaveAnyBerriesHaveOne, MSGBOX_DEFAULT
giveitem ITEM_PECHA_BERRY
setflag FLAG_DAILY_CONTEST_LOBBY_RECEIVED_BERRY
msgbox BerryBlender_Text_UseItToMakePokeblocksTogether, MSGBOX_DEFAULT
release
end
BerryBlender_Movement_BlendLeaderWalkInPlace:
walk_in_place_faster_right
step_end
BerryBlender_EventScript_BerryBlenderLink::
lockall
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_LinkBlenderNoBerries
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_LinkBlenderNoCase
specialvar VAR_RESULT, GetFirstFreePokeblockSlot
goto_if_ne VAR_RESULT, 65535, BerryBlender_EventScript_LinkBlenderSaveGame
goto_if_eq VAR_RESULT, 65535, BerryBlender_EventScript_LinkBlenderCaseFull
end
BerryBlender_EventScript_LinkBlenderSaveGame:
msgbox BerryBlender_Text_SaveGameBeforeBerryBlenderLink, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryBlender_EventScript_TryDoLinkBlender
goto_if_eq VAR_RESULT, NO, BerryBlender_EventScript_CancelLinkBlender
end
BerryBlender_EventScript_LinkBlenderNoBerries:
msgbox BerryBlender_Text_NoBerriesLink, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_TryDoLinkBlender:
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, FALSE, BerryBlender_EventScript_CancelLinkBlender
specialvar VAR_RESULT, IsWirelessAdapterConnected
goto_if_eq VAR_RESULT, TRUE, BerryBlender_EventScript_StartDecideLinkLeader
message BerryBlender_Text_SearchingForFriends
waitmessage
special TryBerryBlenderLinkup
waitstate
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, BerryBlender_EventScript_SpawnLinkPartners
goto_if_eq VAR_RESULT, LINKUP_SOMEONE_NOT_READY, BerryBlender_EventScript_CloseLinkNotReady
goto_if_eq VAR_RESULT, LINKUP_DIFF_SELECTIONS, BerryBlender_EventScript_CloseLinkDifferentSelections
goto_if_eq VAR_RESULT, LINKUP_FAILED, BerryBlender_EventScript_CloseLink
goto_if_eq VAR_RESULT, LINKUP_CONNECTION_ERROR, BerryBlender_EventScript_LinkError
end
BerryBlender_EventScript_TwoPlayerLink:
msgbox BerryBlender_Text_Player1Arrived, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoLinkBerryBlending
end
BerryBlender_EventScript_ThreePlayerLink:
msgbox BerryBlender_Text_Player1And2Arrived, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoLinkBerryBlending
end
BerryBlender_EventScript_FourPlayerLink:
msgbox BerryBlender_Text_AllPlayersArrived, MSGBOX_DEFAULT
goto BerryBlender_EventScript_DoLinkBerryBlending
end
BerryBlender_EventScript_DoLinkBerryBlending:
setvar VAR_0x8004, 0 @ number of opponents, 0 indicates Link
fadescreen FADE_TO_BLACK
removeobject 240 @ Unclear where these local IDs come from,
removeobject 239 @ but presumably they'd be the 4 link players
removeobject 238
removeobject 237
special DoBerryBlending
waitstate
releaseall
end
BerryBlender_EventScript_CancelLinkBlender:
releaseall
end
BerryBlender_EventScript_LinkBlenderCaseFull:
msgbox BerryBlender_Text_PokeblockCaseIsFullLink, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_LinkBlenderNoCase:
msgbox BerryBlender_Text_DontHavePokeblockCaseLink, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_CloseLinkNotReady:
special CloseLink
msgbox Text_SomeoneIsNotReadyToLink, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_CloseLinkDifferentSelections:
special CloseLink
msgbox Text_PlayersMadeDifferentSelections, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_CloseLink:
special CloseLink
msgbox gText_PokeblockLinkCanceled, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_LinkError:
special CloseLink
msgbox Text_LinkErrorPleaseReset, MSGBOX_DEFAULT
releaseall
end
BerryBlender_EventScript_SpawnLinkPartners:
fadescreen FADE_TO_BLACK
specialvar VAR_RESULT, GetLinkPartnerNames
copyvar VAR_0x8008, VAR_RESULT
copyvar VAR_0x8004, VAR_0x8008
special SpawnLinkPartnerObjectEvent
goto BerryBlender_EventScript_LinkPlayersArrived
end
BerryBlender_EventScript_LinkPlayersArrived:
fadescreen FADE_FROM_BLACK
switch VAR_0x8008
case 2, BerryBlender_EventScript_TwoPlayerLink
case 3, BerryBlender_EventScript_ThreePlayerLink
case 4, BerryBlender_EventScript_FourPlayerLink
end
BerryBlender_EventScript_StartDecideLinkLeader:
setvar VAR_0x8004, LINK_GROUP_BERRY_BLENDER
goto BerryBlender_EventScript_DecideLinkLeader
end
BerryBlender_EventScript_DecideLinkLeader:
message LilycoveCity_ContestLobby_Text_PleaseDecideLinkLeader
waitmessage
multichoice 16, 6, MULTI_LINK_LEADER, FALSE
switch VAR_RESULT
case 0, BerryBlender_EventScript_TryJoinGroup
case 1, BerryBlender_EventScript_TryLeadGroup
case 2, BerryBlender_EventScript_CloseLink
case MULTI_B_PRESSED, BerryBlender_EventScript_CloseLink
end
BerryBlender_EventScript_TryLeadGroup:
call BerryBlender_EventScript_TryBecomeLinkLeader
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, BerryBlender_EventScript_LinkLeaderDecided
goto_if_eq VAR_RESULT, LINKUP_FAILED, BerryBlender_EventScript_DecideLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, BerryBlender_EventScript_TryLeadGroup
release
end
BerryBlender_EventScript_TryJoinGroup:
call BerryBlender_EventScript_TryJoinLinkGroup
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, BerryBlender_EventScript_LinkLeaderDecided
goto_if_eq VAR_RESULT, LINKUP_FAILED, BerryBlender_EventScript_DecideLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, BerryBlender_EventScript_TryJoinGroup
release
end
BerryBlender_EventScript_TryBecomeLinkLeader:
special TryBecomeLinkLeader
waitstate
return
BerryBlender_EventScript_TryJoinLinkGroup:
special TryJoinLinkGroup
waitstate
return
BerryBlender_EventScript_LinkLeaderDecided:
goto BerryBlender_EventScript_SpawnLinkPartners
end

188
data/scripts/berry_tree.inc Normal file
View File

@ -0,0 +1,188 @@
BerryTreeScript::
special ObjectEventInteractionGetBerryTreeData
switch VAR_0x8004
case BERRY_STAGE_SPARKLING, BerryTree_EventScript_Sparkling
case BERRY_STAGE_NO_BERRY, BerryTree_EventScript_CheckSoil
case BERRY_STAGE_PLANTED, BerryTree_EventScript_CheckBerryStage1
case BERRY_STAGE_SPROUTED, BerryTree_EventScript_CheckBerryStage2
case BERRY_STAGE_TALLER, BerryTree_EventScript_CheckBerryStage3
case BERRY_STAGE_FLOWERING, BerryTree_EventScript_CheckBerryStage4
case BERRY_STAGE_BERRIES, BerryTree_EventScript_CheckBerryFullyGrown
end
BerryTree_EventScript_Sparkling::
lockall
message BerryTree_Text_ExclamationPoint
waitmessage
waitbuttonpress
releaseall
end
BerryTree_EventScript_CheckSoil::
lock
faceplayer
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_ChooseBerryToPlant
message BerryTree_Text_ItsSoftLoamySoil
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_ChooseBerryToPlant::
fadescreen FADE_TO_BLACK
closemessage
special Bag_ChooseBerry
waitstate
goto_if_eq VAR_ITEM_ID, 0, BerryTree_EventScript_CancelPlanting
removeitem VAR_ITEM_ID
call BerryTree_EventScript_PlantBerry
BerryTree_EventScript_CancelPlanting::
release
end
BerryTree_EventScript_CheckBerryStage1::
lockall
special ObjectEventInteractionGetBerryCountString
checkitem ITEM_WAILMER_PAIL, 1
goto_if_eq VAR_RESULT, 0, BerryTree_EventScript_DontWater
msgbox BerryTree_Text_BerryGrowthStage1, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_WaterBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_DontWater
BerryTree_EventScript_CheckBerryStage2::
lockall
special ObjectEventInteractionGetBerryName
checkitem ITEM_WAILMER_PAIL
goto_if_eq VAR_RESULT, 0, BerryTree_EventScript_DontWater
msgbox BerryTree_Text_BerryGrowthStage2, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_WaterBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_DontWater
BerryTree_EventScript_CheckBerryStage3::
lockall
special ObjectEventInteractionGetBerryName
checkitem ITEM_WAILMER_PAIL
goto_if_eq VAR_RESULT, 0, BerryTree_EventScript_DontWater
msgbox BerryTree_Text_BerryGrowthStage2, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_WaterBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_DontWater
BerryTree_EventScript_CheckBerryStage4::
call BerryTree_EventScript_GetCareAdverb
lockall
special ObjectEventInteractionGetBerryName
checkitem ITEM_WAILMER_PAIL
goto_if_eq VAR_RESULT, 0, BerryTree_EventScript_DontWater
msgbox BerryTree_Text_BerryGrowthStage2, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_WaterBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_DontWater
@ VAR_0x8005 here is the number of times watered
@ Buffered by ObjectEventInteractionGetBerryTreeData
BerryTree_EventScript_GetCareAdverb::
goto_if_eq VAR_0x8005, 0, BerryTree_EventScript_SetAdverbPoor
goto_if_eq VAR_0x8005, 4, BerryTree_EventScript_SetAdverbGreat
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbGood
return
BerryTree_EventScript_SetAdverbGreat::
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbGreat
return
BerryTree_EventScript_SetAdverbPoor::
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbPoor
return
@ VAR_0x8006 here is the number of berries
BerryTree_EventScript_CheckBerryFullyGrown::
buffernumberstring STR_VAR_2, VAR_0x8006
lock
faceplayer
goto BerryTree_EventScript_PickBerry
BerryTree_EventScript_PickBerry::
special ObjectEventInteractionPickBerryTree
goto_if_eq VAR_0x8004, 0, BerryTree_EventScript_BerryPocketFull
special IncrementDailyPickedBerries
special ObjectEventInteractionRemoveBerryTree
message BerryTree_Text_PickedTheBerry
playfanfare MUS_OBTAIN_BERRY
waitmessage
waitfanfare
release
end
BerryTree_EventScript_BerryPocketFull::
message BerryTree_Text_BerryPocketFull
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_ItemUsePlantBerry::
lockall
special ObjectEventInteractionGetBerryTreeData
call BerryTree_EventScript_PlantBerry
releaseall
end
BerryTree_EventScript_DontWater::
releaseall
end
BerryTree_EventScript_ItemUseWailmerPail::
special ObjectEventInteractionGetBerryTreeData
lockall
BerryTree_EventScript_WaterBerry::
special ObjectEventInteractionWaterBerryTree
special DoWateringBerryTreeAnim
waitstate
releaseall
end
BerryTree_EventScript_PlantBerry::
special ObjectEventInteractionPlantBerryTree
incrementgamestat GAME_STAT_PLANTED_BERRIES
special IncrementDailyPlantedBerries
return
BerryTree_Text_ItsSoftLoamySoil:
.string "It's soft, loamy soil.$"
BerryTree_Text_BerryGrowthStage1:
.string "One {STR_VAR_1} was planted here.\n"
.string "Want to water it with the WAILMER PAIL?$"
BerryTree_Text_BerryGrowthStage2:
.string "{STR_VAR_1} has sprouted.\n"
.string "Want to water it with the WAILMER PAIL?$"
BerryTree_Text_BerryGrowthStage3:
.string "This {STR_VAR_1} plant is growing taller.\n"
.string "Want to water it with the WAILMER PAIL?$"
BerryTree_Text_BerryGrowthStage4:
.string "These {STR_VAR_1} flowers are blooming\n"
.string "{STR_VAR_2}. Want to water them?$"
BerryTree_Text_CareAdverbGreat:
.string "very beautifully$"
BerryTree_Text_CareAdverbPoor:
.string "cutely$"
BerryTree_Text_CareAdverbGood:
.string "prettily$"
BerryTree_Text_PickedTheBerry:
.string "{PLAYER} picked the {STR_VAR_2} {STR_VAR_1}.$"
BerryTree_Text_BerryPocketFull:
.string "The BAG's BERRIES POCKET is full.\p"
.string "The {STR_VAR_1} couldn't be taken.$"
BerryTree_Text_ExclamationPoint:
.string "!$"

1423
data/scripts/cable_club.inc Normal file
View File

@ -0,0 +1,1423 @@
CableClub_OnTransition:
call CableClub_EventScript_HideOrShowMysteryGiftMan
end
CableClub_EventScript_HideOrShowMysteryGiftMan::
specialvar VAR_RESULT, ShouldDistributeEonTicket
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_ShowMysteryGiftMan
specialvar VAR_RESULT, ValidateSavedWonderCard
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_HideMysteryGiftMan
goto CableClub_EventScript_ShowMysteryGiftMan
end
CableClub_EventScript_ShowMysteryGiftMan::
clearflag FLAG_HIDE_POKEMON_CENTER_2F_MYSTERY_GIFT_MAN
return
CableClub_EventScript_HideMysteryGiftMan::
setflag FLAG_HIDE_POKEMON_CENTER_2F_MYSTERY_GIFT_MAN
return
CableClub_EventScript_MysteryGiftMan::
specialvar VAR_RESULT, ShouldDistributeEonTicket
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_DistributeEonTicket
goto CableClub_EventScript_TryWonderCardScript
end
CableClub_EventScript_TryWonderCardScript::
trywondercardscript
CableClub_EventScript_MysteryGiftThankYou::
msgbox gText_ThankYouForAccessingMysteryGift, MSGBOX_NPC
end
CableClub_EventScript_DistributeEonTicket::
checkitem ITEM_EON_TICKET
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_TryWonderCardScript
goto_if_set FLAG_ENABLE_SHIP_SOUTHERN_ISLAND, CableClub_EventScript_TryWonderCardScript
msgbox MysteryGift_Text_TheresATicketForYou, MSGBOX_DEFAULT
giveitem ITEM_EON_TICKET
setflag FLAG_ENABLE_SHIP_SOUTHERN_ISLAND
setvar VAR_DISTRIBUTE_EON_TICKET, 0
msgbox MysteryGift_Text_TryUsingItAtLilycovePort, MSGBOX_DEFAULT
release
end
@ Unused?
CableClub_EventScript_MysteryGiftThankYou2::
msgbox gText_ThankYouForAccessingMysteryGift, MSGBOX_DEFAULT
release
end
CableClub_OnWarp:
map_script_2 VAR_CABLE_CLUB_STATE, USING_SINGLE_BATTLE, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_DOUBLE_BATTLE, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_MULTI_BATTLE, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_TRADE_CENTER, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_RECORD_CORNER, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_UNION_ROOM, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_BERRY_CRUSH, CableClub_EventScript_CheckTurnAttendant
map_script_2 VAR_CABLE_CLUB_STATE, USING_MINIGAME, CableClub_EventScript_CheckTurnAttendant
.2byte 0
CableClub_EventScript_CheckTurnAttendant::
goto_if_eq VAR_0x8007, 0, CableClub_EventScript_DontTurnAttendant
turnobject VAR_0x8007, DIR_WEST
CableClub_EventScript_DontTurnAttendant::
end
CableClub_OnLoad:
goto_if_eq VAR_CABLE_CLUB_STATE, USING_SINGLE_BATTLE, CableClub_EventScript_OnLoadFromColosseum
goto_if_eq VAR_CABLE_CLUB_STATE, USING_DOUBLE_BATTLE, CableClub_EventScript_OnLoadFromColosseum
goto_if_eq VAR_CABLE_CLUB_STATE, USING_MULTI_BATTLE, CableClub_EventScript_OnLoadFromColosseum
goto_if_eq VAR_CABLE_CLUB_STATE, USING_TRADE_CENTER, CableClub_EventScript_OnLoadFromTradeCenter
goto_if_eq VAR_CABLE_CLUB_STATE, USING_RECORD_CORNER, CableClub_EventScript_OnLoadFromRecordCorner
goto_if_eq VAR_CABLE_CLUB_STATE, USING_UNION_ROOM, CableClub_EventScript_OnLoadFromUnionRoom
goto_if_eq VAR_CABLE_CLUB_STATE, USING_BERRY_CRUSH, CableClub_EventScript_OnLoadFromBerryCrush
goto_if_eq VAR_CABLE_CLUB_STATE, USING_MINIGAME, CableClub_EventScript_OnLoadFromGameCorner
end
CableClub_EventScript_OnLoadFromColosseum::
call CableClub_EventScript_OpenDirectCornerBarrier
end
CableClub_EventScript_OnLoadFromTradeCenter::
call CableClub_EventScript_OpenDirectCornerBarrier
end
CableClub_EventScript_OnLoadFromRecordCorner::
call CableClub_EventScript_OpenDirectCornerBarrier
end
CableClub_EventScript_OnLoadFromUnionRoom::
call CableClub_EventScript_OpenUnionRoomBarrier
end
CableClub_EventScript_OnLoadFromBerryCrush::
call CableClub_EventScript_OpenDirectCornerBarrier
end
CableClub_EventScript_OnLoadFromGameCorner::
call EventScript_OpenMossdeepGameCornerBarrier
end
CableClub_OnFrame:
map_script_2 VAR_CABLE_CLUB_TUTORIAL_STATE, 1, CableClub_EventScript_Tutorial
map_script_2 VAR_CABLE_CLUB_STATE, USING_SINGLE_BATTLE, CableClub_EventScript_ExitLinkRoom
map_script_2 VAR_CABLE_CLUB_STATE, USING_DOUBLE_BATTLE, CableClub_EventScript_ExitLinkRoom
map_script_2 VAR_CABLE_CLUB_STATE, USING_MULTI_BATTLE, CableClub_EventScript_ExitLinkRoom
map_script_2 VAR_CABLE_CLUB_STATE, USING_TRADE_CENTER, CableClub_EventScript_ExitTradeCenter
map_script_2 VAR_CABLE_CLUB_STATE, USING_RECORD_CORNER, CableClub_EventScript_ExitRecordCorner
map_script_2 VAR_CABLE_CLUB_STATE, USING_UNION_ROOM, CableClub_EventScript_ExitUnionRoom
map_script_2 VAR_CABLE_CLUB_STATE, USING_BERRY_CRUSH, CableClub_EventScript_ExitLinkRoom
map_script_2 VAR_CABLE_CLUB_STATE, USING_MINIGAME, CableClub_EventScript_ExitMinigameRoom
.2byte 0
CableClub_EventScript_ExitLinkRoom::
lockall
call CableClub_EventScript_CloseLinkAndExitLinkRoom
call CableClub_EventScript_CloseDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
erasebox 0, 0, 29, 19
releaseall
end
CableClub_EventScript_ExitMinigameRoom::
lockall
call CableClub_EventScript_CloseLinkAndExitLinkRoom
call EventScript_CloseMossdeepGameCornerBarrier
special DrawWholeMapView
playse SE_CLICK
erasebox 0, 0, 29, 19
releaseall
end
CableClub_EventScript_CloseLinkAndExitLinkRoom::
special CloseLink
setvar VAR_CABLE_CLUB_STATE, 0
goto_if_eq VAR_0x8007, 0, CableClub_EventScript_PlayerExitLinkRoom
applymovement VAR_0x8007, Movement_AttendantFaceLeft
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerExitLinkRoom
waitmovement 0
applymovement VAR_0x8007, Movement_AttendantFaceDown
waitmovement 0
return
CableClub_EventScript_ExitTradeCenter::
lockall
call CableClub_EventScript_PlayerExitTradeCenter
call CableClub_EventScript_CloseDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
erasebox 0, 0, 29, 19
releaseall
end
CableClub_EventScript_PlayerExitTradeCenter::
special CloseLink
setvar VAR_CABLE_CLUB_STATE, 0
goto_if_eq VAR_0x8007, 0, CableClub_EventScript_PlayerExitLinkRoom
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerFaceAttendantRight
waitmovement 0
applymovement VAR_0x8007, Movement_AttendantFaceLeft
waitmovement 0
call CableClub_EventScript_TrainerCardDataOverwritten
return
CableClub_EventScript_ExitRecordCorner::
lockall
call CableClub_EventScript_PlayerExitRecordCorner
call CableClub_EventScript_CloseDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
erasebox 0, 0, 29, 19
releaseall
end
CableClub_EventScript_PlayerExitRecordCorner::
special CloseLink
setvar VAR_CABLE_CLUB_STATE, 0
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerExitLinkRoom
waitmovement 0
goto_if_eq VAR_0x8007, 0, CableClub_EventScript_ExitRecordCornerRet
applymovement VAR_0x8007, Movement_AttendantFaceDown
waitmovement 0
CableClub_EventScript_ExitRecordCornerRet::
return
CableClub_EventScript_ExitUnionRoom::
lockall
call CableClub_EventScript_PlayerExitUnionRoom
call CableClub_EventScript_CloseUnionRoomBarrier
special DrawWholeMapView
playse SE_CLICK
erasebox 0, 0, 29, 19
releaseall
end
CableClub_EventScript_PlayerExitUnionRoom::
setvar VAR_CABLE_CLUB_STATE, 0
goto_if_eq VAR_0x8007, 0, CableClub_EventScript_PlayerExitLinkRoom
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerFaceAttendantRight
waitmovement 0
applymovement VAR_0x8007, Movement_AttendantFaceLeft
waitmovement 0
call CableClub_EventScript_TrainerCardDataOverwritten
return
CableClub_EventScript_TrainerCardDataOverwritten::
message CableClub_Text_TrainerCardDataOverwritten
waitmessage
playse SE_PIN
delay 60
message CableClub_Text_HopeToSeeYouAgain
waitmessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerExitLinkRoom
waitmovement 0
applymovement VAR_0x8007, Movement_AttendantFaceDown
waitmovement 0
return
CableClub_EventScript_PlayerExitLinkRoom::
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerExitLinkRoom
waitmovement 0
return
CableClub_EventScript_Tutorial::
lockall
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterUp
waitmovement 0
msgbox CableClub_Text_FirstTimeRightThisWay, MSGBOX_DEFAULT
closemessage
applymovement OBJ_EVENT_ID_PLAYER, CableClub_Movement_PlayerApproachCounter
waitmovement 0
delay 30
msgbox CableClub_Text_ExplainWirelessClubFirstTime, MSGBOX_DEFAULT
setvar VAR_CABLE_CLUB_TUTORIAL_STATE, 2
releaseall
end
CableClub_Movement_PlayerApproachCounter:
walk_up
walk_up
step_end
CableClub_EventScript_WelcomeToCableClub::
message CableClub_Text_WelcomeWhichCableClubService
waitmessage
delay 28
goto CableClub_EventScript_SelectCableClubRoom
end
CableClub_EventScript_UnusedWelcomeToCableClub::
msgbox CableClub_Text_WhichService, MSGBOX_DEFAULT
goto CableClub_EventScript_SelectCableClubRoom
end
CableClub_EventScript_SelectCableClubRoom::
setvar VAR_0x8004, 0
goto_if_set FLAG_VISITED_MAUVILLE_CITY, CableClub_EventScript_CableClubUnlockedRecordCorner
multichoice 0, 0, MULTI_CABLE_CLUB_NO_RECORD_MIX, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_TradeCenter
case 1, CableClub_EventScript_Colosseum
case 2, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_CableClubUnlockedRecordCorner::
multichoice 0, 0, MULTI_CABLE_CLUB_WITH_RECORD_MIX, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_TradeCenter
case 1, CableClub_EventScript_Colosseum
case 2, CableClub_EventScript_RecordCorner
case 3, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_Colosseum::
copyvar VAR_0x8007, VAR_LAST_TALKED
goto CableClub_EventScript_SelectBattleMode
end
CableClub_EventScript_SelectBattleMode::
message CableClub_Text_PlayWhichBattleMode
waitmessage
multichoice 0, 0, MULTI_BATTLE_MODE, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_SingleBattleMode
case 1, CableClub_EventScript_DoubleBattleMode
case 2, CableClub_EventScript_MultiBattleMode
case 3, CableClub_EventScript_BattleModeInfo
case 4, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_BattleModeInfo::
msgbox CableClub_Text_ExplainBattleModes, MSGBOX_DEFAULT
goto CableClub_EventScript_SelectBattleMode
end
CableClub_EventScript_SingleBattleMode::
setvar VAR_0x8004, USING_SINGLE_BATTLE
goto CableClub_EventScript_TryEnterColosseum
end
CableClub_EventScript_DoubleBattleMode::
special HasEnoughMonsForDoubleBattle
goto_if_ne VAR_RESULT, PLAYER_HAS_TWO_USABLE_MONS, CableClub_EventScript_NeedTwoMonsForDoubleBattle
setvar VAR_0x8004, USING_DOUBLE_BATTLE
goto CableClub_EventScript_TryEnterColosseum
end
CableClub_EventScript_NeedTwoMonsForDoubleBattle::
msgbox CableClub_Text_NeedTwoMonsForDoubleBattle, MSGBOX_DEFAULT
goto CableClub_EventScript_SelectBattleMode
end
CableClub_EventScript_MultiBattleMode::
setvar VAR_0x8004, USING_MULTI_BATTLE
goto CableClub_EventScript_TryEnterColosseum
end
CableClub_EventScript_TryEnterColosseum::
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
message gText_PleaseWaitForLink
waitmessage
special TryBattleLinkup
waitstate
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterColosseum
goto_if_eq VAR_RESULT, LINKUP_SOMEONE_NOT_READY, CableClub_EventScript_AbortLinkSomeoneNotReady
goto_if_eq VAR_RESULT, LINKUP_DIFF_SELECTIONS, CableClub_EventScript_AbortLinkDifferentSelections
goto_if_eq VAR_RESULT, LINKUP_WRONG_NUM_PLAYERS, CableClub_EventScript_AbortLinkIncorrectNumberOfBattlers
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_AbortLink
goto_if_eq VAR_RESULT, LINKUP_CONNECTION_ERROR, CableClub_EventScript_AbortLinkConnectionError
end
CableClub_EventScript_EnterColosseum::
special HealPlayerParty
special SavePlayerParty
special LoadPlayerBag
copyvar VAR_CABLE_CLUB_STATE, VAR_0x8004
messageautoscroll CableClub_Text_PleaseEnter
waitmessage
call CableClub_EventScript_OpenDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomLeft
waitmovement 0
opendoor 9, 1
waitdooranim
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterLinkRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
closedoor 9, 1
waitdooranim
release
goto_if_eq VAR_0x8004, USING_MULTI_BATTLE, CableClub_EventScript_WarpTo4PColosseum
special SetCableClubWarp
warp MAP_BATTLE_COLOSSEUM_2P, 6, 8
special DoCableClubWarp
waitstate
end
@ Unused
CableClub_EventScript_PlayerApproachLinkRoomRight::
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomRight
waitmovement 0
return
CableClub_EventScript_WarpTo4PColosseum::
special SetCableClubWarp
warp MAP_BATTLE_COLOSSEUM_4P, 5, 8
special DoCableClubWarp
waitstate
end
CableClub_EventScript_AbortLinkIncorrectNumberOfBattlers::
switch VAR_0x8004
case USING_SINGLE_BATTLE, CableClub_EventScript_AbortLinkWrongNumberForSingleBattle
case USING_DOUBLE_BATTLE, CableClub_EventScript_AbortLinkWrongNumberForDoubleBattle
case USING_MULTI_BATTLE, CableClub_EventScript_AbortLinkNeedFourPlayers
goto CableClub_EventScript_AbortLinkIncorrectNumberOfParticipants
end
CableClub_EventScript_AbortLinkNeedFourPlayers::
special CloseLink
msgbox CableClub_Text_NeedFourPlayers, MSGBOX_DEFAULT
goto CableClub_EventScript_ConfirmNumberAndRestart
end
CableClub_EventScript_AbortLinkWrongNumberForDoubleBattle::
special CloseLink
msgbox CableClub_Text_CantDoubleBattleWithXPlayers, MSGBOX_DEFAULT
goto CableClub_EventScript_ConfirmNumberAndRestart
end
CableClub_EventScript_AbortLinkWrongNumberForSingleBattle::
special CloseLink
msgbox CableClub_Text_CantSingleBattleWithXPlayers, MSGBOX_DEFAULT
goto CableClub_EventScript_ConfirmNumberAndRestart
end
CableClub_EventScript_ConfirmNumberAndRestart::
special CloseLink @ Redundant
msgbox CableClub_Text_PleaseConfirmNumberAndRestart, MSGBOX_DEFAULT
release
end
CableClub_EventScript_TradeCenter::
copyvar VAR_0x8007, VAR_LAST_TALKED
call CableClub_EventScript_CheckPartyTradeRequirements
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
message gText_PleaseWaitForLink
waitmessage
special TryTradeLinkup
waitstate
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterTradeCenter
goto_if_eq VAR_RESULT, LINKUP_SOMEONE_NOT_READY, CableClub_EventScript_AbortLinkSomeoneNotReady
goto_if_eq VAR_RESULT, LINKUP_DIFF_SELECTIONS, CableClub_EventScript_AbortLinkDifferentSelections
goto_if_eq VAR_RESULT, LINKUP_WRONG_NUM_PLAYERS, CableClub_EventScript_AbortLinkIncorrectNumberOfParticipants
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_AbortLink
goto_if_eq VAR_RESULT, LINKUP_CONNECTION_ERROR, CableClub_EventScript_AbortLinkConnectionError
goto_if_eq VAR_RESULT, LINKUP_PLAYER_NOT_READY, CableClub_EventScript_AbortLinkPlayerNotReady
goto_if_eq VAR_RESULT, LINKUP_PARTNER_NOT_READY, CableClub_EventScript_AbortLinkOtherTrainerNotReady
end
CableClub_EventScript_EnterTradeCenter::
setvar VAR_0x8004, USING_TRADE_CENTER
copyvar VAR_CABLE_CLUB_STATE, VAR_0x8004
messageautoscroll CableClub_Text_PleaseEnter
waitmessage
call CableClub_EventScript_OpenDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomLeft
waitmovement 0
opendoor 9, 1
waitdooranim
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterLinkRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
closedoor 9, 1
waitdooranim
release
special SetCableClubWarp
setwarp MAP_TRADE_CENTER, 5, 8
special DoCableClubWarp
waitstate
end
CableClub_EventScript_CheckPartyTradeRequirements::
specialvar VAR_RESULT, CalculatePlayerPartyCount
goto_if_lt VAR_RESULT, 2, CableClub_EventScript_NeedTwoMonsToTrade
specialvar VAR_RESULT, DoesPartyHaveEnigmaBerry
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_CantTradeEnigmaBerry
setvar VAR_RESULT, 1
return
CableClub_EventScript_NeedTwoMonsToTrade::
msgbox CableClub_Text_NeedTwoMonsToTrade, MSGBOX_DEFAULT
setvar VAR_RESULT, 0
return
CableClub_EventScript_CantTradeEnigmaBerry::
msgbox CableClub_Text_CantTradeEnigmaBerry, MSGBOX_DEFAULT
setvar VAR_RESULT, 0
return
CableClub_EventScript_RecordCorner::
copyvar VAR_0x8007, VAR_LAST_TALKED
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
message gText_PleaseWaitForLink
waitmessage
special TryRecordMixLinkup
waitstate
special ValidateMixingGameLanguage
waitstate
goto_if_eq VAR_RESULT, LINKUP_FOREIGN_GAME, CableClub_EventScript_AbortLinkForeignGame
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterRecordCorner
goto_if_eq VAR_RESULT, LINKUP_SOMEONE_NOT_READY, CableClub_EventScript_AbortLinkSomeoneNotReady
goto_if_eq VAR_RESULT, LINKUP_DIFF_SELECTIONS, CableClub_EventScript_AbortLinkDifferentSelections
goto_if_eq VAR_RESULT, LINKUP_WRONG_NUM_PLAYERS, CableClub_EventScript_AbortLinkIncorrectNumberOfParticipants
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_AbortLink
goto_if_eq VAR_RESULT, LINKUP_CONNECTION_ERROR, CableClub_EventScript_AbortLinkConnectionError
end
CableClub_EventScript_EnterRecordCorner::
setvar VAR_0x8004, USING_RECORD_CORNER
copyvar VAR_CABLE_CLUB_STATE, VAR_0x8004
messageautoscroll CableClub_Text_PleaseEnter
waitmessage
call CableClub_EventScript_OpenDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomLeft
waitmovement 0
opendoor 9, 1
waitdooranim
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterLinkRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
closedoor 9, 1
waitdooranim
release
special SetCableClubWarp
setwarp MAP_RECORD_CORNER, 8, 9
special DoCableClubWarp
waitstate
end
CableClub_EventScript_AbortLinkPlayerNotReady::
special CloseLink
msgbox CableClub_Text_NotSetUpForFarAwayRegion, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkOtherTrainerNotReady::
special CloseLink
msgbox CableClub_Text_OtherTrainerNotReady, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkConnectionError::
special CloseLink
msgbox Text_LinkErrorPleaseReset, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkSomeoneNotReady::
special CloseLink
msgbox Text_SomeoneIsNotReadyToLink, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkDifferentSelections::
special CloseLink
msgbox Text_PlayersMadeDifferentSelections, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLink::
special CloseLink
msgbox CableClub_Text_PleaseVisitAgain, MSGBOX_DEFAULT
release
end
MossdeepCity_GameCorner_1F_EventScript_AbortMinigame::
special CloseLink
msgbox MossdeepCity_GameCorner_1F_Text_ComeAgain, MSGBOX_DEFAULT
release
end
@ Unused
CableClub_EventScript_CableClubWarp::
special SetCableClubWarp
special DoCableClubWarp
waitstate
end
CableClub_EventScript_AbortLinkIncorrectNumberOfParticipants::
special CloseLink
msgbox CableClub_Text_IncorrectNumberOfParticipants, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkPlayerHasBadEgg::
special CloseLink
msgbox CableClub_Text_YouHaveAMonThatCantBeTaken, MSGBOX_DEFAULT
release
end
CableClub_EventScript_AbortLinkForeignGame::
special CloseLink
msgbox CableClub_Text_CantMixWithJapaneseGame, MSGBOX_DEFAULT
release
end
CableClub_EventScript_WirelessClubAdjustements::
msgbox gText_SorryWirelessClubAdjustments, MSGBOX_DEFAULT
release
end
CableClub_EventScript_NotReadyYet::
msgbox gText_UndergoingAdjustments, MSGBOX_DEFAULT
releaseall
end
Movement_AttendantFaceDown:
face_down
step_end
@ Unused
Movement_AttendantFaceRight:
face_right
step_end
Movement_AttendantFaceLeft:
face_left
step_end
Movement_PlayerExitLinkRoom:
walk_down
walk_down
step_end
@ Functionally unused
Movement_PlayerApproachLinkRoomRight:
walk_right
walk_up
walk_up
step_end
Movement_PlayerApproachLinkRoomLeft:
walk_left
walk_up
walk_up
step_end
Movement_PlayerEnterLinkRoom:
walk_up
step_end
@ Unused
Movement_PlayerFaceAttendantLeft:
face_left
step_end
Movement_PlayerFaceAttendantRight:
face_right
step_end
Movement_PlayerEnterMinigameRoom:
walk_left
walk_up
walk_up
walk_up
step_end
EventScript_CableBoxResults::
lockall
setvar VAR_0x8004, 0
special ShowLinkBattleRecords
waitbuttonpress
special RemoveRecordsWindow
releaseall
end
EventScript_BattleColosseum_2P_PlayerSpot0::
setvar VAR_0x8005, 0
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_2P_PlayerSpot1::
setvar VAR_0x8005, 1
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_4P_PlayerSpot0::
fadescreen FADE_TO_BLACK
special ChooseHalfPartyForBattle
waitstate
goto_if_eq VAR_RESULT, 0, EventScript_BattleColosseum_4P_CancelSpotTrigger
setvar VAR_0x8005, 0
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_4P_PlayerSpot1::
fadescreen FADE_TO_BLACK
special ChooseHalfPartyForBattle
waitstate
goto_if_eq VAR_RESULT, 0, EventScript_BattleColosseum_4P_CancelSpotTrigger
setvar VAR_0x8005, 1
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_4P_PlayerSpot2::
fadescreen FADE_TO_BLACK
special ChooseHalfPartyForBattle
waitstate
goto_if_eq VAR_RESULT, 0, EventScript_BattleColosseum_4P_CancelSpotTrigger
setvar VAR_0x8005, 2
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_4P_PlayerSpot3::
fadescreen FADE_TO_BLACK
special ChooseHalfPartyForBattle
waitstate
goto_if_eq VAR_RESULT, 0, EventScript_BattleColosseum_4P_CancelSpotTrigger
setvar VAR_0x8005, 3
special ColosseumPlayerSpotTriggered
waitstate
end
EventScript_BattleColosseum_4P_CancelSpotTrigger::
end
EventScript_TradeCenter_Chair0::
setvar VAR_0x8005, 0
special PlayerEnteredTradeSeat
waitstate
end
EventScript_TradeCenter_Chair1::
setvar VAR_0x8005, 1
special PlayerEnteredTradeSeat
waitstate
end
/* Never used */
EventScript_TradeCenter_Chair2::
setvar VAR_0x8005, 2
special PlayerEnteredTradeSeat
waitstate
end
/* Never used */
EventScript_TradeCenter_Chair3::
setvar VAR_0x8005, 3
special PlayerEnteredTradeSeat
waitstate
end
@ VAR_TEMP_1 for below scripts set by ReceiveGiftItem
EventScript_RecordCenter_Spot0::
setvar VAR_0x8005, 0
special RecordMixingPlayerSpotTriggered
waitstate
goto_if_ne VAR_TEMP_1, ITEM_NONE, RecordCorner_EventScript_ReceivedGiftItem
end
EventScript_RecordCenter_Spot1::
setvar VAR_0x8005, 1
special RecordMixingPlayerSpotTriggered
waitstate
goto_if_ne VAR_TEMP_1, ITEM_NONE, RecordCorner_EventScript_ReceivedGiftItem
end
EventScript_RecordCenter_Spot2::
setvar VAR_0x8005, 2
special RecordMixingPlayerSpotTriggered
waitstate
goto_if_ne VAR_TEMP_1, ITEM_NONE, RecordCorner_EventScript_ReceivedGiftItem
end
EventScript_RecordCenter_Spot3::
setvar VAR_0x8005, 3
special RecordMixingPlayerSpotTriggered
waitstate
goto_if_ne VAR_TEMP_1, ITEM_NONE, RecordCorner_EventScript_ReceivedGiftItem
end
RecordCorner_EventScript_ReceivedGiftItem::
bufferitemname STR_VAR_2, VAR_TEMP_1
message RecordCorner_Text_PlayerSentOverOneX
waitmessage
waitbuttonpress
releaseall
end
CableClub_EventScript_ReadTrainerCard::
msgbox CableClub_Text_GotToLookAtTrainerCard, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
special Script_ShowLinkTrainerCard
waitstate
end
CableClub_EventScript_ReadTrainerCardColored::
msgbox CableClub_Text_GotToLookAtColoredTrainerCard, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
special Script_ShowLinkTrainerCard
waitstate
end
CableClub_EventScript_TooBusyToNotice::
msgbox CableClub_Text_TooBusyToNotice, MSGBOX_DEFAULT
closemessage
end
BattleColosseum_2P_EventScript_Attendant::
special Script_FacePlayer
msgbox BattleColosseum_2P_Text_TakePlaceStartBattle, MSGBOX_DEFAULT
special Script_ClearHeldMovement
closemessage
end
TradeCenter_EventScript_Attendant::
special Script_FacePlayer
msgbox TradeCenter_Text_TakeSeatStartTrade, MSGBOX_DEFAULT
special Script_ClearHeldMovement
closemessage
end
RecordCorner_EventScript_Attendant::
goto_if_ne VAR_TEMP_0, 0, RecordCorner_EventScript_AlreadyMixed
special Script_FacePlayer
message RecordCorner_Text_TakeSeatAndWait
waitmessage
waitbuttonpress
special Script_ClearHeldMovement
closemessage
end
RecordCorner_EventScript_AlreadyMixed::
special Script_FacePlayer
message RecordCorner_Text_ThanksForComing
waitmessage
waitbuttonpress
special Script_ClearHeldMovement
closemessage
end
EventScript_ConfirmLeaveCableClubRoom::
msgbox Text_TerminateLinkConfirmation, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, EventScript_TerminateLink
erasebox 0, 0, 29, 19
releaseall
end
EventScript_TerminateLink::
messageautoscroll Text_TerminateLinkPleaseWait
waitmessage
special ExitLinkRoom
end
EventScript_DoLinkRoomExit::
special CleanupLinkRoomState
special ReturnFromLinkRoom
waitstate
end
CableClub_EventScript_UnionRoomAttendant::
lock
faceplayer
setvar VAR_FRONTIER_FACILITY, FACILITY_UNION_ROOM
goto_if_unset FLAG_SYS_POKEDEX_GET, CableClub_EventScript_WirelessClubAdjustements
specialvar VAR_RESULT, IsBadEggInParty
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_AbortLinkPlayerHasBadEgg
copyvar VAR_0x8007, VAR_LAST_TALKED
specialvar VAR_RESULT, IsWirelessAdapterConnected
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_UnionRoomAdapterNotConnected
message CableClub_Text_WelcomeUnionRoomEnter
waitmessage
goto CableClub_EventScript_UnionRoomSelect
end
CableClub_EventScript_UnionRoomSelect::
multichoice 17, 6, MULTI_YESNOINFO, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_EnterUnionRoom
case 1, CableClub_EventScript_AbortLink
case 2, CableClub_EventScript_UnionRoomInfo
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_UnionRoomInfo::
message CableClub_Text_UnionRoomInfo
waitmessage
goto CableClub_EventScript_UnionRoomSelect
end
CableClub_EventScript_EnterUnionRoom::
call CableClub_EventScript_CheckPartyUnionRoomRequirements
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
msgbox CableClub_Text_EnjoyUnionRoom, MSGBOX_DEFAULT
closemessage
special HealPlayerParty
setvar VAR_0x8004, USING_UNION_ROOM
copyvar VAR_CABLE_CLUB_STATE, VAR_0x8004
call CableClub_EventScript_OpenUnionRoomBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomLeft
waitmovement 0
opendoor 5, 1
waitdooranim
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterLinkRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
closedoor 5, 1
waitdooranim
special Script_ResetUnionRoomTrade
special SetCableClubWarp
warpspinenter MAP_UNION_ROOM, 7, 11
waitstate
special RunUnionRoom
waitstate
end
CableClub_EventScript_CheckPartyUnionRoomRequirements::
specialvar VAR_RESULT, CountPartyNonEggMons
goto_if_lt VAR_RESULT, 2, CableClub_EventScript_NeedTwoMonsForUnionRoom
specialvar VAR_RESULT, DoesPartyHaveEnigmaBerry
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_NoEnigmaBerryInUnionRoom
setvar VAR_RESULT, 1
return
CableClub_EventScript_NeedTwoMonsForUnionRoom::
msgbox CableClub_Text_NeedTwoMonsForUnionRoom, MSGBOX_DEFAULT
goto EventScript_CableClub_SetVarResult0
end
CableClub_EventScript_NoEnigmaBerryInUnionRoom::
msgbox CableClub_Text_NoEnigmaBerryInUnionRoom, MSGBOX_DEFAULT
goto EventScript_CableClub_SetVarResult0
end
CableClub_EventScript_UnionRoomAdapterNotConnected::
msgbox CableClub_Text_UnionRoomAdapterNotConnected, MSGBOX_DEFAULT
release
return
CableClub_EventScript_WirelessClubAttendant::
lock
faceplayer
goto_if_unset FLAG_SYS_POKEDEX_GET, CableClub_EventScript_WirelessClubAdjustements
msgbox CableClub_Text_AskAboutLinking, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, CableClub_EventScript_DontAskAboutLinking
msgbox CableClub_Text_ExplainWirelessClub, MSGBOX_DEFAULT
release
return
CableClub_EventScript_DontAskAboutLinking::
msgbox CableClub_Text_HopeYouEnjoyWirelessSystem, MSGBOX_DEFAULT
release
return
CableClub_EventScript_DirectCornerAttendant::
lock
faceplayer
setvar VAR_FRONTIER_FACILITY, FACILITY_MULTI_OR_EREADER @ Set preemptively for multi battles, ignored otherwise
goto_if_unset FLAG_SYS_POKEDEX_GET, CableClub_EventScript_WirelessClubAdjustements
specialvar VAR_RESULT, IsBadEggInParty
goto_if_eq VAR_RESULT, TRUE, CableClub_EventScript_AbortLinkPlayerHasBadEgg
specialvar VAR_RESULT, IsWirelessAdapterConnected
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_WelcomeToCableClub
message CableClub_Text_WelcomeWhichDirectCornerRoom
waitmessage
delay 28
goto CableClub_EventScript_DirectCornerSelectService
end
CableClub_EventScript_DirectCornerSelectService::
checkitem ITEM_POWDER_JAR
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_DirectCornerNoBerry
goto_if_set FLAG_VISITED_MAUVILLE_CITY, CableClub_EventScript_DirectCornerSelectAllServices
multichoice 0, 0, MULTI_WIRELESS_NO_RECORD, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_WirelessTrade
case 1, CableClub_EventScript_WirelessBattleSelect
case 2, CableClub_EventScript_WirelessBerryCrush
case 3, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_DirectCornerSelectAllServices::
multichoice 0, 0, MULTI_WIRELESS_ALL_SERVICES, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_WirelessTrade
case 1, CableClub_EventScript_WirelessBattleSelect
case 2, CableClub_EventScript_WirelessRecordMix
case 3, CableClub_EventScript_WirelessBerryCrush
case 4, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_DirectCornerNoBerry::
goto_if_set FLAG_VISITED_MAUVILLE_CITY, CableClub_EventScript_DirectCornerHasRecordMix
multichoice 0, 0, MULTI_WIRELESS_NO_RECORD_BERRY, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_WirelessTrade
case 1, CableClub_EventScript_WirelessBattleSelect
case 2, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_DirectCornerHasRecordMix::
multichoice 0, 0, MULTI_WIRELESS_NO_BERRY, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_WirelessTrade
case 1, CableClub_EventScript_WirelessBattleSelect
case 2, CableClub_EventScript_WirelessRecordMix
case 3, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_WirelessTrade::
msgbox CableClub_Text_TradePokemon, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, CableClub_EventScript_AbortLink
call CableClub_EventScript_CheckPartyTradeRequirements
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
setvar VAR_0x8004, LINK_GROUP_TRADE
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_WirelessBattleSelect::
message CableClub_Text_PlayWhichBattleMode
waitmessage
multichoice 0, 0, MULTI_BATTLE_MODE, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_WirelessSingleBattle
case 1, CableClub_EventScript_WirelessDoubleBattle
case 2, CableClub_EventScript_WirelessMultiBattle
case 3, CableClub_EventScript_WirelessBattleInfo
case 4, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_WirelessSingleBattle::
setvar VAR_0x8004, LINK_GROUP_SINGLE_BATTLE
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_WirelessDoubleBattle::
special HasEnoughMonsForDoubleBattle
goto_if_ne VAR_RESULT, PLAYER_HAS_TWO_USABLE_MONS, CableClub_EventScript_TwoMonsNeededForWirelessDoubleBattle
setvar VAR_0x8004, LINK_GROUP_DOUBLE_BATTLE
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_TwoMonsNeededForWirelessDoubleBattle::
msgbox CableClub_Text_NeedTwoMonsForDoubleBattle, MSGBOX_DEFAULT
goto CableClub_EventScript_WirelessBattleSelect
end
CableClub_EventScript_WirelessMultiBattle::
setvar VAR_0x8004, LINK_GROUP_MULTI_BATTLE
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_WirelessBattleInfo::
msgbox CableClub_Text_ExplainBattleModes, MSGBOX_DEFAULT
goto CableClub_EventScript_WirelessBattleSelect
end
CableClub_EventScript_WirelessRecordMix::
msgbox CableClub_Text_AccessRecordCorner, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, CableClub_EventScript_AbortLink
setvar VAR_0x8004, LINK_GROUP_RECORD_CORNER
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_WirelessBerryCrush::
msgbox CableClub_Text_UseBerryCrush, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, CableClub_EventScript_AbortLink
special HasAtLeastOneBerry
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_NeedBerryForBerryCrush
setvar VAR_0x8004, LINK_GROUP_BERRY_CRUSH
goto CableClub_EventScript_SaveAndChooseLinkLeader
end
CableClub_EventScript_NeedBerryForBerryCrush::
msgbox CableClub_Text_NeedBerryForBerryCrush, MSGBOX_DEFAULT
goto CableClub_EventScript_DirectCornerSelectService
end
CableClub_EventScript_SaveAndChooseLinkLeader::
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, CableClub_EventScript_AbortLink
switch VAR_0x8004
case LINK_GROUP_TRADE, CableClub_EventScript_ChooseLinkLeaderFrom2
case LINK_GROUP_SINGLE_BATTLE, CableClub_EventScript_ChooseLinkLeaderFrom2
case LINK_GROUP_DOUBLE_BATTLE, CableClub_EventScript_ChooseLinkLeaderFrom2
case LINK_GROUP_MULTI_BATTLE, CableClub_EventScript_ChooseLinkLeaderFrom4
case LINK_GROUP_BERRY_CRUSH, CableClub_EventScript_ChooseLinkLeader
case LINK_GROUP_RECORD_CORNER, CableClub_EventScript_ChooseLinkLeader
end
CableClub_EventScript_ChooseLinkLeaderFrom2::
message CableClub_Text_ChooseGroupLeaderOfTwo
waitmessage
multichoice 16, 6, MULTI_LINK_LEADER, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_TryJoinGroup2Players
case 1, CableClub_EventScript_TryLeadGroup2Players
case 2, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_TryLeadGroup2Players::
call CableClub_EventScript_TryBecomeLinkLeader
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeaderFrom2
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryLeadGroup2Players
release
return
CableClub_EventScript_TryJoinGroup2Players::
call CableClub_EventScript_TryJoinLinkGroup
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeaderFrom2
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryJoinGroup2Players
release
return
CableClub_EventScript_ChooseLinkLeaderFrom4::
message CableClub_Text_ChooseGroupLeaderOfFour
waitmessage
multichoice 16, 6, MULTI_LINK_LEADER, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_TryJoinGroup4Players
case 1, CableClub_EventScript_TryLeadGroup4Players
case 2, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_TryLeadGroup4Players::
call CableClub_EventScript_TryBecomeLinkLeader
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeaderFrom4
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryLeadGroup4Players
release
return
CableClub_EventScript_TryJoinGroup4Players::
call CableClub_EventScript_TryJoinLinkGroup
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeaderFrom4
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryJoinGroup4Players
release
return
CableClub_EventScript_ChooseLinkLeader::
message CableClub_Text_ChooseGroupLeader
waitmessage
multichoice 16, 6, MULTI_LINK_LEADER, FALSE
switch VAR_RESULT
case 0, CableClub_EventScript_TryJoinGroupXPlayers
case 1, CableClub_EventScript_TryLeadGroupXPlayers
case 2, CableClub_EventScript_AbortLink
case MULTI_B_PRESSED, CableClub_EventScript_AbortLink
end
CableClub_EventScript_TryLeadGroupXPlayers::
call CableClub_EventScript_TryBecomeLinkLeader
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryLeadGroupXPlayers
release
return
CableClub_EventScript_TryJoinGroupXPlayers::
call CableClub_EventScript_TryJoinLinkGroup
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, CableClub_EventScript_EnterWirelessLinkRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, CableClub_EventScript_ChooseLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, CableClub_EventScript_TryJoinGroupXPlayers
release
return
CableClub_EventScript_TryBecomeLinkLeader::
special TryBecomeLinkLeader
waitstate
return
CableClub_EventScript_TryJoinLinkGroup::
special TryJoinLinkGroup
waitstate
return
CableClub_EventScript_EnterWirelessLinkRoom::
messageautoscroll CableClub_Text_DirectYouToYourRoom
waitmessage
delay 60
closemessage
copyvar VAR_0x8007, VAR_LAST_TALKED
call CableClub_EventScript_OpenDirectCornerBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerApproachLinkRoomLeft
waitmovement 0
opendoor 9, 1
waitdooranim
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterLinkRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
closedoor 9, 1
waitdooranim
release
waitstate
end
EventScript_WirelessBoxResults::
lockall
goto_if_unset FLAG_SYS_POKEDEX_GET, CableClub_EventScript_NotReadyYet
specialvar VAR_RESULT, IsWirelessAdapterConnected
goto_if_eq VAR_RESULT, FALSE, CableClub_EventScript_AdapterNotConnected
fadescreen FADE_TO_BLACK
special ShowWirelessCommunicationScreen
waitstate
msgbox CableClub_Text_ParticipantsStepUpToCounter, MSGBOX_DEFAULT
releaseall
end
CableClub_EventScript_AdapterNotConnected::
msgbox CableClub_Text_AdapterNotConnected, MSGBOX_DEFAULT
releaseall
end
CableClub_EventScript_OpenUnionRoomBarrier::
setmetatile 5, 2, METATILE_PokemonCenter_Floor_ShadowTop_Alt, FALSE
setmetatile 5, 3, METATILE_PokemonCenter_Floor_Plain_Alt, FALSE
return
CableClub_EventScript_CloseUnionRoomBarrier::
setmetatile 5, 2, METATILE_PokemonCenter_Floor_ShadowTop, TRUE
setmetatile 5, 3, METATILE_PokemonCenter_CounterBarrier, TRUE
return
CableClub_EventScript_OpenDirectCornerBarrier::
setmetatile 9, 2, METATILE_PokemonCenter_Floor_ShadowTop_Alt, FALSE
setmetatile 9, 3, METATILE_PokemonCenter_Floor_Plain_Alt, FALSE
return
CableClub_EventScript_CloseDirectCornerBarrier::
setmetatile 9, 2, METATILE_PokemonCenter_Floor_ShadowTop, TRUE
setmetatile 9, 3, METATILE_PokemonCenter_CounterBarrier, TRUE
return
EventScript_OpenMossdeepGameCornerBarrier::
setmetatile 5, 2, METATILE_MossdeepGameCorner_CounterOpen_Top, FALSE
setmetatile 5, 3, METATILE_MossdeepGameCorner_CounterOpen_Bottom, FALSE
return
EventScript_CloseMossdeepGameCornerBarrier::
setmetatile 5, 2, METATILE_MossdeepGameCorner_CounterClosed_Top, TRUE
setmetatile 5, 3, METATILE_MossdeepGameCorner_CounterClosed_Bottom, TRUE
return
CableClub_OnResume:
special InitUnionRoom
end
MossdeepCity_GameCorner_1F_EventScript_InfoMan2::
lock
faceplayer
message MossdeepCity_GameCorner_1F_Text_DescribeWhichGame
waitmessage
multichoice 0, 0, MULTI_WIRELESS_MINIGAME, FALSE
switch VAR_RESULT
case 0, MossdeepCity_GameCorner_1F_EventScript_PokemonJumpInfo
case 1, MossdeepCity_GameCorner_1F_EventScript_DodrioBerryPickingInfo
case 2, MossdeepCity_GameCorner_1F_EventScript_MinigameInfoExit
case MULTI_B_PRESSED, MossdeepCity_GameCorner_1F_EventScript_MinigameInfoExit
end
MossdeepCity_GameCorner_1F_EventScript_PokemonJumpInfo::
msgbox MossdeepCity_GameCorner_1F_Text_PokemonJumpInfo, MSGBOX_DEFAULT
release
end
MossdeepCity_GameCorner_1F_EventScript_DodrioBerryPickingInfo::
msgbox MossdeepCity_GameCorner_1F_Text_DodrioBerryPickingInfo, MSGBOX_DEFAULT
release
end
MossdeepCity_GameCorner_1F_EventScript_MinigameInfoExit::
msgbox MossdeepCity_GameCorner_1F_Text_TalkToOldManToPlay, MSGBOX_DEFAULT
release
end
MossdeepCity_GameCorner_1F_EventScript_OldMan2::
lock
faceplayer
message MossdeepCity_GameCorner_1F_Text_WelcomeCanYouWait
waitmessage
specialvar VAR_RESULT, IsWirelessAdapterConnected
goto_if_eq VAR_RESULT, FALSE, MossdeepCity_GameCorner_1F_EventScript_AdapterNotConnected
delay 60
message MossdeepCity_GameCorner_1F_Text_PlayWhichGame
waitmessage
multichoice 0, 0, MULTI_WIRELESS_MINIGAME, FALSE
switch VAR_RESULT
case 0, MossdeepCity_GameCorner_1F_EventScript_PlayPokemonJump
case 1, MossdeepCity_GameCorner_1F_EventScript_PlayDodrioBerryPicking
case 2, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
case MULTI_B_PRESSED, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
end
MossdeepCity_GameCorner_1F_EventScript_PlayPokemonJump::
setvar VAR_0x8005, 0
special IsPokemonJumpSpeciesInParty
goto_if_eq VAR_RESULT, FALSE, MossdeepCity_GameCorner_1F_EventScript_DontHaveRequiredMon
msgbox MossdeepCity_GameCorner_1F_Text_EnterWhichPokemon, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
setvar VAR_0x8005, 0
special ChooseMonForWirelessMinigame
waitstate
goto_if_ge VAR_0x8004, PARTY_SIZE, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
setvar VAR_0x8004, LINK_GROUP_POKEMON_JUMP
goto MossdeepCity_GameCorner_1F_EventScript_ChooseLinkLeader
end
MossdeepCity_GameCorner_1F_EventScript_PlayDodrioBerryPicking::
setvar VAR_0x8005, 1
special IsDodrioInParty
goto_if_eq VAR_RESULT, FALSE, MossdeepCity_GameCorner_1F_EventScript_DontHaveRequiredMon
msgbox MossdeepCity_GameCorner_1F_Text_EnterWhichPokemon, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
setvar VAR_0x8005, 1
special ChooseMonForWirelessMinigame
waitstate
goto_if_ge VAR_0x8004, PARTY_SIZE, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
setvar VAR_0x8004, LINK_GROUP_BERRY_PICKING
goto MossdeepCity_GameCorner_1F_EventScript_ChooseLinkLeader
end
MossdeepCity_GameCorner_1F_EventScript_ChooseLinkLeader::
message CableClub_Text_ChooseGroupLeader
waitmessage
multichoice 16, 6, MULTI_LINK_LEADER, FALSE
switch VAR_RESULT
case 0, MossdeepCity_GameCorner_1F_EventScript_TryJoinLinkGroup
case 1, MossdeepCity_GameCorner_1F_EventScript_TryBecomeLinkLeader
case 2, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
case MULTI_B_PRESSED, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
end
MossdeepCity_GameCorner_1F_EventScript_TryBecomeLinkLeader::
call CableClub_EventScript_TryBecomeLinkLeader
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, MossdeepCity_GameCorner_1F_EventScript_EnterMinigameRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, MossdeepCity_GameCorner_1F_EventScript_ChooseLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, MossdeepCity_GameCorner_1F_EventScript_TryBecomeLinkLeader
release
return
MossdeepCity_GameCorner_1F_EventScript_TryJoinLinkGroup::
call CableClub_EventScript_TryJoinLinkGroup
goto_if_eq VAR_RESULT, LINKUP_SUCCESS, MossdeepCity_GameCorner_1F_EventScript_EnterMinigameRoom
goto_if_eq VAR_RESULT, LINKUP_FAILED, MossdeepCity_GameCorner_1F_EventScript_ChooseLinkLeader
goto_if_eq VAR_RESULT, LINKUP_RETRY_ROLE_ASSIGN, MossdeepCity_GameCorner_1F_EventScript_TryJoinLinkGroup
release
return
MossdeepCity_GameCorner_1F_EventScript_EnterMinigameRoom::
messageautoscroll MossdeepCity_GameCorner_1F_Text_AllGoodToGo
waitmessage
delay 60
closemessage
copyvar VAR_0x8007, VAR_LAST_TALKED
call EventScript_OpenMossdeepGameCornerBarrier
special DrawWholeMapView
playse SE_CLICK
delay 60
applymovement VAR_LAST_TALKED, Movement_AttendantFaceLeft
waitmovement 0
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Movement_PlayerEnterMinigameRoom
waitmovement 0
hideobjectat OBJ_EVENT_ID_PLAYER, 0
release
waitstate
end
MossdeepCity_GameCorner_1F_EventScript_AdapterNotConnected::
delay 60
msgbox MossdeepCity_GameCorner_1F_Text_AdapterNotConnected, MSGBOX_DEFAULT
release
end
MossdeepCity_GameCorner_1F_EventScript_DontHaveRequiredMon::
msgbox MossdeepCity_GameCorner_1F_Text_ExplainRequiredMon, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
call_if_eq VAR_0x8005, 0, MossdeepCity_GameCorner_1F_EventScript_ExplainPokemonJumpRequirements
call_if_eq VAR_0x8005, 1, MossdeepCity_GameCorner_1F_EventScript_ExplainDodrioBerryPickingRequirements
goto MossdeepCity_GameCorner_1F_EventScript_AbortMinigame
end
MossdeepCity_GameCorner_1F_EventScript_ExplainPokemonJumpRequirements::
msgbox MossdeepCity_GameCorner_1F_Text_ShortJumpingPokemonAllowed, MSGBOX_DEFAULT
return
MossdeepCity_GameCorner_1F_EventScript_ExplainDodrioBerryPickingRequirements::
msgbox MossdeepCity_GameCorner_1F_Text_OnlyDodrioAllowed, MSGBOX_DEFAULT
return
MossdeepCity_GameCorner_1F_EventScript_PokemonJumpRecords::
lockall
special ShowPokemonJumpRecords
waitstate
releaseall
end
MossdeepCity_GameCorner_1F_EventScript_DodrioBerryPickingRecords::
lockall
special ShowDodrioBerryPickingRecords
waitstate
releaseall
end

View File

@ -0,0 +1,33 @@
CaveHole_CheckFallDownHole:
map_script_2 VAR_ICE_STEP_COUNT, 0, EventScript_FallDownHole
.2byte 0
CaveHole_FixCrackedGround:
copyvar VAR_ICE_STEP_COUNT, 1
end
EventScript_FallDownHole::
lockall
delay 20
applymovement OBJ_EVENT_ID_PLAYER, Movement_SetInvisible
waitmovement 0
playse SE_FALL
delay 60
warphole MAP_UNDEFINED
waitstate
end
EventScript_FallDownHoleMtPyre::
lockall
delay 20
applymovement OBJ_EVENT_ID_PLAYER, Movement_SetInvisible
waitmovement 0
playse SE_FALL
delay 60
special DoFallWarp
waitstate
end
Movement_SetInvisible:
set_invisible
step_end

View File

@ -0,0 +1,45 @@
@ All unused / leftover scripts from RS
CaveOfOrigin_EventScript_LegendaryCry::
lockall
waitse
playmoncry SPECIES_KYOGRE, CRY_MODE_ENCOUNTER @ SPECIES_GROUDON in Ruby
waitmoncry
setvar VAR_TEMP_5, 1
releaseall
end
CaveOfOrigin_EventScript_Shake1::
lockall
setvar VAR_TEMP_1, 1
goto CaveOfOrigin_EventScript_Shake
end
CaveOfOrigin_EventScript_Shake2::
lockall
setvar VAR_TEMP_2, 1
goto CaveOfOrigin_EventScript_Shake
end
CaveOfOrigin_EventScript_Shake3::
lockall
setvar VAR_TEMP_3, 1
goto CaveOfOrigin_EventScript_Shake
end
CaveOfOrigin_EventScript_Shake::
setvar VAR_0x8004, 1 @ vertical pan
setvar VAR_0x8005, 1 @ horizontal pan
setvar VAR_0x8006, 8 @ num shakes
setvar VAR_0x8007, 5 @ shake delay
special ShakeCamera
waitstate
releaseall
end
CaveOfOrigin_EventScript_DisableTriggers::
setvar VAR_TEMP_1, 1
setvar VAR_TEMP_2, 1
setvar VAR_TEMP_3, 1
setvar VAR_TEMP_4, 1
setvar VAR_TEMP_5, 1
return

View File

@ -0,0 +1,27 @@
EventScript_PictureBookShelf::
msgbox Text_PictureBookShelf, MSGBOX_SIGN
end
EventScript_BookShelf::
msgbox Text_BookShelf, MSGBOX_SIGN
end
EventScript_PokemonCenterBookShelf::
msgbox Text_PokemonCenterBookShelf, MSGBOX_SIGN
end
EventScript_Vase::
msgbox Text_Vase, MSGBOX_SIGN
end
EventScript_EmptyTrashCan::
msgbox Text_EmptyTrashCan, MSGBOX_SIGN
end
EventScript_ShopShelf::
msgbox Text_ShopShelf, MSGBOX_SIGN
end
EventScript_Blueprint::
msgbox Text_Blueprint, MSGBOX_SIGN
end

View File

@ -0,0 +1,1801 @@
.set LOCALID_MC, 1
.set LOCALID_JUDGE, 2
.set LOCALID_CONTESTANT_1, 3
.set LOCALID_CONTESTANT_2, 4
.set LOCALID_CONTESTANT_3, 5
.set LOCALID_AUDIENCE_1, 6
.set LOCALID_AUDIENCE_3, 7
.set LOCALID_AUDIENCE_4, 8
.set LOCALID_AUDIENCE_5, 9
.set LOCALID_AUDIENCE_6, 10
.set LOCALID_AUDIENCE_7, 11
.set LOCALID_AUDIENCE_2, 12
.set LOCALID_POKEBALL, 13
.set LOCALID_CONTESTANT_4, 14
.set LOCALID_ARTIST, 15
@ Either ends or returns to EventScript_ContestReceptionist after submitting a contest entry
LilycoveCity_ContestLobby_EventScript_SpeakToContestReceptionist::
lock
faceplayer
goto_if_ne VAR_CONTEST_PRIZE_PICKUP, 0, LilycoveCity_ContestLobby_EventScript_PickUpPrize
call_if_set FLAG_RECEIVED_POKEBLOCK_CASE, LilycoveCity_ContestLobby_EventScript_ReceptionWelcome
call_if_unset FLAG_RECEIVED_POKEBLOCK_CASE, LilycoveCity_ContestLobby_EventScript_GivePokeblockCase
goto LilycoveCity_ContestLobby_EventScript_AskEnterContest
end
LilycoveCity_ContestLobby_EventScript_ReceptionWelcome::
msgbox LilycoveCity_ContestLobby_Text_ContestReception, MSGBOX_DEFAULT
return
LilycoveCity_ContestLobby_EventScript_GivePokeblockCase::
msgbox LilycoveCity_ContestLobby_Text_ReceptionDontHavePokeblockCase, MSGBOX_DEFAULT
giveitem ITEM_POKEBLOCK_CASE
setflag FLAG_RECEIVED_POKEBLOCK_CASE
msgbox LilycoveCity_ContestLobby_Text_NowThatWeveClearedThatUp, MSGBOX_DEFAULT
return
LilycoveCity_ContestLobby_EventScript_PickUpPrize::
msgbox LilycoveCity_ContestLobby_Text_PokemonWonWeHavePrize, MSGBOX_DEFAULT
switch VAR_CONTEST_PRIZE_PICKUP
case 4, LilycoveCity_ContestLobby_EventScript_GiveLuxuryBallAtCounter
end
LilycoveCity_ContestLobby_EventScript_GiveLuxuryBallAtCounter::
giveitem ITEM_LUXURY_BALL
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_ContestLobby_EventScript_NoRoomForLuxuryBallAtCounter
setvar VAR_CONTEST_PRIZE_PICKUP, 0
closemessage
release
end
LilycoveCity_ContestLobby_EventScript_NoRoomForLuxuryBallAtCounter::
call Common_EventScript_BagIsFull
msgbox LilycoveCity_ContestLobby_Text_ComeBackForPrizeLater, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_AskEnterContest::
message LilycoveCity_ContestLobby_Text_EnterContest1
waitmessage
multichoice 0, 0, MULTI_ENTERINFO, FALSE
switch VAR_RESULT
case 0, LilycoveCity_ContestLobby_EventScript_ChooseContestRank
case 1, LilycoveCity_ContestLobby_EventScript_ContestInfo
case 2, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
case MULTI_B_PRESSED, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
end
LilycoveCity_ContestLobby_EventScript_ContestInfo::
message LilycoveCity_ContestLobby_Text_WhichTopic1
waitmessage
multichoice 0, 0, MULTI_CONTEST_INFO, FALSE
switch VAR_RESULT
case 0, LilycoveCity_ContestLobby_EventScript_ExplainContests
case 1, LilycoveCity_ContestLobby_EventScript_ExplainContestTypes
case 2, LilycoveCity_ContestLobby_EventScript_ExplainContestRanks
case 3, LilycoveCity_ContestLobby_EventScript_AskEnterContest
case MULTI_B_PRESSED, LilycoveCity_ContestLobby_EventScript_AskEnterContest
end
LilycoveCity_ContestLobby_EventScript_ExplainContests::
msgbox LilycoveCity_ContestLobby_Text_ExplainContests, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ContestInfo
end
LilycoveCity_ContestLobby_EventScript_ExplainContestTypes::
msgbox LilycoveCity_ContestLobby_Text_ExplainContestTypes, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ContestInfo
end
LilycoveCity_ContestLobby_EventScript_ExplainContestRanks::
msgbox LilycoveCity_ContestLobby_Text_ExplainContestRanks, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ContestInfo
end
LilycoveCity_ContestLobby_EventScript_CancelEnterContest::
msgbox LilycoveCity_ContestLobby_Text_ParticipateAnotherTime, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_ChooseContestMon::
msgbox LilycoveCity_ContestLobby_Text_EnterWhichPokemon1, MSGBOX_DEFAULT
choosecontestmon
goto_if_eq VAR_0x8004, PARTY_NOTHING_CHOSEN, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
special TryEnterContestMon
goto_if_eq VAR_RESULT, CANT_ENTER_CONTEST, LilycoveCity_ContestLobby_EventScript_CantEnterLowRank
goto_if_eq VAR_RESULT, CAN_ENTER_CONTEST_EQUAL_RANK, LilycoveCity_ContestLobby_EventScript_EnterMon
goto_if_eq VAR_RESULT, CAN_ENTER_CONTEST_HIGH_RANK, LilycoveCity_ContestLobby_EventScript_ConfirmEntryAlreadyWon
goto_if_eq VAR_RESULT, CANT_ENTER_CONTEST_EGG, LilycoveCity_ContestLobby_EventScript_CantEnterEgg
goto_if_eq VAR_RESULT, CANT_ENTER_CONTEST_FAINTED, LilycoveCity_ContestLobby_EventScript_CantEnterFainted
end
LilycoveCity_ContestLobby_EventScript_ChooseContestRank::
message LilycoveCity_ContestLobby_Text_EnterWhichRank
waitmessage
multichoice 0, 0, MULTI_CONTEST_RANK, FALSE
switch VAR_RESULT
case 0, LilycoveCity_ContestLobby_EventScript_EnterNormalRank
case 1, LilycoveCity_ContestLobby_EventScript_EnterSuperRank
case 2, LilycoveCity_ContestLobby_EventScript_EnterHyperRank
case 3, LilycoveCity_ContestLobby_EventScript_EnterMasterRank
case 4, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
case MULTI_B_PRESSED, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
end
LilycoveCity_ContestLobby_EventScript_EnterNormalRank::
setvar VAR_CONTEST_RANK, CONTEST_RANK_NORMAL
goto LilycoveCity_ContestLobby_EventScript_ChooseContestType
end
LilycoveCity_ContestLobby_EventScript_EnterSuperRank::
setvar VAR_CONTEST_RANK, CONTEST_RANK_SUPER
goto LilycoveCity_ContestLobby_EventScript_ChooseContestType
end
LilycoveCity_ContestLobby_EventScript_EnterHyperRank::
setvar VAR_CONTEST_RANK, CONTEST_RANK_HYPER
goto LilycoveCity_ContestLobby_EventScript_ChooseContestType
end
LilycoveCity_ContestLobby_EventScript_EnterMasterRank::
setvar VAR_CONTEST_RANK, CONTEST_RANK_MASTER
goto LilycoveCity_ContestLobby_EventScript_ChooseContestType
end
@ The multichoice selection IDs are equal to the CATEGORY values
@ So rather than list the cases they just copy VAR_RESULT for a valid selection into VAR_CONTEST_CATEGORY
LilycoveCity_ContestLobby_EventScript_ChooseContestType::
message LilycoveCity_ContestLobby_Text_EnterWhichContest1
waitmessage
multichoice 0, 0, MULTI_CONTEST_TYPE, FALSE
switch VAR_RESULT
case 5, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
case MULTI_B_PRESSED, LilycoveCity_ContestLobby_EventScript_CancelEnterContest
copyvar VAR_CONTEST_CATEGORY, VAR_RESULT
goto LilycoveCity_ContestLobby_EventScript_ChooseContestMon
end
LilycoveCity_ContestLobby_EventScript_CantEnterLowRank::
msgbox LilycoveCity_ContestLobby_Text_MonNotQualifiedForRank, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ChooseContestMon
release
end
@ Unused
LilycoveCity_ContestLobby_EventScript_ConfirmEntry::
msgbox LilycoveCity_ContestLobby_Text_ConfirmContestMon, MSGBOX_YESNO
switch VAR_RESULT
case NO, LilycoveCity_ContestLobby_EventScript_ChooseContestMon
case YES, LilycoveCity_ContestLobby_EventScript_EnterMon
end
LilycoveCity_ContestLobby_EventScript_ConfirmEntryAlreadyWon::
msgbox LilycoveCity_ContestLobby_Text_AlreadyWonEnterAnyway, MSGBOX_YESNO
switch VAR_RESULT
case NO, LilycoveCity_ContestLobby_EventScript_ChooseContestMon
case YES, LilycoveCity_ContestLobby_EventScript_EnterMon
end
LilycoveCity_ContestLobby_EventScript_CantEnterEgg::
msgbox LilycoveCity_ContestLobby_Text_EggCannotTakePart, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ChooseContestMon
release
end
LilycoveCity_ContestLobby_EventScript_CantEnterFainted::
msgbox LilycoveCity_ContestLobby_Text_MonInNoConditionForContest, MSGBOX_DEFAULT
goto LilycoveCity_ContestLobby_EventScript_ChooseContestMon
release
end
@ The return here is back to LilycoveCity_ContestLobby_EventScript_ContestReceptionist
LilycoveCity_ContestLobby_EventScript_EnterMon::
msgbox LilycoveCity_ContestLobby_Text_YourMonIsEntryNum4, MSGBOX_DEFAULT
closemessage
releaseall
setvar VAR_CONTEST_HALL_STATE, 1
return
ContestHall_EventScript_DoContest::
special LinkContestTryShowWirelessIndicator
setvar VAR_0x8006, 0
lockall
applymovement LOCALID_CONTESTANT_4, ContestHall_Movement_Player4FaceUp
waitmovement 0
applymovement LOCALID_MC, ContestHall_Movement_MCWalkDown
waitmovement 0
releaseall
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_GetContestRankStringId
call ContestHall_EventScript_GetContestCategory
call ContestHall_EventScript_ContestGettingStarted
call ContestHall_EventScript_ShowContestMons
call ContestHall_EventScript_DoContestAppeals
call ContestHall_EventScript_ContestResults
call ContestHall_EventScript_GetWinnerObjEventId
call ContestHall_EventScript_CongratulateWinner
call ContestHall_EventScript_AudienceLookAround
call ContestHall_EventScript_GiveWinnerPrize
setvar VAR_CONTEST_HALL_STATE, 2
return
ContestHall_EventScript_GetContestRankStringId::
switch VAR_CONTEST_RANK
case CONTEST_RANK_NORMAL, ContestHall_EventScript_GetNormalStringId
case CONTEST_RANK_SUPER, ContestHall_EventScript_GetSuperStringId
case CONTEST_RANK_HYPER, ContestHall_EventScript_GetHyperStringId
case CONTEST_RANK_MASTER, ContestHall_EventScript_GetMasterStringId
return
ContestHall_EventScript_GetNormalStringId::
setvar VAR_0x8009, STDSTRING_NORMAL
return
ContestHall_EventScript_GetSuperStringId::
setvar VAR_0x8009, STDSTRING_SUPER
return
ContestHall_EventScript_GetHyperStringId::
setvar VAR_0x8009, STDSTRING_HYPER
return
ContestHall_EventScript_GetMasterStringId::
setvar VAR_0x8009, STDSTRING_MASTER
return
@ This whole switch is equivalent to copyvar VAR_0x8008, VAR_CONTEST_CATEGORY
ContestHall_EventScript_GetContestCategory::
switch VAR_CONTEST_CATEGORY
case CONTEST_CATEGORY_COOL, ContestHall_EventScript_GetCategoryCool
case CONTEST_CATEGORY_BEAUTY, ContestHall_EventScript_GetCategoryBeauty
case CONTEST_CATEGORY_CUTE, ContestHall_EventScript_GetCategoryCute
case CONTEST_CATEGORY_SMART, ContestHall_EventScript_GetCategorySmart
case CONTEST_CATEGORY_TOUGH, ContestHall_EventScript_GetCategoryTough
return
ContestHall_EventScript_GetCategoryCool::
setvar VAR_0x8008, CONTEST_CATEGORY_COOL
return
ContestHall_EventScript_GetCategoryBeauty::
setvar VAR_0x8008, CONTEST_CATEGORY_BEAUTY
return
ContestHall_EventScript_GetCategoryCute::
setvar VAR_0x8008, CONTEST_CATEGORY_CUTE
return
ContestHall_EventScript_GetCategorySmart::
setvar VAR_0x8008, CONTEST_CATEGORY_SMART
return
ContestHall_EventScript_GetCategoryTough::
setvar VAR_0x8008, CONTEST_CATEGORY_TOUGH
return
ContestHall_EventScript_ContestGettingStarted::
buffercontestname STR_VAR_2, VAR_0x8008
bufferstdstring STR_VAR_3, VAR_0x8009
call ContestHall_EventScript_GettingStarted
lockall
applymovement LOCALID_MC, ContestHall_Movement_MCBackUp
waitmovement 0
releaseall
return
ContestHall_EventScript_GettingStarted::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_GettingStartedLink
lockall
msgbox ContestHall_Text_GettingStartedParticipantsAsFollows, MSGBOX_DEFAULT
releaseall
return
ContestHall_EventScript_GettingStartedLink::
specialvar VAR_RESULT, IsWirelessContest
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_GettingStartedWireless
messageautoscroll ContestHall_Text_GettingStartedParticipantsAsFollowsLink
waitmessage
return
ContestHall_EventScript_GettingStartedWireless::
messageautoscroll ContestHall_Text_GettingStartedWireless
waitmessage
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_ParticipantsAsFollows
waitmessage
call ContestHall_EventScript_TryWaitForLink
return
ContestHall_EventScript_ShowContestMons::
call ContestHall_EventScript_ContestantWalkToCenter
call ContestHall_EventScript_ShowContestMonPic
call ContestHall_EventScript_AudienceHeartEmotes
call ContestHall_EventScript_AudienceReactToContestant
call ContestHall_EventScript_ContestantReturn
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_TryWaitForLink
addvar VAR_0x8006, 1
goto_if_ne VAR_0x8006, CONTESTANT_COUNT, ContestHall_EventScript_ShowContestMons
call ContestHall_EventScript_AudienceVote
setvar VAR_TEMP_1, 6
return
ContestHall_EventScript_TryWaitForLink::
specialvar VAR_RESULT, IsWirelessContest
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_WaitForLink
return
ContestHall_EventScript_WaitForLink::
special LinkContestWaitForConnection
waitstate
return
ContestHall_EventScript_ContestantWalkToCenter::
goto_if_eq VAR_0x8006, 0, ContestHall_EventScript_Player1WalkToCenter
goto_if_eq VAR_0x8006, 1, ContestHall_EventScript_Player2WalkToCenter
goto_if_eq VAR_0x8006, 2, ContestHall_EventScript_Player3WalkToCenter
goto_if_eq VAR_0x8006, 3, ContestHall_EventScript_Player4WalkToCenter
return
ContestHall_EventScript_Player1WalkToCenter::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement LOCALID_CONTESTANT_1, ContestHall_Movement_Player1WalkToCenter
waitmovement 0
releaseall
setvar VAR_0x800B, LOCALID_CONTESTANT_1
return
ContestHall_EventScript_Player2WalkToCenter::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement LOCALID_CONTESTANT_2, ContestHall_Movement_Player2WalkToCenter
waitmovement 0
releaseall
setvar VAR_0x800B, LOCALID_CONTESTANT_2
return
ContestHall_EventScript_Player3WalkToCenter::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement LOCALID_CONTESTANT_3, ContestHall_Movement_Player3WalkToCenter
waitmovement 0
releaseall
setvar VAR_0x800B, LOCALID_CONTESTANT_3
return
ContestHall_EventScript_Player4WalkToCenter::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement LOCALID_CONTESTANT_4, ContestHall_Movement_Player4WalkToCenter
waitmovement 0
releaseall
setvar VAR_0x800B, LOCALID_CONTESTANT_4
return
ContestHall_EventScript_ShowContestMonPic::
special BufferContestTrainerAndMonNames
addvar VAR_0x8006, 1
buffernumberstring STR_VAR_2, VAR_0x8006
lockall
applymovement VAR_0x800B, ContestHall_Movement_ContestantDelay32
waitmovement 0
releaseall
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_CheckIfContestWithRSPlayer
addobject LOCALID_POKEBALL
playse SE_LEDGE
lockall
applymovement VAR_0x800B, ContestHall_Movement_ContestantDelay32
waitmovement 0
releaseall
addvar VAR_0x8006, -1
playse SE_BALL_OPEN
special ShowContestEntryMonPic
call ContestHall_EventScript_EntryXTrainersMon
return
ContestHall_EventScript_EntryXTrainersMon::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_EntryXTrainersMonLink
message ContestHall_Text_EntryXTrainersMon
waitmessage
return
ContestHall_EventScript_EntryXTrainersMonLink::
messageautoscroll ContestHall_Text_EntryXTrainersMon
waitmessage
return
ContestHall_EventScript_AudienceVote::
call ContestHall_EventScript_AudienceWillVote
call ContestHall_EventScript_VotingUnderWay
playse SE_M_ENCORE2
waitmessage
call ContestHall_EventScript_AudienceLookAround
applymovement LOCALID_MC, ContestHall_Movement_MCFaceJudge2
waitmovement 0
applymovement LOCALID_JUDGE, ContestHall_Movement_JudgeFaceMC
waitmovement 0
delay 20
applymovement LOCALID_MC, ContestHall_Movement_FaceContestants
applymovement LOCALID_JUDGE, ContestHall_Movement_FaceContestants
waitmovement 0
return
ContestHall_EventScript_AudienceWillVote::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_AudienceWillVoteLink
msgbox ContestHall_Text_SeenContestantsAudienceWillVote, MSGBOX_DEFAULT
return
ContestHall_EventScript_AudienceWillVoteLink::
specialvar VAR_RESULT, IsWirelessContest
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_AudienceWillVoteWireless
messageautoscroll ContestHall_Text_SeenContestantsAudienceWillVote
waitmessage
return
ContestHall_EventScript_AudienceWillVoteWireless::
messageautoscroll ContestHall_Text_WeveSeenContestants
waitmessage
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_AudienceWillVote
waitmessage
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_LetVotingBegin
waitmessage
call ContestHall_EventScript_TryWaitForLink
return
ContestHall_EventScript_VotingUnderWay::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_VotingUnderWayLink
message ContestHall_Text_VotingUnderWay
return
ContestHall_EventScript_VotingUnderWayLink::
messageautoscroll ContestHall_Text_VotingUnderWay
call ContestHall_EventScript_TryWaitForLink
return
ContestHall_EventScript_AudienceReactToContestant::
call ContestHall_EventScript_TryWaitForLink
applymovement LOCALID_MC, ContestHall_Movement_AudienceMemberLookLeft
waitmovement 0
playse SE_M_ENCORE2
call ContestHall_EventScript_VObjectAudienceLookAround
applymovement LOCALID_AUDIENCE_5, ContestHall_Movement_AudienceMemberLookRight
applymovement LOCALID_AUDIENCE_2, ContestHall_Movement_AudienceMemberLookDown
applymovement LOCALID_AUDIENCE_3, ContestHall_Movement_AudienceMemberLookRight
waitmovement 0
applymovement LOCALID_MC, ContestHall_Movement_AudienceMemberLookRight
waitmovement 0
applymovement LOCALID_AUDIENCE_6, ContestHall_Movement_AudienceMemberLookLeft
applymovement LOCALID_AUDIENCE_7, ContestHall_Movement_AudienceMemberLookDown
applymovement LOCALID_AUDIENCE_1, ContestHall_Movement_AudienceMemberLookUp
applymovement LOCALID_AUDIENCE_4, ContestHall_Movement_AudienceMemberLookLeft
waitmovement 0
applymovement LOCALID_MC, ContestHall_Movement_MCLookAtJudge
waitmovement 0
applymovement LOCALID_MC, ContestHall_Movement_MCWalkInPlaceDown
applymovement LOCALID_JUDGE, ContestHall_Movement_JudgeLookAtMC
waitmovement 0
releaseall
call ContestHall_EventScript_TryWaitForLink
return
@ For below VAR_TEMP_0 is the number of heart emotes to try to display in the audience
@ The number of hearts to try to display is based on the condition of the presented pokemon and the rank
@ For each heart to display a random audience member is chosen, and a new one chosen if they already displayed a heart
@ VAR_TEMP_1 through VAR_TEMP_8 represent each of the 8 audience members that are actual object events
@ and are set to 9 if they havent displayed a heart yet, and 1 if they have
ContestHall_EventScript_AudienceHeartEmotes::
special GetContestMonCondition
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_NORMAL, ContestHall_EventScript_GetNumberOfHeartsNormal
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_SUPER, ContestHall_EventScript_GetNumberOfHeartsSuper
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_HYPER, ContestHall_EventScript_GetNumberOfHeartsHyper
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_MASTER, ContestHall_EventScript_GetNumberOfHeartsMaster
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_GetNumberOfHeartsLink
setvar VAR_TEMP_1, 9
setvar VAR_TEMP_2, 9
setvar VAR_TEMP_3, 9
setvar VAR_TEMP_4, 9
setvar VAR_TEMP_5, 9
setvar VAR_TEMP_6, 9
setvar VAR_TEMP_7, 9
setvar VAR_TEMP_8, 9
call_if_gt VAR_TEMP_0, 0, ContestHall_EventScript_DisplayHearts
setvar VAR_TEMP_1, 0
setvar VAR_TEMP_2, 0
setvar VAR_TEMP_3, 0
setvar VAR_TEMP_4, 0
setvar VAR_TEMP_5, 0
setvar VAR_TEMP_6, 0
setvar VAR_TEMP_7, 0
setvar VAR_TEMP_8, 0
return
ContestHall_EventScript_DisplayHearts::
setvar VAR_RESULT, 8
special GenerateContestRand
call_if_eq VAR_RESULT, 0, ContestHall_EventScript_TryDisplayHeartAudienceMember1
call_if_eq VAR_RESULT, 1, ContestHall_EventScript_TryDisplayHeartAudienceMember2
call_if_eq VAR_RESULT, 2, ContestHall_EventScript_TryDisplayHeartAudienceMember3
call_if_eq VAR_RESULT, 3, ContestHall_EventScript_TryDisplayHeartAudienceMember4
call_if_eq VAR_RESULT, 4, ContestHall_EventScript_TryDisplayHeartAudienceMember5
call_if_eq VAR_RESULT, 5, ContestHall_EventScript_TryDisplayHeartAudienceMember6
call_if_eq VAR_RESULT, 6, ContestHall_EventScript_TryDisplayHeartAudienceMember7
call_if_eq VAR_RESULT, 7, ContestHall_EventScript_TryDisplayHeartAudienceMember8
goto_if_gt VAR_TEMP_0, 0, ContestHall_EventScript_DisplayHearts @ Still more hearts to display
waitmovement 0
return
ContestHall_EventScript_GetNumberOfHeartsNormal::
goto_if_gt VAR_0x8004, 80, ContestHall_EventScript_Set8Hearts
goto_if_gt VAR_0x8004, 70, ContestHall_EventScript_Set7Hearts
goto_if_gt VAR_0x8004, 60, ContestHall_EventScript_Set6Hearts
goto_if_gt VAR_0x8004, 50, ContestHall_EventScript_Set5Hearts
goto_if_gt VAR_0x8004, 40, ContestHall_EventScript_Set4Hearts
goto_if_gt VAR_0x8004, 30, ContestHall_EventScript_Set3Hearts
goto_if_gt VAR_0x8004, 20, ContestHall_EventScript_Set2Hearts
goto_if_gt VAR_0x8004, 10, ContestHall_EventScript_Set1Heart
setvar VAR_TEMP_0, 0
return
ContestHall_EventScript_GetNumberOfHeartsSuper::
goto_if_gt VAR_0x8004, 230, ContestHall_EventScript_Set8Hearts
goto_if_gt VAR_0x8004, 210, ContestHall_EventScript_Set7Hearts
goto_if_gt VAR_0x8004, 190, ContestHall_EventScript_Set6Hearts
goto_if_gt VAR_0x8004, 170, ContestHall_EventScript_Set5Hearts
goto_if_gt VAR_0x8004, 150, ContestHall_EventScript_Set4Hearts
goto_if_gt VAR_0x8004, 130, ContestHall_EventScript_Set3Hearts
goto_if_gt VAR_0x8004, 110, ContestHall_EventScript_Set2Hearts
goto_if_gt VAR_0x8004, 90, ContestHall_EventScript_Set1Heart
setvar VAR_TEMP_0, 0
return
ContestHall_EventScript_GetNumberOfHeartsHyper::
goto_if_gt VAR_0x8004, 380, ContestHall_EventScript_Set8Hearts
goto_if_gt VAR_0x8004, 350, ContestHall_EventScript_Set7Hearts
goto_if_gt VAR_0x8004, 320, ContestHall_EventScript_Set6Hearts
goto_if_gt VAR_0x8004, 290, ContestHall_EventScript_Set5Hearts
goto_if_gt VAR_0x8004, 260, ContestHall_EventScript_Set4Hearts
goto_if_gt VAR_0x8004, 230, ContestHall_EventScript_Set3Hearts
goto_if_gt VAR_0x8004, 200, ContestHall_EventScript_Set2Hearts
goto_if_gt VAR_0x8004, 170, ContestHall_EventScript_Set1Heart
setvar VAR_TEMP_0, 0
return
ContestHall_EventScript_GetNumberOfHeartsMaster::
goto_if_gt VAR_0x8004, 600, ContestHall_EventScript_Set8Hearts
goto_if_gt VAR_0x8004, 560, ContestHall_EventScript_Set7Hearts
goto_if_gt VAR_0x8004, 520, ContestHall_EventScript_Set6Hearts
goto_if_gt VAR_0x8004, 480, ContestHall_EventScript_Set5Hearts
goto_if_gt VAR_0x8004, 440, ContestHall_EventScript_Set4Hearts
goto_if_gt VAR_0x8004, 400, ContestHall_EventScript_Set3Hearts
goto_if_gt VAR_0x8004, 360, ContestHall_EventScript_Set2Hearts
goto_if_gt VAR_0x8004, 320, ContestHall_EventScript_Set1Heart
setvar VAR_TEMP_0, 0
return
ContestHall_EventScript_GetNumberOfHeartsLink::
goto_if_gt VAR_0x8004, 600, ContestHall_EventScript_Set8Hearts
goto_if_gt VAR_0x8004, 550, ContestHall_EventScript_Set7Hearts
goto_if_gt VAR_0x8004, 500, ContestHall_EventScript_Set6Hearts
goto_if_gt VAR_0x8004, 450, ContestHall_EventScript_Set5Hearts
goto_if_gt VAR_0x8004, 400, ContestHall_EventScript_Set4Hearts
goto_if_gt VAR_0x8004, 300, ContestHall_EventScript_Set3Hearts
goto_if_gt VAR_0x8004, 200, ContestHall_EventScript_Set2Hearts
goto_if_gt VAR_0x8004, 100, ContestHall_EventScript_Set1Heart
setvar VAR_TEMP_0, 0
return
ContestHall_EventScript_Set1Heart::
setvar VAR_TEMP_0, 1
return
ContestHall_EventScript_Set2Hearts::
setvar VAR_TEMP_0, 2
return
ContestHall_EventScript_Set3Hearts::
setvar VAR_TEMP_0, 3
return
ContestHall_EventScript_Set4Hearts::
setvar VAR_TEMP_0, 4
return
ContestHall_EventScript_Set5Hearts::
setvar VAR_TEMP_0, 5
return
ContestHall_EventScript_Set6Hearts::
setvar VAR_TEMP_0, 6
return
ContestHall_EventScript_Set7Hearts::
setvar VAR_TEMP_0, 7
return
ContestHall_EventScript_Set8Hearts::
setvar VAR_TEMP_0, 8
return
ContestHall_EventScript_TryDisplayHeartAudienceMember1::
goto_if_eq VAR_TEMP_1, 1, ContestHall_EventScript_AudienceMember1AlreadyEmoted
applymovement LOCALID_AUDIENCE_1, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_1, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember1AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember2::
goto_if_eq VAR_TEMP_2, 1, ContestHall_EventScript_AudienceMember2AlreadyEmoted
applymovement LOCALID_AUDIENCE_2, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_2, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember2AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember3::
goto_if_eq VAR_TEMP_3, 1, ContestHall_EventScript_AudienceMember3AlreadyEmoted
applymovement LOCALID_AUDIENCE_3, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_3, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember3AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember4::
goto_if_eq VAR_TEMP_4, 1, ContestHall_EventScript_Audience4MemberAlreadyEmoted
applymovement LOCALID_AUDIENCE_4, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_4, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_Audience4MemberAlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember5::
goto_if_eq VAR_TEMP_5, 1, ContestHall_EventScript_AudienceMember5AlreadyEmoted
applymovement LOCALID_AUDIENCE_5, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_5, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember5AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember6::
goto_if_eq VAR_TEMP_6, 1, ContestHall_EventScript_AudienceMember6AlreadyEmoted
applymovement LOCALID_AUDIENCE_6, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_6, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember6AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember7::
goto_if_eq VAR_TEMP_7, 1, ContestHall_EventScript_AudienceMember7AlreadyEmoted
applymovement LOCALID_AUDIENCE_7, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_7, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember7AlreadyEmoted::
return
ContestHall_EventScript_TryDisplayHeartAudienceMember8::
goto_if_eq VAR_TEMP_8, 1, ContestHall_EventScript_AudienceMember8AlreadyEmoted
applymovement LOCALID_ARTIST, ContestHall_Movement_Heart
playse SE_PIN
delay 14
setvar VAR_TEMP_8, 1
addvar VAR_TEMP_0, -1
return
ContestHall_EventScript_AudienceMember8AlreadyEmoted::
return
ContestHall_EventScript_ContestantReturn::
closemessage
release
removeobject LOCALID_POKEBALL
special HideContestEntryMonPic
call ContestHall_EventScript_TryWaitForLink
switch VAR_0x8006
case 0, ContestHall_EventScript_Player1WalkBack
case 1, ContestHall_EventScript_Player2WalkBack
case 2, ContestHall_EventScript_Player3WalkBack
case 3, ContestHall_EventScript_Player4WalkBack
return
ContestHall_EventScript_Player1WalkBack::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement VAR_0x800B, ContestHall_Movement_Player1WalkBack
waitmovement 0
releaseall
return
ContestHall_EventScript_Player2WalkBack::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement VAR_0x800B, ContestHall_Movement_Player2WalkBack
waitmovement 0
releaseall
return
ContestHall_EventScript_Player3WalkBack::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement VAR_0x800B, ContestHall_Movement_Player3WalkBack
waitmovement 0
releaseall
return
ContestHall_EventScript_Player4WalkBack::
call ContestHall_EventScript_TryWaitForLink
lockall
applymovement VAR_0x800B, ContestHall_Movement_Player4WalkBack
waitmovement 0
releaseall
return
ContestHall_EventScript_DoContestAppeals::
lockall
applymovement LOCALID_MC, ContestHall_Movement_FaceContestants2
waitmovement 0
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_LetsAppeal
waitmessage
applymovement LOCALID_MC, ContestHall_Movement_WalkStageLeft
applymovement LOCALID_JUDGE, ContestHall_Movement_WalkStageRight
waitmovement 0
releaseall
call ContestHall_EventScript_TryWaitForLink
setvar VAR_TEMP_9, 1
special LinkContestTryHideWirelessIndicator
startcontest
special LinkContestTryShowWirelessIndicator
setvar VAR_TEMP_9, 0
lockall
applymovement LOCALID_MC, ContestHall_Movement_WalkStageRight
applymovement LOCALID_JUDGE, ContestHall_Movement_WalkStageLeft
waitmovement 0
releaseall
return
ContestHall_EventScript_LetsAppeal::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_LetsAppealLink
msgbox ContestHall_Text_VotingCompleteLetsAppeal, MSGBOX_DEFAULT
return
ContestHall_EventScript_LetsAppealLink::
specialvar VAR_RESULT, IsWirelessContest
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_LetsAppealWireless
messageautoscroll ContestHall_Text_VotingCompleteLetsAppeal
waitmessage
return
ContestHall_EventScript_LetsAppealWireless::
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_VotingComplete
waitmessage
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_SecondStageOfJudging
waitmessage
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_LetsAppeal
waitmessage
call ContestHall_EventScript_TryWaitForLink
return
ContestHall_EventScript_ContestResults::
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_ThatsItForJudging
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_ThankYouForAppeals
call ContestHall_EventScript_TryWaitForLink
applymovement LOCALID_MC, ContestHall_Movement_MCFaceJudge
waitmovement 0
call ContestHall_EventScript_JudgeLooksReady
call ContestHall_EventScript_TryWaitForLink
call ContestHall_EventScript_WeWillDeclareWinner
call ContestHall_EventScript_TryWaitForLink
applymovement LOCALID_MC, ContestHall_Movement_FaceContestants
waitmovement 0
closemessage
releaseall
special LinkContestTryHideWirelessIndicator
setvar VAR_TEMP_9, 1
showcontestresults
setvar VAR_TEMP_9, 0
playbgm MUS_CONTEST_WINNER, FALSE
return
ContestHall_EventScript_ThatsItForJudging::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_ThatsItForJudgingLink
msgbox ContestHall_Text_ThatsItForJudging, MSGBOX_DEFAULT
return
ContestHall_EventScript_ThatsItForJudgingLink::
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_ThatsItForJudging
waitmessage
delay 30
return
ContestHall_EventScript_ThankYouForAppeals::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_ThankYouForAppealsLink
msgbox ContestHall_Text_ThankYouForAppeals, MSGBOX_DEFAULT
return
ContestHall_EventScript_ThankYouForAppealsLink::
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_ThankYouForAppeals
waitmessage
delay 30
return
ContestHall_EventScript_JudgeLooksReady::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_JudgeLooksReadyLink
msgbox ContestHall_Text_JudgeLooksReady, MSGBOX_DEFAULT
return
ContestHall_EventScript_JudgeLooksReadyLink::
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_JudgeLooksReady
waitmessage
delay 30
return
ContestHall_EventScript_WeWillDeclareWinner::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_WeWillDeclareWinnerLink
msgbox ContestHall_Text_WeWillNowDeclareWinner, MSGBOX_DEFAULT
return
ContestHall_EventScript_WeWillDeclareWinnerLink::
call ContestHall_EventScript_TryWaitForLink
messageautoscroll ContestHall_Text_WeWillNowDeclareWinner
waitmessage
delay 30
return
ContestHall_EventScript_GetWinnerObjEventId::
special GetContestWinnerId
switch VAR_0x8005
case 0, ContestHall_EventScript_GetPlayer1ObjEventId
case 1, ContestHall_EventScript_GetPlayer2ObjEventId
case 2, ContestHall_EventScript_GetPlayer3ObjEventId
case 3, ContestHall_EventScript_GetPlayer4ObjEventId
return
ContestHall_EventScript_GetPlayer1ObjEventId::
setvar VAR_TEMP_3, LOCALID_CONTESTANT_1
return
ContestHall_EventScript_GetPlayer2ObjEventId::
setvar VAR_TEMP_3, LOCALID_CONTESTANT_2
return
ContestHall_EventScript_GetPlayer3ObjEventId::
setvar VAR_TEMP_3, LOCALID_CONTESTANT_3
return
ContestHall_EventScript_GetPlayer4ObjEventId::
setvar VAR_TEMP_3, LOCALID_CONTESTANT_4
return
ContestHall_EventScript_CongratulateWinner::
special BufferContestWinnerTrainerName
special BufferContestWinnerMonName
addvar VAR_0x8005, 1
buffernumberstring STR_VAR_2, VAR_0x8005
addvar VAR_0x8005, -1
call ContestHall_EventScript_CongratsWinner
applymovement VAR_TEMP_3, ContestHall_Movement_WinningPlayerWalkUp
waitmovement 0
playse SE_M_ENCORE2
setvar VAR_TEMP_1, 0
return
ContestHall_EventScript_CongratsWinner::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_CongratsWinnerLink
msgbox ContestHall_Text_CongratsTrainerXandMon, MSGBOX_DEFAULT
return
ContestHall_EventScript_CongratsWinnerLink::
messageautoscroll ContestHall_Text_CongratsTrainerXandMon
waitmessage
return
ContestHall_EventScript_AudienceLookAround::
addvar VAR_TEMP_1, 1
lockall
call_if_gt VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_NORMAL, ContestHall_EventScript_VObjectAudienceLookAround
applymovement LOCALID_AUDIENCE_5, ContestHall_Movement_AudienceMemberLookRight
applymovement LOCALID_AUDIENCE_2, ContestHall_Movement_AudienceMemberLookDown
applymovement LOCALID_AUDIENCE_3, ContestHall_Movement_AudienceMemberLookRight
delay 30
applymovement LOCALID_AUDIENCE_6, ContestHall_Movement_AudienceMemberLookLeft
applymovement LOCALID_AUDIENCE_7, ContestHall_Movement_AudienceMemberLookDown
applymovement LOCALID_AUDIENCE_1, ContestHall_Movement_AudienceMemberLookUp
applymovement LOCALID_AUDIENCE_4, ContestHall_Movement_AudienceMemberLookLeft
goto_if_ne VAR_TEMP_1, 4, ContestHall_EventScript_AudienceLookAround
delay 30
return
ContestHall_EventScript_VObjectAudienceLookAround::
turnvobject 0, DIR_SOUTH
turnvobject 2, DIR_SOUTH
turnvobject 4, DIR_EAST
turnvobject 6, DIR_SOUTH
turnvobject 8, DIR_SOUTH
turnvobject 10, DIR_SOUTH
turnvobject 12, DIR_SOUTH
turnvobject 14, DIR_SOUTH
turnvobject 16, DIR_SOUTH
turnvobject 18, DIR_SOUTH
turnvobject 20, DIR_EAST
turnvobject 22, DIR_EAST
turnvobject 25, DIR_EAST
turnvobject 27, DIR_WEST
turnvobject 28, DIR_EAST
delay 10
turnvobject 0, DIR_EAST
turnvobject 2, DIR_EAST
turnvobject 4, DIR_EAST
turnvobject 6, DIR_EAST
turnvobject 8, DIR_EAST
turnvobject 10, DIR_WEST
turnvobject 12, DIR_WEST
turnvobject 14, DIR_WEST
turnvobject 16, DIR_WEST
turnvobject 18, DIR_WEST
turnvobject 20, DIR_SOUTH
turnvobject 22, DIR_SOUTH
turnvobject 25, DIR_NORTH
turnvobject 27, DIR_NORTH
turnvobject 28, DIR_NORTH
delay 10
turnvobject 1, DIR_NORTH
turnvobject 3, DIR_NORTH
turnvobject 5, DIR_NORTH
turnvobject 7, DIR_NORTH
turnvobject 9, DIR_EAST
turnvobject 11, DIR_NORTH
turnvobject 15, DIR_NORTH
turnvobject 13, DIR_NORTH
turnvobject 17, DIR_NORTH
turnvobject 19, DIR_NORTH
turnvobject 21, DIR_WEST
turnvobject 23, DIR_WEST
turnvobject 24, DIR_WEST
turnvobject 26, DIR_EAST
turnvobject 29, DIR_WEST
turnvobject 30, DIR_WEST
delay 10
turnvobject 1, DIR_EAST
turnvobject 3, DIR_EAST
turnvobject 5, DIR_EAST
turnvobject 7, DIR_EAST
turnvobject 9, DIR_EAST
turnvobject 11, DIR_WEST
turnvobject 15, DIR_WEST
turnvobject 13, DIR_WEST
turnvobject 17, DIR_WEST
turnvobject 19, DIR_WEST
turnvobject 21, DIR_SOUTH
turnvobject 23, DIR_SOUTH
turnvobject 24, DIR_SOUTH
turnvobject 26, DIR_NORTH
turnvobject 29, DIR_NORTH
turnvobject 30, DIR_NORTH
delay 10
return
ContestHall_EventScript_GiveWinnerPrize::
goto_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_LINK, ContestHall_EventScript_EndLinkContest
call ContestHall_EventScript_CheckShouldSkipPrize
goto_if_set FLAG_TEMP_2, ContestHall_EventScript_SkipPrize
lockall
msgbox ContestHall_Text_AcceptYourPrize, MSGBOX_DEFAULT
releaseall
call ContestHall_EventScript_WinnerApproachForPrize
call ContestHall_EventScript_GivePrizeIfWinner
playse SE_M_ENCORE2
setvar VAR_TEMP_1, 0
call ContestHall_EventScript_AudienceLookAround
delay 30
special ShouldReadyContestArtist
goto_if_eq VAR_0x8004, TRUE, ContestHall_EventScript_SetReadyForContestArtist
return
ContestHall_EventScript_SkipPrize::
lockall
msgbox ContestHall_Text_CongratsPleaseCompeteAgain, MSGBOX_DEFAULT
releaseall
delay 90
special ShouldReadyContestArtist
goto_if_eq VAR_0x8004, TRUE, ContestHall_EventScript_SetReadyForContestArtist
return
ContestHall_EventScript_CheckShouldSkipPrize::
specialvar VAR_RESULT, HasMonWonThisContestBefore
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_CheckPlayerWon
return
ContestHall_EventScript_CheckPlayerWon::
special GetContestWinnerId
goto_if_eq VAR_0x8005, 3, ContestHall_EventScript_CheckRankIsMaster
return
ContestHall_EventScript_CheckRankIsMaster::
goto_if_eq VAR_CONTEST_RANK, CONTEST_RANK_MASTER, ContestHall_EventScript_DontSkipPrize
setflag FLAG_TEMP_2
return
ContestHall_EventScript_DontSkipPrize::
return
@ This flag is never read
ContestHall_EventScript_SetSketchFlag::
setflag FLAG_CONTEST_SKETCH_CREATED
return
ContestHall_EventScript_SetReadyForContestArtist::
setvar VAR_LILYCOVE_CONTEST_LOBBY_STATE, 1
return
ContestHall_EventScript_EndLinkContest::
delay 60
special GetContestPlayerId
special GetContestWinnerId
special ShouldReadyContestArtist
goto_if_eq VAR_0x8004, TRUE, ContestHall_EventScript_SetReadyForLinkContestArtist
closemessage
return
ContestHall_EventScript_SetReadyForLinkContestArtist::
setvar VAR_LILYCOVE_CONTEST_LOBBY_STATE, 2
return
@ Unused
ContestHall_EventScript_Ret::
return
ContestHall_EventScript_WinnerApproachForPrize::
switch VAR_0x8005
case 0, ContestHall_EventScript_Player1ApproachForPrize
case 1, ContestHall_EventScript_Player2ApproachForPrize
case 2, ContestHall_EventScript_Player3ApproachForPrize
case 3, ContestHall_EventScript_Player4ApproachForPrize
return
ContestHall_EventScript_Player1ApproachForPrize::
lockall
applymovement VAR_TEMP_3, ContestHall_Movement_Player1ApproachForPrize
waitmovement 0
releaseall
return
ContestHall_EventScript_Player2ApproachForPrize::
lockall
applymovement VAR_TEMP_3, ContestHall_Movement_Player2ApproachForPrize
waitmovement 0
releaseall
return
ContestHall_EventScript_Player3ApproachForPrize::
lockall
applymovement VAR_TEMP_3, ContestHall_Movement_Player3ApproachForPrize
waitmovement 0
releaseall
return
ContestHall_EventScript_Player4ApproachForPrize::
lockall
applymovement VAR_TEMP_3, ContestHall_Movement_Player4ApproachForPrize
waitmovement 0
releaseall
return
@ In NPC Contests, the player is always entry 4 (id number 3)
ContestHall_EventScript_GivePrizeIfWinner::
special GetContestWinnerId
goto_if_eq VAR_0x8005, 3, ContestHall_EventScript_GiveContestPrizes
lockall
msgbox ContestHall_Text_CongratsPleaseCompeteAgain, MSGBOX_DEFAULT
releaseall
return
ContestHall_EventScript_GiveContestPrizes::
call_if_eq VAR_CONTEST_TYPE, CONTEST_TYPE_NPC_SUPER, ContestHall_EventScript_SetSketchFlag
specialvar VAR_RESULT, HasMonWonThisContestBefore
goto_if_eq VAR_RESULT, FALSE, ContestHall_EventScript_ReceiveContestRibbon
goto_if_eq VAR_CONTEST_RANK, CONTEST_RANK_MASTER, ContestHall_EventScript_GiveLuxuryBall
lockall
msgbox ContestHall_Text_CongratsPleaseCompeteAgain, MSGBOX_DEFAULT
releaseall
return
ContestHall_EventScript_NoRoomForLuxuryBall::
lockall
call Common_EventScript_BagIsFull
msgbox ContestHall_Text_PickUpPrizeAtCounterLater, MSGBOX_DEFAULT
releaseall
setvar VAR_CONTEST_PRIZE_PICKUP, 4
return
ContestHall_EventScript_GiveLuxuryBall::
giveitem ITEM_LUXURY_BALL
goto_if_eq VAR_RESULT, FALSE, ContestHall_EventScript_NoRoomForLuxuryBall
lockall
msgbox ContestHall_Text_CongratsPleaseCompeteAgain, MSGBOX_DEFAULT
releaseall
return
ContestHall_EventScript_ReceiveContestRibbon::
special GiveMonContestRibbon
incrementgamestat GAME_STAT_RECEIVED_RIBBONS
setflag FLAG_SYS_RIBBON_GET
lockall
msgbox ContestHall_Text_ConferRibbonAsPrize, MSGBOX_DEFAULT
playfanfare MUS_OBTAIN_ITEM
msgbox ContestHall_Text_ReceivedRibbon, MSGBOX_DEFAULT
waitfanfare
special BufferContestWinnerMonName
msgbox ContestHall_Text_PutRibbonOnMon, MSGBOX_DEFAULT
releaseall
return
ContestHall_Movement_MCWalkDown:
walk_down
step_end
ContestHall_Movement_MCBackUp:
lock_facing_direction
walk_up
unlock_facing_direction
step_end
ContestHall_Movement_MCFaceJudge:
walk_in_place_faster_right
step_end
ContestHall_Movement_Heart:
emote_heart
step_end
ContestHall_Movement_FaceContestants:
walk_in_place_faster_down
step_end
ContestHall_Movement_WalkStageLeft:
walk_left
walk_left
walk_in_place_faster_down
step_end
ContestHall_Movement_WalkStageRight:
walk_right
walk_right
walk_in_place_faster_down
step_end
ContestHall_Movement_WinningPlayerWalkUp:
walk_up
walk_in_place_faster_down
step_end
ContestHall_Movement_ContestantDelay32:
delay_16
delay_16
step_end
ContestHall_Movement_MCFaceJudge2:
walk_in_place_faster_right
step_end
ContestHall_Movement_JudgeFaceMC:
walk_in_place_faster_left
step_end
ContestHall_Movement_FaceContestants2:
walk_in_place_faster_down
step_end
ContestHall_Movement_Player3ApproachForPrize:
walk_left
walk_left
walk_up
step_end
ContestHall_Movement_Player4ApproachForPrize:
walk_left
walk_left
walk_left
walk_left
walk_up
step_end
ContestHall_Movement_AudienceMemberLookLeft:
face_left
delay_16
face_original_direction
step_end
ContestHall_Movement_AudienceMemberLookUp:
face_up
delay_16
face_original_direction
step_end
ContestHall_Movement_AudienceMemberLookRight:
face_right
delay_16
face_original_direction
step_end
ContestHall_Movement_AudienceMemberLookDown:
face_down
delay_16
face_original_direction
step_end
ContestHall_Movement_Player4FaceUp:
face_up
step_end
ContestHall_Movement_MCLookAtJudge:
face_up
delay_16
walk_in_place_faster_right
step_end
ContestHall_Movement_JudgeLookAtMC:
walk_in_place_faster_left
delay_16
delay_16
walk_in_place_faster_down
step_end
ContestHall_Movement_MCWalkInPlaceDown:
delay_16
delay_16
walk_in_place_faster_down
step_end
ContestHall_Movement_Player1WalkToCenter:
walk_up
walk_right
walk_right
walk_right
walk_in_place_faster_up
step_end
ContestHall_Movement_Player1WalkBack:
walk_fast_left
walk_fast_left
walk_fast_left
walk_fast_down
walk_in_place_faster_up
step_end
ContestHall_Movement_Player2WalkToCenter:
walk_up
walk_right
walk_in_place_faster_up
step_end
ContestHall_Movement_Player2WalkBack:
walk_fast_left
walk_fast_down
walk_in_place_faster_up
step_end
ContestHall_Movement_Player3WalkToCenter:
walk_up
walk_left
walk_in_place_faster_up
step_end
ContestHall_Movement_Player3WalkBack:
walk_fast_right
walk_fast_down
walk_in_place_faster_up
step_end
ContestHall_Movement_Player4WalkToCenter:
walk_up
walk_left
walk_left
walk_left
walk_in_place_faster_up
step_end
ContestHall_Movement_Player4WalkBack:
walk_fast_right
walk_fast_right
walk_fast_right
walk_fast_down
walk_in_place_faster_up
step_end
ContestHall_Movement_Player1ApproachForPrize:
walk_right
walk_right
walk_up
step_end
ContestHall_Movement_Player2ApproachForPrize:
walk_up
step_end
@ IsContestWithRSPlayer has no side effect, so this is nop
ContestHall_EventScript_CheckIfContestWithRSPlayer::
specialvar VAR_RESULT, IsContestWithRSPlayer
goto_if_eq VAR_RESULT, TRUE, ContestHall_EventScript_RetRSPlayer
return
ContestHall_EventScript_RetRSPlayer::
return
LilycoveCity_ContestLobby_EventScript_DelayIfContestWithRSPlayer::
specialvar VAR_RESULT, IsContestWithRSPlayer
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_ContestLobby_EventScript_DelayForRSPlayer
return
LilycoveCity_ContestLobby_EventScript_DelayForRSPlayer::
delay 9
return
LilycoveCity_ContestLobby_Text_ReceptionDontHavePokeblockCase:
.string "Hello!\p"
.string "This is the reception counter for\n"
.string "POKéMON CONTESTS.\p"
.string "Oh? It appears that you don't have\n"
.string "a {POKEBLOCK} CASE yet.\p"
.string "In that case, we need to provide you\n"
.string "with this!$"
LilycoveCity_ContestLobby_Text_NowThatWeveClearedThatUp:
.string "Okay, now that we've cleared that\n"
.string "up…\p"
.string "Hello!\p"
.string "This is the reception counter for\n"
.string "POKéMON CONTESTS.$"
LilycoveCity_ContestLobby_Text_ContestReception:
.string "Hello!\p"
.string "This is the reception counter for\n"
.string "POKéMON CONTESTS.$"
@ Unused
LilycoveCity_ContestLobby_Text_CounterOnlyFor4PlayerContests:
.string "Hello!\p"
.string "This reception counter is only\n"
.string "for 4-player POKéMON CONTESTS.$"
LilycoveCity_ContestLobby_Text_EnterContest1:
.string "Would you like to enter your POKéMON\n"
.string "in our CONTESTS?$"
LilycoveCity_ContestLobby_Text_WhichTopic1:
.string "Which topic would you like?$"
LilycoveCity_ContestLobby_Text_ExplainContests:
.string "A POKéMON CONTEST involves four\n"
.string "TRAINERS entering one POKéMON each\l"
.string "in competitive judging.\p"
.string "A CONTEST has two stages of judging,\n"
.string "primary and secondary.\p"
.string "Primary judging is a popularity poll\n"
.string "involving the audience.\p"
.string "Secondary judging features appeals\n"
.string "by the POKéMON using their moves.\p"
.string "Plan appeals carefully to earn the\n"
.string "most attention of the JUDGE and\l"
.string "excite the audience.\l"
.string "Do your best to stand out.\p"
.string "The primary and secondary scores are\n"
.string "added at the end.\p"
.string "The POKéMON garnering the highest\n"
.string "score is declared the winner.$"
LilycoveCity_ContestLobby_Text_ExplainContestTypes:
.string "There are five kinds of CONTESTS.\p"
.string "COOL, BEAUTY, CUTE, SMART, and\n"
.string "TOUGH are the five categories.\p"
.string "Choose the CONTEST that is right for\n"
.string "the POKéMON you plan to enter.$"
LilycoveCity_ContestLobby_Text_ExplainContestRanks:
.string "There are four ranks of POKéMON\n"
.string "CONTESTS.\p"
.string "NORMAL, SUPER, HYPER, and MASTER\n"
.string "are the four ranks.\p"
.string "In the NORMAL Rank, any POKéMON may\n"
.string "enter.\p"
.string "Any POKéMON that won a NORMAL Rank\n"
.string "CONTEST may move up to the SUPER Rank\l"
.string "in the same category.\p"
.string "In the same way, a SUPER Rank winner\n"
.string "can move up to the HYPER Rank, and\l"
.string "a HYPER Rank winner can advance to\l"
.string "the MASTER Rank in the same category.\p"
.string "A POKéMON that won in the MASTER Rank\n"
.string "may compete in the MASTER Rank as\l"
.string "often as its TRAINER wants.$"
LilycoveCity_ContestLobby_Text_EnterWhichRank:
.string "Which Rank would you like to enter?$"
LilycoveCity_ContestLobby_Text_EnterWhichContest1:
.string "Which CONTEST would you like to enter?$"
LilycoveCity_ContestLobby_Text_EnterWhichPokemon1:
.string "Which POKéMON would you like to enter?$"
LilycoveCity_ContestLobby_Text_MonNotQualifiedForRank:
.string "I'm terribly sorry, but your POKéMON\n"
.string "is not qualified to compete at this\l"
.string "Rank yet…$"
LilycoveCity_ContestLobby_Text_EggCannotTakePart:
.string "I'm sorry, but an EGG cannot take part\n"
.string "in a POKéMON CONTEST.$"
LilycoveCity_ContestLobby_Text_MonInNoConditionForContest:
.string "Your POKéMON appears to be in no\n"
.string "condition to take part in a CONTEST…$"
LilycoveCity_ContestLobby_Text_AlreadyWonEnterAnyway:
.string "Oh, but that RIBBON…\p"
.string "Your POKéMON has won this CONTEST\n"
.string "before, hasn't it?\p"
.string "Would you like to enter it in this\n"
.string "CONTEST anyway?$"
LilycoveCity_ContestLobby_Text_ConfirmContestMon:
.string "Is that your CONTEST POKéMON?$"
LilycoveCity_ContestLobby_Text_YourMonIsEntryNum4:
.string "Okay, your POKéMON will be entered\n"
.string "in this CONTEST.\p"
.string "Your POKéMON is Entry No. 4.\n"
.string "The CONTEST will begin shortly.$"
LilycoveCity_ContestLobby_Text_ComeThroughHere:
.string "Please come in through here.\n"
.string "Good luck!$"
LilycoveCity_ContestLobby_Text_PokemonWonWeHavePrize:
.string "Congratulations! Your POKéMON is the\n"
.string "CONTEST winner!\p"
.string "We have your prize right here.\n"
.string "Please, right this way!$"
LilycoveCity_ContestLobby_Text_ComeBackForPrizeLater:
.string "Please come back for your prize\n"
.string "later on.$"
ContestHall_Text_GettingStartedParticipantsAsFollows:
.string "MC: Hello! We're just getting started\n"
.string "with a {STR_VAR_3} Rank POKéMON\l"
.string "{STR_VAR_2}!\p"
.string "The participating TRAINERS and their\n"
.string "POKéMON are as follows:$"
ContestHall_Text_GettingStartedParticipantsAsFollowsLink:
.string "MC: Hello! We're just getting started\n"
.string "with a 4-player linked POKéMON\l"
.string "{STR_VAR_2}!\p"
.string "The participating TRAINERS and their\n"
.string "POKéMON are as follows:$"
ContestHall_Text_EntryXTrainersMon:
.string "MC: Entry No. {STR_VAR_2}!\n"
.string "{STR_VAR_1}'s {STR_VAR_3}!$"
ContestHall_Text_SeenContestantsAudienceWillVote:
.string "MC: We've just seen the four POKéMON\n"
.string "contestants.\p"
.string "Now it's time for primary judging!\p"
.string "The audience will vote on their\n"
.string "favorite POKéMON contestants.\p"
.string "Without any further ado, let the\n"
.string "voting begin!$"
ContestHall_Text_VotingUnderWay:
.string "Voting under way…$"
ContestHall_Text_VotingCompleteLetsAppeal:
.string "Voting is now complete!\p"
.string "While the votes are being tallied,\n"
.string "let's move on to secondary judging!\p"
.string "The second stage of judging is the\n"
.string "much anticipated appeal time!\p"
.string "May the contestants amaze us with\n"
.string "superb appeals of dazzling moves!\p"
.string "Let's see a little enthusiasm!\n"
.string "Let's appeal!$"
ContestHall_Text_ThatsItForJudging:
.string "MC: That's it for judging!$"
ContestHall_Text_ThankYouForAppeals:
.string "Thank you all for a most wonderful\n"
.string "display of quality appeals!\p"
.string "This concludes all judging!\n"
.string "Thank you for your fine efforts!$"
ContestHall_Text_JudgeLooksReady:
.string "Now, all that remains is the pulse-\n"
.string "pounding proclamation of the winner.\p"
.string "The JUDGE looks ready to make\n"
.string "the announcement!$"
ContestHall_Text_WeWillNowDeclareWinner:
.string "JUDGE: We will now declare the winner!$"
ContestHall_Text_CongratsTrainerXandMon:
.string "MC: Entry No. {STR_VAR_2}!\p"
.string "{STR_VAR_3} and {STR_VAR_1},\n"
.string "congratulations!$"
ContestHall_Text_CongratsPleaseCompeteAgain:
.string "MC: Congratulations!\n"
.string "Please do compete again!$"
ContestHall_Text_AcceptYourPrize:
.string "MC: Here you are!\n"
.string "Please accept your prize!$"
ContestHall_Text_ConferRibbonAsPrize:
.string "We confer on you this RIBBON\n"
.string "as your prize!$"
ContestHall_Text_ReceivedRibbon:
.string "{PLAYER} received a RIBBON.$"
ContestHall_Text_PutRibbonOnMon:
.string "{PLAYER} put the RIBBON on\n"
.string "{STR_VAR_1}.$"
ContestHall_Text_PickUpPrizeAtCounterLater:
.string "Please pick up your prize at\n"
.string "the reception counter later.\l"
.string "Please do compete again!$"
@ Unused
ContestHall_Text_OnlyRegister4Players:
.string "I only register four players for\n"
.string "POKéMON CONTESTS.\p"
.string "If three other players link up, all\n"
.string "four may enter the same CONTEST.\p"
.string "Would you like to take part?$"
LilycoveCity_ContestLobby_Text_ProgressWillBeSaved:
.string "Before entering a CONTEST, your\n"
.string "progress will be saved.$"
LilycoveCity_ContestLobby_Text_ParticipateAnotherTime:
.string "We hope you will participate another\n"
.string "time.$"
@ Unused
LilycoveCity_ContestLobby_Text_EnterContest2:
.string "Would you like to enter a CONTEST?$"
@ Unused
LilycoveCity_ContestLobby_Text_Explain4PlayerContest:
.string "When four players are ready, connect\n"
.string "over a Game Link cable, and register\l"
.string "with me, please.\p"
.string "Please choose the same CONTEST\n"
.string "as your fellow contestants.\p"
.string "The CONTEST begins as soon as all\n"
.string "players register their entry.\p"
.string "After that, the usual CONTEST rules\n"
.string "apply.$"
@ Unused
LilycoveCity_ContestLobby_Text_EnterWhichContest2:
.string "Which CONTEST would you like to enter?$"
@ Unused
LilycoveCity_ContestLobby_Text_EnterWhichPokemon2:
.string "Which POKéMON would you like to enter?$"
LilycoveCity_ContestLobby_Text_Transmitting:
.string "Transmitting…$"
LilycoveCity_ContestLobby_Text_TransmissionError:
.string "Transmission error…$"
LilycoveCity_ContestLobby_Text_PlayersChoseDifferentContest:
.string "You may have chosen a different\n"
.string "CONTEST than another player.$"
LilycoveCity_ContestLobby_Text_PlayersMadeDifferentChoice:
.string "You may have made a different\n"
.string "choice than another player.$"
LilycoveCity_ContestLobby_Text_PleaseWaitBButtonCancel:
.string "Please wait.\n"
.string "… … B Button: Cancel$"
@ Unused
LilycoveCity_ContestLobby_Text_ParticipateAnotherTime2:
.string "We hope you will participate another\n"
.string "time.$"
@ Unused
LilycoveCity_ContestLobby_Text_TransmissionErrorTryAgain:
.string "Transmission error.\n"
.string "Please try again.$"
LilycoveCity_ContestLobby_Text_YourMonIsEntryNumX:
.string "Your POKéMON will be entered in\n"
.string "the CONTEST.\p"
.string "Your POKéMON is Entry No. {STR_VAR_2}.$"
LilycoveCity_ContestLobby_Text_ContestBeginShortly:
.string "The CONTEST will begin shortly.$"
LilycoveCity_ContestLobby_Text_LinkContestReception:
.string "Welcome! This is the POKéMON CONTEST\n"
.string "link reception counter.\p"
.string "You may enter CONTESTS together with\n"
.string "one or more friends.$"
LilycoveCity_ContestLobby_Text_WhichTopic2:
.string "Which topic would you like?$"
LilycoveCity_ContestLobby_Text_EnterContest3:
.string "Would you like to enter a CONTEST?$"
LilycoveCity_ContestLobby_Text_EnterWhichContest3:
.string "Which CONTEST would you like to enter?$"
LilycoveCity_ContestLobby_Text_MonInNoCondition2:
.string "Your POKéMON appears to be in no\n"
.string "condition to take part in a CONTEST…$"
LilycoveCity_ContestLobby_Text_EggCannotTakePart2:
.string "I'm sorry, but an EGG cannot take part\n"
.string "in a POKéMON CONTEST.$"
LilycoveCity_ContestLobby_Text_EnterWhichPokemon3:
.string "Which POKéMON would you like to enter?$"
LilycoveCity_ContestLobby_Text_PleaseDecideLinkLeader:
.string "Please decide which of you will\n"
.string "become the GROUP LEADER.\p"
.string "The other players must then choose\n"
.string "“JOIN GROUP.”$"
LilycoveCity_ContestLobby_Text_PlayerAt4PCounterUseGMode:
.string "At least one player has entered using\n"
.string "the 4-player reception counter.\p"
.string "There must be four players connected\n"
.string "using a GBA Game Link cable.\p"
.string "When the four players are ready,\n"
.string "select G-MODE (GLOBAL MODE),\l"
.string "then register to enter again, please.$"
LilycoveCity_ContestLobby_Text_ExplainLinkContest:
.string "This is a CONTEST for two to four\n"
.string "players linked using a Wireless\l"
.string "Adapter or a GBA Game Link cable.\p"
.string "Participants are first asked to choose\n"
.string "the mode they wish to enter.\p"
.string "There are two different modes.\p"
.string "E-MODE (EMERALD MODE) is for\n"
.string "two to four players, each with a\l"
.string "POKéMON Emerald Game Pak.\p"
.string "G-MODE (GLOBAL MODE) is only for\n"
.string "four players, each with a POKéMON\l"
.string "Emerald, Ruby, or Sapphire Game Pak.\p"
.string "The players should discuss which mode\n"
.string "they want, then choose the same mode.\p"
.string "Once all the players have chosen\n"
.string "the same CONTEST in the same mode,\l"
.string "the entry registration is complete.\p"
.string "After that, a CONTEST will start in\n"
.string "the usual manner.$"
LilycoveCity_ContestLobby_Text_ExplainEMode:
.string "In E-MODE (EMERALD MODE),\n"
.string "a LINK CONTEST can be held with\l"
.string "two to four players. Each player must\l"
.string "have a POKéMON Emerald Game Pak.\p"
.string "The players must be linked with each\n"
.string "other using Wireless Adapters or\l"
.string "GBA Game Link cables.\p"
.string "If there are fewer than four players,\n"
.string "TRAINERS in the hall will join to fill\l"
.string "the 4-player CONTEST lineup.\p"
.string "Please be aware that E-MODE is not\n"
.string "available in POKéMON Ruby or Sapphire.$"
LilycoveCity_ContestLobby_Text_ExplainGMode:
.string "G-MODE (GLOBAL MODE) is specifically\n"
.string "for four players who are linked using\l"
.string "GBA Game Link cables.\p"
.string "Each player must have a POKéMON\n"
.string "Emerald, Ruby, or Sapphire Game Pak.\p"
.string "The CONTEST starts after all players\n"
.string "choose G-MODE (POKéMON Emerald) or\l"
.string "enter through the 4-player reception\l"
.string "counter (POKéMON Ruby or Sapphire).$"
LilycoveCity_ContestLobby_Text_NoWirelessAdapterInGMode:
.string "I'm terribly sorry.\p"
.string "G-MODE does not function\n"
.string "with Wireless Adapters.\p"
.string "Please select E-MODE or try\n"
.string "again using a GBA Game Link cable.$"
LilycoveCity_ContestLobby_Text_WhichContestMode:
.string "Which CONTEST MODE would you like\n"
.string "to enter?$"
ContestHall_Text_GettingStartedWireless:
.string "MC: Hello! We're just getting started\n"
.string "with a 4-player linked POKéMON\l"
.string "{STR_VAR_2}!$"
ContestHall_Text_ParticipantsAsFollows:
.string "The participating TRAINERS and their\n"
.string "POKéMON are as follows:$"
ContestHall_Text_WeveSeenContestants:
.string "MC: We've just seen the four POKéMON\n"
.string "contestants.\p"
.string "Now it's time for primary judging!$"
ContestHall_Text_AudienceWillVote:
.string "The audience will vote on their\n"
.string "favorite POKéMON contestants.$"
ContestHall_Text_LetVotingBegin:
.string "Without any further ado,\n"
.string "let the voting begin!$"
ContestHall_Text_VotingComplete:
.string "Voting is now complete!\p"
.string "While the votes are being tallied,\n"
.string "let's move on to secondary judging!$"
ContestHall_Text_SecondStageOfJudging:
.string "The second stage of judging is\n"
.string "the much-anticipated appeal time!\p"
.string "May the contestants amaze us with\n"
.string "superb appeals of dazzling moves!$"
ContestHall_Text_LetsAppeal:
.string "Let's see a little enthusiasm!\n"
.string "Let's appeal!$"

416
data/scripts/day_care.inc Normal file
View File

@ -0,0 +1,416 @@
.set LOCALID_DAYCARE_LADY, 1
Route117_EventScript_DaycareMan::
lock
faceplayer
special GetDaycareMonNicknames
specialvar VAR_RESULT, GetDaycareState
goto_if_eq VAR_RESULT, DAYCARE_EGG_WAITING, Route117_EventScript_DaycareEggWaiting
goto_if_eq VAR_RESULT, DAYCARE_ONE_MON, Route117_EventScript_CheckOnOneMon
goto_if_eq VAR_RESULT, DAYCARE_TWO_MONS, Route117_EventScript_CheckOnTwoMons
msgbox Route117_Text_SeeWifeIfYoudLikeMeToRaiseMon, MSGBOX_DEFAULT
release
end
Route117_EventScript_DaycareEggWaiting::
msgbox Route117_Text_DoYouWantEgg, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_EventScript_DaycareAcceptEgg
msgbox Route117_Text_IWillKeepDoYouWantIt, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_EventScript_DaycareAcceptEgg
msgbox Route117_Text_IllKeepIt, MSGBOX_DEFAULT
clearflag FLAG_PENDING_DAYCARE_EGG
special RejectEggFromDayCare
release
end
Route117_EventScript_DaycareAcceptEgg::
specialvar VAR_RESULT, CalculatePlayerPartyCount
goto_if_ne VAR_RESULT, PARTY_SIZE, Route117_EventScript_DaycareReceiveEgg
msgbox Route117_Text_YouHaveNoRoomForIt, MSGBOX_DEFAULT
release
end
Route117_EventScript_DaycareReceiveEgg::
message Route117_Text_ReceivedEgg
playfanfare MUS_LEVEL_UP
waitfanfare
waitbuttonpress
msgbox Route117_Text_TakeGoodCareOfIt, MSGBOX_DEFAULT
special GiveEggFromDaycare
clearflag FLAG_PENDING_DAYCARE_EGG
release
end
Route117_EventScript_CheckMonReceivedMail::
specialvar VAR_RESULT, CheckDaycareMonReceivedMail
call_if_eq VAR_RESULT, 1, Route117_EventScript_MonReceivedMail
return
Route117_EventScript_MonReceivedMail::
msgbox Route117_Text_FriendlyWithOtherTrainersMon, MSGBOX_DEFAULT
return
Route117_EventScript_CheckOnOneMon::
special GetDaycareMonNicknames
msgbox Route117_Text_YourMonIsDoingFine, MSGBOX_DEFAULT
setvar VAR_0x8004, 0
call Route117_EventScript_CheckMonReceivedMail
release
end
Route117_EventScript_CheckOnTwoMons::
special GetDaycareMonNicknames
msgbox Route117_Text_YourMonsAreDoingFine, MSGBOX_DEFAULT
special SetDaycareCompatibilityString
special ShowFieldMessageStringVar4
waitmessage
waitbuttonpress
setvar VAR_0x8004, 0
call Route117_EventScript_CheckMonReceivedMail
setvar VAR_0x8004, 1
call Route117_EventScript_CheckMonReceivedMail
release
end
Route117_PokemonDayCare_EventScript_DaycareWoman::
lock
faceplayer
specialvar VAR_RESULT, GetDaycareState
goto_if_eq VAR_RESULT, DAYCARE_EGG_WAITING, Route117_PokemonDayCare_EventScript_EggWaiting
goto_if_eq VAR_RESULT, DAYCARE_ONE_MON, Route117_PokemonDayCare_EventScript_OneMonInDaycare
goto_if_eq VAR_RESULT, DAYCARE_TWO_MONS, Route117_PokemonDayCare_EventScript_TwoMonsInDaycare
msgbox Route117_PokemonDayCare_Text_WouldYouLikeUsToRaiseAMon, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_GiveMonToRaise
msgbox Route117_PokemonDayCare_Text_FineThenComeAgain, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_GiveMonToRaise::
specialvar VAR_RESULT, CountPartyNonEggMons
goto_if_eq VAR_RESULT, 1, Route117_PokemonDayCare_EventScript_OnlyOneMon
specialvar VAR_RESULT, CountPartyAliveNonEggMons
goto_if_eq VAR_RESULT, 2, Route117_PokemonDayCare_EventScript_OnlyTwoAliveMons
msgbox Route117_PokemonDayCare_Text_WhichMonShouldWeRaise, MSGBOX_DEFAULT
fadescreen FADE_TO_BLACK
special ChooseSendDaycareMon
waitstate
goto_if_eq VAR_0x8004, PARTY_NOTHING_CHOSEN, Route117_PokemonDayCare_EventScript_ComeAgain
specialvar VAR_RESULT, CountPartyAliveNonEggMons_IgnoreVar0x8004Slot
goto_if_eq VAR_RESULT, 0, Route117_PokemonDayCare_EventScript_OnlyOneAliveMon
specialvar VAR_0x8005, GetSelectedMonNicknameAndSpecies
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox Route117_PokemonDayCare_Text_WellRaiseYourMon, MSGBOX_DEFAULT
waitmoncry
special StoreSelectedPokemonInDaycare
incrementgamestat GAME_STAT_USED_DAYCARE
specialvar VAR_RESULT, GetDaycareState
goto_if_eq VAR_RESULT, DAYCARE_ONE_MON, Route117_PokemonDayCare_EventScript_CanRaiseOneMore
release
end
Route117_PokemonDayCare_EventScript_ComeAgain::
msgbox Route117_PokemonDayCare_Text_ComeAgain, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_CanRaiseOneMore::
msgbox Route117_PokemonDayCare_Text_WeCanRaiseOneMore, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_GiveMonToRaise
goto Route117_PokemonDayCare_EventScript_ComeAgain
end
Route117_PokemonDayCare_EventScript_OnlyOneMon::
msgbox Route117_PokemonDayCare_Text_YouHaveJustOneMon, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_OnlyOneAliveMon::
msgbox Route117_PokemonDayCare_Text_WhatWillYouBattleWith, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_OnlyTwoAliveMons::
msgbox Route117_PokemonDayCare_Text_YoullBeLeftWithJustOne, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_EggWaiting::
msgbox Route117_PokemonDayCare_Text_HusbandWasLookingForYou, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_YourMonHasGrownXLevels::
msgbox Route117_PokemonDayCare_Text_YourMonHasGrownXLevels, MSGBOX_DEFAULT
return
Route117_PokemonDayCare_EventScript_DisplayLevelsGained::
specialvar VAR_RESULT, GetNumLevelsGainedFromDaycare
call_if_ne VAR_RESULT, 0, Route117_PokemonDayCare_EventScript_YourMonHasGrownXLevels
return
Route117_PokemonDayCare_EventScript_OneMonInDaycare::
msgbox Route117_PokemonDayCare_Text_GoodToSeeYou, MSGBOX_DEFAULT
setvar VAR_0x8004, 0
call Route117_PokemonDayCare_EventScript_DisplayLevelsGained
msgbox Route117_PokemonDayCare_Text_WeCanRaiseOneMore, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_GiveMonToRaise
msgbox Route117_PokemonDayCare_Text_TakeYourMonBack, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_TryRetrieveMon
goto Route117_PokemonDayCare_EventScript_ComeAgain
end
Route117_PokemonDayCare_EventScript_TryRetrieveMon::
specialvar VAR_RESULT, CalculatePlayerPartyCount
goto_if_eq VAR_RESULT, PARTY_SIZE, Route117_PokemonDayCare_EventScript_NoRoom
specialvar VAR_RESULT, GetDaycareState
setvar VAR_0x8004, 0
goto_if_eq VAR_RESULT, DAYCARE_ONE_MON, Route117_PokemonDayCare_EventScript_CostPrompt
special ShowDaycareLevelMenu
waitstate
copyvar VAR_0x8004, VAR_RESULT
goto_if_eq VAR_RESULT, DAYCARE_EXITED_LEVEL_MENU, Route117_PokemonDayCare_EventScript_ComeAgain
goto Route117_PokemonDayCare_EventScript_CostPrompt
end
Route117_PokemonDayCare_EventScript_CostPrompt::
special GetDaycareCost
msgbox Route117_PokemonDayCare_Text_ItWillCostX, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_CheckEnoughMoney
goto Route117_PokemonDayCare_EventScript_ComeAgain
end
Route117_PokemonDayCare_EventScript_CheckEnoughMoney::
specialvar VAR_RESULT, IsEnoughForCostInVar0x8005
goto_if_eq VAR_RESULT, 1, Route117_PokemonDayCare_EventScript_RetrieveMon
msgbox Route117_PokemonDayCare_Text_NotEnoughMoney, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_EventScript_RetrieveMon::
applymovement LOCALID_DAYCARE_LADY, Route117_PokemonDayCare_Movement_RetrieveDaycareMon
waitmovement 0
specialvar VAR_RESULT, TakePokemonFromDaycare
special SubtractMoneyFromVar0x8005
playse SE_SHOP
msgbox Route117_PokemonDayCare_Text_HeresYourMon, MSGBOX_DEFAULT
waitse
playmoncry VAR_RESULT, CRY_MODE_NORMAL
msgbox Route117_PokemonDayCare_Text_TookBackMon, MSGBOX_DEFAULT
waitmoncry
specialvar VAR_RESULT, GetDaycareState
goto_if_eq VAR_RESULT, DAYCARE_ONE_MON, Route117_PokemonDayCare_EventScript_AskRetrieveOtherMon
goto Route117_PokemonDayCare_EventScript_ComeAgain
end
Route117_PokemonDayCare_EventScript_AskRetrieveOtherMon::
msgbox Route117_PokemonDayCare_Text_TakeOtherOneBackToo, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_TryRetrieveMon
goto Route117_PokemonDayCare_EventScript_ComeAgain
end
Route117_PokemonDayCare_EventScript_NoRoom::
msgbox Route117_PokemonDayCare_Text_YourTeamIsFull, MSGBOX_DEFAULT
release
end
Route117_PokemonDayCare_Movement_RetrieveDaycareMon:
delay_16
delay_16
face_left
delay_16
delay_16
face_right
delay_16
delay_16
face_up
walk_slow_up
set_invisible
delay_16
delay_16
delay_16
delay_16
delay_16
face_down
set_visible
walk_slow_down
step_end
@ Unused. Possibly a commented script, or a typo end added to the above Movement script
Route117_PokemonDayCare_EventScript_UnusedEnd::
end
Route117_PokemonDayCare_EventScript_TwoMonsInDaycare::
msgbox Route117_PokemonDayCare_Text_GoodToSeeYou, MSGBOX_DEFAULT
setvar VAR_0x8004, 0
call Route117_PokemonDayCare_EventScript_DisplayLevelsGained
setvar VAR_0x8004, 1
call Route117_PokemonDayCare_EventScript_DisplayLevelsGained
msgbox Route117_PokemonDayCare_Text_TakeYourMonBack, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route117_PokemonDayCare_EventScript_TryRetrieveMon
msgbox Route117_PokemonDayCare_Text_ComeAgain, MSGBOX_DEFAULT
release
end
@ Unused
Route117_PokemonDayCare_EventScript_UnusedRetrieveMon::
special ShowDaycareLevelMenu
waitstate
goto_if_eq VAR_RESULT, 2, Route117_PokemonDayCare_EventScript_ComeAgain
copyvar VAR_0x8004, VAR_RESULT
specialvar VAR_RESULT, TakePokemonFromDaycare
msgbox Route117_PokemonDayCare_Text_HeresYourMon, MSGBOX_DEFAULT
msgbox Route117_PokemonDayCare_Text_ComeAgain, MSGBOX_DEFAULT
release
end
EventScript_EggHatch::
lockall
msgbox Text_EggHatchHuh, MSGBOX_DEFAULT
special EggHatch
waitstate
releaseall
end
Route117_Text_SeeWifeIfYoudLikeMeToRaiseMon:
.string "I'm the DAY-CARE MAN.\p"
.string "I help take care of the precious\n"
.string "POKéMON of TRAINERS.\p"
.string "If you'd like me to raise your POKéMON,\n"
.string "have a word with my wife.$"
Route117_Text_DoYouWantEgg:
.string "Ah, it's you!\p"
.string "We were raising your POKéMON,\n"
.string "and my goodness, were we surprised!\p"
.string "Your POKéMON had an EGG!\p"
.string "We don't know how it got there,\n"
.string "but your POKéMON had it.\p"
.string "You do want it, yes?$"
Route117_Text_YourMonIsDoingFine:
.string "Ah, it's you! Good to see you.\n"
.string "Your {STR_VAR_1}'s doing fine.$"
Route117_Text_IllKeepIt:
.string "Well then, I'll keep it.\n"
.string "Thanks!$"
Route117_Text_YouHaveNoRoomForIt:
.string "You have no room for it…\n"
.string "Come back when you've made room.$"
Route117_Text_ReceivedEgg:
.string "{PLAYER} received the EGG from\n"
.string "the DAY-CARE MAN.$"
Route117_Text_TakeGoodCareOfIt:
.string "Take good care of it.$"
Route117_Text_FriendlyWithOtherTrainersMon:
.string "By the way, about your {STR_VAR_1},\n"
.string "it seemed to be friendly with\l"
.string "{STR_VAR_2}'s {STR_VAR_3}.\p"
.string "I may even have seen it receiving\n"
.string "a piece of MAIL.$"
@ Unused
Route117_Text_SeeWifeIfYouWantToPickUpMon:
.string "If you want to pick up your POKéMON,\n"
.string "have a word with my wife.$"
Route117_Text_YourMonsAreDoingFine:
.string "Ah, it's you! Your {STR_VAR_1} and\n"
.string "{STR_VAR_2} are doing fine.$"
Route117_Text_IWillKeepDoYouWantIt:
.string "I really will keep it.\n"
.string "You do want this, yes?$"
Route117_PokemonDayCare_Text_WouldYouLikeUsToRaiseAMon:
.string "I'm the DAY-CARE LADY.\p"
.string "We can raise POKéMON for you.\p"
.string "Would you like us to raise one?$"
Route117_PokemonDayCare_Text_WhichMonShouldWeRaise:
.string "Which POKéMON should we raise for\n"
.string "you?$"
Route117_PokemonDayCare_Text_WellRaiseYourMon:
.string "Fine, we'll raise your {STR_VAR_1}\n"
.string "for a while.\p"
.string "Come back for it later.$"
Route117_PokemonDayCare_Text_WeCanRaiseOneMore:
.string "We can raise two of your POKéMON.\n"
.string "Would you like us to raise one more?$"
Route117_PokemonDayCare_Text_HusbandWasLookingForYou:
.string "My husband was looking for you.$"
Route117_PokemonDayCare_Text_FineThenComeAgain:
.string "Oh, fine, then.\n"
.string "Come again.$"
Route117_PokemonDayCare_Text_NotEnoughMoney:
.string "You don't have enough money…$"
Route117_PokemonDayCare_Text_TakeOtherOneBackToo:
.string "Will you take back the other one,\n"
.string "too?$"
Route117_PokemonDayCare_Text_ComeAgain:
.string "Fine.\n"
.string "Come again.$"
Route117_PokemonDayCare_Text_GoodToSeeYou:
.string "Ah, it's you! Good to see you.\n"
.string "Your POKéMON can only be doing good!$"
Route117_PokemonDayCare_Text_YourMonHasGrownXLevels:
.string "By level, your {STR_VAR_1} has\n"
.string "grown by {STR_VAR_2}.$"
Route117_PokemonDayCare_Text_YourTeamIsFull:
.string "Your POKéMON team is full.\n"
.string "Make room, then come see me.$"
@ Unused
Route117_PokemonDayCare_Text_TakeBackWhichMon:
.string "Which POKéMON will you take back?$"
Route117_PokemonDayCare_Text_ItWillCostX:
.string "If you want your {STR_VAR_1} back,\n"
.string "it will cost ¥{STR_VAR_2}.$"
Route117_PokemonDayCare_Text_HeresYourMon:
.string "Perfect!\n"
.string "Here's your POKéMON.$"
Route117_PokemonDayCare_Text_TookBackMon:
.string "{PLAYER} took back {STR_VAR_1} from\n"
.string "the DAY-CARE LADY.$"
Route117_PokemonDayCare_Text_YouHaveJustOneMon:
.string "Oh? But you have just one\n"
.string "POKéMON.\p"
.string "Come back another time.$"
Route117_PokemonDayCare_Text_TakeYourMonBack:
.string "Will you take your POKéMON back?$"
Route117_PokemonDayCare_Text_WhatWillYouBattleWith:
.string "If you leave me that POKéMON,\n"
.string "what will you battle with?\p"
.string "Come back another time.$"
Text_EggHatchHuh:
.string "Huh?$"
Route117_PokemonDayCare_Text_YoullBeLeftWithJustOne:
.string "Huh?\n"
.string "Now, now.\p"
.string "If you leave that POKéMON with\n"
.string "me, you'll be left with just one.\p"
.string "You will be better off if you catch\n"
.string "some more, I dare say.$"

View File

@ -0,0 +1,62 @@
PokemonLeague_EliteFour_SetAdvanceToNextRoomMetatiles::
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_Delay32
waitmovement 0
playse SE_DOOR
setmetatile 6, 1, METATILE_EliteFour_OpenDoor_Frame, FALSE
setmetatile 6, 2, METATILE_EliteFour_OpenDoor_Opening, FALSE
setmetatile 0, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 1, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 2, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 3, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 4, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 8, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 9, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 10, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 11, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 12, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
special DrawWholeMapView
return
PokemonLeague_EliteFour_EventScript_WalkInCloseDoor::
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkUp6
waitmovement 0
playse SE_TRUCK_DOOR
setmetatile 5, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 6, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 7, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 5, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 6, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 7, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
special DrawWholeMapView
return
@ Essentially unused, only necessary when re-entering an Elite Four room after defeating the member, which isnt normally possible
PokemonLeague_EliteFour_EventScript_ResetAdvanceToNextRoom::
setmetatile 6, 1, METATILE_EliteFour_OpenDoor_Frame, FALSE
setmetatile 6, 2, METATILE_EliteFour_OpenDoor_Opening, FALSE
setmetatile 5, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 6, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 7, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 5, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 6, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 7, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 0, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 1, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 2, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 3, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 4, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 8, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 9, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 10, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
setmetatile 11, 2, METATILE_EliteFour_RightSpotlightOff, TRUE
setmetatile 12, 2, METATILE_EliteFour_LeftSpotlightOff, TRUE
return
PokemonLeague_EliteFour_EventScript_CloseDoor::
setmetatile 5, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 6, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 7, 12, METATILE_EliteFour_EntryDoor_ClosedTop, TRUE
setmetatile 5, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 6, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
setmetatile 7, 13, METATILE_EliteFour_EntryDoor_ClosedBottom, TRUE
return

View File

@ -0,0 +1,276 @@
@ Interact with cuttable tree
EventScript_CutTree::
lockall
goto_if_unset FLAG_BADGE01_GET, EventScript_CheckTreeCantCut
checkpartymove MOVE_CUT
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CheckTreeCantCut
setfieldeffectargument 0, VAR_RESULT
bufferpartymonnick STR_VAR_1, VAR_RESULT
buffermovename STR_VAR_2, MOVE_CUT
goto EventScript_CutTreeDown
end
@ Use cut from party menu
EventScript_UseCut::
lockall
dofieldeffect FLDEFF_USE_CUT_ON_TREE
waitstate
goto EventScript_CutTreeDown
end
EventScript_CutTreeDown::
applymovement VAR_LAST_TALKED, Movement_CutTreeDown
waitmovement 0
removeobject VAR_LAST_TALKED
releaseall
end
Movement_CutTreeDown:
cut_tree
step_end
EventScript_CheckTreeCantCut::
msgbox Text_CantCut, MSGBOX_DEFAULT
releaseall
end
EventScript_CancelCut::
closemessage
releaseall
end
Text_WantToCut:
.string "This tree looks like it can be\n"
.string "CUT down!\p"
.string "Would you like to CUT it?$"
Text_MonUsedFieldMove:
.string "{STR_VAR_1} used {STR_VAR_2}!$"
Text_CantCut:
.string "This tree looks like it can be\n"
.string "CUT down!$"
@ Interact with smashable rock
EventScript_RockSmash::
lockall
goto_if_unset FLAG_BADGE03_GET, EventScript_CantSmashRock
checkpartymove MOVE_ROCK_SMASH
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CantSmashRock
setfieldeffectargument 0, VAR_RESULT
bufferpartymonnick STR_VAR_1, VAR_RESULT
buffermovename STR_VAR_2, MOVE_ROCK_SMASH
goto EventScript_SmashRock
end
@ Use rock smash from party menu
EventScript_UseRockSmash::
lockall
dofieldeffect FLDEFF_USE_ROCK_SMASH
waitstate
goto EventScript_SmashRock
end
EventScript_SmashRock::
applymovement VAR_LAST_TALKED, Movement_SmashRock
waitmovement 0
removeobject VAR_LAST_TALKED
specialvar VAR_RESULT, TryUpdateRusturfTunnelState
goto_if_eq VAR_RESULT, TRUE, EventScript_EndSmash
special RockSmashWildEncounter
goto_if_eq VAR_RESULT, FALSE, EventScript_EndSmash
waitstate
releaseall
end
EventScript_EndSmash::
releaseall
end
Movement_SmashRock:
rock_smash_break
step_end
EventScript_CantSmashRock::
msgbox Text_CantSmash, MSGBOX_DEFAULT
releaseall
end
EventScript_CancelSmash::
closemessage
releaseall
end
Text_WantToSmash:
.string "This rock appears to be breakable.\n"
.string "Would you like to use ROCK SMASH?$"
Text_CantSmash:
.string "It's a rugged rock, but a POKéMON\n"
.string "may be able to smash it.$"
EventScript_StrengthBoulder::
lockall
goto_if_unset FLAG_BADGE04_GET, EventScript_CantStrength
goto_if_set FLAG_SYS_USE_STRENGTH, EventScript_CheckActivatedBoulder
checkpartymove MOVE_STRENGTH
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CantStrength
setfieldeffectargument 0, VAR_RESULT
goto EventScript_ActivateStrength
end
EventScript_UseStrength::
lockall
dofieldeffect FLDEFF_USE_STRENGTH
waitstate
goto EventScript_ActivateStrength
end
EventScript_ActivateStrength::
setflag FLAG_SYS_USE_STRENGTH
msgbox Text_MonUsedStrength, MSGBOX_DEFAULT
releaseall
end
EventScript_CantStrength::
msgbox Text_CantStrength, MSGBOX_DEFAULT
releaseall
end
EventScript_CheckActivatedBoulder::
msgbox Text_StrengthActivated, MSGBOX_DEFAULT
releaseall
end
EventScript_CancelStrength::
closemessage
releaseall
end
Text_WantToStrength:
.string "It's a big boulder, but a POKéMON\n"
.string "may be able to push it aside.\p"
.string "Would you like to use STRENGTH?$"
Text_MonUsedStrength:
.string "{STR_VAR_1} used STRENGTH!\p"
.string "{STR_VAR_1}'s STRENGTH made it\n"
.string "possible to move boulders around!$"
Text_CantStrength:
.string "It's a big boulder, but a POKéMON\n"
.string "may be able to push it aside.$"
Text_StrengthActivated:
.string "STRENGTH made it possible to move\n"
.string "boulders around.$"
EventScript_UseWaterfall::
lockall
checkpartymove MOVE_WATERFALL
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CantWaterfall
bufferpartymonnick STR_VAR_1, VAR_RESULT
setfieldeffectargument 0, VAR_RESULT
dofieldeffect FLDEFF_USE_WATERFALL
goto EventScript_EndWaterfall
EventScript_CannotUseWaterfall::
lockall
EventScript_CantWaterfall::
msgbox Text_CantWaterfall, MSGBOX_DEFAULT
EventScript_EndWaterfall::
releaseall
end
Text_CantWaterfall:
.string "A wall of water is crashing down with\n"
.string "a mighty roar.$"
Text_WantToWaterfall:
.string "It's a large waterfall.\n"
.string "Would you like to use WATERFALL?$"
Text_MonUsedWaterfall:
.string "{STR_VAR_1} used WATERFALL.$"
EventScript_UseDive::
lockall
checkpartymove MOVE_DIVE
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CantDive
bufferpartymonnick STR_VAR_1, VAR_RESULT
setfieldeffectargument 0, VAR_RESULT
setfieldeffectargument 1, 1
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_EndDive
end
EventScript_CantDive::
msgbox Text_CantDive, MSGBOX_DEFAULT
releaseall
end
EventScript_EndDive::
releaseall
end
EventScript_UseDiveUnderwater::
lockall
checkpartymove MOVE_DIVE
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_CantSurface
bufferpartymonnick STR_VAR_1, VAR_RESULT
setfieldeffectargument 0, VAR_RESULT
setfieldeffectargument 1, 1
dofieldeffect FLDEFF_USE_DIVE
goto EventScript_EndSurface
end
EventScript_CantSurface::
lockall
msgbox Text_CantSurface, MSGBOX_DEFAULT
goto EventScript_EndSurface
end
EventScript_EndSurface::
releaseall
end
Text_CantDive:
.string "The sea is deep here. A POKéMON\n"
.string "may be able to go underwater.$"
Text_WantToDive:
.string "The sea is deep here.\n"
.string "Would you like to use DIVE?$"
Text_MonUsedDive:
.string "{STR_VAR_1} used DIVE.$"
Text_CantSurface:
.string "Light is filtering down from above.\n"
.string "A POKéMON may be able to surface.$"
Text_WantToSurface:
.string "Light is filtering down from above.\n"
.string "Would you like to use DIVE?$"
EventScript_FailSweetScent::
msgbox Text_FailSweetScent, MSGBOX_SIGN
end
Text_FailSweetScent:
.string "Looks like there's nothing here…$"
EventScript_DisableAutoRun::
msgbox AutoRunDisabled MSGBOX_SIGN
end
AutoRunDisabled:
.string "Auto-run {COLOR RED}disabled{COLOR DARK_GRAY}!$"
EventScript_EnableAutoRun::
msgbox AutoRunEnabled MSGBOX_SIGN
end
AutoRunEnabled:
.string "Auto-run {COLOR GREEN}enabled{COLOR DARK_GRAY}!$"

View File

@ -0,0 +1,42 @@
EventScript_FieldPoison::
lockall
special TryFieldPoisonWhiteOut
waitstate
goto_if_eq VAR_RESULT, FLDPSN_WHITEOUT, EventScript_FieldWhiteOut
goto_if_eq VAR_RESULT, FLDPSN_FRONTIER_WHITEOUT, EventScript_FrontierFieldWhiteOut
releaseall
end
EventScript_FieldWhiteOut::
message gText_PlayerWhitedOut
waitmessage
waitbuttonpress
special Script_FadeOutMapMusic
waitstate
fadescreen FADE_TO_BLACK
call_if_set FLAG_WHITEOUT_TO_LAVARIDGE, EventScript_SetRespawnLavaridgePkmnCenter
special SetCB2WhiteOut
waitstate
end
EventScript_SetRespawnLavaridgePkmnCenter::
setrespawn HEAL_LOCATION_LAVARIDGE_TOWN
return
EventScript_FrontierFieldWhiteOut::
message gText_PlayerWhitedOut
waitmessage
waitbuttonpress
pike_inchallenge
goto_if_eq VAR_RESULT, TRUE, BattleFrontier_BattlePike_EventScript_Retire
pyramid_inchallenge
goto_if_eq VAR_RESULT, 1, BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost @ On Pyramid floor
goto_if_eq VAR_RESULT, 2, BattleFrontier_BattlePyramid_EventScript_WarpToLobbyLost @ On Pyramid peak
trainerhill_inchallenge
goto_if_eq VAR_RESULT, TRUE, TrainerHill_1F_EventScript_Lost
special Script_FadeOutMapMusic
waitstate
fadescreen FADE_TO_BLACK
special SetCB2WhiteOut
waitstate
end

4
data/scripts/flash.inc Normal file
View File

@ -0,0 +1,4 @@
EventScript_UseFlash::
animateflash 1
setflashlevel 1
end

View File

@ -0,0 +1,311 @@
@ Gabby and Ty always move to the same spots for the first 5 battles
@ From the 6th battle onwards, they move randomly between locations 6-8
@ Note: The local IDs of Gabby and Ty are hard-coded in GetGabbyAndTyLocalIds
GabbyAndTy_EventScript_UpdateLocation::
cleartrainerflag TRAINER_GABBY_AND_TY_6
specialvar VAR_RESULT, GabbyAndTyGetBattleNum
switch VAR_RESULT
case 0, GabbyAndTy_EventScript_MoveForBattle1
case 1, GabbyAndTy_EventScript_MoveForBattle2
case 2, GabbyAndTy_EventScript_MoveForBattle3
case 3, GabbyAndTy_EventScript_MoveForBattle4
case 4, GabbyAndTy_EventScript_MoveForBattle5
case 5, GabbyAndTy_EventScript_MoveForBattle6
case 6, GabbyAndTy_EventScript_MoveForBattle7
case 7, GabbyAndTy_EventScript_MoveForBattle8
case 8, GabbyAndTy_EventScript_MoveForBattle9
end
GabbyAndTy_EventScript_MoveForBattle1::
call GabbyAndTy_EventScript_ShowAtRoute111_1
return
GabbyAndTy_EventScript_MoveForBattle2::
call GabbyAndTy_EventScript_ShowAtRoute118_1
call GabbyAndTy_EventScript_HideAtRoute111_1
return
GabbyAndTy_EventScript_MoveForBattle3::
call GabbyAndTy_EventScript_ShowAtRoute120_1
call GabbyAndTy_EventScript_HideAtRoute118_1
return
GabbyAndTy_EventScript_MoveForBattle4::
call GabbyAndTy_EventScript_ShowAtRoute111_3
call GabbyAndTy_EventScript_HideAtRoute120_1
return
GabbyAndTy_EventScript_MoveForBattle5::
call GabbyAndTy_EventScript_ShowAtRoute118_2
call GabbyAndTy_EventScript_HideAtRoute111_3
return
GabbyAndTy_EventScript_MoveForBattle6::
call GabbyAndTy_EventScript_ShowAtRoute120_2
call GabbyAndTy_EventScript_HideAtRoute118_2
return
GabbyAndTy_EventScript_MoveForBattle7::
call GabbyAndTy_EventScript_ShowAtRoute111_2
call GabbyAndTy_EventScript_HideAtRoute120_2
return
GabbyAndTy_EventScript_MoveForBattle8::
call GabbyAndTy_EventScript_ShowAtRoute118_3
call GabbyAndTy_EventScript_HideAtRoute111_2
return
GabbyAndTy_EventScript_MoveForBattle9::
call GabbyAndTy_EventScript_ShowAtRoute120_2
call GabbyAndTy_EventScript_HideAtRoute118_3
return
GabbyAndTy_EventScript_HideAtRoute111_1::
setflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_ShowAtRoute111_1::
clearflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_HideAtRoute118_1::
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_ShowAtRoute118_1::
clearflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_HideAtRoute120_1::
setflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_ShowAtRoute120_1::
clearflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_1
return
GabbyAndTy_EventScript_HideAtRoute111_3::
setflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_3
return
GabbyAndTy_EventScript_ShowAtRoute111_3::
clearflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_3
return
GabbyAndTy_EventScript_HideAtRoute118_2::
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_ShowAtRoute118_2::
clearflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_HideAtRoute120_2::
setflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_ShowAtRoute120_2::
clearflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_HideAtRoute111_2::
setflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_ShowAtRoute111_2::
clearflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_2
return
GabbyAndTy_EventScript_HideAtRoute118_3::
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_3
return
GabbyAndTy_EventScript_ShowAtRoute118_3::
clearflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_3
return
GabbyAndTy_EventScript_GabbyBattle1::
trainerbattle_double TRAINER_GABBY_AND_TY_1, GabbyAndTy_Text_GabbyPreFirstBattle, GabbyAndTy_Text_GabbyDefeatFirstTime, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_FirstInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle1::
trainerbattle_double TRAINER_GABBY_AND_TY_1, GabbyAndTy_Text_TyPreFirstBattle, GabbyAndTy_Text_TyDefeatFirstTime, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_FirstInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_GabbyBattle2::
trainerbattle_double TRAINER_GABBY_AND_TY_2, GabbyAndTy_Text_GabbyIntro, GabbyAndTy_Text_GabbyDefeat, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle2::
trainerbattle_double TRAINER_GABBY_AND_TY_2, GabbyAndTy_Text_TyIntro, GabbyAndTy_Text_TyDefeat, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_GabbyBattle3::
trainerbattle_double TRAINER_GABBY_AND_TY_3, GabbyAndTy_Text_GabbyIntro, GabbyAndTy_Text_GabbyDefeat, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle3::
trainerbattle_double TRAINER_GABBY_AND_TY_3, GabbyAndTy_Text_TyIntro, GabbyAndTy_Text_TyDefeat, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_GabbyBattle4::
trainerbattle_double TRAINER_GABBY_AND_TY_4, GabbyAndTy_Text_GabbyIntro, GabbyAndTy_Text_GabbyDefeat, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle4::
trainerbattle_double TRAINER_GABBY_AND_TY_4, GabbyAndTy_Text_TyIntro, GabbyAndTy_Text_TyDefeat, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_GabbyBattle5::
trainerbattle_double TRAINER_GABBY_AND_TY_5, GabbyAndTy_Text_GabbyIntro, GabbyAndTy_Text_GabbyDefeat, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle5::
trainerbattle_double TRAINER_GABBY_AND_TY_5, GabbyAndTy_Text_TyIntro, GabbyAndTy_Text_TyDefeat, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_GabbyBattle6::
trainerbattle_double TRAINER_GABBY_AND_TY_6, GabbyAndTy_Text_GabbyIntro, GabbyAndTy_Text_GabbyDefeat, GabbyAndTy_Text_GabbyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_TyBattle6::
trainerbattle_double TRAINER_GABBY_AND_TY_6, GabbyAndTy_Text_TyIntro, GabbyAndTy_Text_TyDefeat, GabbyAndTy_Text_TyNotEnoughMons, GabbyAndTy_EventScript_RequestInterview
msgbox GabbyAndTy_Text_TyPostBattle, MSGBOX_DEFAULT
release
end
GabbyAndTy_EventScript_FirstInterview::
special GabbyAndTyBeforeInterview
special GetGabbyAndTyLocalIds
call_if_eq VAR_FACING, DIR_NORTH, GabbyAndTy_EventScript_FacePlayerNorth
call_if_eq VAR_FACING, DIR_SOUTH, GabbyAndTy_EventScript_FacePlayerSouth
call_if_eq VAR_FACING, DIR_EAST, GabbyAndTy_EventScript_FacePlayerEast
goto_if_set FLAG_TEMP_1, GabbyAndTy_EventScript_KeepingAnEyeOutForYou
msgbox GabbyAndTy_Text_WhoAreYouInterview, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_FacePlayerNorth::
applymovement VAR_0x8004, GabbyAndTy_Movement_WalkInPlaceDown
waitmovement 0
return
GabbyAndTy_EventScript_FacePlayerSouth::
applymovement VAR_0x8004, GabbyAndTy_Movement_WalkInPlaceUp
applymovement VAR_0x8005, Common_Movement_WalkInPlaceFasterUp
waitmovement 0
return
GabbyAndTy_EventScript_FacePlayerEast::
applymovement VAR_0x8004, GabbyAndTy_Movement_WalkInPlaceLeft
applymovement VAR_0x8005, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
GabbyAndTy_EventScript_RequestInterview::
special GabbyAndTyBeforeInterview
special GetGabbyAndTyLocalIds
call_if_eq VAR_FACING, DIR_NORTH, GabbyAndTy_EventScript_FacePlayerNorth
call_if_eq VAR_FACING, DIR_SOUTH, GabbyAndTy_EventScript_FacePlayerSouth
call_if_eq VAR_FACING, DIR_EAST, GabbyAndTy_EventScript_FacePlayerEast
goto_if_set FLAG_TEMP_1, GabbyAndTy_EventScript_KeepingAnEyeOutForYou
specialvar VAR_RESULT, GabbyAndTyGetLastQuote
goto_if_eq VAR_RESULT, 0, GabbyAndTy_EventScript_DidntInterviewLastTime
msgbox GabbyAndTy_Text_QuoteFromLastInterview, MSGBOX_DEFAULT
specialvar VAR_RESULT, GabbyAndTyGetLastBattleTrivia
switch VAR_RESULT
case 0, GabbyAndTy_EventScript_RequestInterviewNoTrivia
case 1, GabbyAndTy_EventScript_RequestInterviewShortBattle
case 2, GabbyAndTy_EventScript_RequestInterviewThrewBall
case 3, GabbyAndTy_EventScript_RequestInterviewUsedItems
case 4, GabbyAndTy_EventScript_RequestInterviewLostAMon
end
GabbyAndTy_Movement_WalkInPlaceDown:
walk_in_place_down
step_end
GabbyAndTy_Movement_WalkInPlaceUp:
walk_in_place_up
step_end
GabbyAndTy_Movement_WalkInPlaceLeft:
walk_in_place_left
step_end
GabbyAndTy_EventScript_DidntInterviewLastTime::
msgbox GabbyAndTy_Text_GiveUsAnInterviewThisTime, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_RequestInterviewNoTrivia::
msgbox GabbyAndTy_Text_InterviewAgain, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_RequestInterviewShortBattle::
msgbox GabbyAndTy_Text_YouStompedUsInterviewAgain, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_RequestInterviewThrewBall::
msgbox GabbyAndTy_Text_YouThrewABallAtUsInterviewAgain, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_RequestInterviewUsedItems::
msgbox GabbyAndTy_Text_CleverItemSkillsInterviewAgain, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_RequestInterviewLostAMon::
msgbox GabbyAndTy_Text_WeLookedRespectableInterviewAgain, MSGBOX_YESNO
goto GabbyAndTy_EventScript_Interview
end
GabbyAndTy_EventScript_Interview::
goto_if_eq VAR_RESULT, NO, GabbyAndTy_EventScript_DontGiveUpKeepingEyeOut
msgbox GabbyAndTy_Text_DescribeYourFeelings, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_GABBY_AND_TY
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, GabbyAndTy_EventScript_DontGiveUpKeepingEyeOut
msgbox GabbyAndTy_Text_PerfectWellBeSeeingYou, MSGBOX_DEFAULT
special GabbyAndTyAfterInterview
setflag FLAG_TEMP_1
release
end
GabbyAndTy_EventScript_DontGiveUpKeepingEyeOut::
msgbox GabbyAndTy_Text_DontGiveUpKeepingEyeOut, MSGBOX_DEFAULT
setflag FLAG_TEMP_1
release
end
GabbyAndTy_EventScript_KeepingAnEyeOutForYou::
msgbox GabbyAndTy_Text_KeepingAnEyeOutForYou, MSGBOX_DEFAULT
release
end

View File

@ -0,0 +1,23 @@
MysteryGiftScript_AlteringCave::
setvaddress MysteryGiftScript_AlteringCave
addvar VAR_ALTERING_CAVE_WILD_SET, 1
vgoto_if_ne VAR_ALTERING_CAVE_WILD_SET, 10, MysteryGiftScript_AlteringCave_
setvar VAR_ALTERING_CAVE_WILD_SET, 0
MysteryGiftScript_AlteringCave_:
lock
faceplayer
vmessage sText_MysteryGiftAlteringCave
waitmessage
waitbuttonpress
release
end
sText_MysteryGiftAlteringCave::
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "There appears to be a rumor about\n"
.string "rare POKéMON sightings.\p"
.string "The sightings reportedly came from\n"
.string "the ALTERING CAVE on ROUTE 103.\p"
.string "Perhaps it would be worthwhile for\n"
.string "you to investigate this rumor.$"

View File

@ -0,0 +1,57 @@
MysteryGiftScript_AuroraTicket::
setvaddress MysteryGiftScript_AuroraTicket
lock
faceplayer
vgoto_if_set FLAG_RECEIVED_AURORA_TICKET, AuroraTicket_Obtained
vgoto_if_set FLAG_BATTLED_DEOXYS, AuroraTicket_Obtained
checkitem ITEM_AURORA_TICKET
vgoto_if_eq VAR_RESULT, TRUE, AuroraTicket_Obtained
vmessage sText_AuroraTicketForYou
waitmessage
waitbuttonpress
checkitemspace ITEM_AURORA_TICKET
vgoto_if_eq VAR_RESULT, FALSE, AuroraTicket_NoBagSpace
giveitem ITEM_AURORA_TICKET
setflag FLAG_ENABLE_SHIP_BIRTH_ISLAND
setflag FLAG_RECEIVED_AURORA_TICKET
vmessage sText_AuroraTicketUseAtPort
waitmessage
waitbuttonpress
release
end
AuroraTicket_NoBagSpace:
vmessage sText_AuroraTicketBagFull
waitmessage
waitbuttonpress
release
end
AuroraTicket_Obtained:
vmessage sText_AuroraTicketThankYou
waitmessage
waitbuttonpress
release
end
sText_AuroraTicketForYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "You must be {PLAYER}.\n"
.string "There is a ticket here for you.$"
sText_AuroraTicketUseAtPort:
.string "It appears to be for use at the\n"
.string "LILYCOVE CITY port.\p"
.string "Why not give it a try and see what\n"
.string "it is about?$"
sText_AuroraTicketThankYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.$"
sText_AuroraTicketBagFull:
.string "Oh, I'm sorry, {PLAYER}.\n"
.string "Your BAG's KEY ITEMS POCKET is full.\p"
.string "Please store something on your PC,\n"
.string "then come back for this.$"

View File

@ -0,0 +1,45 @@
MysteryGiftScript_BattleCard::
setvaddress MysteryGiftScript_BattleCard
vgoto_if_set FLAG_MYSTERY_GIFT_DONE, MysteryGiftScript_BattleCardInfo
setorcopyvar VAR_RESULT, GET_CARD_BATTLES_WON
specialvar VAR_0x8008, GetMysteryGiftCardStat
vgoto_if_ne VAR_0x8008, REQUIRED_CARD_BATTLES, MysteryGiftScript_BattleCardInfo
lock
faceplayer
vmessage sText_MysteryGiftBattleCountCard_WonPrize
waitmessage
waitbuttonpress
giveitem ITEM_POTION
release
setflag FLAG_MYSTERY_GIFT_DONE
end
MysteryGiftScript_BattleCardInfo:
lock
faceplayer
vmessage sText_MysteryGiftBattleCountCard
waitmessage
waitbuttonpress
release
end
sText_MysteryGiftBattleCountCard:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "Your BATTLE COUNT CARD keeps\n"
.string "track of your battle record against\l"
.string "TRAINERS with the same CARD.\p"
.string "Look for and battle TRAINERS who\n"
.string "have the same CARD as you.\p"
.string "You may check the overall rankings\n"
.string "by reading the NEWS.\p"
.string "Please do give it a try!$"
sText_MysteryGiftBattleCountCard_WonPrize:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "Congratulations!\p"
.string "You have won a prize for winning\n"
.string "three battles!\p"
.string "We hope you will be inspired to\n"
.string "battle some more.$"

View File

@ -0,0 +1,58 @@
MysteryGiftScript_MysticTicket::
setvaddress MysteryGiftScript_MysticTicket
lock
faceplayer
vgoto_if_set FLAG_RECEIVED_MYSTIC_TICKET, MysticTicket_Obtained
vgoto_if_set FLAG_CAUGHT_LUGIA, MysticTicket_Obtained
vgoto_if_set FLAG_CAUGHT_HO_OH, MysticTicket_Obtained
checkitem ITEM_MYSTIC_TICKET
vgoto_if_eq VAR_RESULT, TRUE, MysticTicket_Obtained
vmessage sText_MysticTicketForYou
waitmessage
waitbuttonpress
checkitemspace ITEM_MYSTIC_TICKET
vgoto_if_eq VAR_RESULT, FALSE, MysticTicket_NoBagSpace
giveitem ITEM_MYSTIC_TICKET
setflag FLAG_ENABLE_SHIP_NAVEL_ROCK
setflag FLAG_RECEIVED_MYSTIC_TICKET
vmessage sText_MysticTicketUseAtPort
waitmessage
waitbuttonpress
release
end
MysticTicket_NoBagSpace:
vmessage sText_MysticTicketBagFull
waitmessage
waitbuttonpress
release
end
MysticTicket_Obtained:
vmessage sText_MysticTicketThankYou
waitmessage
waitbuttonpress
release
end
sText_MysticTicketForYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "You must be {PLAYER}.\n"
.string "There is a ticket here for you.$"
sText_MysticTicketUseAtPort:
.string "It appears to be for use at the\n"
.string "LILYCOVE CITY port.\p"
.string "Why not give it a try and see what\n"
.string "it is about?$"
sText_MysticTicketThankYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.$"
sText_MysticTicketBagFull:
.string "Oh, I'm sorry, {PLAYER}.\n"
.string "Your BAG's KEY ITEMS POCKET is full.\p"
.string "Please store something on your PC,\n"
.string "then come back for this.$"

View File

@ -0,0 +1,58 @@
MysteryGiftScript_OldSeaMap::
setvaddress MysteryGiftScript_OldSeaMap
lock
faceplayer
vgoto_if_set FLAG_RECEIVED_OLD_SEA_MAP, OldSeaMap_Obtained
vgoto_if_set FLAG_CAUGHT_MEW, OldSeaMap_Obtained
checkitem ITEM_OLD_SEA_MAP
vgoto_if_eq VAR_RESULT, TRUE, OldSeaMap_Obtained
vmessage sText_MysteryGiftOldSeaMapForYou
waitmessage
waitbuttonpress
checkitemspace ITEM_OLD_SEA_MAP
vgoto_if_eq VAR_RESULT, FALSE, OldSeaMap_NoBagSpace
giveitem ITEM_OLD_SEA_MAP
setflag FLAG_ENABLE_SHIP_FARAWAY_ISLAND
setflag FLAG_RECEIVED_OLD_SEA_MAP
vmessage sText_MysteryGiftOldSeaMapUseAtPort
waitmessage
waitbuttonpress
release
end
OldSeaMap_NoBagSpace:
vmessage sText_MysteryGiftOldSeaMapBagFull
waitmessage
waitbuttonpress
release
end
OldSeaMap_Obtained:
vmessage sText_MysteryGiftOldSeaMapThankYou
waitmessage
waitbuttonpress
release
end
sText_MysteryGiftOldSeaMapForYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "Let me confirm--you are {PLAYER}?\p"
.string "We received this OLD SEA MAP\n"
.string "addressed to you.$"
sText_MysteryGiftOldSeaMapUseAtPort:
.string "It appears to be for use at the\n"
.string "LILYCOVE CITY port.\p"
.string "Why not give it a try and see what\n"
.string "it is about?$"
sText_MysteryGiftOldSeaMapThankYou:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.$"
sText_MysteryGiftOldSeaMapBagFull:
.string "Oh, I'm sorry, {PLAYER}.\n"
.string "Your BAG's KEY ITEMS POCKET is full.\p"
.string "Please store something on your PC,\n"
.string "then come back for this.$"

View File

@ -0,0 +1,72 @@
MysteryGiftScript_SurfPichu::
setvaddress MysteryGiftScript_SurfPichu
vgoto_if_unset FLAG_MYSTERY_GIFT_DONE, SurfPichu_GiveIfPossible
returnram
SurfPichu_GiveIfPossible:
specialvar VAR_GIFT_PICHU_SLOT, CalculatePlayerPartyCount
vgoto_if_eq VAR_GIFT_PICHU_SLOT, PARTY_SIZE, SurfPichu_FullParty
setflag FLAG_MYSTERY_GIFT_DONE
vcall SurfPichu_GiveEgg
lock
faceplayer
vmessage sText_MysteryGiftEgg
waitmessage
waitbuttonpress
playfanfare MUS_OBTAIN_ITEM
waitfanfare
release
end
SurfPichu_FullParty:
lock
faceplayer
vmessage sText_FullParty
waitmessage
waitbuttonpress
release
end
SurfPichu_GiveEgg:
giveegg SPECIES_PICHU
setmoneventlegal VAR_GIFT_PICHU_SLOT
setmonmetlocation VAR_GIFT_PICHU_SLOT, METLOC_FATEFUL_ENCOUNTER
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 1, SurfPichu_Slot1
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 2, SurfPichu_Slot2
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 3, SurfPichu_Slot3
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 4, SurfPichu_Slot4
vgoto_if_eq VAR_GIFT_PICHU_SLOT, 5, SurfPichu_Slot5
return
SurfPichu_Slot1:
setmonmove 1, 2, MOVE_SURF
return
SurfPichu_Slot2::
setmonmove 2, 2, MOVE_SURF
return
SurfPichu_Slot3:
setmonmove 3, 2, MOVE_SURF
return
SurfPichu_Slot4:
setmonmove 4, 2, MOVE_SURF
return
SurfPichu_Slot5:
setmonmove 5, 2, MOVE_SURF
return
sText_MysteryGiftEgg:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "From the POKéMON CENTER we\n"
.string "have a gift--a POKéMON EGG!\p"
.string "Please raise it with love and\n"
.string "kindness.$"
sText_FullParty:
.string "Oh, your party appears to be full.\p"
.string "Please come see me after storing\n"
.string "a POKéMON on a PC.$"

View File

@ -0,0 +1,21 @@
MysteryGiftScript_StampCard::
setvaddress MysteryGiftScript_StampCard
setorcopyvar VAR_RESULT, GET_MAX_STAMPS
specialvar VAR_0x8008, GetMysteryGiftCardStat
setorcopyvar VAR_RESULT, GET_NUM_STAMPS
specialvar VAR_0x8009, GetMysteryGiftCardStat
subvar VAR_0x8008, VAR_0x8009
buffernumberstring STR_VAR_1, VAR_0x8008
lock
faceplayer
vmessage sText_MysteryGiftStampCard
waitmessage
waitbuttonpress
release
end
sText_MysteryGiftStampCard:
.string "Thank you for using the STAMP CARD\n"
.string "System.\p"
.string "You have {STR_VAR_1} more to collect to\n"
.string "fill your STAMP CARD.$"

View File

@ -0,0 +1,48 @@
MysteryGiftScript_VisitingTrainer::
setvaddress MysteryGiftScript_VisitingTrainer
special ValidateEReaderTrainer
vgoto_if_eq VAR_RESULT, 0, MysteryGiftScript_VisitingTrainerArrived
lock
faceplayer
vmessage sText_MysteryGiftVisitingTrainerInstructions
waitmessage
waitbuttonpress
release
end
MysteryGiftScript_VisitingTrainerArrived:
lock
faceplayer
vmessage sText_MysteryGiftVisitingTrainerArrived
waitmessage
waitbuttonpress
release
end
sText_MysteryGiftVisitingTrainerInstructions:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "By holding this WONDER CARD, you\n"
.string "may take part in a survey at a\l"
.string "POKéMON MART.\p"
.string "Use these surveys to invite\n"
.string "TRAINERS to SOOTOPOLIS CITY.\p"
.string "…Let me give you a secret\n"
.string "password for a survey:\p"
.string "“GIVE ME\n"
.string "AWESOME TRAINER”\p"
.string "Write that in on a survey and send\n"
.string "it to the WIRELESS\l"
.string "COMMUNICATION SYSTEM.$"
sText_MysteryGiftVisitingTrainerArrived:
.string "Thank you for using the MYSTERY\n"
.string "GIFT System.\p"
.string "A TRAINER has arrived in\n"
.string "SOOTOPOLIS CITY looking for you.\p"
.string "We hope you will enjoy\n"
.string "battling the visiting TRAINER.\p"
.string "You may invite other TRAINERS by\n"
.string "entering other passwords.\p"
.string "Try looking for other passwords\n"
.string "that may work.$"

View File

@ -0,0 +1,51 @@
EverGrandeCity_HallOfFame_EventScript_SetGameClearFlags::
special SetChampionSaveWarp
setflag FLAG_IS_CHAMPION
call EverGrandeCity_HallOfFame_EventScript_ResetDefeatedEventLegendaries
call_if_eq VAR_FOSSIL_MANIAC_STATE, 0, EverGrandeCity_HallOfFame_EventScript_SetDesertUnderpassCommentReady
clearflag FLAG_HIDE_LILYCOVE_MOTEL_GAME_DESIGNERS
call EverGrandeCity_HallOfFame_EventScript_ResetEliteFour
setflag FLAG_HIDE_SLATEPORT_CITY_STERNS_SHIPYARD_MR_BRINEY
clearflag FLAG_HIDE_SS_TIDAL_CORRIDOR_MR_BRINEY
clearflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_INVISIBLE_NINJA_BOY
setvar VAR_STEVENS_HOUSE_STATE, 2
setflag FLAG_HIDE_VICTORY_ROAD_ENTRANCE_WALLY
clearflag FLAG_HIDE_VICTORY_ROAD_EXIT_WALLY
clearflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_SS_TIDAL
clearflag FLAG_HIDE_LILYCOVE_HARBOR_SSTIDAL
setflag FLAG_HIDE_SAFARI_ZONE_SOUTH_CONSTRUCTION_WORKERS
clearflag FLAG_HIDE_SAFARI_ZONE_SOUTH_EAST_EXPANSION
setflag FLAG_HIDE_LILYCOVE_CITY_RIVAL
special UpdateTrainerFanClubGameClear
call_if_unset FLAG_RECEIVED_SS_TICKET, EverGrandeCity_HallOfFame_EventScript_ReadyReceiveSSTicketEvent
call_if_unset FLAG_RECEIVED_BELDUM, EverGrandeCity_HallOfFame_EventScript_ShowStevensHouseBeldum
setflag FLAG_HIDE_LITTLEROOT_TOWN_BRENDANS_HOUSE_RIVAL_BEDROOM
setflag FLAG_HIDE_LITTLEROOT_TOWN_MAYS_HOUSE_RIVAL_BEDROOM
call_if_eq VAR_DEX_UPGRADE_JOHTO_STARTER_STATE, 0, EverGrandeCity_HallOfFame_EventScript_ReadyDexUpgradeEvent
return
EverGrandeCity_HallOfFame_EventScript_ResetDefeatedEventLegendaries::
clearflag FLAG_DEFEATED_MEW
clearflag FLAG_DEFEATED_LATIAS_OR_LATIOS
clearflag FLAG_DEFEATED_DEOXYS
clearflag FLAG_DEFEATED_LUGIA
clearflag FLAG_DEFEATED_HO_OH
return
EverGrandeCity_HallOfFame_EventScript_SetDesertUnderpassCommentReady::
setvar VAR_FOSSIL_MANIAC_STATE, 1
return
EverGrandeCity_HallOfFame_EventScript_ShowStevensHouseBeldum::
clearflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_BELDUM_POKEBALL
return
EverGrandeCity_HallOfFame_EventScript_ReadyReceiveSSTicketEvent::
setvar VAR_LITTLEROOT_HOUSES_STATE_MAY, 3
setvar VAR_LITTLEROOT_HOUSES_STATE_BRENDAN, 3
clearflag FLAG_HIDE_PLAYERS_HOUSE_DAD
return
EverGrandeCity_HallOfFame_EventScript_ReadyDexUpgradeEvent::
setvar VAR_DEX_UPGRADE_JOHTO_STARTER_STATE, 1
return

320
data/scripts/interview.inc Normal file
View File

@ -0,0 +1,320 @@
Interview_EventScript_EndInterview::
special InterviewAfter
incrementgamestat GAME_STAT_GOT_INTERVIEWED
release
end
@ Shares reporter object with TVSHOW_PKMN_FAN_CLUB_OPINIONS
SlateportCity_PokemonFanClub_EventScript_ReporterNoNickname::
setvar VAR_0x8005, TVSHOW_FAN_CLUB_LETTER
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_AlreadyInterviewed2
copyvar VAR_0x8009, VAR_0x8006
msgbox SlateportCity_PokemonFanClub_Text_InterviewRequest, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SlateportCity_PokemonFanClub_EventScript_AcceptInterview2
goto_if_eq VAR_RESULT, NO, SlateportCity_PokemonFanClub_EventScript_DeclineInterview2
end
SlateportCity_PokemonFanClub_EventScript_AcceptInterview2::
msgbox SlateportCity_PokemonFanClub_Text_TellMeAnythingAboutYourMon, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_INTERVIEW
copyvar VAR_0x8005, VAR_0x8009
setvar VAR_0x8006, EASY_CHAT_PERSON_REPORTER_FEMALE
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 1, SlateportCity_PokemonFanClub_EventScript_SubmitResponse2
goto_if_eq VAR_RESULT, 0, SlateportCity_PokemonFanClub_EventScript_DeclineInterview2
end
SlateportCity_PokemonFanClub_EventScript_DeclineInterview2::
msgbox SlateportCity_PokemonFanClub_Text_HereIfYouGetUrgeToTellMe, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_SubmitResponse2::
msgbox SlateportCity_PokemonFanClub_Text_ThatsAllForInterview2, MSGBOX_DEFAULT
setvar VAR_0x8005, TVSHOW_FAN_CLUB_LETTER
goto Interview_EventScript_EndInterview
end
SlateportCity_PokemonFanClub_EventScript_AlreadyInterviewed2::
msgbox SlateportCity_PokemonFanClub_Text_EnjoyDoingInterviews, MSGBOX_DEFAULT
release
end
SlateportCity_OceanicMuseum_1F_EventScript_Reporter::
lock
faceplayer
setvar VAR_0x8005, TVSHOW_RECENT_HAPPENINGS
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, SlateportCity_OceanicMuseum_1F_EventScript_AlreadyInterviewed
copyvar VAR_0x8009, VAR_0x8006
goto_if_set FLAG_OCEANIC_MUSEUM_MET_REPORTER, SlateportCity_OceanicMuseum_1F_EventScript_RequestInterviewShort
setflag FLAG_OCEANIC_MUSEUM_MET_REPORTER
msgbox SlateportCity_OceanicMuseum_1F_Text_InterviewRequest, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SlateportCity_OceanicMuseum_1F_EventScript_AcceptInterview
goto_if_eq VAR_RESULT, NO, SlateportCity_OceanicMuseum_1F_EventScript_DeclineInterview
end
SlateportCity_OceanicMuseum_1F_EventScript_RequestInterviewShort::
msgbox SlateportCity_OceanicMuseum_1F_Text_InterviewRequestShort, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SlateportCity_OceanicMuseum_1F_EventScript_AcceptInterview
goto_if_eq VAR_RESULT, NO, SlateportCity_OceanicMuseum_1F_EventScript_DeclineInterview
end
SlateportCity_OceanicMuseum_1F_EventScript_AcceptInterview::
msgbox SlateportCity_OceanicMuseum_1F_Text_TellMeExperienceInvolvingPokemon, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_INTERVIEW
copyvar VAR_0x8005, VAR_0x8009
setvar VAR_0x8006, EASY_CHAT_PERSON_REPORTER_MALE
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 1, SlateportCity_OceanicMuseum_1F_EventScript_SubmitResponse
goto_if_eq VAR_RESULT, 0, SlateportCity_OceanicMuseum_1F_EventScript_DeclineInterview
end
SlateportCity_OceanicMuseum_1F_EventScript_DeclineInterview::
msgbox SlateportCity_OceanicMuseum_1F_Text_LetMeKnowIfYouHaveStory, MSGBOX_DEFAULT
release
end
SlateportCity_OceanicMuseum_1F_EventScript_SubmitResponse::
msgbox SlateportCity_OceanicMuseum_1F_Text_ThatsAllForInterview, MSGBOX_DEFAULT
setvar VAR_0x8005, TVSHOW_RECENT_HAPPENINGS
goto Interview_EventScript_EndInterview
end
SlateportCity_OceanicMuseum_1F_EventScript_AlreadyInterviewed::
msgbox SlateportCity_OceanicMuseum_1F_Text_BetterWriteUpStory, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_Reporter::
lock
faceplayer
specialvar VAR_RESULT, IsLeadMonNicknamedOrNotEnglish
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_ReporterNoNickname
setvar VAR_0x8005, TVSHOW_PKMN_FAN_CLUB_OPINIONS
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_AlreadyInterviewed
copyvar VAR_0x8009, VAR_0x8006
msgbox SlateportCity_PokemonFanClub_Text_InterviewRequestHasName, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SlateportCity_PokemonFanClub_EventScript_AcceptInterview
goto_if_eq VAR_RESULT, NO, SlateportCity_PokemonFanClub_EventScript_DeclineInterview
end
SlateportCity_PokemonFanClub_EventScript_AcceptInterview::
msgbox SlateportCity_PokemonFanClub_Text_HereGoesQuickAnswers, MSGBOX_DEFAULT
random 3
copyvar VAR_0x800A, VAR_RESULT
switch VAR_RESULT
case 0, SlateportCity_PokemonFanClub_EventScript_RandomQuestion1
case 1, SlateportCity_PokemonFanClub_EventScript_RandomQuestion2
case 2, SlateportCity_PokemonFanClub_EventScript_RandomQuestion3
end
SlateportCity_PokemonFanClub_EventScript_RandomQuestion1::
msgbox SlateportCity_PokemonFanClub_Text_DescribeFeelingsFirstMetMon, MSGBOX_DEFAULT
goto SlateportCity_PokemonFanClub_EventScript_ContinueInterview
end
SlateportCity_PokemonFanClub_EventScript_RandomQuestion2::
msgbox SlateportCity_PokemonFanClub_Text_LikenMonToSomethingYouLike, MSGBOX_DEFAULT
goto SlateportCity_PokemonFanClub_EventScript_ContinueInterview
end
SlateportCity_PokemonFanClub_EventScript_RandomQuestion3::
msgbox SlateportCity_PokemonFanClub_Text_WhatAttractedYouAboutMon, MSGBOX_DEFAULT
goto SlateportCity_PokemonFanClub_EventScript_ContinueInterview
end
SlateportCity_PokemonFanClub_EventScript_ContinueInterview::
setvar VAR_0x8004, EASY_CHAT_TYPE_FAN_CLUB
copyvar VAR_0x8005, VAR_0x8009
setvar VAR_0x8006, 0
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, SlateportCity_PokemonFanClub_EventScript_DeclineInterview
msgbox SlateportCity_PokemonFanClub_Text_WhatDoPokemonMeanToYou, MSGBOX_DEFAULT
setvar VAR_0x8006, 1
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, SlateportCity_PokemonFanClub_EventScript_DeclineInterview
msgbox SlateportCity_PokemonFanClub_Text_ThatsAllForInterview, MSGBOX_DEFAULT
copyvar VAR_0x8007, VAR_0x800A
setvar VAR_0x8005, TVSHOW_PKMN_FAN_CLUB_OPINIONS
goto Interview_EventScript_EndInterview
end
SlateportCity_PokemonFanClub_EventScript_DeclineInterview::
msgbox SlateportCity_PokemonFanClub_Text_HereIfYouGetUrgeToTellMe, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_AlreadyInterviewed::
msgbox SlateportCity_PokemonFanClub_Text_EnjoyDoingInterviews, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_Reporter::
lock
faceplayer
goto_if_set FLAG_TEMP_2, LilycoveCity_ContestLobby_EventScript_AlreadyInterviewed
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_POKEMON_PROFILE
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_ContestLobby_EventScript_AlreadyInterviewed
copyvar VAR_0x8009, VAR_0x8006
msgbox LilycoveCity_ContestLobby_Text_InterviewRequest, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_ContestLobby_EventScript_AcceptInterview
goto_if_eq VAR_RESULT, NO, LilycoveCity_ContestLobby_EventScript_DeclineInterview
end
LilycoveCity_ContestLobby_EventScript_AcceptInterview::
msgbox LilycoveCity_ContestLobby_Text_DescribeContest, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_CONTEST_INTERVIEW
copyvar VAR_0x8005, VAR_0x8009
setvar VAR_0x8006, 0
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 1, LilycoveCity_ContestLobby_EventScript_SubmitResponse
goto_if_eq VAR_RESULT, 0, LilycoveCity_ContestLobby_EventScript_DeclineInterview
end
LilycoveCity_ContestLobby_EventScript_DeclineInterview::
msgbox LilycoveCity_ContestLobby_Text_PleaseDoShareStoryWithMe, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_SubmitResponse::
setvar VAR_0x8004, 24
special SetContestCategoryStringVarForInterview
msgbox LilycoveCity_ContestLobby_Text_WhatImageWhenYouHearX, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_CONTEST_INTERVIEW
copyvar VAR_0x8005, VAR_0x8009
setvar VAR_0x8006, 1
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, LilycoveCity_ContestLobby_EventScript_DeclineInterview
msgbox LilycoveCity_ContestLobby_Text_ThatsAllForInterview, MSGBOX_DEFAULT
setflag FLAG_TEMP_2
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_POKEMON_PROFILE
goto Interview_EventScript_EndInterview
end
LilycoveCity_ContestLobby_EventScript_AlreadyInterviewed::
msgbox LilycoveCity_ContestLobby_Text_LookingForwardToNextContest, MSGBOX_DEFAULT
release
end
LilycoveCity_ContestLobby_EventScript_TryShowContestReporter::
goto_if_ne VAR_CONTEST_HALL_STATE, 2, LilycoveCity_ContestLobby_EventScript_DontShowContestReporter
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_POKEMON_PROFILE
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_ContestLobby_EventScript_DontShowContestReporter
switch VAR_CONTEST_TYPE
case 0, LilycoveCity_ContestLobby_EventScript_DontShowContestReporter
case 2, LilycoveCity_ContestLobby_EventScript_ShowContestReporter
case 1, LilycoveCity_ContestLobby_EventScript_ShowContestReporter
case 3, LilycoveCity_ContestLobby_EventScript_ShowContestReporter
case 4, LilycoveCity_ContestLobby_EventScript_ShowContestReporter
case 5, LilycoveCity_ContestLobby_EventScript_DontShowContestReporter
end
LilycoveCity_ContestLobby_EventScript_ShowContestReporter::
clearflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_REPORTER
return
LilycoveCity_ContestLobby_EventScript_DontShowContestReporter::
return
BattleFrontier_BattleTowerLobby_EventScript_Reporter::
lock
faceplayer
goto_if_set FLAG_TEMP_2, BattleFrontier_BattleTowerLobby_EventScript_AlreadyInterviewed
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_BATTLE_TOWER_PROFILE
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, BattleFrontier_BattleTowerLobby_EventScript_AlreadyInterviewed
copyvar VAR_0x8009, VAR_0x8006
msgbox BattleFrontier_BattleTowerLobby_Text_InterviewRequest, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BattleFrontier_BattleTowerLobby_EventScript_AcceptInterview
goto_if_eq VAR_RESULT, NO, BattleFrontier_BattleTowerLobby_EventScript_DeclineInterview
end
BattleFrontier_BattleTowerLobby_EventScript_AcceptInterview::
message BattleFrontier_BattleTowerLobby_Text_HowDidBattleTowerTurnOut
waitmessage
multichoice 20, 8, MULTI_SATISFACTION, TRUE
copyvar VAR_0x8008, VAR_RESULT
call_if_eq VAR_RESULT, 0, BattleFrontier_BattleTowerLobby_EventScript_Satisfied
call_if_eq VAR_RESULT, 1, BattleFrontier_BattleTowerLobby_EventScript_Dissatisfied
msgbox BattleFrontier_BattleTowerLobby_Text_DescribeYourBattle, MSGBOX_DEFAULT
setvar VAR_0x8004, EASY_CHAT_TYPE_BATTLE_TOWER_INTERVIEW
copyvar VAR_0x8005, VAR_0x8009
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 1, BattleFrontier_BattleTowerLobby_EventScript_SubmitResponse
goto_if_eq VAR_RESULT, 0, BattleFrontier_BattleTowerLobby_EventScript_CancelInterview
end
BattleFrontier_BattleTowerLobby_EventScript_DeclineInterview::
msgbox BattleFrontier_BattleTowerLobby_Text_SorryWeDisturbedYou, MSGBOX_DEFAULT
release
end
BattleFrontier_BattleTowerLobby_EventScript_Satisfied::
msgbox BattleFrontier_BattleTowerLobby_Text_ObviousYouHadGreatBattle, MSGBOX_DEFAULT
return
BattleFrontier_BattleTowerLobby_EventScript_Dissatisfied::
msgbox BattleFrontier_BattleTowerLobby_Text_DifficultToMakeBattleTurnOutAsPlanned, MSGBOX_DEFAULT
return
BattleFrontier_BattleTowerLobby_EventScript_SubmitResponse::
goto_if_eq VAR_RESULT, 0, BattleFrontier_BattleTowerLobby_EventScript_CancelInterview
msgbox BattleFrontier_BattleTowerLobby_Text_ThatsGreatLine, MSGBOX_DEFAULT
setflag FLAG_TEMP_2
copyvar VAR_0x8004, VAR_0x8008
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_BATTLE_TOWER_PROFILE
goto Interview_EventScript_EndInterview
end
BattleFrontier_BattleTowerLobby_EventScript_CancelInterview::
msgbox BattleFrontier_BattleTowerLobby_Text_SilentType, MSGBOX_DEFAULT
release
end
BattleFrontier_BattleTowerLobby_EventScript_AlreadyInterviewed::
msgbox BattleFrontier_BattleTowerLobby_Text_LookingForwardToNextBattle, MSGBOX_DEFAULT
release
end
BattleFrontier_BattleTowerLobby_EventScript_ShowOrHideReporter::
goto_if_eq VAR_BRAVO_TRAINER_BATTLE_TOWER_ON, 0, BattleFrontier_BattleTowerLobby_EventScript_HideReporter
setvar VAR_0x8005, TVSHOW_BRAVO_TRAINER_BATTLE_TOWER_PROFILE
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, BattleFrontier_BattleTowerLobby_EventScript_HideReporter
clearflag FLAG_HIDE_BATTLE_TOWER_REPORTER
return
BattleFrontier_BattleTowerLobby_EventScript_HideReporter::
setflag FLAG_HIDE_BATTLE_TOWER_REPORTER
return
@ Unused
EventScript_ContestLiveInterview::
setvar VAR_0x8005, TVSHOW_CONTEST_LIVE_UPDATES
special InterviewBefore
goto_if_eq VAR_RESULT, TRUE, EventScript_ContestLiveInterviewEnd
setvar VAR_0x8005, TVSHOW_CONTEST_LIVE_UPDATES
special InterviewAfter
return
EventScript_ContestLiveInterviewEnd::
return

View File

@ -0,0 +1,659 @@
Route102_EventScript_ItemPotion::
finditem ITEM_POTION
end
Route103_EventScript_ItemGuardSpec::
finditem ITEM_GUARD_SPEC
end
Route103_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
Route104_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
Route104_EventScript_ItemPokeBall::
finditem ITEM_POKE_BALL
end
Route104_EventScript_ItemXAccuracy::
finditem ITEM_X_ACCURACY
end
Route104_EventScript_ItemPotion::
finditem ITEM_POTION
end
Route105_EventScript_ItemIron::
finditem ITEM_IRON
end
Route106_EventScript_ItemProtein::
finditem ITEM_PROTEIN
end
Route108_EventScript_ItemStarPiece::
finditem ITEM_STAR_PIECE
end
Route109_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
Route109_EventScript_ItemPotion::
finditem ITEM_POTION
end
Route110_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
Route110_EventScript_ItemDireHit::
finditem ITEM_DIRE_HIT
end
Route110_EventScript_ItemElixir::
finditem ITEM_ELIXIR
end
Route111_EventScript_ItemTM37::
finditem ITEM_TM37
end
Route111_EventScript_ItemStardust::
finditem ITEM_STARDUST
end
Route111_EventScript_ItemHPUp::
finditem ITEM_HP_UP
end
Route111_EventScript_ItemElixir::
finditem ITEM_ELIXIR
end
Route112_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
Route113_EventScript_ItemMaxEther::
finditem ITEM_MAX_ETHER
end
Route113_EventScript_ItemSuperRepel::
finditem ITEM_SUPER_REPEL
end
Route113_EventScript_ItemHyperPotion::
finditem ITEM_HYPER_POTION
end
Route114_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
Route114_EventScript_ItemProtein::
finditem ITEM_PROTEIN
end
Route114_EventScript_ItemEnergyPowder::
finditem ITEM_ENERGY_POWDER
end
Route115_EventScript_ItemSuperPotion::
finditem ITEM_SUPER_POTION
end
Route115_EventScript_ItemTM01::
finditem ITEM_TM01
end
Route115_EventScript_ItemIron::
finditem ITEM_IRON
end
Route115_EventScript_ItemGreatBall::
finditem ITEM_GREAT_BALL
end
Route115_EventScript_ItemHealPowder::
finditem ITEM_HEAL_POWDER
end
Route115_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
Route116_EventScript_ItemXSpecial::
finditem ITEM_X_SPECIAL
end
Route116_EventScript_ItemEther::
finditem ITEM_ETHER
end
Route116_EventScript_ItemRepel::
finditem ITEM_REPEL
end
Route116_EventScript_ItemHPUp::
finditem ITEM_HP_UP
end
Route116_EventScript_ItemPotion::
finditem ITEM_POTION
end
Route117_EventScript_ItemGreatBall::
finditem ITEM_GREAT_BALL
end
Route117_EventScript_ItemRevive::
finditem ITEM_REVIVE
end
Route118_EventScript_ItemHyperPotion::
finditem ITEM_HYPER_POTION
end
Route119_EventScript_ItemSuperRepel::
finditem ITEM_SUPER_REPEL
end
Route119_EventScript_ItemZinc::
finditem ITEM_ZINC
end
Route119_EventScript_ItemElixir::
finditem ITEM_ELIXIR
end
Route119_EventScript_ItemLeafStone::
finditem ITEM_LEAF_STONE
end
Route119_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
Route119_EventScript_ItemHyperPotion::
finditem ITEM_HYPER_POTION
end
Route119_EventScript_ItemHyperPotion2::
finditem ITEM_HYPER_POTION
end
Route119_EventScript_ItemElixir2::
finditem ITEM_ELIXIR
end
Route120_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
Route120_EventScript_ItemFullHeal::
finditem ITEM_FULL_HEAL
end
Route120_EventScript_ItemHyperPotion::
finditem ITEM_HYPER_POTION
end
Route120_EventScript_ItemNestBall::
finditem ITEM_NEST_BALL
end
Route120_EventScript_ItemRevive::
finditem ITEM_REVIVE
end
Route121_EventScript_ItemCarbos::
finditem ITEM_CARBOS
end
Route121_EventScript_ItemRevive::
finditem ITEM_REVIVE
end
Route121_EventScript_ItemZinc::
finditem ITEM_ZINC
end
Route123_EventScript_ItemCalcium::
finditem ITEM_CALCIUM
end
Route123_EventScript_ItemUltraBall::
finditem ITEM_ULTRA_BALL
end
Route123_EventScript_ItemElixir::
finditem ITEM_ELIXIR
end
Route123_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
Route123_EventScript_ItemRevivalHerb::
finditem ITEM_REVIVAL_HERB
end
Route124_EventScript_ItemRedShard::
finditem ITEM_RED_SHARD
end
Route124_EventScript_ItemBlueShard::
finditem ITEM_BLUE_SHARD
end
Route124_EventScript_ItemYellowShard::
finditem ITEM_YELLOW_SHARD
end
Route125_EventScript_ItemBigPearl::
finditem ITEM_BIG_PEARL
end
Route126_EventScript_ItemGreenShard::
finditem ITEM_GREEN_SHARD
end
Route127_EventScript_ItemZinc::
finditem ITEM_ZINC
end
Route127_EventScript_ItemCarbos::
finditem ITEM_CARBOS
end
Route127_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
Route132_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
Route132_EventScript_ItemProtein::
finditem ITEM_PROTEIN
end
Route133_EventScript_ItemBigPearl::
finditem ITEM_BIG_PEARL
end
Route133_EventScript_ItemStarPiece::
finditem ITEM_STAR_PIECE
end
Route133_EventScript_ItemMaxRevive::
finditem ITEM_MAX_REVIVE
end
Route134_EventScript_ItemCarbos::
finditem ITEM_CARBOS
end
Route134_EventScript_ItemStarPiece::
finditem ITEM_STAR_PIECE
end
PetalburgCity_EventScript_ItemMaxRevive::
finditem ITEM_MAX_REVIVE
end
PetalburgCity_EventScript_ItemEther::
finditem ITEM_ETHER
end
MauvilleCity_EventScript_ItemXSpeed::
finditem ITEM_X_SPEED
end
RustboroCity_EventScript_ItemXDefend::
finditem ITEM_X_DEFEND
end
LilycoveCity_EventScript_ItemMaxRepel::
finditem ITEM_MAX_REPEL
end
MossdeepCity_EventScript_ItemNetBall::
finditem ITEM_NET_BALL
end
PetalburgWoods_EventScript_ItemXAttack::
finditem ITEM_X_ATTACK
end
PetalburgWoods_EventScript_ItemGreatBall::
finditem ITEM_GREAT_BALL
end
PetalburgWoods_EventScript_ItemEther::
finditem ITEM_ETHER
end
PetalburgWoods_EventScript_ItemParalyzeHeal::
finditem ITEM_PARALYZE_HEAL
end
RusturfTunnel_EventScript_ItemPokeBall::
finditem ITEM_POKE_BALL
end
RusturfTunnel_EventScript_ItemMaxEther::
finditem ITEM_MAX_ETHER
end
GraniteCave_1F_EventScript_ItemEscapeRope::
finditem ITEM_ESCAPE_ROPE
end
GraniteCave_B1F_EventScript_ItemPokeBall::
finditem ITEM_POKE_BALL
end
GraniteCave_B2F_EventScript_ItemRepel::
finditem ITEM_REPEL
end
GraniteCave_B2F_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
JaggedPass_EventScript_ItemBurnHeal::
finditem ITEM_BURN_HEAL
end
FieryPath_EventScript_ItemFireStone::
finditem ITEM_FIRE_STONE
end
FieryPath_EventScript_ItemTM06::
finditem ITEM_TM06
end
MeteorFalls_1F_1R_EventScript_ItemTM23::
finditem ITEM_TM23
end
MeteorFalls_1F_1R_EventScript_ItemFullHeal::
finditem ITEM_FULL_HEAL
end
MeteorFalls_1F_1R_EventScript_ItemMoonStone::
finditem ITEM_MOON_STONE
end
MeteorFalls_1F_1R_EventScript_ItemPPUP::
finditem ITEM_PP_UP
end
MeteorFalls_B1F_2R_EventScript_ItemTM02::
finditem ITEM_TM02
end
NewMauville_Inside_EventScript_ItemUltraBall::
finditem ITEM_ULTRA_BALL
end
NewMauville_Inside_EventScript_ItemEscapeRope::
finditem ITEM_ESCAPE_ROPE
end
NewMauville_Inside_EventScript_ItemThunderStone::
finditem ITEM_THUNDER_STONE
end
NewMauville_Inside_EventScript_ItemFullHeal::
finditem ITEM_FULL_HEAL
end
NewMauville_Inside_EventScript_ItemParalyzeHeal::
finditem ITEM_PARALYZE_HEAL
end
AbandonedShip_Rooms_1F_EventScript_ItemHarborMail::
finditem ITEM_HARBOR_MAIL
end
AbandonedShip_Rooms_B1F_EventScript_ItemEscapeRope::
finditem ITEM_ESCAPE_ROPE
end
AbandonedShip_Rooms2_B1F_EventScript_ItemDiveBall::
finditem ITEM_DIVE_BALL
end
AbandonedShip_Room_B1F_EventScript_ItemTM13::
finditem ITEM_TM13
end
AbandonedShip_Rooms2_1F_EventScript_ItemRevive::
finditem ITEM_REVIVE
end
AbandonedShip_CaptainsOffice_EventScript_ItemStorageKey::
finditem ITEM_STORAGE_KEY
end
AbandonedShip_HiddenFloorRooms_EventScript_ItemLuxuryBall::
finditem ITEM_LUXURY_BALL
end
AbandonedShip_HiddenFloorRooms_EventScript_ItemScanner::
finditem ITEM_SCANNER
end
AbandonedShip_HiddenFloorRooms_EventScript_ItemWaterStone::
finditem ITEM_WATER_STONE
end
AbandonedShip_HiddenFloorRooms_EventScript_ItemTM18::
finditem ITEM_TM18
end
ScorchedSlab_EventScript_ItemTM11::
finditem ITEM_TM11
end
SafariZone_Northwest_EventScript_ItemTM22::
finditem ITEM_TM22
end
SafariZone_North_EventScript_ItemCalcium::
finditem ITEM_CALCIUM
end
SafariZone_Southwest_EventScript_ItemMaxRevive::
finditem ITEM_MAX_REVIVE
end
SafariZone_Northeast_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
SafariZone_Southeast_EventScript_ItemBigPearl::
finditem ITEM_BIG_PEARL
end
MtPyre_2F_EventScript_ItemUltraBall::
finditem ITEM_ULTRA_BALL
end
MtPyre_3F_EventScript_ItemSuperRepel::
finditem ITEM_SUPER_REPEL
end
MtPyre_4F_EventScript_ItemSeaIncense::
finditem ITEM_SEA_INCENSE
end
MtPyre_5F_EventScript_ItemLaxIncense::
finditem ITEM_LAX_INCENSE
end
MtPyre_6F_EventScript_ItemTM30::
finditem ITEM_TM30
end
MtPyre_Exterior_EventScript_ItemMaxPotion::
finditem ITEM_MAX_POTION
end
MtPyre_Exterior_EventScript_ItemTM48::
finditem ITEM_TM48
end
AquaHideout_B1F_EventScript_ItemMasterBall::
finditem ITEM_MASTER_BALL
end
AquaHideout_B1F_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
AquaHideout_B1F_EventScript_ItemMaxElixir::
finditem ITEM_MAX_ELIXIR
end
AquaHideout_B2F_EventScript_ItemNestBall::
finditem ITEM_NEST_BALL
end
AquaHideout_B2F_EventScript_ItemMasterBall::
finditem ITEM_MASTER_BALL // Unused
end
Route119_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
Route119_EventScript_ItemMaxElixir::
finditem ITEM_MAX_ELIXIR
end
Route119_EventScript_ItemNestBall::
finditem ITEM_NEST_BALL
end
ShoalCave_LowTideEntranceRoom_EventScript_ItemBigPearl::
finditem ITEM_BIG_PEARL
end
ShoalCave_LowTideInnerRoom_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
ShoalCave_LowTideStairsRoom_EventScript_ItemIceHeal::
finditem ITEM_ICE_HEAL
end
ShoalCave_LowTideIceRoom_EventScript_ItemTM07::
finditem ITEM_TM07
end
ShoalCave_LowTideIceRoom_EventScript_ItemNeverMeltIce::
finditem ITEM_NEVER_MELT_ICE
end
SeafloorCavern_Room9_EventScript_ItemTM26::
finditem ITEM_TM26
end
Route110_TrickHousePuzzle1_EventScript_ItemOrangeMail::
finditem ITEM_ORANGE_MAIL
end
Route110_TrickHousePuzzle2_EventScript_ItemHarborMail::
finditem ITEM_HARBOR_MAIL
end
Route110_TrickHousePuzzle2_EventScript_ItemWaveMail::
finditem ITEM_WAVE_MAIL
end
Route110_TrickHousePuzzle3_EventScript_ItemShadowMail::
finditem ITEM_SHADOW_MAIL
end
Route110_TrickHousePuzzle3_EventScript_ItemWoodMail::
finditem ITEM_WOOD_MAIL
end
Route110_TrickHousePuzzle4_EventScript_ItemMechMail::
finditem ITEM_MECH_MAIL
end
Route110_TrickHousePuzzle6_EventScript_ItemGlitterMail::
finditem ITEM_GLITTER_MAIL
end
Route110_TrickHousePuzzle7_EventScript_ItemTropicMail::
finditem ITEM_TROPIC_MAIL
end
Route110_TrickHousePuzzle8_EventScript_ItemBeadMail::
finditem ITEM_BEAD_MAIL
end
VictoryRoad_1F_EventScript_ItemMaxElixir::
finditem ITEM_MAX_ELIXIR
end
VictoryRoad_1F_EventScript_ItemPPUp::
finditem ITEM_PP_UP
end
VictoryRoad_B1F_EventScript_ItemTM29::
finditem ITEM_TM29
end
VictoryRoad_B1F_EventScript_ItemFullRestore::
finditem ITEM_FULL_RESTORE
end
VictoryRoad_B2F_EventScript_ItemFullHeal::
finditem ITEM_FULL_HEAL
end
ArtisanCave_B1F_EventScript_ItemHPUp::
finditem ITEM_HP_UP
end
ArtisanCave_1F_EventScript_ItemCarbos::
finditem ITEM_CARBOS
end
MagmaHideout_1F_EventScript_ItemRareCandy::
finditem ITEM_RARE_CANDY
end
MagmaHideout_2F_2R_EventScript_ItemMaxElixir::
finditem ITEM_MAX_ELIXIR
end
MagmaHideout_2F_2R_EventScript_ItemFullRestore::
finditem ITEM_FULL_RESTORE
end
MagmaHideout_3F_1R_EventScript_ItemNugget::
finditem ITEM_NUGGET
end
MagmaHideout_3F_2R_EventScript_ItemPPMax::
finditem ITEM_PP_MAX
end
MagmaHideout_4F_EventScript_ItemMaxRevive::
finditem ITEM_MAX_REVIVE
end
MagmaHideout_3F_3R_EventScript_ItemEscapeRope::
finditem ITEM_ESCAPE_ROPE
end

111
data/scripts/kecleon.inc Normal file
View File

@ -0,0 +1,111 @@
Route120_EventScript_Kecleon1::
lock
faceplayer
setvar VAR_0x8009, 1
goto EventScript_Kecleon
end
Route120_EventScript_Kecleon2::
lock
faceplayer
setvar VAR_0x8009, 2
goto EventScript_Kecleon
end
Route120_EventScript_Kecleon3::
lock
faceplayer
setvar VAR_0x8009, 3
goto EventScript_Kecleon
end
Route120_EventScript_Kecleon4::
lock
faceplayer
setvar VAR_0x8009, 4
goto EventScript_Kecleon
end
Route120_EventScript_Kecleon5::
lock
faceplayer
setvar VAR_0x8009, 5
goto EventScript_Kecleon
end
Route119_EventScript_Kecleon1::
lock
faceplayer
setvar VAR_0x8009, 6
goto EventScript_Kecleon
end
Route119_EventScript_Kecleon2::
lock
faceplayer
setvar VAR_0x8009, 7
goto EventScript_Kecleon
end
EventScript_Kecleon::
checkitem ITEM_DEVON_SCOPE
goto_if_eq VAR_RESULT, TRUE, EventScript_AskUseDevonScope
msgbox Kecleon_Text_SomethingUnseeable, MSGBOX_DEFAULT
release
end
EventScript_AskUseDevonScope::
msgbox Kecleon_Text_WantToUseDevonScope, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, EventScript_BattleKecleon
release
end
EventScript_BattleKecleon::
msgbox Kecleon_Text_UseDevonScopeMonAttacked, MSGBOX_DEFAULT
closemessage
applymovement VAR_LAST_TALKED, Common_Movement_FacePlayer
waitmovement 0
applymovement VAR_LAST_TALKED, Movement_KecleonAppears
waitmovement 0
waitse
playmoncry SPECIES_KECLEON, CRY_MODE_ENCOUNTER
delay 40
waitmoncry
setwildbattle SPECIES_KECLEON, 30, ITEM_NONE
setflag FLAG_SYS_CTRL_OBJ_DELETE
dowildbattle
clearflag FLAG_SYS_CTRL_OBJ_DELETE
specialvar VAR_RESULT, GetBattleOutcome
goto_if_eq VAR_RESULT, B_OUTCOME_WON, EventScript_RemoveKecleon
goto_if_eq VAR_RESULT, B_OUTCOME_RAN, EventScript_RemoveKecleon
goto_if_eq VAR_RESULT, B_OUTCOME_PLAYER_TELEPORTED, EventScript_RemoveKecleon
release
end
EventScript_RemoveKecleon::
goto Common_EventScript_RemoveStaticPokemon
end
Movement_KecleonAppears:
set_visible
delay_4
set_invisible
delay_4
set_visible
delay_4
set_invisible
delay_4
set_visible
delay_8
set_invisible
delay_8
set_visible
delay_8
set_invisible
delay_8
set_visible
delay_16
set_invisible
delay_16
set_visible
step_end

View File

@ -0,0 +1,790 @@
.set LOCALID_LILYCOVE_LADY, 4
.set LOCALID_LADYS_MON, 5
LilycoveCity_PokemonCenter_1F_EventScript_LilycoveLady::
special Script_GetLilycoveLadyId
switch VAR_RESULT
case LILYCOVE_LADY_QUIZ, LilycoveCity_PokemonCenter_1F_EventScript_QuizLady
case LILYCOVE_LADY_FAVOR, LilycoveCity_PokemonCenter_1F_EventScript_FavorLady
case LILYCOVE_LADY_CONTEST, LilycoveCity_PokemonCenter_1F_EventScript_ContestLady
end
LilycoveCity_PokemonCenter_1F_EventScript_FavorLady::
lock
faceplayer
msgbox LilycoveCity_PokemonCenter_1F_Text_ImTheFavorLady, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetFavorLadyState
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_READY, LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyReady
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_COMPLETED, LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyCompleted
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_PRIZE, LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyPrize
end
LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyCompleted::
msgbox LilycoveCity_PokemonCenter_1F_Text_ThankYouForLastTime, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyReady::
special BufferFavorLadyRequest
msgbox LilycoveCity_PokemonCenter_1F_Text_ObsessedWithThing, MSGBOX_DEFAULT
specialvar VAR_RESULT, HasAnotherPlayerGivenFavorLadyItem
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_RequestItem
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_TellAboutPlayersItem
end
LilycoveCity_PokemonCenter_1F_EventScript_TellAboutPlayersItem::
special BufferFavorLadyItemName
special BufferFavorLadyPlayerName
specialvar VAR_RESULT, DidFavorLadyLikeItem
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_PlayerGaveBadThing
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_PlayerGaveGreatThing
end
LilycoveCity_PokemonCenter_1F_EventScript_PlayerGaveBadThing::
msgbox LilycoveCity_PokemonCenter_1F_Text_PlayerGaveMeBadThing, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_RequestItem
end
LilycoveCity_PokemonCenter_1F_EventScript_PlayerGaveGreatThing::
msgbox LilycoveCity_PokemonCenter_1F_Text_PlayerGaveMeGreatThing, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_RequestItem
end
LilycoveCity_PokemonCenter_1F_EventScript_RequestItem::
msgbox LilycoveCity_PokemonCenter_1F_Text_WillYouShareThing, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_DeclineFavor
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_AcceptFavor
end
LilycoveCity_PokemonCenter_1F_EventScript_DeclineFavor::
msgbox LilycoveCity_PokemonCenter_1F_Text_IsThatSoGoodbye, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_AcceptFavor::
msgbox LilycoveCity_PokemonCenter_1F_Text_WhatWillYouGiveMe, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_ChooseFavorItem
end
LilycoveCity_PokemonCenter_1F_EventScript_ChooseFavorItem::
fadescreen FADE_TO_BLACK
setvar VAR_RESULT, 0
special Script_FavorLadyOpenBagMenu
waitstate
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_AskQuitChooseFavorItem
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_GiveFavorItem
end
LilycoveCity_PokemonCenter_1F_EventScript_AskQuitChooseFavorItem::
msgbox LilycoveCity_PokemonCenter_1F_Text_NotWillingToShare, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_DeclineFavor
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_ChooseFavorItem
end
LilycoveCity_PokemonCenter_1F_EventScript_GiveFavorItem::
specialvar VAR_RESULT, Script_DoesFavorLadyLikeItem
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_DidntLikeFavorItem
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_CheckLovedItem
end
LilycoveCity_PokemonCenter_1F_EventScript_DidntLikeFavorItem::
special BufferFavorLadyRequest
msgbox LilycoveCity_PokemonCenter_1F_Text_IllTryToCherishIt, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_CheckLovedItem::
specialvar VAR_RESULT, IsFavorLadyThresholdMet
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_LikedFavorItem
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_LovedFavorItem
end
LilycoveCity_PokemonCenter_1F_EventScript_LikedFavorItem::
special BufferFavorLadyRequest
msgbox LilycoveCity_PokemonCenter_1F_Text_IWillCherishThis, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_LovedFavorItem::
special BufferFavorLadyRequest
msgbox LilycoveCity_PokemonCenter_1F_Text_IWillTreasureThis, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyPrize
end
LilycoveCity_PokemonCenter_1F_EventScript_FavorLadyPrize::
setvar VAR_0x8004, 0
specialvar VAR_0x8004, FavorLadyGetPrize
msgbox LilycoveCity_PokemonCenter_1F_Text_IllGiveYouThisInReturn, MSGBOX_DEFAULT
giveitem VAR_0x8004
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_NoRoomForFavorPrize
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_ReceivedFavorPrize
end
LilycoveCity_PokemonCenter_1F_EventScript_NoRoomForFavorPrize::
msgbox LilycoveCity_PokemonCenter_1F_Text_YouDontHaveSpaceForIt, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_ReceivedFavorPrize::
special SetFavorLadyState_Complete
release
end
LilycoveCity_PokemonCenter_1F_EventScript_QuizLady::
lock
faceplayer
msgbox LilycoveCity_PokemonCenter_1F_Text_ImTheQuizLady, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetQuizLadyState
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_READY, LilycoveCity_PokemonCenter_1F_EventScript_HasQuiz
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_COMPLETED, LilycoveCity_PokemonCenter_1F_EventScript_CheckMadeQuiz
goto_if_eq VAR_RESULT, LILYCOVE_LADY_STATE_PRIZE, LilycoveCity_PokemonCenter_1F_EventScript_ReadyGivePrize
end
LilycoveCity_PokemonCenter_1F_EventScript_HasQuiz::
specialvar VAR_RESULT, GetQuizAuthor
goto_if_eq VAR_RESULT, QUIZ_AUTHOR_PLAYER, LilycoveCity_PokemonCenter_1F_EventScript_WaitingToTakeYourQuiz
goto_if_eq VAR_RESULT, QUIZ_AUTHOR_OTHER_PLAYER, LilycoveCity_PokemonCenter_1F_EventScript_PlayerQuizReady
goto_if_eq VAR_RESULT, QUIZ_AUTHOR_LADY, LilycoveCity_PokemonCenter_1F_EventScript_LadyQuizReady
end
LilycoveCity_PokemonCenter_1F_EventScript_CheckMadeQuiz::
specialvar VAR_RESULT, IsQuizLadyWaitingForChallenger
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_AskMakeQuiz
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_WaitingToTakeYourQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_WaitingToTakeYourQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_WaitingToTakeYourQuiz, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_PlayerQuizReady::
msgbox LilycoveCity_PokemonCenter_1F_Text_WaitingForChallenger, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_AskTakeQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_LadyQuizReady::
msgbox LilycoveCity_PokemonCenter_1F_Text_WaitingForChallenger, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_AskTakeQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_AskTakeQuiz::
setvar VAR_0x8004, 0
msgbox LilycoveCity_PokemonCenter_1F_Text_TakeQuizChallenge, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_TakeQuiz
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_DeclineQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_DeclineQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_HowBoringBye, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_TakeQuiz::
special ClearQuizLadyPlayerAnswer
goto_if_eq VAR_0x8004, 0, LilycoveCity_PokemonCenter_1F_EventScript_ShowQuestion
goto_if_eq VAR_0x8004, EASY_CHAT_TYPE_QUIZ_ANSWER, LilycoveCity_PokemonCenter_1F_EventScript_GetAnswer
LilycoveCity_PokemonCenter_1F_EventScript_CheckQuizTakingState::
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_AskQuitQuiz
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_SubmitQuizResponse
end
LilycoveCity_PokemonCenter_1F_EventScript_ShowQuestion::
special QuizLadyShowQuizQuestion
waitstate
goto LilycoveCity_PokemonCenter_1F_EventScript_CheckQuizTakingState
end
LilycoveCity_PokemonCenter_1F_EventScript_GetAnswer::
special QuizLadyGetPlayerAnswer
waitstate
goto LilycoveCity_PokemonCenter_1F_EventScript_CheckQuizTakingState
end
LilycoveCity_PokemonCenter_1F_EventScript_AskQuitQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_YoureGoingToQuit, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_QuitTakingQuiz
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_TakeQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_QuitTakingQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_TakeTheQuizAnotherTime, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_SubmitQuizResponse::
special SetQuizLadyState_Complete
msgbox LilycoveCity_PokemonCenter_1F_Text_WaitForAnswer, MSGBOX_DEFAULT
specialvar VAR_RESULT, IsQuizAnswerCorrect
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_IncorrectResponse
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_CorrectResponse
end
LilycoveCity_PokemonCenter_1F_EventScript_CorrectResponse::
playse SE_SUCCESS
delay 10
playse SE_SUCCESS
msgbox LilycoveCity_PokemonCenter_1F_Text_YouGotItRight, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_ReadyGivePrize
end
LilycoveCity_PokemonCenter_1F_EventScript_IncorrectResponse::
special BufferQuizCorrectAnswer
special BufferQuizPrizeName
playse SE_FAILURE
delay 10
playse SE_FAILURE
msgbox LilycoveCity_PokemonCenter_1F_Text_WrongTheCorrectAnswerIs, MSGBOX_DEFAULT
msgbox LilycoveCity_PokemonCenter_1F_Text_IGetToKeepPrize, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_AskMakeQuiz
end
@ VAR_RESULT is essentially ignored, both jumps are identical
LilycoveCity_PokemonCenter_1F_EventScript_ReadyGivePrize::
specialvar VAR_RESULT, BufferQuizAuthorNameAndCheckIfLady
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_GivePrize1
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_GivePrize0
end
LilycoveCity_PokemonCenter_1F_EventScript_GivePrize1::
msgbox LilycoveCity_PokemonCenter_1F_Text_YouGotItRightYouveWonPersonsPrize, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_GivePrize
end
LilycoveCity_PokemonCenter_1F_EventScript_GivePrize0::
msgbox LilycoveCity_PokemonCenter_1F_Text_YouGotItRightYouveWonPersonsPrize, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_GivePrize
end
LilycoveCity_PokemonCenter_1F_EventScript_GivePrize::
setvar VAR_0x8005, 0
special BufferQuizPrizeItem
special SetQuizLadyState_Complete
giveitem VAR_0x8005
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_NoSpaceForQuizPrize
goto LilycoveCity_PokemonCenter_1F_EventScript_AskMakeQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_NoSpaceForQuizPrize::
msgbox LilycoveCity_PokemonCenter_1F_Text_YourBagIsFilledUp, MSGBOX_DEFAULT
special SetQuizLadyState_GivePrize
release
end
LilycoveCity_PokemonCenter_1F_EventScript_AskMakeQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_MakeYourOwnQuiz, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_MakeQuiz
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_DeclineMakeQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_DeclineMakeQuiz::
special QuizLadyPickNewQuestion
msgbox LilycoveCity_PokemonCenter_1F_Text_MaybeNextTime, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_MakeQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_PickYourPrize, MSGBOX_DEFAULT
LilycoveCity_PokemonCenter_1F_EventScript_PickPrize::
fadescreen FADE_TO_BLACK
setvar VAR_RESULT, 0
special Script_QuizLadyOpenBagMenu
waitstate
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_AskQuitChoosingPrize
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_WriteQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_AskQuitChoosingPrize::
msgbox LilycoveCity_PokemonCenter_1F_Text_QuitChoosingPrize, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_DeclineMakeQuiz
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_PickPrize
end
LilycoveCity_PokemonCenter_1F_EventScript_WriteQuiz::
msgbox LilycoveCity_PokemonCenter_1F_Text_WriteYourQuiz, MSGBOX_DEFAULT
special ClearQuizLadyQuestionAndAnswer
special ClearQuizLadyPlayerAnswer
setvar VAR_0x8004, EASY_CHAT_TYPE_QUIZ_QUESTION
LilycoveCity_PokemonCenter_1F_EventScript_WriteQuizQuestion::
fadescreen FADE_TO_BLACK
special QuizLadySetCustomQuestion
waitstate
goto_if_eq VAR_RESULT, 0, LilycoveCity_PokemonCenter_1F_EventScript_AskQuitWritingQuizQuestion
goto LilycoveCity_PokemonCenter_1F_EventScript_FinishMakingQuiz
end
LilycoveCity_PokemonCenter_1F_EventScript_AskQuitWritingQuizQuestion::
msgbox LilycoveCity_PokemonCenter_1F_Text_QuitWritingQuizQuestion, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_DeclineMakeQuiz
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_WriteQuizQuestion
end
LilycoveCity_PokemonCenter_1F_EventScript_FinishMakingQuiz::
special QuizLadyTakePrizeForCustomQuiz
special QuizLadyRecordCustomQuizData
special QuizLadySetWaitingForChallenger
msgbox LilycoveCity_PokemonCenter_1F_Text_IllLookForAChallenger, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_ContestLady::
lock
faceplayer
msgbox LilycoveCity_PokemonCenter_1F_Text_ImTheContestLady, MSGBOX_DEFAULT
specialvar VAR_RESULT, HasPlayerGivenContestLadyPokeblock
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_NotGivenPokeblock
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_GivenPokeblock
end
@ Redundant with above script, VAR_RESULT will always be FALSE here
LilycoveCity_PokemonCenter_1F_EventScript_NotGivenPokeblock::
specialvar VAR_RESULT, ShouldContestLadyShowGoOnAir
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_AskForPokeblock
goto_if_eq VAR_RESULT, TRUE, LilycoveCity_PokemonCenter_1F_EventScript_GivenPokeblock
end
LilycoveCity_PokemonCenter_1F_EventScript_GivenPokeblock::
msgbox LilycoveCity_PokemonCenter_1F_Text_ThankForPokeblock, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_AskForPokeblock::
special Script_BufferContestLadyCategoryAndMonName
msgbox LilycoveCity_PokemonCenter_1F_Text_MyFriendDisplaysQuality, MSGBOX_DEFAULT
checkitem ITEM_POKEBLOCK_CASE
goto_if_eq VAR_RESULT, FALSE, LilycoveCity_PokemonCenter_1F_EventScript_NoPokeblockCase
msgbox LilycoveCity_PokemonCenter_1F_Text_AskingForOnePokeblock, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_DeclineGivePokeblock
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_ChoosePokeblock
end
LilycoveCity_PokemonCenter_1F_EventScript_DeclineGivePokeblock::
msgbox LilycoveCity_PokemonCenter_1F_Text_WhatACheapskate, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_EventScript_ChoosePokeblock::
fadescreen FADE_TO_BLACK
special OpenPokeblockCaseForContestLady
waitstate
goto_if_eq VAR_RESULT, 0xFFFF, LilycoveCity_PokemonCenter_1F_EventScript_AskQuitGivingPokeblock
goto_if_ne VAR_RESULT, 0xFFFF, LilycoveCity_PokemonCenter_1F_EventScript_GivePokeblock
end
LilycoveCity_PokemonCenter_1F_EventScript_AskQuitGivingPokeblock::
msgbox LilycoveCity_PokemonCenter_1F_Text_ICantHaveOnePokeblock, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, LilycoveCity_PokemonCenter_1F_EventScript_DeclineGivePokeblock
goto_if_eq VAR_RESULT, NO, LilycoveCity_PokemonCenter_1F_EventScript_ChoosePokeblock
end
LilycoveCity_PokemonCenter_1F_EventScript_GivePokeblock::
msgbox LilycoveCity_PokemonCenter_1F_Text_IllUseYourPokeblock, MSGBOX_DEFAULT
special SetContestLadyGivenPokeblock
special GetContestLadyMonSpecies
goto LilycoveCity_PokemonCenter_1F_EventScript_FeedPokeblock
end
@ VAR_0x8004 here is the return value from GivePokeblockToContestLady
LilycoveCity_PokemonCenter_1F_EventScript_FeedPokeblock::
applymovement LOCALID_LILYCOVE_LADY, LilycoveCity_PokemonCenter_1F_Movement_LadyFaceMon
waitmovement 0
delay 60
applymovement LOCALID_LADYS_MON, LilycoveCity_PokemonCenter_1F_Movement_MonFaceLady
waitmovement 0
delay 60
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
delay 120
waitmoncry
goto_if_eq VAR_0x8004, 1, LilycoveCity_PokemonCenter_1F_EventScript_MonEnjoyPokeblock
goto LilycoveCity_PokemonCenter_1F_EventScript_FinishFeedPokeblock
end
@ VAR_0x8004 here is the return value from GivePokeblockToContestLady
LilycoveCity_PokemonCenter_1F_EventScript_MonEnjoyPokeblock::
applymovement LOCALID_LADYS_MON, LilycoveCity_PokemonCenter_1F_Movement_MonJump
waitmovement 0
delay 60
LilycoveCity_PokemonCenter_1F_EventScript_FinishFeedPokeblock::
applymovement LOCALID_LILYCOVE_LADY, LilycoveCity_PokemonCenter_1F_Movement_LadyFacePlayer
waitmovement 0
delay 60
goto_if_eq VAR_0x8004, 0, LilycoveCity_PokemonCenter_1F_EventScript_MonDislikedPokeblock
goto_if_eq VAR_0x8004, 1, LilycoveCity_PokemonCenter_1F_EventScript_MonLikedPokeblock
end
LilycoveCity_PokemonCenter_1F_EventScript_MonDislikedPokeblock::
msgbox LilycoveCity_PokemonCenter_1F_Text_NoChangeThanks, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_CheckAirContestLadyShow
end
LilycoveCity_PokemonCenter_1F_EventScript_MonLikedPokeblock::
special Script_BufferContestLadyCategoryAndMonName
msgbox LilycoveCity_PokemonCenter_1F_Text_ReallyImprovedThanks, MSGBOX_DEFAULT
goto LilycoveCity_PokemonCenter_1F_EventScript_CheckAirContestLadyShow
end
LilycoveCity_PokemonCenter_1F_EventScript_CheckAirContestLadyShow::
specialvar VAR_RESULT, ShouldContestLadyShowGoOnAir
goto_if_eq VAR_RESULT, 1, LilycoveCity_PokemonCenter_1F_EventScript_AirContestLadyShow
release
end
LilycoveCity_PokemonCenter_1F_EventScript_AirContestLadyShow::
msgbox LilycoveCity_PokemonCenter_1F_Text_ReadyToEnterContests, MSGBOX_DEFAULT
special PutLilycoveContestLadyShowOnTheAir
release
end
LilycoveCity_PokemonCenter_1F_EventScript_NoPokeblockCase::
msgbox LilycoveCity_PokemonCenter_1F_Text_DontHaveAPokeblockCase, MSGBOX_DEFAULT
release
end
LilycoveCity_PokemonCenter_1F_Movement_LadyFaceMon:
face_right
delay_8
step_end
LilycoveCity_PokemonCenter_1F_Movement_MonFaceLady:
face_left
delay_8
step_end
@ Unused
LilycoveCity_PokemonCenter_1F_Movement_MonFaceDown:
face_down
step_end
LilycoveCity_PokemonCenter_1F_Movement_LadyFacePlayer:
face_player
step_end
LilycoveCity_PokemonCenter_1F_Movement_MonJump:
disable_jump_landing_ground_effect
jump_in_place_left
disable_jump_landing_ground_effect
jump_in_place_left
step_end
LilycoveCity_PokemonCenter_1F_EventScript_ContestLadyMon::
specialvar VAR_RESULT, GetContestLadyCategory
special Script_BufferContestLadyCategoryAndMonName
special GetContestLadyMonSpecies
goto_if_eq VAR_RESULT, CONTEST_CATEGORY_COOL, LilycoveCity_PokemonCenter_1F_EventScript_Zigzagoon
goto_if_eq VAR_RESULT, CONTEST_CATEGORY_BEAUTY, LilycoveCity_PokemonCenter_1F_EventScript_Skitty
goto_if_eq VAR_RESULT, CONTEST_CATEGORY_CUTE, LilycoveCity_PokemonCenter_1F_EventScript_Poochyena
goto_if_eq VAR_RESULT, CONTEST_CATEGORY_SMART, LilycoveCity_PokemonCenter_1F_EventScript_Kecleon
goto_if_eq VAR_RESULT, CONTEST_CATEGORY_TOUGH, LilycoveCity_PokemonCenter_1F_EventScript_Pikachu
end
LilycoveCity_PokemonCenter_1F_EventScript_Zigzagoon::
lock
faceplayer
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox LilycoveCity_PokemonCenter_1F_Text_Zigzagoon, MSGBOX_DEFAULT
waitmoncry
release
end
LilycoveCity_PokemonCenter_1F_EventScript_Skitty::
lock
faceplayer
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox LilycoveCity_PokemonCenter_1F_Text_Skitty, MSGBOX_DEFAULT
waitmoncry
release
end
LilycoveCity_PokemonCenter_1F_EventScript_Poochyena::
lock
faceplayer
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox LilycoveCity_PokemonCenter_1F_Text_Poochyena, MSGBOX_DEFAULT
waitmoncry
release
end
LilycoveCity_PokemonCenter_1F_EventScript_Kecleon::
lock
faceplayer
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox LilycoveCity_PokemonCenter_1F_Text_Kecleon, MSGBOX_DEFAULT
waitmoncry
release
end
LilycoveCity_PokemonCenter_1F_EventScript_Pikachu::
lock
faceplayer
waitse
playmoncry VAR_0x8005, CRY_MODE_NORMAL
msgbox LilycoveCity_PokemonCenter_1F_Text_Pikachu, MSGBOX_DEFAULT
waitmoncry
release
end
LilycoveCity_PokemonCenter_1F_Text_ImTheFavorLady:
.string "I'm the FAVOR LADY…$"
LilycoveCity_PokemonCenter_1F_Text_ObsessedWithThing:
.string "I've recently developed an obsession\n"
.string "for {STR_VAR_1} things…$"
LilycoveCity_PokemonCenter_1F_Text_ThankYouForLastTime:
.string "Oh…\n"
.string "Thank you for last time…$"
LilycoveCity_PokemonCenter_1F_Text_PlayerGaveMeBadThing:
.string "Before, I think it was {STR_VAR_3}…\p"
.string "{STR_VAR_3} gave me one {STR_VAR_2},\n"
.string "saying it was {STR_VAR_1}.\p"
.string "But it wasn't {STR_VAR_1}.\n"
.string "Not in the least bit.$"
LilycoveCity_PokemonCenter_1F_Text_PlayerGaveMeGreatThing:
.string "Before, {STR_VAR_3} gave me a very\n"
.string "{STR_VAR_1} {STR_VAR_2}.\p"
.string "I cherish it now.$"
LilycoveCity_PokemonCenter_1F_Text_WillYouShareThing:
.string "Listen, if you have anything that\n"
.string "is {STR_VAR_1}, will you share it\l"
.string "with me?$"
LilycoveCity_PokemonCenter_1F_Text_WhatWillYouGiveMe:
.string "…Really?\n"
.string "What will you give me?$"
LilycoveCity_PokemonCenter_1F_Text_IsThatSoGoodbye:
.string "Is that so?\n"
.string "Then, it's good-bye…$"
LilycoveCity_PokemonCenter_1F_Text_NotWillingToShare:
.string "Oh…\n"
.string "You're not willing to share?$"
LilycoveCity_PokemonCenter_1F_Text_IllTryToCherishIt:
.string "Oh?\n"
.string "That {STR_VAR_2} is {STR_VAR_1}?\p"
.string "…Oh, is that right?\p"
.string "Well, I owe you a thanks anyway.\n"
.string "I'll try to cherish it…$"
LilycoveCity_PokemonCenter_1F_Text_IWillCherishThis:
.string "Oh…\p"
.string "That's a quite {STR_VAR_1}\n"
.string "{STR_VAR_2}…\p"
.string "Isn't it nice?\n"
.string "It's so dreamy…\p"
.string "Thank you…\n"
.string "I will cherish this…$"
LilycoveCity_PokemonCenter_1F_Text_IWillTreasureThis:
.string "…Oh, oh, oh…\p"
.string "This is amazing!\n"
.string "This really is {STR_VAR_1}!\p"
.string "I never knew that one {STR_VAR_2}\n"
.string "could be this {STR_VAR_1}!\p"
.string "Thank you!\p"
.string "I will treasure this for the rest\n"
.string "of my life!$"
LilycoveCity_PokemonCenter_1F_Text_IllGiveYouThisInReturn:
.string "I'll give you this wonderful item in\n"
.string "return for your fabulous gift.\p"
.string "I hope you will cherish it…$"
LilycoveCity_PokemonCenter_1F_Text_YouDontHaveSpaceForIt:
.string "Oh, you can't have it if you don't have\n"
.string "the space for it.\p"
.string "Please come see me when you get\n"
.string "your BAG organized…$"
LilycoveCity_PokemonCenter_1F_Text_ImTheQuizLady:
.string "I'm the QUIZ LADY!\n"
.string "I love quizzes!$"
LilycoveCity_PokemonCenter_1F_Text_WaitingToTakeYourQuiz:
.string "Oh?\p"
.string "I'm waiting for a challenger to answer\n"
.string "the quiz you made.\p"
.string "We can chat another time, okay?$"
LilycoveCity_PokemonCenter_1F_Text_WaitingForChallenger:
.string "I'm waiting for someone to challenge\n"
.string "a quiz this {STR_VAR_1} thought up!$"
LilycoveCity_PokemonCenter_1F_Text_TakeQuizChallenge:
.string "If you answer correctly, you can win\n"
.string "fabulous prizes!\p"
.string "Would you like to take the quiz\n"
.string "challenge?$"
LilycoveCity_PokemonCenter_1F_Text_WaitForAnswer:
.string "… … … … … …\n"
.string "… … … … … …$"
LilycoveCity_PokemonCenter_1F_Text_HowBoringBye:
.string "Oh, how boring!\n"
.string "Bye-bye!$"
LilycoveCity_PokemonCenter_1F_Text_YoureGoingToQuit:
.string "Awww!\n"
.string "You're going to quit?$"
LilycoveCity_PokemonCenter_1F_Text_TakeTheQuizAnotherTime:
.string "Please take the quiz challenge\n"
.string "another time!$"
LilycoveCity_PokemonCenter_1F_Text_YouGotItRight:
.string "You're amazing! You've got it right!\n"
.string "You're one sharp customer!$"
LilycoveCity_PokemonCenter_1F_Text_YouGotItRightYouveWonPersonsPrize:
.string "Congratulations!\n"
.string "You've got the quiz right!\p"
.string "You've won a prize provided by\n"
.string "{STR_VAR_1}!$"
@ Unused
LilycoveCity_PokemonCenter_1F_Text_XReceivedOneY:
.string "{STR_VAR_1} received\n"
.string "one {STR_VAR_2}!$"
LilycoveCity_PokemonCenter_1F_Text_YourBagIsFilledUp:
.string "Oh? Your BAG is filled up!\n"
.string "Come see me when you have room.$"
LilycoveCity_PokemonCenter_1F_Text_WrongTheCorrectAnswerIs:
.string "Hmm… Wrong!\n"
.string "The correct answer is “{STR_VAR_3}”!$"
LilycoveCity_PokemonCenter_1F_Text_IGetToKeepPrize:
.string "Too bad!\p"
.string "I get to keep the quiz prize\n"
.string "{STR_VAR_1} now!$"
LilycoveCity_PokemonCenter_1F_Text_MakeYourOwnQuiz:
.string "Listen, listen!\n"
.string "Would you like to make your own quiz?$"
LilycoveCity_PokemonCenter_1F_Text_MaybeNextTime:
.string "Oh, I see…\n"
.string "Well, maybe next time!$"
LilycoveCity_PokemonCenter_1F_Text_PickYourPrize:
.string "Okay, the first thing you have to do\n"
.string "is pick the prize for the person that\l"
.string "answers your quiz correctly.\p"
.string "But beware, if the person taking\n"
.string "the quiz can't get it right, I get to\l"
.string "keep the prize!$"
LilycoveCity_PokemonCenter_1F_Text_QuitChoosingPrize:
.string "If you don't choose a prize,\n"
.string "your quiz can't be made.\p"
.string "Are you going to quit making\n"
.string "your quiz?$"
LilycoveCity_PokemonCenter_1F_Text_WriteYourQuiz:
.string "Oh, how nice!\n"
.string "That's a wonderful prize!\p"
.string "Next, you need to write your quiz\n"
.string "question and its answer.$"
LilycoveCity_PokemonCenter_1F_Text_QuitWritingQuizQuestion:
.string "Are you going to quit writing\n"
.string "your quiz question?$"
@ Unused
LilycoveCity_PokemonCenter_1F_Text_QuitWritingQuizAnswer:
.string "Are you going to quit choosing\n"
.string "your quiz answer?$"
LilycoveCity_PokemonCenter_1F_Text_IllLookForAChallenger:
.string "Thank you!\n"
.string "You've put together a nice quiz.\p"
.string "I'll go look for someone who'll take\n"
.string "your quiz challenge right away.$"
LilycoveCity_PokemonCenter_1F_Text_ImTheContestLady:
.string "I'm the CONTEST LADY!\n"
.string "I sure do love CONTESTS!$"
LilycoveCity_PokemonCenter_1F_Text_ThankForPokeblock:
.string "Thanks for your {POKEBLOCK} before!$"
LilycoveCity_PokemonCenter_1F_Text_MyFriendDisplaysQuality:
.string "This is my friend {STR_VAR_1}!\n"
.string "It's the epitome of {STR_VAR_2}!\p"
.string "But I think that it will display\n"
.string "even more {STR_VAR_2}!$"
LilycoveCity_PokemonCenter_1F_Text_DontHaveAPokeblockCase:
.string "So, I need your help!\p"
.string "Please, may I have one {POKEBLOCK}?\n"
.string "All I'm asking for is one!\p"
.string "…Oh, but…\n"
.string "Don't you have a {POKEBLOCK} CASE?\l"
.string "That's no good. Next time, then!$"
LilycoveCity_PokemonCenter_1F_Text_AskingForOnePokeblock:
.string "So, I need your help!\p"
.string "Please, may I have one {POKEBLOCK}?\n"
.string "All I'm asking for is one!$"
LilycoveCity_PokemonCenter_1F_Text_ICantHaveOnePokeblock:
.string "Awww!\n"
.string "I can't have one {POKEBLOCK}?!$"
LilycoveCity_PokemonCenter_1F_Text_WhatACheapskate:
.string "Sheesh!\n"
.string "What a cheapskate!$"
LilycoveCity_PokemonCenter_1F_Text_IllUseYourPokeblock:
.string "Yay!\n"
.string "Thank you!\p"
.string "I'll feed my POKéMON your {POKEBLOCK}\n"
.string "right away.$"
LilycoveCity_PokemonCenter_1F_Text_NoChangeThanks:
.string "…It doesn't seem to have changed\n"
.string "in any way at all…\p"
.string "Hmm…\p"
.string "Oh, well!\n"
.string "Thank you very much!$"
LilycoveCity_PokemonCenter_1F_Text_ReallyImprovedThanks:
.string "Oh, yay!\n"
.string "It's really delighted!\p"
.string "I think it really improved {STR_VAR_1}'s\n"
.string "{STR_VAR_2} quality, too.\p"
.string "Thank you so much!$"
LilycoveCity_PokemonCenter_1F_Text_ReadyToEnterContests:
.string "Hmm…\p"
.string "I think we may be ready to enter\n"
.string "some CONTESTS.\p"
.string "If you see us in one somewhere,\n"
.string "I hope you'll cheer for us.$"
LilycoveCity_PokemonCenter_1F_Text_Zigzagoon:
.string "{STR_VAR_1}: Guguuh!$"
LilycoveCity_PokemonCenter_1F_Text_Kecleon:
.string "{STR_VAR_1}: Igigigiiih!$"
LilycoveCity_PokemonCenter_1F_Text_Poochyena:
.string "{STR_VAR_1}: Baaarun…$"
LilycoveCity_PokemonCenter_1F_Text_Pikachu:
.string "{STR_VAR_1}: Pikka!$"
LilycoveCity_PokemonCenter_1F_Text_Skitty:
.string "{STR_VAR_1}: Umyaaaan!$"

View File

@ -0,0 +1,976 @@
MauvilleCity_PokemonCenter_1F_EventScript_MauvilleOldMan::
special Script_GetCurrentMauvilleMan
switch VAR_RESULT
case MAUVILLE_MAN_BARD, MauvilleCity_PokemonCenter_1F_EventScript_Bard
case MAUVILLE_MAN_HIPSTER, MauvilleCity_PokemonCenter_1F_EventScript_Hipster
case MAUVILLE_MAN_TRADER, MauvilleCity_PokemonCenter_1F_EventScript_Trader
case MAUVILLE_MAN_STORYTELLER, MauvilleCity_PokemonCenter_1F_EventScript_Storyteller
case MAUVILLE_MAN_GIDDY, MauvilleCity_PokemonCenter_1F_EventScript_Giddy
end
@ Bard
MauvilleCity_PokemonCenter_1F_EventScript_Bard::
lock
faceplayer
msgbox MauvilleCity_PokemonCenter_1F_Text_WouldYouLikeToHearMySong, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, MauvilleCity_PokemonCenter_1F_EventScript_PlaySong
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineSong
end
MauvilleCity_PokemonCenter_1F_EventScript_PlaySong::
setvar VAR_0x8004, 0
special PlayBardSong
delay 60
special HasBardSongBeenChanged
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_PokemonCenter_1F_EventScript_AskToWriteLyrics
msgbox MauvilleCity_PokemonCenter_1F_Text_WishICouldPlaySongForOthers, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_DeclineSong::
msgbox MauvilleCity_PokemonCenter_1F_Text_BardFeelingTheBlues1, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_AskToWriteLyrics::
msgbox MauvilleCity_PokemonCenter_1F_Text_WouldYouLikeToWriteSomeLyrics, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, MauvilleCity_PokemonCenter_1F_EventScript_WriteLyrics
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineWritingLyrics
end
MauvilleCity_PokemonCenter_1F_EventScript_WriteLyrics::
setvar VAR_0x8004, EASY_CHAT_TYPE_BARD_SONG
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, MauvilleCity_PokemonCenter_1F_EventScript_DeclineWritingLyrics
msgbox MauvilleCity_PokemonCenter_1F_Text_LetMeSingItForYou, MSGBOX_DEFAULT
setvar VAR_0x8004, 1
special PlayBardSong
delay 60
msgbox MauvilleCity_PokemonCenter_1F_Text_ThatHowYouWantedSongToGo, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_WriteLyrics
special SaveBardSongLyrics
msgbox MauvilleCity_PokemonCenter_1F_Text_IllSingThisSongForAWhile, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_DeclineWritingLyrics::
msgbox MauvilleCity_PokemonCenter_1F_Text_BardFeelingTheBlues2, MSGBOX_DEFAULT
release
end
@ Hipster
MauvilleCity_PokemonCenter_1F_EventScript_Hipster::
lock
faceplayer
setflag FLAG_SYS_HIPSTER_MEET
msgbox MauvilleCity_PokemonCenter_1F_Text_TeachWhatsHipAndHappening, MSGBOX_DEFAULT
special GetHipsterSpokenFlag
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_PokemonCenter_1F_EventScript_TryTeachWord
msgbox MauvilleCity_PokemonCenter_1F_Text_IAlreadyTaughtYou, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_TryTeachWord::
special HipsterTryTeachWord
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_TeachWord
msgbox MauvilleCity_PokemonCenter_1F_Text_IveGotNothingNewToTeach, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_TeachWord::
msgbox MauvilleCity_PokemonCenter_1F_Text_HaveYouHeardOfPhrase, MSGBOX_DEFAULT
special SetHipsterSpokenFlag
release
end
@ Trader
MauvilleCity_PokemonCenter_1F_Text_WantToTradeDecor:
.string "Hi, I'm the TRADER.\n"
.string "Want to trade decorations with me?$"
MauvilleCity_PokemonCenter_1F_Text_TraderFeelingTheBlues:
.string "Oh…\n"
.string "You've left me feeling the blues…$"
MauvilleCity_PokemonCenter_1F_Text_WeveAlreadyTraded:
.string "But we've traded decorations already,\n"
.string "you and I.$"
MauvilleCity_PokemonCenter_1F_Text_PickADecorItem:
.string "If you see any decorative item that\n"
.string "you want of mine, speak up.$"
MauvilleCity_PokemonCenter_1F_Text_YouDontWantAnything:
.string "You don't want anything?\n"
.string "I feel unwanted…$"
MauvilleCity_PokemonCenter_1F_Text_OnceBelongedToPlayerDoYouWantIt:
.string "That decorative item once belonged\n"
.string "to {STR_VAR_1}.\p"
.string "Do you want it?$"
MauvilleCity_PokemonCenter_1F_Text_YouDontHaveAnyDecor:
.string "Uh… Wait a second. You don't have a\n"
.string "single piece of decoration!$"
MauvilleCity_PokemonCenter_1F_Text_PickTheDecorToTrade:
.string "Okay, pick the decoration that you'll\n"
.string "trade to me.$"
MauvilleCity_PokemonCenter_1F_Text_YouDontWantToTrade:
.string "You won't trade with me?\n"
.string "I feel unwanted…$"
MauvilleCity_PokemonCenter_1F_Text_YouveNoRoomForThis:
.string "You've got all the {STR_VAR_2}S that can\n"
.string "be stored. You've no room for this.$"
MauvilleCity_PokemonCenter_1F_Text_SoWellTradeTheseDecor:
.string "Okay, so we'll trade my {STR_VAR_3}\n"
.string "for your {STR_VAR_2}?$"
MauvilleCity_PokemonCenter_1F_Text_ThatDecorIsInUse:
.string "That piece of decoration is in use.\n"
.string "You can't trade it.$"
MauvilleCity_PokemonCenter_1F_Text_SendDecorToYourPC:
.string "Then we'll trade!\n"
.string "I'll send my decoration to your PC.$"
MauvilleCity_PokemonCenter_1F_Text_CantTradeThatOne:
.string "Oops! Sorry! That's a really rare\n"
.string "piece of decoration.\l"
.string "I can't trade that one away!\p"
.string "Can I interest you in something else?$"
MauvilleCity_PokemonCenter_1F_EventScript_Trader::
lock
faceplayer
msgbox MauvilleCity_PokemonCenter_1F_Text_WantToTradeDecor, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineTrade
special GetTraderTradedFlag
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_AlreadyTraded
message MauvilleCity_PokemonCenter_1F_Text_PickADecorItem
waitmessage
goto MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToReceive
end
MauvilleCity_PokemonCenter_1F_EventScript_DeclineTrade::
msgbox MauvilleCity_PokemonCenter_1F_Text_TraderFeelingTheBlues, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_AlreadyTraded::
msgbox MauvilleCity_PokemonCenter_1F_Text_WeveAlreadyTraded, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToReceive::
special TraderMenuGetDecoration
waitstate
goto_if_eq VAR_0x8004, 0, MauvilleCity_PokemonCenter_1F_EventScript_CancelPickDecor
goto_if_eq VAR_0x8004, 0xFFFF, MauvilleCity_PokemonCenter_1F_EventScript_InvalidDecor
msgbox MauvilleCity_PokemonCenter_1F_Text_OnceBelongedToPlayerDoYouWantIt, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_PickDifferentDecor
special DoesPlayerHaveNoDecorations
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_DontHaveAnyDecor
goto MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToGive
end
MauvilleCity_PokemonCenter_1F_EventScript_CancelPickDecor::
msgbox MauvilleCity_PokemonCenter_1F_Text_YouDontWantAnything, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_InvalidDecor::
message MauvilleCity_PokemonCenter_1F_Text_CantTradeThatOne
waitmessage
goto MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToReceive
end
MauvilleCity_PokemonCenter_1F_EventScript_PickDifferentDecor::
message MauvilleCity_PokemonCenter_1F_Text_PickADecorItem
waitmessage
goto MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToReceive
end
MauvilleCity_PokemonCenter_1F_EventScript_DontHaveAnyDecor::
msgbox MauvilleCity_PokemonCenter_1F_Text_YouDontHaveAnyDecor, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToGive::
msgbox MauvilleCity_PokemonCenter_1F_Text_PickTheDecorToTrade, MSGBOX_DEFAULT
special TraderShowDecorationMenu
waitstate
goto_if_eq VAR_0x8006, 0, MauvilleCity_PokemonCenter_1F_EventScript_CancelGiveDecor
goto_if_eq VAR_0x8006, 0xFFFF, MauvilleCity_PokemonCenter_1F_EventScript_DecorInUse
special IsDecorationCategoryFull
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_NoRoomForDecor
msgbox MauvilleCity_PokemonCenter_1F_Text_SoWellTradeTheseDecor, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToGive
special TraderDoDecorationTrade
msgbox MauvilleCity_PokemonCenter_1F_Text_SendDecorToYourPC, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_CancelGiveDecor::
msgbox MauvilleCity_PokemonCenter_1F_Text_YouDontWantToTrade, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_DecorInUse::
msgbox MauvilleCity_PokemonCenter_1F_Text_ThatDecorIsInUse, MSGBOX_DEFAULT
goto MauvilleCity_PokemonCenter_1F_EventScript_PickDecorToGive
end
MauvilleCity_PokemonCenter_1F_EventScript_NoRoomForDecor::
msgbox MauvilleCity_PokemonCenter_1F_Text_YouveNoRoomForThis, MSGBOX_DEFAULT
release
end
@ Storyteller
MauvilleCity_PokemonCenter_1F_Text_WillYouHearMyTale:
.string "I'm the STORYTELLER.\n"
.string "I'll tell you tales of legendary\l"
.string "TRAINERS.\p"
.string "Will you hear my tale?$"
MauvilleCity_PokemonCenter_1F_Text_StorytellerFeelingTheBlues:
.string "Oh…\n"
.string "You've left me feeling the blues…$"
MauvilleCity_PokemonCenter_1F_Text_WhichTaleToTell:
.string "I know of these legends.\n"
.string "Which tale will you have me tell?$"
MauvilleCity_PokemonCenter_1F_Text_IKnowNoTales:
.string "But, I know of no legendary TRAINERS.\n"
.string "Hence, I know no tales.\p"
.string "Where does one find a TRAINER worthy\n"
.string "of a legendary tale?$"
MauvilleCity_PokemonCenter_1F_Text_YouDidStatXTimes:
.string "What's that?!\n"
.string "You… You…\p"
.string "{STR_VAR_2}\n"
.string "{STR_VAR_1} time(s)?!\p"
.string "That is indeed magnificent!\n"
.string "It's the birth of a new legend!$"
MauvilleCity_PokemonCenter_1F_Text_CouldThereBeOtherLegends:
.string "It gets me thinking, could there be\n"
.string "other TRAINERS with more impressive\l"
.string "legends awaiting discovery?$"
MauvilleCity_PokemonCenter_1F_Text_HaveYouAnyLegendaryTales:
.string "Are you a TRAINER?\p"
.string "Then tell me, have you any tales that\n"
.string "are even remotely legendary?$"
@ Unused
MauvilleCity_PokemonCenter_1F_Text_HearAnotherLegendaryTale:
.string "Incidentally… Would you care to hear\n"
.string "another legendary tale?$"
MauvilleCity_PokemonCenter_1F_Text_NotWorthyOfLegend:
.string "Hmm…\n"
.string "I'm not satisfied…\p"
.string "I wish you would bring me news worthy\n"
.string "of being called a legend.$"
MauvilleCity_PokemonCenter_1F_Text_IWishMorePeopleWereInterested:
.string "I wish more people would be interested\n"
.string "in hearing my epic tales of legendary\l"
.string "TRAINERS.$"
MauvilleCity_PokemonCenter_1F_Text_SavedGameTitle::
.string "The Save-Happy TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_SavedGameAction::
.string "Saved the game$"
MauvilleCity_PokemonCenter_1F_Text_SavedGameStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER saved the game\n"
.string "{STR_VAR_1} times!\p"
.string "A more cautious TRAINER than\n"
.string "{STR_VAR_3} one will never find!$"
MauvilleCity_PokemonCenter_1F_Text_TrendsStartedTitle::
.string "The Trendsetter TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_TrendsStartedAction::
.string "Started trends$"
MauvilleCity_PokemonCenter_1F_Text_TrendsStartedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER started new trends\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is setting trends for all\n"
.string "the HOENN region!$"
MauvilleCity_PokemonCenter_1F_Text_BerriesPlantedTitle::
.string "The BERRY-Planting TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_BerriesPlantedAction::
.string "Planted BERRIES$"
MauvilleCity_PokemonCenter_1F_Text_BerriesPlantedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER planted BERRIES\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a legendary lover of\n"
.string "BERRIES!$"
MauvilleCity_PokemonCenter_1F_Text_BikeTradesTitle::
.string "The BIKE-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_BikeTradesAction::
.string "Traded BIKES$"
MauvilleCity_PokemonCenter_1F_Text_BikeTradesStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER swapped BIKES\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must love BIKES deeply\n"
.string "and passionately!$"
MauvilleCity_PokemonCenter_1F_Text_InterviewsTitle::
.string "The Interviewed TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_InterviewsAction::
.string "Got interviewed$"
MauvilleCity_PokemonCenter_1F_Text_InterviewsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER got interviewed\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a TRAINER who's\n"
.string "attracting much attention!$"
MauvilleCity_PokemonCenter_1F_Text_TrainerBattlesTitle::
.string "The Battle-Happy TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_TrainerBattlesAction::
.string "Battled$"
MauvilleCity_PokemonCenter_1F_Text_TrainerBattlesStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER battled {STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a TRAINER who can\n"
.string "never refuse a chance to battle!$"
MauvilleCity_PokemonCenter_1F_Text_PokemonCaughtTitle::
.string "The POKéMON-Catching TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_PokemonCaughtAction::
.string "Caught POKéMON$"
MauvilleCity_PokemonCenter_1F_Text_PokemonCaughtStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER caught\n"
.string "{STR_VAR_1} POKéMON!\p"
.string "{STR_VAR_3} is a legendary catcher of\n"
.string "wild POKéMON!$"
MauvilleCity_PokemonCenter_1F_Text_FishingPokemonCaughtTitle::
.string "The Fishing TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_FishingPokemonCaughtAction::
.string "Caught POKéMON with a ROD$"
MauvilleCity_PokemonCenter_1F_Text_FishingPokemonCaughtStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER caught\n"
.string "{STR_VAR_1} POKéMON while fishing!\p"
.string "{STR_VAR_3} is a legendary fishing\n"
.string "expert!$"
MauvilleCity_PokemonCenter_1F_Text_EggsHatchedTitle::
.string "The EGG-Warming TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_EggsHatchedAction::
.string "Hatched EGGS$"
MauvilleCity_PokemonCenter_1F_Text_EggsHatchedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER hatched {STR_VAR_1} POKéMON\n"
.string "from EGGS!\p"
.string "{STR_VAR_3} is a legendary warmer\n"
.string "of EGGS!$"
MauvilleCity_PokemonCenter_1F_Text_PokemonEvolvedTitle::
.string "The Evolver TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_PokemonEvolvedAction::
.string "Evolved POKéMON$"
MauvilleCity_PokemonCenter_1F_Text_PokemonEvolvedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER made {STR_VAR_1} POKéMON\n"
.string "evolve!\p"
.string "{STR_VAR_3} is the ultimate evolver\n"
.string "of POKéMON!$"
MauvilleCity_PokemonCenter_1F_Text_UsedPokemonCenterTitle::
.string "The POKéMON CENTER-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedPokemonCenterAction::
.string "Used POKéMON CENTERS$"
MauvilleCity_PokemonCenter_1F_Text_UsedPokemonCenterStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER healed POKéMON\n"
.string "{STR_VAR_1} times at POKéMON CENTERS!\p"
.string "There could be no greater lover of\n"
.string "POKéMON CENTERS than {STR_VAR_3}!$"
MauvilleCity_PokemonCenter_1F_Text_RestedAtHomeTitle::
.string "The Homebody TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_RestedAtHomeAction::
.string "Rested POKéMON at home$"
MauvilleCity_PokemonCenter_1F_Text_RestedAtHomeStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER healed POKéMON\n"
.string "{STR_VAR_1} times at home!\p"
.string "There could be no more of a homebody\n"
.string "than {STR_VAR_3}!$"
MauvilleCity_PokemonCenter_1F_Text_SafariGamesTitle::
.string "The SAFARI-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_SafariGamesAction::
.string "Entered the SAFARI ZONE$"
MauvilleCity_PokemonCenter_1F_Text_SafariGamesStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER went into the SAFARI ZONE\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a TRAINER whose wild side\n"
.string "must come out in the SAFARI ZONE!$"
MauvilleCity_PokemonCenter_1F_Text_UsedCutTitle::
.string "The CUT-Frenzy TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedCutAction::
.string "Used CUT$"
MauvilleCity_PokemonCenter_1F_Text_UsedCutStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER used CUT\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a TRAINER who just must\n"
.string "love to CUT!$"
MauvilleCity_PokemonCenter_1F_Text_UsedRockSmashTitle::
.string "The ROCK-SMASHING TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedRockSmashAction::
.string "Smashed rocks$"
MauvilleCity_PokemonCenter_1F_Text_UsedRockSmashStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER used ROCK SMASH\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a TRAINER who\n"
.string "can't leave a stone unsmashed!$"
MauvilleCity_PokemonCenter_1F_Text_MovedBasesTitle::
.string "The Move-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_MovedBasesAction::
.string "Moved the SECRET BASE$"
MauvilleCity_PokemonCenter_1F_Text_MovedBasesStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER moved the SECRET BASE\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a TRAINER who loves\n"
.string "to move houses often!$"
MauvilleCity_PokemonCenter_1F_Text_UsedSplashTitle::
.string "The SPLASH-Happy TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedSplashAction::
.string "Used SPLASH$"
MauvilleCity_PokemonCenter_1F_Text_UsedSplashStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER used SPLASH\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a TRAINER who must love\n"
.string "SPLASHING around!$"
MauvilleCity_PokemonCenter_1F_Text_UsedStruggleTitle::
.string "The Tenacious TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedStruggleAction::
.string "Resorted to using STRUGGLE$"
MauvilleCity_PokemonCenter_1F_Text_UsedStruggleStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER had to rely on STRUGGLE\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a tenacious TRAINER\n"
.string "who never gives in to adversity!$"
MauvilleCity_PokemonCenter_1F_Text_SlotJackpotsTitle::
.string "The SLOT Champ$"
MauvilleCity_PokemonCenter_1F_Text_SlotJackpotsAction::
.string "Won the jackpot on the SLOTS$"
MauvilleCity_PokemonCenter_1F_Text_SlotJackpotsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER won the jackpot on\n"
.string "the SLOTS {STR_VAR_1} times.\p"
.string "{STR_VAR_3} is a TRAINER who was lucky\n"
.string "on the SLOTS!$"
MauvilleCity_PokemonCenter_1F_Text_RouletteWinsTitle::
.string "The ROULETTE Champ$"
MauvilleCity_PokemonCenter_1F_Text_RouletteWinsAction::
.string "Had consecutive ROULETTE wins of$"
MauvilleCity_PokemonCenter_1F_Text_RouletteWinsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER won in ROULETTE\n"
.string "{STR_VAR_1} times in a row.\p"
.string "{STR_VAR_3} was lucky when the ball\n"
.string "bounced in ROULETTE!$"
MauvilleCity_PokemonCenter_1F_Text_BattleTowerChallengesTitle::
.string "The BATTLE TOWER Challenger$"
MauvilleCity_PokemonCenter_1F_Text_BattleTowerChallengesAction::
.string "Took the BATTLE TOWER challenge$"
MauvilleCity_PokemonCenter_1F_Text_BattleTowerChallengesStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER took the BATTLE TOWER\n"
.string "challenge {STR_VAR_1} times!\p"
.string "{STR_VAR_3} is a TRAINER who aspires\n"
.string "for excellence in the BATTLE TOWER!$"
MauvilleCity_PokemonCenter_1F_Text_MadePokeblocksTitle::
.string "The Blend-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_MadePokeblocksAction::
.string "Made {POKEBLOCK}S$"
MauvilleCity_PokemonCenter_1F_Text_MadePokeblocksStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER made {POKEBLOCK}S\n"
.string "{STR_VAR_1} times!\p"
.string "There is none better at using a BERRY\n"
.string "BLENDER than {STR_VAR_3}!$"
MauvilleCity_PokemonCenter_1F_Text_EnteredContestsTitle::
.string "The CONTEST-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_EnteredContestsAction::
.string "Entered CONTESTS$"
MauvilleCity_PokemonCenter_1F_Text_EnteredContestsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER entered CONTESTS\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must love showing off\n"
.string "POKéMON to others!$"
MauvilleCity_PokemonCenter_1F_Text_WonContestsTitle::
.string "The CONTEST Master$"
MauvilleCity_PokemonCenter_1F_Text_WonContestsAction::
.string "Won CONTESTS$"
MauvilleCity_PokemonCenter_1F_Text_WonContestsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER won CONTESTS\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be an incredible\n"
.string "CONTEST master!$"
MauvilleCity_PokemonCenter_1F_Text_TimesShoppedTitle::
.string "The Happy Shopper$"
MauvilleCity_PokemonCenter_1F_Text_TimesShoppedAction::
.string "Shopped$"
MauvilleCity_PokemonCenter_1F_Text_TimesShoppedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER bought items in shops\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be one of those\n"
.string "people who are born to shop.$"
MauvilleCity_PokemonCenter_1F_Text_UsedItemFinderTitle::
.string "The Item-Finding TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_UsedItemFinderAction::
.string "Used an ITEMFINDER$"
MauvilleCity_PokemonCenter_1F_Text_UsedItemFinderStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER used an ITEMFINDER\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must enjoy scouring the\n"
.string "ground for hidden items!$"
MauvilleCity_PokemonCenter_1F_Text_TimesRainedTitle::
.string "The Rain-Soaked TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_TimesRainedAction::
.string "Got rained on$"
MauvilleCity_PokemonCenter_1F_Text_TimesRainedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER got soaked by rain\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3}'s charisma must even\n"
.string "attract rain!$"
MauvilleCity_PokemonCenter_1F_Text_CheckedPokedexTitle::
.string "The Avid POKéDEX Reader$"
MauvilleCity_PokemonCenter_1F_Text_CheckedPokedexAction::
.string "Checked a POKéDEX$"
MauvilleCity_PokemonCenter_1F_Text_CheckedPokedexStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER checked a POKéDEX\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must love inspecting\n"
.string "POKéMON in a POKéDEX!$"
MauvilleCity_PokemonCenter_1F_Text_ReceivedRibbonsTitle::
.string "The RIBBON Collector$"
MauvilleCity_PokemonCenter_1F_Text_ReceivedRibbonsAction::
.string "Received RIBBONS$"
MauvilleCity_PokemonCenter_1F_Text_ReceivedRibbonsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER received RIBBONS\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a TRAINER who\n"
.string "loves to collect RIBBONS!$"
MauvilleCity_PokemonCenter_1F_Text_LedgesJumpedTitle::
.string "The Ledge-Jumping TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_LedgesJumpedAction::
.string "Jumped down ledges$"
MauvilleCity_PokemonCenter_1F_Text_LedgesJumpedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER jumped down ledges\n"
.string "{STR_VAR_1} times!\p"
.string "If there's a ledge to be jumped,\n"
.string "{STR_VAR_3} can't ignore it!$"
MauvilleCity_PokemonCenter_1F_Text_TVWatchedTitle::
.string "The Legendary TV Viewer$"
MauvilleCity_PokemonCenter_1F_Text_TVWatchedAction::
.string "Watched TV$"
MauvilleCity_PokemonCenter_1F_Text_TVWatchedStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER watched TV\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must love watching TV!$"
MauvilleCity_PokemonCenter_1F_Text_CheckedClockTitle::
.string "The Time-Conscious TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_CheckedClockAction::
.string "Checked the time$"
MauvilleCity_PokemonCenter_1F_Text_CheckedClockStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER checked the time\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a punctual TRAINER\n"
.string "who's conscious of the time.$"
MauvilleCity_PokemonCenter_1F_Text_WonLotteryTitle::
.string "The POKéMON LOTTERY Wizard$"
MauvilleCity_PokemonCenter_1F_Text_WonLotteryAction::
.string "Won POKéMON LOTTERIES$"
MauvilleCity_PokemonCenter_1F_Text_WonLotteryStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER won POKéMON LOTTERIES\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must have many friends\n"
.string "to trade POKéMON with!$"
MauvilleCity_PokemonCenter_1F_Text_UsedDaycareTitle::
.string "The DAY CARE-Using Trainer$"
MauvilleCity_PokemonCenter_1F_Text_UsedDaycareAction::
.string "Left POKéMON at the DAY CARE$"
MauvilleCity_PokemonCenter_1F_Text_UsedDaycareStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER left POKéMON with the\n"
.string "DAY CARE {STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a real go-getter\n"
.string "who raises POKéMON aggressively!$"
MauvilleCity_PokemonCenter_1F_Text_RodeCableCarTitle::
.string "The CABLE CAR-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_RodeCableCarAction::
.string "Rode the CABLE CAR$"
MauvilleCity_PokemonCenter_1F_Text_RodeCableCarStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER rode the CABLE CAR\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a busy TRAINER\n"
.string "who's up and down all the time!$"
MauvilleCity_PokemonCenter_1F_Text_HotSpringsTitle::
.string "The Hot Spring-Loving TRAINER$"
MauvilleCity_PokemonCenter_1F_Text_HotSpringsAction::
.string "Bathed in hot springs$"
MauvilleCity_PokemonCenter_1F_Text_HotSpringsStory::
.string "This is a tale of a TRAINER\n"
.string "named {STR_VAR_3}.\p"
.string "This TRAINER bathed in hot springs\n"
.string "{STR_VAR_1} times!\p"
.string "{STR_VAR_3} must be a TRAINER with\n"
.string "baby-smooth skin!$"
MauvilleCity_PokemonCenter_1F_EventScript_Storyteller::
lock
faceplayer
setvar VAR_0x8008, 0
setvar VAR_0x8009, 0
setvar VAR_0x800A, 0
setvar VAR_0x800B, 0
msgbox MauvilleCity_PokemonCenter_1F_Text_WillYouHearMyTale, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineStoryteller
specialvar VAR_RESULT, StorytellerGetFreeStorySlot
goto_if_eq VAR_RESULT, 0, MauvilleCity_PokemonCenter_1F_EventScript_KnowNoTales
message MauvilleCity_PokemonCenter_1F_Text_WhichTaleToTell
waitmessage
special StorytellerStoryListMenu
waitstate
goto_if_eq VAR_RESULT, 0, MauvilleCity_PokemonCenter_1F_EventScript_CancelStorySelection
setvar VAR_0x8008, 1
special Script_StorytellerDisplayStory
waitmessage
waitbuttonpress
specialvar VAR_RESULT, StorytellerUpdateStat
goto_if_eq VAR_RESULT, 0, MauvilleCity_PokemonCenter_1F_EventScript_AreThereOtherTales
goto MauvilleCity_PokemonCenter_1F_EventScript_TellPlayersTale
MauvilleCity_PokemonCenter_1F_EventScript_CancelStorySelection::
goto MauvilleCity_PokemonCenter_1F_EventScript_DeclineStoryteller
end
MauvilleCity_PokemonCenter_1F_EventScript_AreThereOtherTales::
msgbox MauvilleCity_PokemonCenter_1F_Text_CouldThereBeOtherLegends, MSGBOX_DEFAULT
specialvar VAR_RESULT, HasStorytellerAlreadyRecorded
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_StorytellerEnd
goto MauvilleCity_PokemonCenter_1F_EventScript_DoYouHaveAnyTales
MauvilleCity_PokemonCenter_1F_EventScript_KnowNoTales::
msgbox MauvilleCity_PokemonCenter_1F_Text_IKnowNoTales, MSGBOX_DEFAULT
MauvilleCity_PokemonCenter_1F_EventScript_DoYouHaveAnyTales::
msgbox MauvilleCity_PokemonCenter_1F_Text_HaveYouAnyLegendaryTales, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineStoryteller
specialvar VAR_RESULT, Script_StorytellerInitializeRandomStat
goto_if_eq VAR_RESULT, 1, MauvilleCity_PokemonCenter_1F_EventScript_TellPlayersTale
msgbox MauvilleCity_PokemonCenter_1F_Text_NotWorthyOfLegend, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_TellPlayersTale::
msgbox MauvilleCity_PokemonCenter_1F_Text_YouDidStatXTimes, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_DeclineStoryteller::
msgbox MauvilleCity_PokemonCenter_1F_Text_StorytellerFeelingTheBlues, MSGBOX_DEFAULT
release
end
@ Unused
MauvilleCity_PokemonCenter_1F_EventScript_WaitingForRecordMix::
msgbox MauvilleCity_PokemonCenter_1F_Text_IWishMorePeopleWereInterested, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_StorytellerEnd::
release
end
@ Giddy
MauvilleCity_PokemonCenter_1F_Text_HearMyStory:
.string "I'm GIDDY!\n"
.string "I have a scintillating story for you!\p"
.string "Would you like to hear my story?$"
MauvilleCity_PokemonCenter_1F_Text_GiddyFeelingTheBlues:
.string "Oh…\n"
.string "You've left me feeling the blues…$"
MauvilleCity_PokemonCenter_1F_Text_AlsoIWasThinking:
.string "Also, I was thinking…$"
MauvilleCity_PokemonCenter_1F_Text_WeShouldChatAgain:
.string "That's about it, I think…\p"
.string "We should chat again!\n"
.string "Bye-bye!$"
MauvilleCity_PokemonCenter_1F_EventScript_Giddy::
lock
faceplayer
msgbox MauvilleCity_PokemonCenter_1F_Text_HearMyStory, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, MauvilleCity_PokemonCenter_1F_EventScript_TryTellTale
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_DeclineGiddy
end
MauvilleCity_PokemonCenter_1F_EventScript_TryTellTale::
special GiddyShouldTellAnotherTale
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_GiddyTellTale
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_PokemonCenter_1F_EventScript_ToldEnoughTales
end
MauvilleCity_PokemonCenter_1F_EventScript_TryTellNewTale::
special GiddyShouldTellAnotherTale
goto_if_eq VAR_RESULT, TRUE, MauvilleCity_PokemonCenter_1F_EventScript_GiddyStartNewTale
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_PokemonCenter_1F_EventScript_ToldEnoughTales
end
MauvilleCity_PokemonCenter_1F_EventScript_GiddyStartNewTale::
msgbox MauvilleCity_PokemonCenter_1F_Text_AlsoIWasThinking, MSGBOX_DEFAULT
goto MauvilleCity_PokemonCenter_1F_EventScript_GiddyTellTale
end
@ Giddy will continue to tell stories regardless of whether yes or no is selected below.
@ Each story there is a 10% chance it will be his last. Otherwise he will stop at 10 stories.
MauvilleCity_PokemonCenter_1F_EventScript_GiddyTellTale::
special GenerateGiddyLine
special ShowFieldMessageStringVar4
waitmessage
yesnobox 20, 8
goto_if_eq VAR_RESULT, YES, MauvilleCity_PokemonCenter_1F_EventScript_TryTellNewTale
goto_if_eq VAR_RESULT, NO, MauvilleCity_PokemonCenter_1F_EventScript_TryTellNewTale
end
MauvilleCity_PokemonCenter_1F_EventScript_DeclineGiddy::
msgbox MauvilleCity_PokemonCenter_1F_Text_GiddyFeelingTheBlues, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_EventScript_ToldEnoughTales::
msgbox MauvilleCity_PokemonCenter_1F_Text_WeShouldChatAgain, MSGBOX_DEFAULT
release
end
MauvilleCity_PokemonCenter_1F_Text_WouldYouLikeToHearMySong:
.string "Hi, I'm the BARD.\n"
.string "Would you like to hear my song?$"
MauvilleCity_PokemonCenter_1F_Text_BardFeelingTheBlues1:
.string "Oh…\n"
.string "You've left me feeling the blues…$"
MauvilleCity_PokemonCenter_1F_Text_WishICouldPlaySongForOthers:
.string "Oh, what a moving song…\n"
.string "I wish I could play it for others…$"
MauvilleCity_PokemonCenter_1F_Text_WouldYouLikeToWriteSomeLyrics:
.string "So?\n"
.string "How do you like my song?\p"
.string "But I'm none too happy about\n"
.string "the lyrics.\p"
.string "How would you like to write some\n"
.string "new lyrics for me?$"
MauvilleCity_PokemonCenter_1F_Text_BardFeelingTheBlues2:
.string "Oh…\n"
.string "You've left me feeling the blues…$"
MauvilleCity_PokemonCenter_1F_Text_LetMeSingItForYou:
.string "Thank you kindly!\n"
.string "Let me sing it for you.$"
MauvilleCity_PokemonCenter_1F_Text_ThatHowYouWantedSongToGo:
.string "Was that how you wanted your song\n"
.string "to go?$"
MauvilleCity_PokemonCenter_1F_Text_IllSingThisSongForAWhile:
.string "Okay! That's it, then.\n"
.string "I'll sing this song for a while.$"
MauvilleCity_PokemonCenter_1F_Text_TeachWhatsHipAndHappening:
.string "Hey, yo! They call me the HIPSTER.\n"
.string "I'll teach you what's hip and happening.$"
MauvilleCity_PokemonCenter_1F_Text_IAlreadyTaughtYou:
.string "But, hey, I taught you what's hip and\n"
.string "happening already.\p"
.string "I'd like to spread the good word to\n"
.string "other folks.$"
MauvilleCity_PokemonCenter_1F_Text_IveGotNothingNewToTeach:
.string "But, hey, you already know a lot about\n"
.string "what's hip and happening.\p"
.string "I've got nothing new to teach you!$"
MauvilleCity_PokemonCenter_1F_Text_HaveYouHeardOfPhrase:
.string "Hey, have you heard about\n"
.string "{STR_VAR_1}”?\p"
.string "What's it mean? Well…\n"
.string "Ask your daddy or mommy, okay?$"

View File

@ -0,0 +1,270 @@
SlateportCity_PokemonFanClub_EventScript_SwaggerTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_SWAGGER, MoveTutor_EventScript_SwaggerTaught
msgbox MoveTutor_Text_SwaggerTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SwaggerDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SwaggerDeclined
msgbox MoveTutor_Text_SwaggerWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_SWAGGER
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_SwaggerDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_SWAGGER
goto MoveTutor_EventScript_SwaggerTaught
end
MoveTutor_EventScript_SwaggerDeclined::
msgbox MoveTutor_Text_SwaggerDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_SwaggerTaught::
msgbox MoveTutor_Text_SwaggerTaught, MSGBOX_DEFAULT
release
end
MauvilleCity_EventScript_RolloutTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_ROLLOUT, MoveTutor_EventScript_RolloutTaught
msgbox MoveTutor_Text_RolloutTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_RolloutDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_RolloutDeclined
msgbox MoveTutor_Text_RolloutWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_ROLLOUT
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_RolloutDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_ROLLOUT
goto MoveTutor_EventScript_RolloutTaught
end
MoveTutor_EventScript_RolloutDeclined::
msgbox MoveTutor_Text_RolloutDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_RolloutTaught::
msgbox MoveTutor_Text_RolloutTaught, MSGBOX_DEFAULT
release
end
VerdanturfTown_PokemonCenter_1F_EventScript_FuryCutterTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_FURY_CUTTER, MoveTutor_EventScript_FuryCutterTaught
msgbox MoveTutor_Text_FuryCutterTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_FuryCutterDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_FuryCutterDeclined
msgbox MoveTutor_Text_FuryCutterWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_FURY_CUTTER
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_FuryCutterDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_FURY_CUTTER
goto MoveTutor_EventScript_FuryCutterTaught
end
MoveTutor_EventScript_FuryCutterDeclined::
msgbox MoveTutor_Text_FuryCutterDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_FuryCutterTaught::
msgbox MoveTutor_Text_FuryCutterTaught, MSGBOX_DEFAULT
release
end
LavaridgeTown_House_EventScript_MimicTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_MIMIC, MoveTutor_EventScript_MimicTaught
msgbox MoveTutor_MimicTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_MimicDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_MimicDeclined
msgbox MoveTutor_Text_MimicWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_MIMIC
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_MimicDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_MIMIC
goto MoveTutor_EventScript_MimicTaught
end
MoveTutor_EventScript_MimicDeclined::
msgbox MoveTutor_MimicDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_MimicTaught::
msgbox MoveTutor_Text_MimicTaught, MSGBOX_DEFAULT
release
end
FallarborTown_Mart_EventScript_MetronomeTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_METRONOME, MoveTutor_EventScript_MetronomeTaught
msgbox MoveTutor_Text_MetronomeTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_MetronomeDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_MetronomeDeclined
msgbox MoveTutor_Text_MetronomeWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_METRONOME
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_MetronomeDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_METRONOME
goto MoveTutor_EventScript_MetronomeTaught
end
MoveTutor_EventScript_MetronomeDeclined::
msgbox MoveTutor_Text_MetronomeDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_MetronomeTaught::
msgbox MoveTutor_Text_MetronomeTaught, MSGBOX_DEFAULT
release
end
FortreeCity_House2_EventScript_SleepTalkTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_SLEEP_TALK, MoveTutor_EventScript_SleepTalkTaught
msgbox MoveTutor_Text_SleepTalkTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SleepTalkDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SleepTalkDeclined
msgbox MoveTutor_Text_SleepTalkWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_SLEEP_TALK
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_SleepTalkDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_SLEEP_TALK
goto MoveTutor_EventScript_SleepTalkTaught
end
MoveTutor_EventScript_SleepTalkDeclined::
msgbox MoveTutor_Text_SleepTalkDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_SleepTalkTaught::
msgbox MoveTutor_Text_SleepTalkTaught, MSGBOX_DEFAULT
release
end
LilycoveCity_DepartmentStoreRooftop_EventScript_SubstituteTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_SUBSTITUTE, MoveTutor_EventScript_SubstituteTaught
msgbox MoveTutor_Text_SubstituteTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SubstituteDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_SubstituteDeclined
msgbox MoveTutor_Text_SubstituteWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_SUBSTITUTE
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_SubstituteDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_SUBSTITUTE
goto MoveTutor_EventScript_SubstituteTaught
end
MoveTutor_EventScript_SubstituteDeclined::
msgbox MoveTutor_Text_SubstituteDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_SubstituteTaught::
msgbox MoveTutor_Text_SubstituteTaught, MSGBOX_DEFAULT
release
end
MossdeepCity_EventScript_DynamicPunchTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_DYNAMICPUNCH, MoveTutor_EventScript_DynamicPunchTaught
msgbox MoveTutor_Text_DynamicPunchTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_DynamicPunchDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_DynamicPunchDeclined
msgbox MoveTutor_Text_DynamicPunchWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_DYNAMIC_PUNCH
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_DynamicPunchDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_DYNAMICPUNCH
goto MoveTutor_EventScript_DynamicPunchTaught
end
MoveTutor_EventScript_DynamicPunchDeclined::
msgbox MoveTutor_Text_DynamicPunchDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_DynamicPunchTaught::
msgbox MoveTutor_Text_DynamicPunchTaught, MSGBOX_DEFAULT
release
end
SootopolisCity_PokemonCenter_1F_EventScript_DoubleEdgeTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_DOUBLE_EDGE, MoveTutor_EventScript_DoubleEdgeTaught
msgbox MoveTutor_Text_DoubleEdgeTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_DoubleEdgeDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_DoubleEdgeDeclined
msgbox MoveTutor_Text_DoubleEdgeWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_DOUBLE_EDGE
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_DoubleEdgeDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_DOUBLE_EDGE
goto MoveTutor_EventScript_DoubleEdgeTaught
end
MoveTutor_EventScript_DoubleEdgeDeclined::
msgbox MoveTutor_Text_DoubleEdgeDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_DoubleEdgeTaught::
msgbox MoveTutor_Text_DoubleEdgeTaught, MSGBOX_DEFAULT
release
end
PacifidlogTown_PokemonCenter_1F_EventScript_ExplosionTutor::
lock
faceplayer
goto_if_set FLAG_MOVE_TUTOR_TAUGHT_EXPLOSION, MoveTutor_EventScript_ExplosionTaught
msgbox MoveTutor_Text_ExplosionTeach, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_ExplosionDeclined
call MoveTutor_EventScript_CanOnlyBeLearnedOnce
goto_if_eq VAR_RESULT, NO, MoveTutor_EventScript_ExplosionDeclined
msgbox MoveTutor_Text_ExplosionWhichMon, MSGBOX_DEFAULT
setvar VAR_0x8005, TUTOR_MOVE_EXPLOSION
call MoveTutor_EventScript_OpenPartyMenu
goto_if_eq VAR_RESULT, 0, MoveTutor_EventScript_ExplosionDeclined
setflag FLAG_MOVE_TUTOR_TAUGHT_EXPLOSION
goto MoveTutor_EventScript_ExplosionTaught
end
MoveTutor_EventScript_ExplosionDeclined::
msgbox MoveTutor_Text_ExplosionDeclined, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_ExplosionTaught::
msgbox MoveTutor_Text_ExplosionTaught, MSGBOX_DEFAULT
release
end
MoveTutor_EventScript_OpenPartyMenu::
special ChooseMonForMoveTutor
waitstate
lock
faceplayer
return
MoveTutor_EventScript_CanOnlyBeLearnedOnce::
msgbox MoveTutor_Text_ThisMoveCanOnlyBeLearnedOnce, MSGBOX_YESNO
return

100
data/scripts/movement.inc Normal file
View File

@ -0,0 +1,100 @@
Common_Movement_QuestionMark:
emote_question_mark
step_end
Common_Movement_ExclamationMark:
emote_exclamation_mark
step_end
Common_Movement_Delay48:
delay_16
delay_16
delay_16
step_end
Common_Movement_FacePlayer:
face_player
step_end
Common_Movement_FaceAwayPlayer:
face_away_player
step_end
Common_Movement_FaceOriginalDirection:
face_original_direction
step_end
Common_Movement_WalkInPlaceFasterLeft:
walk_in_place_faster_left
step_end
Common_Movement_WalkInPlaceFasterUp:
walk_in_place_faster_up
step_end
Common_Movement_WalkInPlaceFasterRight:
walk_in_place_faster_right
step_end
Common_Movement_WalkInPlaceFasterDown:
walk_in_place_faster_down
step_end
Common_Movement_FaceRight:
face_right
step_end
Common_Movement_FaceLeft:
face_left
step_end
Common_Movement_FaceDown:
face_down
step_end
Common_Movement_FaceUp:
face_up
step_end
Common_Movement_WalkInPlaceDown:
walk_in_place_down
step_end
Common_Movement_WalkInPlaceLeft:
walk_in_place_left
step_end
Common_Movement_WalkInPlaceRight:
walk_in_place_right
step_end
Common_Movement_WalkUp6:
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
step_end
Common_Movement_WalkUp4:
walk_up
walk_up
walk_up
walk_up
step_end
Common_Movement_Delay32:
delay_16
delay_16
step_end
Common_Movement_WalkUp:
walk_up
step_end
@ Unused
Common_Movement_WalkUp2::
walk_up
walk_up
step_end

276
data/scripts/new_game.inc Normal file
View File

@ -0,0 +1,276 @@
EventScript_ResetAllBerries::
@ Route 102
setberrytree BERRY_TREE_ROUTE_102_ORAN, ITEM_TO_BERRY(ITEM_ORAN_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_102_PECHA, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
@ Route 104
setberrytree BERRY_TREE_ROUTE_104_ORAN_2, ITEM_TO_BERRY(ITEM_ORAN_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_104_PECHA, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_104_ORAN_1, ITEM_TO_BERRY(ITEM_ORAN_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_104_CHERI_2, ITEM_TO_BERRY(ITEM_CHERI_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_104_CHERI_1, ITEM_TO_BERRY(ITEM_CHERI_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_104_LEPPA, ITEM_TO_BERRY(ITEM_LEPPA_BERRY), BERRY_STAGE_BERRIES
@ Route 116
setberrytree BERRY_TREE_ROUTE_116_PINAP_1, ITEM_TO_BERRY(ITEM_PINAP_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_116_CHESTO_1, ITEM_TO_BERRY(ITEM_CHESTO_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_116_CHESTO_2, ITEM_TO_BERRY(ITEM_CHESTO_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_116_PINAP_2, ITEM_TO_BERRY(ITEM_PINAP_BERRY), BERRY_STAGE_BERRIES
@ Route 115
setberrytree BERRY_TREE_ROUTE_115_KELPSY_1, ITEM_TO_BERRY(ITEM_KELPSY_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_115_KELPSY_2, ITEM_TO_BERRY(ITEM_KELPSY_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_115_KELPSY_3, ITEM_TO_BERRY(ITEM_KELPSY_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_115_BLUK_1, ITEM_TO_BERRY(ITEM_BLUK_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_115_BLUK_2, ITEM_TO_BERRY(ITEM_BLUK_BERRY), BERRY_STAGE_BERRIES
@ Route 103
setberrytree BERRY_TREE_ROUTE_103_CHERI_1, ITEM_TO_BERRY(ITEM_CHERI_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_103_LEPPA, ITEM_TO_BERRY(ITEM_LEPPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_103_CHERI_2, ITEM_TO_BERRY(ITEM_CHERI_BERRY), BERRY_STAGE_BERRIES
@ Route 110
setberrytree BERRY_TREE_ROUTE_110_NANAB_1, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_110_NANAB_2, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_110_NANAB_3, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
@ Route 117
setberrytree BERRY_TREE_ROUTE_117_WEPEAR_3, ITEM_TO_BERRY(ITEM_WEPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_117_WEPEAR_2, ITEM_TO_BERRY(ITEM_WEPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_117_WEPEAR_1, ITEM_TO_BERRY(ITEM_WEPEAR_BERRY), BERRY_STAGE_BERRIES
@ Route 112
setberrytree BERRY_TREE_ROUTE_112_RAWST_2, ITEM_TO_BERRY(ITEM_RAWST_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_112_PECHA_2, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_112_PECHA_1, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_112_RAWST_1, ITEM_TO_BERRY(ITEM_RAWST_BERRY), BERRY_STAGE_BERRIES
@ Route 111
setberrytree BERRY_TREE_ROUTE_111_RAZZ_1, ITEM_TO_BERRY(ITEM_RAZZ_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_111_RAZZ_2, ITEM_TO_BERRY(ITEM_RAZZ_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_111_ORAN_1, ITEM_TO_BERRY(ITEM_ORAN_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_111_ORAN_2, ITEM_TO_BERRY(ITEM_ORAN_BERRY), BERRY_STAGE_BERRIES
@ Route 114
setberrytree BERRY_TREE_ROUTE_114_PERSIM_2, ITEM_TO_BERRY(ITEM_PERSIM_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_114_PERSIM_3, ITEM_TO_BERRY(ITEM_PERSIM_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_114_PERSIM_1, ITEM_TO_BERRY(ITEM_PERSIM_BERRY), BERRY_STAGE_BERRIES
@ Route 118
setberrytree BERRY_TREE_ROUTE_118_SITRUS_1, ITEM_TO_BERRY(ITEM_SITRUS_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_118_SITRUS_2, ITEM_TO_BERRY(ITEM_SITRUS_BERRY), BERRY_STAGE_BERRIES
@ Route 119
setberrytree BERRY_TREE_ROUTE_119_POMEG_1, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_POMEG_2, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_POMEG_3, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_HONDEW_1, ITEM_TO_BERRY(ITEM_HONDEW_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_HONDEW_2, ITEM_TO_BERRY(ITEM_HONDEW_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_SITRUS, ITEM_TO_BERRY(ITEM_SITRUS_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_119_LEPPA, ITEM_TO_BERRY(ITEM_LEPPA_BERRY), BERRY_STAGE_BERRIES
@ Route 120
setberrytree BERRY_TREE_ROUTE_120_ASPEAR_1, ITEM_TO_BERRY(ITEM_ASPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_ASPEAR_2, ITEM_TO_BERRY(ITEM_ASPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_ASPEAR_3, ITEM_TO_BERRY(ITEM_ASPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_PECHA_1, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_PECHA_2, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_PECHA_3, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_WEPEAR, ITEM_TO_BERRY(ITEM_WEPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_PINAP, ITEM_TO_BERRY(ITEM_PINAP_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_NANAB, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_120_RAZZ, ITEM_TO_BERRY(ITEM_RAZZ_BERRY), BERRY_STAGE_BERRIES
@ Route 121
setberrytree BERRY_TREE_ROUTE_121_PERSIM, ITEM_TO_BERRY(ITEM_PERSIM_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_121_ASPEAR, ITEM_TO_BERRY(ITEM_ASPEAR_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_121_RAWST, ITEM_TO_BERRY(ITEM_RAWST_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_121_CHESTO, ITEM_TO_BERRY(ITEM_CHESTO_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_121_NANAB_1, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_121_NANAB_2, ITEM_TO_BERRY(ITEM_NANAB_BERRY), BERRY_STAGE_BERRIES
@ Route 123
setberrytree BERRY_TREE_ROUTE_123_LEPPA_1, ITEM_TO_BERRY(ITEM_LEPPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_LEPPA_2, ITEM_TO_BERRY(ITEM_LEPPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_POMEG_3, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_POMEG_4, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_GREPA_1, ITEM_TO_BERRY(ITEM_GREPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_GREPA_2, ITEM_TO_BERRY(ITEM_GREPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_QUALOT_4, ITEM_TO_BERRY(ITEM_QUALOT_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_QUALOT_1, ITEM_TO_BERRY(ITEM_QUALOT_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_POMEG_1, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_POMEG_2, ITEM_TO_BERRY(ITEM_POMEG_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_GREPA_3, ITEM_TO_BERRY(ITEM_GREPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_GREPA_4, ITEM_TO_BERRY(ITEM_GREPA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_QUALOT_2, ITEM_TO_BERRY(ITEM_QUALOT_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_QUALOT_3, ITEM_TO_BERRY(ITEM_QUALOT_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_PECHA, ITEM_TO_BERRY(ITEM_PECHA_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_SITRUS, ITEM_TO_BERRY(ITEM_SITRUS_BERRY), BERRY_STAGE_BERRIES
setberrytree BERRY_TREE_ROUTE_123_RAWST, ITEM_TO_BERRY(ITEM_RAWST_BERRY), BERRY_STAGE_BERRIES
@ Mirage Island
setberrytree BERRY_TREE_ROUTE_130_LIECHI, ITEM_TO_BERRY(ITEM_LIECHI_BERRY), BERRY_STAGE_BERRIES
return
EventScript_ResetAllMapFlags::
setflag FLAG_HIDE_CONTEST_POKE_BALL
setflag FLAG_HIDE_ROUTE_111_VICTORIA_WINSTRATE
setflag FLAG_HIDE_ROUTE_111_VIVI_WINSTRATE
setflag FLAG_HIDE_ROUTE_111_VICKY_WINSTRATE
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_BIRCH
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_RIVAL
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_POKEBALL_CYNDAQUIL
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_POKEBALL_TOTODILE
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_POKEBALL_CHIKORITA
setflag FLAG_HIDE_PETALBURG_CITY_WALLY
setflag FLAG_UNKNOWN_0x363
setflag FLAG_HIDE_RUSTBORO_CITY_AQUA_GRUNT
setflag FLAG_HIDE_RUSTBORO_CITY_DEVON_EMPLOYEE_1
setflag FLAG_HIDE_RUSTBORO_CITY_RIVAL
setflag FLAG_HIDE_RUSTBORO_CITY_SCIENTIST
setflag FLAG_HIDE_LITTLEROOT_TOWN_FAT_MAN
setflag FLAG_HIDE_BRINEYS_HOUSE_MR_BRINEY
setflag FLAG_HIDE_BRINEYS_HOUSE_PEEKO
setflag FLAG_HIDE_ROUTE_104_MR_BRINEY
setflag FLAG_HIDE_MR_BRINEY_DEWFORD_TOWN
setflag FLAG_HIDE_ROUTE_109_MR_BRINEY
setflag FLAG_HIDE_MR_BRINEY_BOAT_DEWFORD_TOWN
setflag FLAG_HIDE_ROUTE_109_MR_BRINEY_BOAT
setflag FLAG_HIDE_ROUTE_104_WHITE_HERB_FLORIST
setflag FLAG_HIDE_ROUTE_110_BIRCH
setflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_CONTEST_ATTENDANT_1
setflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_CONTEST_ATTENDANT_2
setflag FLAG_HIDE_LILYCOVE_MUSEUM_PATRON_1
setflag FLAG_HIDE_LILYCOVE_MUSEUM_PATRON_2
setflag FLAG_HIDE_LILYCOVE_MUSEUM_PATRON_3
setflag FLAG_HIDE_LILYCOVE_MUSEUM_PATRON_4
setflag FLAG_HIDE_LILYCOVE_MUSEUM_TOURISTS
setflag FLAG_HIDE_PETALBURG_GYM_GREETER
setflag FLAG_HIDE_PETALBURG_GYM_WALLYS_DAD
setflag FLAG_HIDE_LITTLEROOT_TOWN_BRENDANS_HOUSE_BRENDAN
setflag FLAG_HIDE_LITTLEROOT_TOWN_MAYS_HOUSE_MAY
setflag FLAG_HIDE_LITTLEROOT_TOWN_BRENDANS_HOUSE_RIVAL_BEDROOM
setflag FLAG_HIDE_LITTLEROOT_TOWN_MAYS_HOUSE_RIVAL_BEDROOM
setflag FLAG_HIDE_PLAYERS_HOUSE_DAD
setflag FLAG_HIDE_LITTLEROOT_TOWN_MAYS_HOUSE_2F_PICHU_DOLL
setflag FLAG_HIDE_LITTLEROOT_TOWN_BRENDANS_HOUSE_2F_SWABLU_DOLL
setflag FLAG_HIDE_FANCLUB_OLD_LADY
setflag FLAG_HIDE_FANCLUB_BOY
setflag FLAG_HIDE_FANCLUB_LITTLE_BOY
setflag FLAG_HIDE_FANCLUB_LADY
setflag FLAG_HIDE_LILYCOVE_FAN_CLUB_INTERVIEWER
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_1
setflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_1
setflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_3
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_2
setflag FLAG_HIDE_ROUTE_120_GABBY_AND_TY_2
setflag FLAG_HIDE_ROUTE_111_GABBY_AND_TY_2
setflag FLAG_HIDE_ROUTE_118_GABBY_AND_TY_3
setflag FLAG_HIDE_SLATEPORT_CITY_CONTEST_REPORTER
setflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_REPORTER
setflag FLAG_HIDE_VERDANTURF_TOWN_WANDAS_HOUSE_WALLY
setflag FLAG_HIDE_VERDANTURF_TOWN_WANDAS_HOUSE_WANDAS_BOYFRIEND
setflag FLAG_HIDE_VERDANTURF_TOWN_WANDAS_HOUSE_WALLYS_UNCLE
setflag FLAG_HIDE_VERDANTURF_TOWN_WANDAS_HOUSE_WANDA
setflag FLAG_HIDE_VERDANTURF_TOWN_SCOTT
setflag FLAG_HIDE_PETALBURG_CITY_WALLYS_DAD
setflag FLAG_HIDE_PETALBURG_GYM_WALLY
setflag FLAG_HIDE_SLATEPORT_CITY_STERNS_SHIPYARD_MR_BRINEY
setflag FLAG_HIDE_SEAFLOOR_CAVERN_ROOM_9_ARCHIE
setflag FLAG_HIDE_SEAFLOOR_CAVERN_ROOM_9_MAXIE
setflag FLAG_HIDE_SEAFLOOR_CAVERN_ROOM_9_MAGMA_GRUNTS
setflag FLAG_HIDE_SEAFLOOR_CAVERN_ROOM_9_KYOGRE
setflag FLAG_HIDE_MAGMA_HIDEOUT_4F_GROUDON
setflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_CAPTAIN_STERN
setflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_AQUA_GRUNT
setflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_ARCHIE
setflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_SS_TIDAL
setflag FLAG_HIDE_LILYCOVE_HARBOR_SSTIDAL
setflag FLAG_HIDE_SLATEPORT_CITY_GABBY_AND_TY
setflag FLAG_HIDE_SLATEPORT_CITY_CAPTAIN_STERN
setflag FLAG_HIDE_SLATEPORT_CITY_HARBOR_SUBMARINE_SHADOW
setflag FLAG_HIDE_ROUTE_119_RIVAL
setflag FLAG_HIDE_ROUTE_119_SCOTT
setflag FLAG_HIDE_SOOTOPOLIS_CITY_STEVEN
setflag FLAG_HIDE_SOOTOPOLIS_CITY_WALLACE
setflag FLAG_HIDE_LANETTES_HOUSE_LANETTE
setflag FLAG_HIDE_TRICK_HOUSE_ENTRANCE_MAN
setflag FLAG_HIDE_MT_CHIMNEY_TRAINERS
setflag FLAG_HIDE_MT_CHIMNEY_LAVA_COOKIE_LADY
setflag FLAG_HIDE_RUSTURF_TUNNEL_BRINEY
setflag FLAG_HIDE_ROUTE_116_MR_BRINEY
setflag FLAG_HIDE_RUSTURF_TUNNEL_PEEKO
setflag FLAG_HIDE_RUSTURF_TUNNEL_AQUA_GRUNT
setflag FLAG_HIDE_RUSTURF_TUNNEL_WANDAS_BOYFRIEND
setflag FLAG_HIDE_RUSTURF_TUNNEL_WANDA
setflag FLAG_HIDE_SLATEPORT_CITY_OCEANIC_MUSEUM_2F_ARCHIE
setflag FLAG_HIDE_SLATEPORT_CITY_OCEANIC_MUSEUM_2F_AQUA_GRUNT_1
setflag FLAG_HIDE_SLATEPORT_CITY_OCEANIC_MUSEUM_2F_AQUA_GRUNT_2
setflag FLAG_HIDE_SLATEPORT_MUSEUM_POPULATION
setflag FLAG_HIDE_BATTLE_TOWER_OPPONENT
setflag FLAG_HIDE_LITTLEROOT_TOWN_MOM_OUTSIDE
setflag FLAG_HIDE_LITTLEROOT_TOWN_PLAYERS_BEDROOM_MOM
setflag FLAG_HIDE_LITTLEROOT_TOWN_RIVAL
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCH
setflag FLAG_HIDE_WEATHER_INSTITUTE_1F_WORKERS
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_UNKNOWN_0x380
setflag FLAG_HIDE_ROUTE_101_BIRCH
setflag FLAG_HIDE_ROUTE_103_BIRCH
setflag FLAG_HIDE_LILYCOVE_HARBOR_FERRY_SAILOR
setflag FLAG_HIDE_LILYCOVE_HARBOR_EVENT_TICKET_TAKER
setflag FLAG_HIDE_SOUTHERN_ISLAND_EON_STONE
setflag FLAG_HIDE_SOUTHERN_ISLAND_UNCHOSEN_EON_DUO_MON
setflag FLAG_UNKNOWN_0x393
setflag FLAG_HIDE_MT_PYRE_SUMMIT_MAXIE
setflag FLAG_HIDE_MAUVILLE_CITY_WATTSON
setflag FLAG_HIDE_MAUVILLE_CITY_SCOTT
setflag FLAG_HIDE_CHAMPIONS_ROOM_RIVAL
setflag FLAG_HIDE_CHAMPIONS_ROOM_BIRCH
setflag FLAG_HIDE_ROUTE_110_RIVAL_ON_BIKE
setflag FLAG_HIDE_ROUTE_119_RIVAL_ON_BIKE
setflag FLAG_HIDE_ROUTE_104_RIVAL
setflag FLAG_HIDE_LILYCOVE_MOTEL_GAME_DESIGNERS
setflag FLAG_HIDE_LAVARIDGE_TOWN_RIVAL
setflag FLAG_HIDE_LAVARIDGE_TOWN_RIVAL_ON_BIKE
setflag FLAG_HIDE_MOSSDEEP_CITY_HOUSE_2_WINGULL
setflag FLAG_HIDE_METEOR_FALLS_TEAM_AQUA
setflag FLAG_HIDE_DEWFORD_HALL_SLUDGE_BOMB_MAN
setflag FLAG_HIDE_FALLARBOR_HOUSE_PROF_COZMO
setflag FLAG_HIDE_WEATHER_INSTITUTE_2F_AQUA_GRUNT_M
setflag FLAG_HIDE_ROUTE_128_STEVEN
setflag FLAG_HIDE_ROUTE_128_ARCHIE
setflag FLAG_HIDE_ROUTE_128_MAXIE
setflag FLAG_HIDE_ROUTE_116_DEVON_EMPLOYEE
setflag FLAG_HIDE_SLATEPORT_CITY_TM_SALESMAN
setflag FLAG_HIDE_SLATEPORT_CITY_SCOTT
setflag FLAG_HIDE_VICTORY_ROAD_ENTRANCE_WALLY
setflag FLAG_HIDE_VICTORY_ROAD_EXIT_WALLY
setflag FLAG_HIDE_SS_TIDAL_CORRIDOR_MR_BRINEY
setflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_STEVEN
setflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_BELDUM_POKEBALL
setflag FLAG_HIDE_MOSSDEEP_CITY_STEVENS_HOUSE_INVISIBLE_NINJA_BOY
setflag FLAG_HIDE_OLDALE_TOWN_RIVAL
setflag FLAG_HIDE_ROUTE_101_BOY
setflag FLAG_HIDE_PETALBURG_CITY_SCOTT
setflag FLAG_HIDE_SOOTOPOLIS_CITY_RAYQUAZA
setflag FLAG_HIDE_SOOTOPOLIS_CITY_KYOGRE
setflag FLAG_HIDE_SOOTOPOLIS_CITY_GROUDON
setflag FLAG_HIDE_SOOTOPOLIS_CITY_RESIDENTS
setflag FLAG_HIDE_SOOTOPOLIS_CITY_ARCHIE
setflag FLAG_HIDE_SOOTOPOLIS_CITY_MAXIE
setflag FLAG_HIDE_ROUTE_111_DESERT_FOSSIL
setflag FLAG_HIDE_ROUTE_111_PLAYER_DESCENT
setflag FLAG_HIDE_DESERT_UNDERPASS_FOSSIL
setflag FLAG_HIDE_MOSSDEEP_CITY_TEAM_MAGMA
setflag FLAG_HIDE_MOSSDEEP_CITY_SPACE_CENTER_1F_TEAM_MAGMA
setflag FLAG_HIDE_MOSSDEEP_CITY_SPACE_CENTER_2F_TEAM_MAGMA
setflag FLAG_HIDE_MOSSDEEP_CITY_SPACE_CENTER_2F_STEVEN
setflag FLAG_HIDE_LILYCOVE_CONTEST_HALL_BLEND_MASTER
setflag FLAG_HIDE_DEOXYS
setflag FLAG_HIDE_SAFARI_ZONE_SOUTH_EAST_EXPANSION
setflag FLAG_HIDE_FALLARBOR_TOWN_BATTLE_TENT_SCOTT
setflag FLAG_HIDE_EVER_GRANDE_POKEMON_CENTER_1F_SCOTT
setflag FLAG_HIDE_SKY_PILLAR_WALLACE
setflag FLAG_HIDE_SKY_PILLAR_TOP_RAYQUAZA_STILL
call EventScript_ResetAllBerries
end

View File

@ -0,0 +1,192 @@
.set ITEMID, VAR_0x8000
.set AMOUNT, VAR_0x8001
Std_ObtainItem::
additem ITEMID, AMOUNT
copyvar VAR_0x8007, VAR_RESULT
call EventScript_ObtainItemMessage
return
EventScript_ObtainItemMessage::
bufferitemnameplural STR_VAR_2, ITEMID, AMOUNT
checkitemtype ITEMID
call EventScript_BufferPocketNameAndTryFanfare
call_if_eq VAR_0x8007, TRUE, EventScript_ObtainedItem
call_if_eq VAR_0x8007, FALSE, EventScript_NoRoomForItem
return
EventScript_BufferPocketNameAndTryFanfare::
switch VAR_RESULT
case POCKET_ITEMS, EventScript_BufferItemsPocket
case POCKET_KEY_ITEMS, EventScript_BufferKeyItemsPocket
case POCKET_POKE_BALLS, EventScript_BufferPokeballsPocket
case POCKET_TM_HM, EventScript_BufferTMHMsPocket
case POCKET_BERRIES, EventScript_BufferBerriesPocket
end
EventScript_BufferItemsPocket::
bufferstdstring STR_VAR_3, STDSTRING_ITEMS
call_if_eq VAR_0x8007, TRUE, EventScript_PlayFanfareObtainedItem
return
EventScript_BufferKeyItemsPocket::
bufferstdstring STR_VAR_3, STDSTRING_KEYITEMS
call_if_eq VAR_0x8007, TRUE, EventScript_PlayFanfareObtainedItem
return
EventScript_BufferPokeballsPocket::
bufferstdstring STR_VAR_3, STDSTRING_POKEBALLS
call_if_eq VAR_0x8007, TRUE, EventScript_PlayFanfareObtainedItem
return
EventScript_BufferTMHMsPocket::
bufferstdstring STR_VAR_3, STDSTRING_TMHMS
call_if_eq VAR_0x8007, TRUE, EventScript_PlayFanfareObtainedTMHM
return
EventScript_BufferBerriesPocket::
bufferstdstring STR_VAR_3, STDSTRING_BERRIES
call_if_eq VAR_0x8007, TRUE, EventScript_PlayFanfareObtainedItem
return
EventScript_ObtainedItem::
message gText_ObtainedTheItem
waitfanfare
msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
setvar VAR_RESULT, TRUE
return
EventScript_NoRoomForItem::
setvar VAR_RESULT, FALSE
return
EventScript_PlayFanfareObtainedItem::
playfanfare MUS_OBTAIN_ITEM
return
EventScript_PlayFanfareObtainedTMHM::
playfanfare MUS_OBTAIN_TMHM
return
Std_ObtainDecoration::
adddecoration ITEMID
copyvar VAR_0x8007, VAR_RESULT
call EventScript_ObtainDecorationMessage
return
EventScript_ObtainDecorationMessage::
bufferdecorationname STR_VAR_2, ITEMID
call_if_eq VAR_0x8007, TRUE, EventScript_ObtainedDecor
call_if_eq VAR_0x8007, FALSE, EventScript_NoRoomForDecor
return
EventScript_ObtainedDecor::
playfanfare MUS_OBTAIN_ITEM
message gText_ObtainedTheDecor
waitfanfare
msgbox gText_TheDecorWasTransferredToThePC, MSGBOX_DEFAULT
setvar VAR_RESULT, TRUE
return
EventScript_NoRoomForDecor::
setvar VAR_RESULT, FALSE
return
Std_FindItem::
lock
faceplayer
waitse
copyvar VAR_0x8004, ITEMID
copyvar VAR_0x8005, AMOUNT
checkitemspace ITEMID, AMOUNT
copyvar VAR_0x8007, VAR_RESULT
bufferitemnameplural STR_VAR_2, ITEMID, AMOUNT
checkitemtype ITEMID
call EventScript_BufferPocketNameAndTryFanfare
call_if_eq VAR_0x8007, TRUE, EventScript_PickUpItem
call_if_eq VAR_0x8007, FALSE, EventScript_NoRoomToPickUpItem
release
return
EventScript_PickUpItem::
removeobject VAR_LAST_TALKED
additem VAR_0x8004, VAR_0x8005
specialvar VAR_RESULT, BufferTMHMMoveName
copyvar VAR_0x8008, VAR_RESULT
call_if_eq VAR_0x8008, TRUE, EventScript_FoundTMHM
call_if_eq VAR_0x8008, FALSE, EventScript_FoundItem
waitfanfare
waitmessage
bufferitemnameplural STR_VAR_2, VAR_0x8004, VAR_0x8005
pyramid_inchallenge
goto_if_eq VAR_RESULT, TRUE, EventScript_PutBattlePyramidItemInBag
msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
return
EventScript_PutBattlePyramidItemInBag::
msgbox gText_PlayerPutItemInBag, MSGBOX_DEFAULT
return
EventScript_FoundTMHM::
bufferitemnameplural STR_VAR_1, VAR_0x8004, VAR_0x8005
message gText_PlayerFoundOneTMHM
return
EventScript_FoundItem::
message gText_PlayerFoundOneItem
return
EventScript_NoRoomToPickUpItem::
msgbox gText_ObtainedTheItem, MSGBOX_DEFAULT
msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT
setvar VAR_RESULT, FALSE
return
EventScript_HiddenItemScript::
lockall
waitse
additem VAR_0x8005
copyvar VAR_0x8007, VAR_RESULT
bufferitemnameplural STR_VAR_2, VAR_0x8005, 1
checkitemtype VAR_0x8005
call EventScript_BufferPocketNameAndTryFanfare
goto_if_eq VAR_0x8007, TRUE, EventScript_PickUpHiddenItem
goto_if_eq VAR_0x8007, FALSE, EventScript_NoRoomForHiddenItem
end
EventScript_PickUpHiddenItem::
copyvar VAR_0x8008, VAR_0x8004
copyvar VAR_0x8004, VAR_0x8005
specialvar VAR_RESULT, BufferTMHMMoveName
goto_if_eq VAR_RESULT, TRUE, EventScript_FoundHiddenTMHM
goto_if_eq VAR_RESULT, FALSE, EventScript_FoundHiddenItem
end
EventScript_FoundHiddenTMHM::
bufferitemnameplural STR_VAR_1, VAR_0x8004, 1
message gText_PlayerFoundOneTMHM
goto EventScript_PutHiddenItemInPocket
end
EventScript_FoundHiddenItem::
message gText_PlayerFoundOneItem
goto EventScript_PutHiddenItemInPocket
end
EventScript_PutHiddenItemInPocket::
waitmessage
waitfanfare
bufferitemnameplural STR_VAR_2, VAR_0x8004, 1
copyvar VAR_0x8004, VAR_0x8008
msgbox gText_PutItemInPocket, MSGBOX_DEFAULT
special TryPutTreasureInvestigatorsOnAir
special SetHiddenItemFlag
releaseall
end
EventScript_NoRoomForHiddenItem::
msgbox gText_PlayerFoundOneItem, MSGBOX_DEFAULT
msgbox gText_TooBadBagIsFull, MSGBOX_DEFAULT
setvar VAR_RESULT, 0
releaseall
end

66
data/scripts/pc.inc Normal file
View File

@ -0,0 +1,66 @@
EventScript_PC::
lockall
setvar VAR_0x8004, 0
special DoPCTurnOnEffect
playse SE_PC_ON
msgbox Text_BootUpPC, MSGBOX_DEFAULT
goto EventScript_PCMainMenu
end
EventScript_PCMainMenu::
message gText_WhichPCShouldBeAccessed
waitmessage
special ScriptMenu_CreatePCMultichoice
waitstate
goto EventScript_AccessPC
end
EventScript_AccessPC::
switch VAR_RESULT
case 0, EventScript_AccessPokemonStorage
case 1, EventScript_AccessPlayersPC
case 2, EventScript_AccessHallOfFame
case 3, EventScript_TurnOffPC
case MULTI_B_PRESSED, EventScript_TurnOffPC
end
EventScript_AccessPlayersPC::
playse SE_PC_LOGIN
msgbox gText_AccessedPlayersPC, MSGBOX_DEFAULT
special PlayerPC
waitstate
goto EventScript_PCMainMenu
end
EventScript_AccessPokemonStorage::
playse SE_PC_LOGIN
call_if_unset FLAG_SYS_PC_LANETTE, EventScript_AccessSomeonesPC
call_if_set FLAG_SYS_PC_LANETTE, EventScript_AccessLanettesPC
msgbox gText_StorageSystemOpened, MSGBOX_DEFAULT
special ShowPokemonStorageSystemPC
waitstate
goto EventScript_PCMainMenu
end
EventScript_AccessSomeonesPC::
msgbox gText_AccessedSomeonesPC, MSGBOX_DEFAULT
return
EventScript_AccessLanettesPC::
msgbox gText_AccessedLanettesPC, MSGBOX_DEFAULT
return
EventScript_TurnOffPC::
setvar VAR_0x8004, 0
playse SE_PC_OFF
special DoPCTurnOffEffect
releaseall
end
EventScript_AccessHallOfFame::
goto_if_unset FLAG_SYS_GAME_CLEAR, EventScript_TurnOffPC
playse SE_PC_LOGIN
special AccessHallOfFamePC
waitstate
goto EventScript_AccessPC
end

View File

@ -0,0 +1,50 @@
@ VAR_0x8004 here is used by ChangePokemonNickname
Common_EventScript_GetGiftMonPartySlot::
getpartysize
subvar VAR_RESULT, 1
copyvar VAR_0x8004, VAR_RESULT
return
Common_EventScript_NameReceivedBoxMon::
fadescreen FADE_TO_BLACK
special ChangeBoxPokemonNickname
waitstate
lock
faceplayer
return
Common_EventScript_TransferredToPC::
bufferboxname STR_VAR_1, VAR_PC_BOX_TO_SEND_MON
bufferspeciesname STR_VAR_2, VAR_TEMP_1
call_if_unset FLAG_SYS_PC_LANETTE, EventScript_TransferredSomeonesPC
call_if_set FLAG_SYS_PC_LANETTE, EventScript_TransferredLanettesPC
return
EventScript_TransferredSomeonesPC::
specialvar VAR_RESULT, ShouldShowBoxWasFullMessage
goto_if_eq VAR_RESULT, TRUE, EventScript_SomeonesPCBoxFull
msgbox gText_PkmnTransferredSomeonesPC, MSGBOX_DEFAULT
return
EventScript_SomeonesPCBoxFull::
specialvar VAR_RESULT, GetPCBoxToSendMon
bufferboxname STR_VAR_3, VAR_RESULT
msgbox gText_PkmnTransferredSomeonesPCBoxFull, MSGBOX_DEFAULT
return
EventScript_TransferredLanettesPC::
specialvar VAR_RESULT, ShouldShowBoxWasFullMessage
goto_if_eq VAR_RESULT, TRUE, EventScript_LanettesPCBoxFull
msgbox gText_PkmnTransferredLanettesPC, MSGBOX_DEFAULT
return
EventScript_LanettesPCBoxFull::
specialvar VAR_RESULT, GetPCBoxToSendMon
bufferboxname STR_VAR_3, VAR_RESULT
msgbox gText_PkmnTransferredLanettesPCBoxFull, MSGBOX_DEFAULT
return
Common_EventScript_NoMoreRoomForPokemon::
msgbox gText_NoMoreRoomForPokemon, MSGBOX_DEFAULT
release
end

View File

@ -0,0 +1,119 @@
Common_EventScript_PkmnCenterNurse::
lock
faceplayer
setvar VAR_0x8004, 0
specialvar VAR_RESULT, CountPlayerTrainerStars
goto_if_eq VAR_RESULT, 4, EventScript_PkmnCenterNurse_GoldCard
goto EventScript_PkmnCenterNurse_HealPkmn
end
EventScript_PkmnCenterNurse_Goodbye::
return
@ VAR_0x8004 is 1 when player has Gold Card; jumps are identical
EventScript_PkmnCenterNurse_HealPkmn::
incrementgamestat GAME_STAT_USED_POKECENTER
call EventScript_PkmnCenterNurse_IllTakeYourPkmn
waitmessage
call EventScript_PkmnCenterNurse_TakeAndHealPkmn
goto_if_unset FLAG_POKERUS_EXPLAINED, EventScript_PkmnCenterNurse_CheckPokerus
goto EventScript_PkmnCenterNurse_CheckTrainerHillAndUnionRoom
end
EventScript_PkmnCenterNurse_IllTakeYourPkmn::
return
EventScript_PkmnCenterNurse_IllTakeYourPkmn2::
return
EventScript_PkmnCenterNurse_TakeAndHealPkmn::
applymovement VAR_0x800B, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
dofieldeffect FLDEFF_POKECENTER_HEAL
waitfieldeffect FLDEFF_POKECENTER_HEAL
applymovement VAR_0x800B, Common_Movement_WalkInPlaceFasterDown
waitmovement 0
special HealPlayerParty
return
EventScript_PkmnCenterNurse_CheckTrainerHillAndUnionRoom::
specialvar VAR_RESULT, PlayerNotAtTrainerHillEntrance
goto_if_eq VAR_RESULT, 0, EventScript_PkmnCenterNurse_ReturnPkmn
specialvar VAR_RESULT, BufferUnionRoomPlayerName
copyvar VAR_0x8008, VAR_RESULT
goto_if_eq VAR_0x8008, 0, EventScript_PkmnCenterNurse_ReturnPkmn
goto_if_eq VAR_0x8008, 1, EventScript_PkmnCenterNurse_PlayerWaitingInUnionRoom
end
@ VAR_0x8004 is 1 when player has Gold Card
EventScript_PkmnCenterNurse_ReturnPkmn::
goto_if_eq VAR_0x8004, 1, EventScript_PkmnCenterNurse_ReturnPkmn2
applymovement VAR_0x800B, Movement_PkmnCenterNurse_Bow
waitmovement 0
goto EventScript_PkmnCenterNurse_PlayerTurn
return
EventScript_PkmnCenterNurse_ReturnPkmn2:: @ unreferenced and unused in tumbledemerald, as it's identical to EventScript_PkmnCenterNurse_ReturnPkmn.
message gText_ThankYouForWaiting
waitmessage
applymovement VAR_0x800B, Movement_PkmnCenterNurse_Bow
waitmovement 0
goto EventScript_PkmnCenterNurse_PlayerTurn
return
EventScript_PkmnCenterNurse_PlayerWaitingInUnionRoom::
goto_if_set FLAG_NURSE_UNION_ROOM_REMINDER, EventScript_PkmnCenterNurse_ReturnPkmn
msgbox gText_RestoredPkmnToFullHealth, MSGBOX_DEFAULT
setflag FLAG_NURSE_UNION_ROOM_REMINDER
message CableClub_Text_PlayerIsWaiting
waitmessage
applymovement VAR_0x800B, Movement_PkmnCenterNurse_Bow
waitmovement 0
message gText_WeHopeToSeeYouAgain
return
EventScript_PkmnCenterNurse_CheckPokerus::
specialvar VAR_RESULT, IsPokerusInParty
goto_if_eq VAR_RESULT, TRUE, EventScript_PkmnCenterNurse_ExplainPokerus
goto_if_eq VAR_RESULT, FALSE, EventScript_PkmnCenterNurse_CheckTrainerHillAndUnionRoom
end
EventScript_PkmnCenterNurse_ExplainPokerus::
message gText_PokerusExplanation
setflag FLAG_POKERUS_EXPLAINED
return
EventScript_PkmnCenterNurse_GoldCard::
goto_if_set FLAG_NURSE_MENTIONS_GOLD_CARD, EventScript_PkmnCenterNurse_AskForUsual
setflag FLAG_NURSE_MENTIONS_GOLD_CARD
playse SE_PIN
applymovement VAR_0x800B, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_0x800B, Common_Movement_Delay48
waitmovement 0
msgbox gText_NoticesGoldCard, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, EventScript_PkmnCenterNurse_GoldCardHealPkmn
return
EventScript_PkmnCenterNurse_AskForUsual::
msgbox gText_YouWantTheUsual, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, EventScript_PkmnCenterNurse_GoldCardHealPkmn
return
EventScript_PkmnCenterNurse_GoldCardHealPkmn::
setvar VAR_0x8004, 1
goto EventScript_PkmnCenterNurse_HealPkmn
end
Movement_PkmnCenterNurse_Bow:
nurse_joy_bow
delay_4
step_end
EventScript_PkmnCenterNurse_PlayerTurn::
closemessage
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_FaceDown
waitmovement 0
release
end

View File

@ -0,0 +1,680 @@
@ Local IDs are the same for both players houses
.set LOCALID_MOM, 1
.set LOCALID_DAD, 5
.set LOCALID_MOM_2F, 14
PlayersHouse_2F_EventScript_BlockStairsUntilClockIsSet::
setvar VAR_LITTLEROOT_INTRO_STATE, 5
return
PlayersHouse_1F_EventScript_EnterHouseMovingIn::
msgbox PlayersHouse_1F_Text_IsntItNiceInHere, MSGBOX_DEFAULT
applymovement VAR_0x8004, Common_Movement_FacePlayer
waitmovement 0
call_if_eq VAR_0x8005, MALE, PlayersHouse_1F_EventScript_MomFacePlayerMovingInMale
call_if_eq VAR_0x8005, FEMALE, PlayersHouse_1F_EventScript_MomFacePlayerMovingInFemale
msgbox PlayersHouse_1F_Text_MoversPokemonGoSetClock, MSGBOX_DEFAULT
closemessage
setvar VAR_LITTLEROOT_INTRO_STATE, 4
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerWalkIn
applymovement VAR_0x8004, Common_Movement_WalkInPlaceFasterUp
waitmovement 0
releaseall
end
PlayersHouse_1F_EventScript_MomFacePlayerMovingInMale::
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
return
PlayersHouse_1F_EventScript_MomFacePlayerMovingInFemale::
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
PlayersHouse_1F_Movement_PlayerWalkIn:
walk_up
step_end
PlayersHouse_1F_EventScript_MomGoSeeRoom::
msgbox PlayersHouse_1F_Text_ArentYouInterestedInRoom, MSGBOX_DEFAULT
closemessage
applymovement VAR_0x8004, Common_Movement_WalkInPlaceFasterUp
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_MovePlayerAwayFromDoor
waitmovement 0
releaseall
end
LittlerootTown_BrendansHouse_2F_EventScript_WallClock::
lockall
setvar VAR_0x8004, MALE
goto PlayersHouse_2F_EventScript_WallClock
end
LittlerootTown_MaysHouse_2F_EventScript_WallClock::
lockall
setvar VAR_0x8004, FEMALE
goto PlayersHouse_2F_EventScript_WallClock
end
PlayersHouse_2F_EventScript_WallClock::
goto_if_set FLAG_SET_WALL_CLOCK, PlayersHouse_2F_EventScript_CheckWallClock
msgbox PlayersHouse_2F_Text_ClockIsStopped, MSGBOX_DEFAULT
call PlayersHouse_2F_EventScript_SetWallClock
delay 30
setvar VAR_LITTLEROOT_INTRO_STATE, 6
setflag FLAG_SET_WALL_CLOCK
setflag FLAG_HIDE_LITTLEROOT_TOWN_PLAYERS_HOUSE_VIGOROTH_1
setflag FLAG_HIDE_LITTLEROOT_TOWN_PLAYERS_HOUSE_VIGOROTH_2
checkplayergender
call_if_eq VAR_RESULT, MALE, PlayersHouse_2F_EventScript_MomComesUpstairsMale
call_if_eq VAR_RESULT, FEMALE, PlayersHouse_2F_EventScript_MomComesUpstairsFemale
playse SE_EXIT
removeobject VAR_0x8008
releaseall
end
PlayersHouse_2F_EventScript_MomComesUpstairsMale::
setvar VAR_0x8008, LOCALID_MOM_2F
addobject VAR_0x8008
applymovement VAR_0x8008, PlayersHouse_2F_Movement_MomEntersMale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
msgbox PlayersHouse_2F_Text_HowDoYouLikeYourRoom, MSGBOX_DEFAULT
closemessage
applymovement VAR_0x8008, PlayersHouse_2F_Movement_MomExitsMale
waitmovement 0
return
PlayersHouse_2F_EventScript_MomComesUpstairsFemale::
setvar VAR_0x8008, LOCALID_MOM_2F
addobject VAR_0x8008
applymovement VAR_0x8008, PlayersHouse_2F_Movement_MomEntersFemale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
msgbox PlayersHouse_2F_Text_HowDoYouLikeYourRoom, MSGBOX_DEFAULT
closemessage
applymovement VAR_0x8008, PlayersHouse_2F_Movement_MomExitsFemale
waitmovement 0
return
PlayersHouse_2F_EventScript_CheckWallClock::
incrementgamestat GAME_STAT_CHECKED_CLOCK
fadescreen FADE_TO_BLACK
special Special_ViewWallClock
waitstate
releaseall
end
PlayersHouse_2F_EventScript_SetWallClock::
fadescreen FADE_TO_BLACK
special StartWallClock
waitstate
return
PlayersHouse_2F_Movement_MomEntersMale:
delay_8
walk_down
walk_in_place_faster_left
delay_16
delay_8
walk_left
step_end
PlayersHouse_2F_Movement_MomExitsMale:
walk_right
walk_up
delay_8
step_end
PlayersHouse_2F_Movement_MomEntersFemale:
delay_8
walk_down
walk_in_place_faster_right
delay_16
delay_8
walk_right
step_end
PlayersHouse_2F_Movement_MomExitsFemale:
walk_left
walk_up
delay_8
step_end
PlayersHouse_1F_EventScript_SetWatchedBroadcast::
setvar VAR_LITTLEROOT_INTRO_STATE, 7
releaseall
end
PlayersHouse_1F_EventScript_PetalburgGymReportMale::
applymovement VAR_0x8005, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
call PlayersHouse_1F_EventScript_MomNoticeGymBroadcast
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerApproachTVForGymMale
waitmovement 0
playbgm MUS_ENCOUNTER_INTERVIEWER, FALSE
msgbox PlayersHouse_1F_Text_MaybeDadWillBeOn, MSGBOX_DEFAULT
closemessage
applymovement VAR_0x8005, PlayersHouse_1F_Movement_MomMakeRoomToSeeTVMale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerMoveToTVMale
waitmovement 0
call PlayersHouse_1F_EventScript_WatchGymBroadcast
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
msgbox PlayersHouse_1F_Text_ItsOverWeMissedHim, MSGBOX_DEFAULT
msgbox PlayersHouse_1F_Text_GoIntroduceYourselfNextDoor, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_1, 1
applymovement VAR_0x8005, PlayersHouse_1F_Movement_MomReturnToSeatMale
waitmovement 0
goto PlayersHouse_1F_EventScript_SetWatchedBroadcast
end
PlayersHouse_1F_EventScript_PetalburgGymReportFemale::
applymovement VAR_0x8005, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
call PlayersHouse_1F_EventScript_MomNoticeGymBroadcast
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerApproachTVForGymFemale
waitmovement 0
playbgm MUS_ENCOUNTER_INTERVIEWER, FALSE
msgbox PlayersHouse_1F_Text_MaybeDadWillBeOn, MSGBOX_DEFAULT
closemessage
applymovement VAR_0x8005, PlayersHouse_1F_Movement_MomMakeRoomToSeeTVFemale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerMoveToTVFemale
waitmovement 0
call PlayersHouse_1F_EventScript_WatchGymBroadcast
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
msgbox PlayersHouse_1F_Text_ItsOverWeMissedHim, MSGBOX_DEFAULT
msgbox PlayersHouse_1F_Text_GoIntroduceYourselfNextDoor, MSGBOX_DEFAULT
closemessage
setvar VAR_TEMP_1, 1
applymovement VAR_0x8005, PlayersHouse_1F_Movement_MomReturnToSeatFemale
waitmovement 0
goto PlayersHouse_1F_EventScript_SetWatchedBroadcast
end
PlayersHouse_1F_EventScript_MomNoticeGymBroadcast::
playse SE_PIN
applymovement VAR_0x8005, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_0x8005, Common_Movement_Delay48
waitmovement 0
msgbox PlayersHouse_1F_Text_OhComeQuickly, MSGBOX_DEFAULT
closemessage
return
PlayersHouse_1F_EventScript_WatchGymBroadcast::
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterUp
waitmovement 0
msgbox PlayersHouse_1F_Text_ReportFromPetalburgGym, MSGBOX_DEFAULT
fadedefaultbgm
special TurnOffTVScreen
setflag FLAG_SYS_TV_HOME
delay 35
return
PlayersHouse_1F_Movement_MomApproachDadMale:
walk_up
walk_right
walk_right
walk_right
walk_right
walk_down
walk_in_place_faster_right
step_end
PlayersHouse_1F_Movement_MomApproachDadFemale:
walk_up
walk_left
walk_left
walk_left
walk_left
walk_down
walk_in_place_faster_left
step_end
PlayersHouse_1F_Movement_MomApproachPlayerMale:
walk_right
step_end
PlayersHouse_1F_Movement_MomApproachPlayerFemale:
walk_left
step_end
PlayersHouse_1F_Movement_MomNoticesLatiBroadcastMale:
walk_in_place_faster_left
delay_16
delay_16
delay_16
delay_16
walk_in_place_faster_right
delay_16
delay_16
step_end
PlayersHouse_1F_Movement_MomNoticesLatiBroadcastFemale:
walk_in_place_faster_right
delay_16
delay_16
delay_16
delay_16
walk_in_place_faster_left
delay_16
delay_16
step_end
PlayersHouse_1F_Movement_MomApproachPlayerAfterTVMale:
walk_up
walk_left
walk_left
step_end
PlayersHouse_1F_Movement_MomApproachPlayerAfterTVFemale:
walk_up
walk_right
walk_right
step_end
PlayersHouse_1F_Movement_MomMakeRoomToSeeTVMale:
walk_left
walk_in_place_faster_right
step_end
PlayersHouse_1F_Movement_MomMakeRoomToSeeTVFemale:
walk_right
walk_in_place_faster_left
step_end
PlayersHouse_1F_Movement_MomReturnToSeatMale:
walk_left
walk_down
walk_in_place_faster_right
step_end
PlayersHouse_1F_Movement_MomReturnToSeatFemale:
walk_right
walk_down
walk_in_place_faster_left
step_end
PlayersHouse_1F_EventScript_Mom::
lock
faceplayer
goto_if_eq VAR_LITTLEROOT_HOUSES_STATE_MAY, 4, PlayersHouse_1F_EventScript_DontPushYourselfTooHard
goto_if_eq VAR_LITTLEROOT_HOUSES_STATE_BRENDAN, 4, PlayersHouse_1F_EventScript_DontPushYourselfTooHard
goto_if_set FLAG_HAS_MATCH_CALL, PlayersHouse_1F_EventScript_TryRegisterMom
goto_if_set FLAG_RESCUED_BIRCH, PlayersHouse_1F_EventScript_MomHealsParty
goto_if_eq VAR_TEMP_1, 1, PlayersHouse_1F_EventScript_SeeYouHoney
goto_if_eq VAR_LITTLEROOT_INTRO_STATE, 7, PlayersHouse_1F_EventScript_DidYouMeetProfBirch
msgbox PlayersHouse_1F_Text_IsntItNiceInHere, MSGBOX_DEFAULT
release
end
PlayersHouse_1F_EventScript_DontPushYourselfTooHard::
msgbox PlayersHouse_1F_Text_DontPushYourselfTooHard, MSGBOX_DEFAULT
release
end
PlayersHouse_1F_EventScript_TryRegisterMom::
goto_if_set FLAG_ENABLE_MOM_MATCH_CALL, PlayersHouse_1F_EventScript_CheckGiveAmuletCoin
msgbox PlayersHouse_1F_Text_IsThatAPokenav, MSGBOX_DEFAULT
closemessage
delay 30
playfanfare MUS_REGISTER_MATCH_CALL
msgbox PlayersHouse_1F_Text_RegisteredMom, MSGBOX_DEFAULT
waitfanfare
closemessage
delay 30
setflag FLAG_ENABLE_MOM_MATCH_CALL
release
end
PlayersHouse_1F_EventScript_CheckGiveAmuletCoin::
goto_if_set FLAG_BADGE05_GET, PlayersHouse_1F_EventScript_TryGiveAmuletCoin
goto PlayersHouse_1F_EventScript_MomHealsParty
PlayersHouse_1F_EventScript_TryGiveAmuletCoin::
goto_if_set FLAG_RECEIVED_AMULET_COIN, PlayersHouse_1F_EventScript_MomHealsParty
msgbox PlayersHouse_1F_Text_GotDadsBadgeHeresSomethingFromMom, MSGBOX_DEFAULT
giveitem ITEM_AMULET_COIN
goto_if_eq VAR_RESULT, FALSE, Common_EventScript_ShowBagIsFull
msgbox PlayersHouse_1F_Text_DontPushYourselfTooHard, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_AMULET_COIN
release
end
PlayersHouse_1F_EventScript_MomHealsParty::
msgbox PlayersHouse_1F_Text_YouShouldRestABit, MSGBOX_DEFAULT
goto PlayersHouse_1F_EventScript_HealParty
end
PlayersHouse_1F_EventScript_SeeYouHoney::
msgbox PlayersHouse_1F_Text_SeeYouHoney, MSGBOX_DEFAULT
release
end
PlayersHouse_1F_EventScript_HealParty::
closemessage
call Common_EventScript_OutOfCenterPartyHeal
incrementgamestat GAME_STAT_RESTED_AT_HOME
msgbox PlayersHouse_1F_Text_TakeCareHoney, MSGBOX_DEFAULT
release
end
PlayersHouse_1F_EventScript_DidYouMeetProfBirch::
msgbox PlayersHouse_1F_Text_DidYouMeetProfBirch, MSGBOX_DEFAULT
release
end
PlayersHouse_1F_EventScript_Vigoroth1::
lock
faceplayer
waitse
playmoncry SPECIES_VIGOROTH, CRY_MODE_NORMAL
msgbox PlayersHouse_1F_Text_Vigoroth1, MSGBOX_DEFAULT
waitmoncry
release
end
PlayersHouse_1F_EventScript_Vigoroth2::
lock
faceplayer
waitse
playmoncry SPECIES_VIGOROTH, CRY_MODE_NORMAL
msgbox PlayersHouse_1F_Text_Vigoroth2, MSGBOX_DEFAULT
waitmoncry
release
end
PlayersHouse_1F_Movement_PlayerApproachTVForGymMale:
walk_down
walk_down
walk_left
walk_left
walk_left
step_end
PlayersHouse_1F_Movement_PlayerMoveToTVMale:
walk_left
step_end
PlayersHouse_1F_Movement_PlayerApproachTVForGymFemale:
walk_down
walk_down
walk_right
walk_right
walk_right
step_end
PlayersHouse_1F_Movement_PlayerMoveToTVFemale:
walk_right
step_end
PlayersHouse_1F_Movement_MovePlayerAwayFromDoor:
walk_up
step_end
PlayersHouse_1F_EventScript_GetSSTicketAndSeeLatiTV::
lockall
checkplayergender
call_if_eq VAR_RESULT, MALE, PlayersHouse_1F_EventScript_SetUpObjectEventVarsMale
call_if_eq VAR_RESULT, FEMALE, PlayersHouse_1F_EventScript_SetUpObjectEventVarsFemale
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_PlayerEnterRoomMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_PlayerEnterRoomFemale
applymovement VAR_0x8009, Common_Movement_FacePlayer
waitmovement 0
playse SE_PIN
applymovement VAR_0x8009, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_0x8009, Common_Movement_Delay48
waitmovement 0
delay 20
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_DadApproachPlayerMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_DadApproachPlayerFemale
msgbox PlayersHouse_1F_Text_TicketFromBrineyCameForYou, MSGBOX_DEFAULT
giveitem ITEM_SS_TICKET
msgbox PlayersHouse_1F_Text_PortsInSlateportLilycove, MSGBOX_DEFAULT
closemessage
delay 20
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_MomApproachDadMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_MomApproachDadFemale
msgbox PlayersHouse_1F_Text_BetterGetBackToGym, MSGBOX_DEFAULT
closemessage
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_DadExitsMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_DadExitsFemale
playse SE_DOOR
removeobject VAR_0x8009
setflag FLAG_RECEIVED_SS_TICKET
delay 30
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_MomApproachPlayerMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_MomApproachPlayerFemale
delay 20
msgbox PlayersHouse_1F_Text_DadShouldStayLonger, MSGBOX_DEFAULT
closemessage
setflag FLAG_SYS_TV_LATIAS_LATIOS
special TurnOnTVScreen
delay 60
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_MomNoticesLatiBroadcastMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_MomNoticesLatiBroadcastFemale
msgbox PlayersHouse_1F_Text_IsThatABreakingStory, MSGBOX_DEFAULT
closemessage
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_PlayerApproachTVForLatiMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_PlayerApproachTVForLatiFemale
msgbox PlayersHouse_1F_Text_LatiEmergencyNewsFlash, MSGBOX_DEFAULT
closemessage
clearflag FLAG_SYS_TV_LATIAS_LATIOS
setflag FLAG_LATIOS_OR_LATIAS_ROAMING
special TurnOffTVScreen
call_if_eq VAR_0x8008, MALE, PlayersHouse_1F_EventScript_MomApproachPlayerAfterTVMale
call_if_eq VAR_0x8008, FEMALE, PlayersHouse_1F_EventScript_MomApproachPlayerAfterTVFemale
msgbox PlayersHouse_1F_Text_WhatColorDidTheySay, MSGBOX_DEFAULT
multichoice 22, 8, MULTI_TV_LATI, TRUE
copyvar VAR_0x8004, VAR_RESULT
special InitRoamer
copyvar VAR_ROAMER_POKEMON, VAR_RESULT
msgbox PlayersHouse_1F_Text_StillUnknownPokemon, MSGBOX_DEFAULT
closemessage
setvar VAR_LITTLEROOT_HOUSES_STATE_MAY, 4
setvar VAR_LITTLEROOT_HOUSES_STATE_BRENDAN, 4
releaseall
end
@ Never called.
PlayersHouse_1F_EventScript_AirLatiBroadcast::
setflag FLAG_SYS_TV_LATIAS_LATIOS
return
PlayersHouse_1F_EventScript_SetUpObjectEventVarsMale::
setvar VAR_0x8008, MALE
setvar VAR_0x8009, LOCALID_DAD
setvar VAR_0x800A, LOCALID_MOM
return
PlayersHouse_1F_EventScript_SetUpObjectEventVarsFemale::
setvar VAR_0x8008, FEMALE
setvar VAR_0x8009, LOCALID_DAD
setvar VAR_0x800A, LOCALID_MOM
return
PlayersHouse_1F_EventScript_DadApproachPlayerMale::
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadApproachPlayerMale
waitmovement 0
return
PlayersHouse_1F_EventScript_DadApproachPlayerFemale::
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadApproachPlayerFemale
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachDadMale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachDadMale
waitmovement 0
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadFaceMomMale
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachDadFemale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachDadFemale
waitmovement 0
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadFaceMomFemale
waitmovement 0
return
PlayersHouse_1F_EventScript_DadExitsMale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_MomAndPlayerWatchDadExit
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomAndPlayerWatchDadExit
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadExitsMale
waitmovement 0
return
PlayersHouse_1F_EventScript_DadExitsFemale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_MomAndPlayerWatchDadExit
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomAndPlayerWatchDadExit
applymovement VAR_0x8009, PlayersHouse_1F_Movement_DadExitsFemale
waitmovement 0
return
PlayersHouse_1F_EventScript_PlayerEnterRoomMale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerEnterRoomMale
waitmovement 0
return
PlayersHouse_1F_EventScript_PlayerEnterRoomFemale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerEnterRoomFemale
waitmovement 0
return
PlayersHouse_1F_EventScript_PlayerApproachTVForLatiMale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerApproachTVForLatiMale
waitmovement 0
applymovement VAR_0x800A, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
PlayersHouse_1F_EventScript_PlayerApproachTVForLatiFemale::
applymovement OBJ_EVENT_ID_PLAYER, PlayersHouse_1F_Movement_PlayerApproachTVForLatiFemale
waitmovement 0
applymovement VAR_0x800A, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachPlayerMale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachPlayerMale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachPlayerFemale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachPlayerFemale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
return
PlayersHouse_1F_EventScript_MomNoticesLatiBroadcastMale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomNoticesLatiBroadcastMale
waitmovement 0
return
PlayersHouse_1F_EventScript_MomNoticesLatiBroadcastFemale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomNoticesLatiBroadcastFemale
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachPlayerAfterTVMale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachPlayerAfterTVMale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterRight
waitmovement 0
return
PlayersHouse_1F_EventScript_MomApproachPlayerAfterTVFemale::
applymovement VAR_0x800A, PlayersHouse_1F_Movement_MomApproachPlayerAfterTVFemale
waitmovement 0
applymovement OBJ_EVENT_ID_PLAYER, Common_Movement_WalkInPlaceFasterLeft
waitmovement 0
return
PlayersHouse_1F_Movement_DadApproachPlayerMale:
walk_right
walk_right
step_end
PlayersHouse_1F_Movement_DadApproachPlayerFemale:
walk_left
walk_left
step_end
PlayersHouse_1F_Movement_DadFaceMomMale:
face_left
step_end
PlayersHouse_1F_Movement_DadFaceMomFemale:
face_right
step_end
PlayersHouse_1F_Movement_DadExitsMale:
walk_down
walk_right
walk_down
delay_8
step_end
PlayersHouse_1F_Movement_DadExitsFemale:
walk_down
walk_left
walk_down
delay_8
step_end
PlayersHouse_1F_Movement_PlayerEnterRoomMale:
delay_16
walk_down
walk_down
walk_down
walk_in_place_faster_left
step_end
PlayersHouse_1F_Movement_MomAndPlayerWatchDadExit:
delay_8
delay_16
delay_16
walk_in_place_faster_down
step_end
PlayersHouse_1F_Movement_PlayerEnterRoomFemale:
delay_16
walk_down
walk_down
walk_down
walk_in_place_faster_right
step_end
PlayersHouse_1F_Movement_PlayerApproachTVForLatiMale:
walk_up
walk_left
walk_left
walk_left
walk_left
walk_in_place_faster_up
step_end
PlayersHouse_1F_Movement_PlayerApproachTVForLatiFemale:
walk_up
walk_right
walk_right
walk_right
walk_right
walk_in_place_faster_up
step_end
EventScript_RunningShoesManual::
msgbox PlayersHouse_1F_Text_RunningShoesManual, MSGBOX_SIGN
end

View File

@ -0,0 +1,78 @@
ProfBirch_EventScript_UpdateLocation::
goto_if_eq VAR_PETALBURG_GYM_STATE, 0, Common_EventScript_NopReturn
goto_if_set FLAG_SYS_GAME_CLEAR, ProfBirch_EventScript_MoveToLab
call_if_eq VAR_BIRCH_STATE, 0, ProfBirch_EventScript_MoveToLab
call_if_eq VAR_BIRCH_STATE, 1, ProfBirch_EventScript_MoveToLab
call_if_eq VAR_BIRCH_STATE, 2, ProfBirch_EventScript_MoveToRoute101
call_if_eq VAR_BIRCH_STATE, 3, ProfBirch_EventScript_MoveToRoute101
call_if_eq VAR_BIRCH_STATE, 4, ProfBirch_EventScript_MoveToRoute103
call_if_eq VAR_BIRCH_STATE, 5, ProfBirch_EventScript_MoveToRoute103
call_if_eq VAR_BIRCH_STATE, 6, ProfBirch_EventScript_MoveToLab
call_if_eq VAR_BIRCH_STATE, 7, ProfBirch_EventScript_MoveToLab
return
ProfBirch_EventScript_MoveToLab::
clearflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_BIRCH
clearflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_UNKNOWN_0x380
setflag FLAG_HIDE_ROUTE_101_BIRCH
setflag FLAG_HIDE_ROUTE_103_BIRCH
return
ProfBirch_EventScript_MoveToRoute101::
clearflag FLAG_HIDE_ROUTE_101_BIRCH
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_BIRCH
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_UNKNOWN_0x380
setflag FLAG_HIDE_ROUTE_103_BIRCH
return
ProfBirch_EventScript_MoveToRoute103::
clearflag FLAG_HIDE_ROUTE_103_BIRCH
setflag FLAG_HIDE_ROUTE_101_BIRCH
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_BIRCH
setflag FLAG_HIDE_LITTLEROOT_TOWN_BIRCHS_LAB_UNKNOWN_0x380
return
ProfBirch_EventScript_RatePokedexOrRegister::
lock
faceplayer
goto_if_unset FLAG_HAS_MATCH_CALL, ProfBirch_EventScript_AskRatePokedex
goto_if_unset FLAG_ENABLE_PROF_BIRCH_MATCH_CALL, EventScript_RegisterProfBirch
ProfBirch_EventScript_AskRatePokedex::
msgbox gBirchDexRatingText_AreYouCurious, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, ProfBirch_EventScript_DeclineRating
call ProfBirch_EventScript_RatePokedex
release
end
ProfBirch_EventScript_DeclineRating::
msgbox gBirchDexRatingText_Cancel, MSGBOX_DEFAULT
release
end
ProfBirch_EventScript_ShowRatingMessage::
copyvar VAR_0x8004, VAR_0x8009
special ShowPokedexRatingMessage
waitmessage
waitbuttonpress
return
ProfBirch_EventScript_RatePokedex::
setvar VAR_0x8004, 0
specialvar VAR_RESULT, ScriptGetPokedexInfo
copyvar VAR_0x8008, VAR_0x8005
copyvar VAR_0x8009, VAR_0x8006
copyvar VAR_0x800A, VAR_RESULT
buffernumberstring STR_VAR_1, VAR_0x8008 @ Num Hoenn seen
buffernumberstring STR_VAR_2, VAR_0x8009 @ Num Hoenn caught
msgbox gBirchDexRatingText_SoYouveSeenAndCaught, MSGBOX_DEFAULT
call ProfBirch_EventScript_ShowRatingMessage
goto_if_eq VAR_0x800A, 0, Common_EventScript_NopReturn @ National dex not enabled
setvar VAR_0x8004, 1
specialvar VAR_RESULT, ScriptGetPokedexInfo
copyvar VAR_0x8008, VAR_0x8005
copyvar VAR_0x8009, VAR_0x8006
buffernumberstring STR_VAR_1, VAR_0x8008 @ Num National seen
buffernumberstring STR_VAR_2, VAR_0x8009 @ Num National caught
msgbox gBirchDexRatingText_OnANationwideBasis, MSGBOX_DEFAULT
return

View File

@ -0,0 +1,166 @@
ProfileMan_EventScript_Man::
lock
faceplayer
goto_if_set FLAG_SYS_CHAT_USED, ProfileMan_EventScript_GivenProfileBefore
msgbox ProfileMan_Text_CollectTrainerProfiles, MSGBOX_DEFAULT
goto ProfileMan_EventScript_AskToSeeProfile
end
ProfileMan_EventScript_AskToSeeProfile::
msgbox ProfileMan_Text_MayISeeYourProfile, MSGBOX_DEFAULT
multichoice 17, 6, MULTI_YESNOINFO_2, FALSE
switch VAR_RESULT
case 0, ProfileMan_EventScript_CreateProfile
case 1, ProfileMan_EventScript_DeclineShowProfile
case 2, ProfileMan_EventScript_Info
case MULTI_B_PRESSED, ProfileMan_EventScript_DeclineShowProfile
end
ProfileMan_EventScript_Info::
msgbox ProfileMan_Text_EasyChatExplanation, MSGBOX_DEFAULT
goto ProfileMan_EventScript_AskToSeeProfile
end
ProfileMan_EventScript_CreateProfile::
msgbox ProfileMan_Text_LetsSeeItThen, MSGBOX_DEFAULT
closemessage
setvar VAR_0x8004, EASY_CHAT_TYPE_PROFILE
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, ProfileMan_EventScript_CancelShowProfile
goto_if_eq VAR_RESULT, 1, ProfileMan_EventScript_ShowProfile
end
ProfileMan_EventScript_CancelShowProfile::
msgbox ProfileMan_Text_NotIntoItRightNow, MSGBOX_DEFAULT
release
end
ProfileMan_EventScript_ShowProfile::
setvar VAR_0x8004, 0
special ShowEasyChatProfile
waitmessage
delay 80
msgbox ProfileMan_Text_FantasticProfile, MSGBOX_DEFAULT
release
end
ProfileMan_EventScript_DeclineShowProfile::
msgbox ProfileMan_Text_ImagineYouWouldHaveWonderfulProfile, MSGBOX_DEFAULT
release
end
ProfileMan_EventScript_GivenProfileBefore::
msgbox ProfileMan_Text_YouHaveWonderfulSmile, MSGBOX_DEFAULT
goto ProfileMan_EventScript_AskToSeeNewProfile
end
ProfileMan_EventScript_AskToSeeNewProfile::
msgbox ProfileMan_Text_MayISeeYourNewProfile, MSGBOX_DEFAULT
multichoice 17, 6, MULTI_YESNOINFO_2, FALSE
switch VAR_RESULT
case 0, ProfileMan_EventScript_CreateNewProfile
case 1, ProfileMan_EventScript_DeclineNewProfile
case 2, ProfileMan_EventScript_InfoNewProfile
case MULTI_B_PRESSED, ProfileMan_EventScript_DeclineNewProfile
end
ProfileMan_EventScript_InfoNewProfile::
msgbox ProfileMan_Text_EasyChatExplanation, MSGBOX_DEFAULT
goto ProfileMan_EventScript_AskToSeeNewProfile
end
ProfileMan_EventScript_CreateNewProfile::
msgbox ProfileMan_Text_EvenBetterThanLastProfile, MSGBOX_DEFAULT
closemessage
setvar VAR_0x8004, EASY_CHAT_TYPE_PROFILE
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_RESULT, 0, ProfileMan_EventScript_CancelShowProfile
goto_if_eq VAR_RESULT, 1, ProfileMan_EventScript_ShowProfile
end
ProfileMan_EventScript_DeclineNewProfile::
msgbox ProfileMan_Text_LikeProfileWayItIs, MSGBOX_DEFAULT
release
end
@ Unused
ProfileMan_EventScript_Ret::
return
ProfileMan_Text_CollectTrainerProfiles:
.string "Hello there, TRAINER!\n"
.string "You've got a wonderful smile, there.\p"
.string "I have a hobby--collecting the profiles\n"
.string "of POKéMON TRAINERS.$"
ProfileMan_Text_MayISeeYourProfile:
.string "So, how about it?\n"
.string "May I see your profile?$"
ProfileMan_Text_EasyChatExplanation:
.string "You make your own profile by putting\n"
.string "together four words or phrases.\p"
.string "Here, I'll show you an example of a\n"
.string "profile using four pieces of text.\p"
.string "You can switch those four pieces with\n"
.string "other text pieces any which way you\l"
.string "like to make your own profile.\p"
.string "There are a lot of text pieces that\n"
.string "you can use.\p"
.string "They are arranged in groups like\n"
.string "POKéMON, lifestyles, and hobbies so\l"
.string "it is easier to look them up.\p"
.string "So, first, choose the group of text\n"
.string "pieces to display a list of choices.\p"
.string "Then, pick the choice you want.\p"
.string "Repeat for the remaining text choices,\n"
.string "and you'll have your very own profile.$"
ProfileMan_Text_LetsSeeItThen:
.string "Yes! Thank you!\n"
.string "So, let's see it, then.$"
ProfileMan_Text_ImagineYouWouldHaveWonderfulProfile:
.string "Oh, no, really?\p"
.string "I imagine someone like you would have\n"
.string "a wonderful profile…$"
ProfileMan_Text_NotIntoItRightNow:
.string "Oh? You're not into it right now?\p"
.string "Well, anytime is good by me!$"
ProfileMan_Text_YouHaveWonderfulSmile:
.string "Hello there, TRAINER!\n"
.string "You've got a wonderful smile.$"
ProfileMan_Text_MayISeeYourNewProfile:
.string "May I see your new profile?$"
ProfileMan_Text_EvenBetterThanLastProfile:
.string "Yes! Thank you!\p"
.string "I hope it's even better than the profile\n"
.string "you showed me before.$"
ProfileMan_Text_LikeProfileWayItIs:
.string "Oh, you like your profile the way it is.\p"
.string "I don't blame you--it's a wonderful\n"
.string "profile the way it is now.$"
ProfileMan_Text_FantasticProfile:
.string "F-fantastic!\p"
.string "Your profile, it's wonderful!\n"
.string "It really says what you're about.\p"
.string "Why, anyone hearing this profile would\n"
.string "be captivated by you!\p"
.string "Thank you!$"
@ Unused
ProfileMan_Text_YouKnowSecretSaying:
.string "Oh?\n"
.string "You know the secret saying!\p"
.string "That means you're now a fellow member\n"
.string "of the MYSTERY EVENT CLUB!$"

View File

@ -0,0 +1,57 @@
EventScript_Questionnaire::
lockall
msgbox Questionnaire_Text_FillOut, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, Questionnaire_EventScript_Release
setvar VAR_0x8004, EASY_CHAT_TYPE_QUESTIONNAIRE
call Common_ShowEasyChatScreen
lock
faceplayer
specialvar VAR_0x8008, GetMartEmployeeObjectEventId
goto_if_eq VAR_0x8004, 1, Questionnaire_EventScript_PlayerInputMysteryEventPhrase
goto_if_eq VAR_0x8004, 2, Questionnaire_EventScript_PlayerInputMysteryGiftPhrase
goto_if_eq VAR_RESULT, 0, Questionnaire_EventScript_Release
goto_if_eq VAR_RESULT, 1, Questionnaire_EventScript_ThankYou
end
Questionnaire_EventScript_PlayerInputMysteryEventPhrase::
goto_if_unset FLAG_SYS_POKEDEX_GET, Questionnaire_EventScript_ThankYou
goto_if_set FLAG_SYS_MYSTERY_EVENT_ENABLE, Questionnaire_EventScript_ThankYou
applymovement VAR_0x8008, Common_Movement_FaceDown
waitmovement 0
playse SE_PIN
applymovement VAR_0x8008, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_0x8008, Common_Movement_Delay48
waitmovement 0
msgbox Questionnaire_Text_YouKnowThoseWordsEvent, MSGBOX_DEFAULT
setflag FLAG_SYS_MYSTERY_EVENT_ENABLE
msgbox Questionnaire_Text_YouCanAccessMysteryEvent, MSGBOX_DEFAULT
releaseall
end
Questionnaire_EventScript_PlayerInputMysteryGiftPhrase::
goto_if_unset FLAG_SYS_POKEDEX_GET, Questionnaire_EventScript_ThankYou
goto_if_set FLAG_SYS_MYSTERY_GIFT_ENABLE, Questionnaire_EventScript_ThankYou
applymovement VAR_0x8008, Common_Movement_FaceDown
waitmovement 0
playse SE_PIN
applymovement VAR_0x8008, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_0x8008, Common_Movement_Delay48
waitmovement 0
msgbox Questionnaire_Text_YouKnowThoseWordsGift, MSGBOX_DEFAULT
setflag FLAG_SYS_MYSTERY_GIFT_ENABLE
msgbox Questionnaire_Text_YouCanAccessMysteryGift, MSGBOX_DEFAULT
releaseall
end
Questionnaire_EventScript_Release::
releaseall
end
Questionnaire_EventScript_ThankYou::
applymovement VAR_0x8008, Common_Movement_FaceDown
waitmovement 0
msgbox Questionnaire_Text_ThankYou, MSGBOX_DEFAULT
releaseall
end

View File

@ -0,0 +1,20 @@
@ Seems this was superseded by the Record Center, and the below scripts are now unused
EventScript_MixRecordsPrompt::
lock
faceplayer
msgbox Text_WouldYouLikeToMixRecords, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, EventScript_MixRecords
goto_if_eq VAR_RESULT, NO, EventScript_EndMixRecords
goto EventScript_EndMixRecords
EventScript_MixRecords::
special RecordMixingPlayerSpotTriggered
waitstate
lock
faceplayer
EventScript_EndMixRecords::
message Text_WeHopeToSeeYouAgain
waitmessage
waitbuttonpress
release
end

31
data/scripts/repel.inc Normal file
View File

@ -0,0 +1,31 @@
EventScript_RepelWoreOff::
lockall
checkitem VAR_REPEL_LAST_USED, 1
compare VAR_RESULT, FALSE
goto_if_eq EventScript_RepelWoreOff_NoMoreRepels
msgbox Text_RepelWoreOff_UseAnother, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq EventScript_RepelWoreOff_ChooseNo
copyvar VAR_0x8004, VAR_REPEL_LAST_USED
callnative ItemId_GetHoldEffectParam_Script
copyvar VAR_REPEL_STEP_COUNT, VAR_RESULT
bufferitemname 1, VAR_REPEL_LAST_USED
removeitem VAR_REPEL_LAST_USED, 1
playse SE_REPEL
msgbox gText_PlayerUsedVar2, MSGBOX_SIGN
goto EventScript_RepelWoreOff_End
EventScript_RepelWoreOff_ChooseNo:
closemessage
goto EventScript_RepelWoreOff_End
EventScript_RepelWoreOff_NoMoreRepels:
msgbox Text_RepelWoreOff, MSGBOX_SIGN
EventScript_RepelWoreOff_End:
releaseall
end
Text_RepelWoreOff:
.string "REPEL's effect wore off…$"
Text_RepelWoreOff_UseAnother:
.string "REPEL's effect wore off…\n"
.string "Use another?$"

View File

@ -0,0 +1,42 @@
Common_EventScript_SetupRivalGfxId::
checkplayergender
goto_if_eq VAR_RESULT, MALE, EventScript_SetupRivalGfxIdFemale
goto_if_eq VAR_RESULT, FEMALE, EventScript_SetupRivalGfxIdMale
end
EventScript_SetupRivalGfxIdFemale::
setvar VAR_OBJ_GFX_ID_0, OBJ_EVENT_GFX_RIVAL_MAY_NORMAL
return
EventScript_SetupRivalGfxIdMale::
setvar VAR_OBJ_GFX_ID_0, OBJ_EVENT_GFX_RIVAL_BRENDAN_NORMAL
return
Common_EventScript_SetupRivalOnBikeGfxId::
checkplayergender
goto_if_eq VAR_RESULT, MALE, EventScript_SetupRivalOnBikeGfxIdFemale
goto_if_eq VAR_RESULT, FEMALE, EventScript_SetupRivalOnBikeGfxIdMale
end
EventScript_SetupRivalOnBikeGfxIdFemale::
setvar VAR_OBJ_GFX_ID_3, OBJ_EVENT_GFX_RIVAL_MAY_MACH_BIKE
return
EventScript_SetupRivalOnBikeGfxIdMale::
setvar VAR_OBJ_GFX_ID_3, OBJ_EVENT_GFX_RIVAL_BRENDAN_MACH_BIKE
return
@ Unused
Common_EventScript_SetupRivalGfxIdSameGender::
checkplayergender
goto_if_eq VAR_RESULT, MALE, EventScript_SetupRivalGfxIdMale2
goto_if_eq VAR_RESULT, FEMALE, EventScript_SetupRivalGfxIdFemale2
end
EventScript_SetupRivalGfxIdMale2::
setvar VAR_OBJ_GFX_ID_0, OBJ_EVENT_GFX_RIVAL_BRENDAN_NORMAL
return
EventScript_SetupRivalGfxIdFemale2::
setvar VAR_OBJ_GFX_ID_0, OBJ_EVENT_GFX_RIVAL_MAY_NORMAL
return

67
data/scripts/roulette.inc Normal file
View File

@ -0,0 +1,67 @@
Roulette_EventScript_Table1::
checkitem ITEM_COIN_CASE
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_GameCorner_EventScript_NoCoinCase
setvar VAR_0x8004, 0
getpokenewsactive POKENEWS_GAME_CORNER
goto_if_eq VAR_RESULT, FALSE, Roulette_EventScript_Play
addvar VAR_0x8004, ROULETTE_SPECIAL_RATE
goto Roulette_EventScript_Play
end
Roulette_EventScript_Table2::
checkitem ITEM_COIN_CASE
goto_if_eq VAR_RESULT, FALSE, MauvilleCity_GameCorner_EventScript_NoCoinCase
setvar VAR_0x8004, 1
getpokenewsactive POKENEWS_GAME_CORNER
goto_if_eq VAR_RESULT, FALSE, Roulette_EventScript_Play
addvar VAR_0x8004, ROULETTE_SPECIAL_RATE
goto Roulette_EventScript_Play
end
Roulette_EventScript_Play::
special PlayRoulette
waitstate
end
Roulette_Text_PlayMinimumWagerIsX::
.string "The minimum wager at this table\n"
.string "is {STR_VAR_1}. Do you want to play?$"
Roulette_Text_NotEnoughCoins::
.string "You don't have enough COINS.$"
Roulette_Text_SpecialRateTable::
.string "Special rate table right now!$"
Roulette_Text_ControlsInstruction::
.string "Place your wager with the + Control\n"
.string "Pad, then press the A Button.$"
Roulette_Text_ItsAHit::
.string "It's a hit!$"
Roulette_Text_Jackpot::
.string "Jackpot!$"
Roulette_Text_NothingDoing::
.string "Nothing doing!$"
Roulette_Text_YouveWonXCoins::
.string "You've won {STR_VAR_1} COINS!$"
Roulette_Text_NoCoinsLeft::
.string "No COINS left…$"
Roulette_Text_KeepPlaying::
.string "Keep playing?$"
Roulette_Text_BoardWillBeCleared::
.string "The ROULETTE board will be cleared.$"
@ Unused
Roulette_Text_YouDontHaveACoinCase::
.string "You don't have a COIN CASE.$"
Roulette_Text_CoinCaseIsFull::
.string "Your COIN CASE is full!\n"
.string "Coins can be exchanged for prizes.$"

View File

@ -0,0 +1,291 @@
SafariZone_EventScript_OutOfBallsMidBattle::
setvar VAR_SAFARI_ZONE_STATE, 1
special ExitSafariMode
setwarp MAP_ROUTE121_SAFARI_ZONE_ENTRANCE, 2, 5
end
SafariZone_EventScript_Exit::
setvar VAR_SAFARI_ZONE_STATE, 1
special ExitSafariMode
warp MAP_ROUTE121_SAFARI_ZONE_ENTRANCE, 2, 5
waitstate
end
SafariZone_EventScript_RetirePrompt::
lockall
msgbox SafariZone_Text_WouldYouLikeToExit, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SafariZone_EventScript_Retire
releaseall
end
SafariZone_EventScript_Retire::
goto SafariZone_EventScript_Exit
SafariZone_EventScript_TimesUp::
lockall
playse SE_DING_DONG
message SafariZone_Text_TimesUp
waitmessage
waitbuttonpress
releaseall
goto SafariZone_EventScript_Exit
SafariZone_EventScript_OutOfBalls::
lockall
playse SE_DING_DONG
message SafariZone_Text_OutOfBalls
waitmessage
waitbuttonpress
releaseall
goto SafariZone_EventScript_Exit
EventScript_PokeBlockFeeder::
lockall
special GetPokeblockFeederInFront
goto_if_ne VAR_RESULT, 0xFFFF, SafariZone_EventScript_PokeblockPresent
msgbox SafariZone_Text_PlacePokeblockOnFeeder, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SafariZone_EventScript_ChoosePokeblock
releaseall
end
SafariZone_EventScript_ChoosePokeblock::
fadescreen FADE_TO_BLACK
special OpenPokeblockCaseOnFeeder
waitstate
goto_if_ne VAR_RESULT, 0xFFFF, SafariZone_EventScript_PokeblockPlaced
end
SafariZone_EventScript_PokeblockPlaced::
message SafariZone_Text_PokeblockWasPlaced
waitmessage
waitbuttonpress
releaseall
end
SafariZone_EventScript_PokeblockPresent::
message SafariZone_Text_PokeblockStillHere
waitmessage
waitbuttonpress
releaseall
end
SafariZone_Text_WouldYouLikeToExit:
.string "Would you like to exit the SAFARI\n"
.string "ZONE right now?$"
SafariZone_Text_TimesUp:
.string "Ding-dong! Time's up!\n"
.string "Your SAFARI Game is over.$"
SafariZone_Text_OutOfBalls:
.string "You've run out of SAFARI BALLS.\n"
.string "Your SAFARI Game is over.$"
SafariZone_Text_PlacePokeblockOnFeeder:
.string "Would you like to place a {POKEBLOCK}\n"
.string "on the {POKEBLOCK} FEEDER?$"
SafariZone_Text_PokeblockStillHere:
.string "The {STR_VAR_1} you left\n"
.string "before is still here.$"
SafariZone_Text_PokeblockWasPlaced:
.string "The {STR_VAR_1} was placed\n"
.string "on the {POKEBLOCK} FEEDER.$"
Route121_SafariZoneEntrance_Text_WelcomeToSafariZone:
.string "Welcome to the SAFARI ZONE!\p"
.string "Here, you may witness many kinds of\n"
.string "POKéMON rarely seen in HOENN.\p"
.string "And, you'll see them in their wild,\n"
.string "untamed state in natural habitats.\p"
.string "What's more, we've thrown open the\n"
.string "gates to POKéMON TRAINERS.\p"
.string "You're encouraged to catch POKéMON\n"
.string "for keeps!\p"
.string "Come in and enjoy the SAFARI ZONE!$"
Route121_SafariZoneEntrance_Text_WelcomeFirstTime:
.string "Welcome to the SAFARI ZONE!\n"
.string "Is it your first time here?$"
Route121_SafariZoneEntrance_Text_ComeInAndEnjoy:
.string "Come in and enjoy the SAFARI ZONE!$"
Route121_SafariZoneEntrance_Text_FirstTimeInfo:
.string "When you enter the SAFARI ZONE, you\n"
.string "start with 30 SAFARI BALLS for\l"
.string "catching POKéMON.\p"
.string "The SAFARI Game is over when you run\n"
.string "out of SAFARI BALLS, or when you've\l"
.string "walked 500 steps.\p"
.string "Come in and enjoy the SAFARI ZONE!$"
Route121_SafariZoneEntrance_Text_WouldYouLikeToPlay:
.string "Welcome to the SAFARI ZONE!\p"
.string "All you can catch for just ¥500!\n"
.string "Would you like to play a SAFARI Game?$"
Route121_SafariZoneEntrance_Text_PlayAnotherTime:
.string "Okay.\n"
.string "Please play another time!$"
Route121_SafariZoneEntrance_Text_NotEnoughMoney:
.string "You don't have enough money.\n"
.string "Sorry.$"
Route121_SafariZoneEntrance_Text_ThatWillBe500Please:
.string "That will be ¥500, please.$"
Route121_SafariZoneEntrance_Text_HereAreYourSafariBalls:
.string "Here are your SAFARI BALLS.$"
Route121_SafariZoneEntrance_Text_Received30SafariBalls:
.string "{PLAYER} received 30 SAFARI BALLS.$"
Route121_SafariZoneEntrance_Text_PleaseEnjoyYourself:
.string "We'll let you know when your game\n"
.string "is over.\p"
.string "So, until then, enjoy yourself, please!\n"
.string "Off you go on your wild excursion!$"
Route121_SafariZoneEntrance_Text_PCIsFull:
.string "Excuse me!\n"
.string "Your PC BOX is full.$"
Route121_SafariZoneEntrance_Text_YouNeedPokeblockCase:
.string "Excuse me!\n"
.string "You seem to be without a {POKEBLOCK} CASE.\p"
.string "Your SAFARI Game will be much more\n"
.string "fruitful if you use {POKEBLOCK}S.\p"
.string "Please come back with a {POKEBLOCK} CASE.\p"
.string "You may obtain a {POKEBLOCK} CASE from\n"
.string "the LILYCOVE CONTEST HALL.$"
SafariZone_South_Text_StillHaveTimeExit:
.string "You still have time left. Would you like\n"
.string "to exit the SAFARI ZONE now?$"
SafariZone_South_Text_EnjoyTheRestOfYourAdventure:
.string "Please enjoy the rest of your wild\n"
.string "adventure!$"
SafariZone_South_Text_ExitEarlyThankYouForPlaying:
.string "Okay.\p"
.string "I'll take back your remaining SAFARI\n"
.string "BALLS.\p"
.string "Thank you for playing.\n"
.string "We hope to see you again.$"
SafariZone_South_Text_GoodLuck:
.string "Good luck!\p"
.string "If you need anything, don't hesitate\n"
.string "to tell me, please!$"
SafariZone_South_Text_Boy:
.string "Did you know?\p"
.string "If you put a {POKEBLOCK} in that square box,\n"
.string "POKéMON gather around.$"
SafariZone_South_Text_Man:
.string "I want to keep going deeper, but I\n"
.string "forgot to bring a BIKE.\p"
.string "Something tells me that rare POKéMON\n"
.string "live in the outlying areas.$"
SafariZone_Southwest_Text_Woman:
.string "Sometimes, when I toss a {POKEBLOCK} at \n"
.string "POKéMON, it gets ignored.\p"
.string "Do POKéMON have likes and dislikes\n"
.string "about what they eat?$"
SafariZone_Northwest_Text_Man:
.string "Gasp… Gasp…\n"
.string "I…made it out here…but…\p"
.string "I'm exhausted… I don't have the\n"
.string "energy to catch POKéMON…$"
SafariZone_North_Text_Fisherman:
.string "I'm on a mission to find WATER POKéMON\n"
.string "you don't see in HOENN.\p"
.string "Do you have any idea where the lake is?$"
SafariZone_North_Text_Man:
.string "I'm going to catch a lot of rare POKéMON\n"
.string "here and trade them with my friends!$"
SafariZone_South_Text_Youngster:
.string "I put a {POKEBLOCK} on the {POKEBLOCK} FEEDER.\n"
.string "But it seems to have disappeared.\p"
.string "I guess POKéMON must have eaten it\n"
.string "without me noticing.$"
Route121_SafariZoneEntrance_Text_TrainerTip:
.string "SAFARI ZONE TRAINER TIP!\p"
.string "Throw {POKEBLOCK}S at wild POKéMON to make\n"
.string "them less likely to flee.$"
SafariZone_Southwest_Text_RestHouseSign:
.string "“Relieve your tired feet.”\n"
.string "REST HOUSE$"
SafariZone_RestHouse_Text_Youngster:
.string "I don't have any {POKEBLOCK}S, but I caught\n"
.string "a good number of POKéMON.\p"
.string "You can improve your chances of making\n"
.string "a catch by getting closer to them\l"
.string "before throwing a SAFARI BALL.$"
SafariZone_RestHouse_Text_PsychicM:
.string "If you use {POKEBLOCK}S, wild POKéMON won't\n"
.string "be so quick to run away.\p"
.string "It's not much use to give {POKEBLOCK}S to\n"
.string "POKéMON that don't flee easily.$"
SafariZone_RestHouse_Text_FatMan:
.string "If you put a {POKEBLOCK} on the FEEDER,\n"
.string "POKéMON are attracted to it.\p"
.string "I think POKéMON with the same sort of\n"
.string "nature are drawn by a certain {POKEBLOCK}.$"
SafariZone_South_Text_AreaOffLimits1:
.string "This area is still under construction.\n"
.string "It's off-limits, sorry!$"
SafariZone_Southeast_Text_ExpansionIsFinished:
.string "The SAFARI ZONE's expansion project\n"
.string "is finished now.\p"
.string "We hope you will enjoy the new area.$"
SafariZone_South_Text_AreaOffLimits2:
.string "This area is still under construction.\n"
.string "It's off-limits, sorry!$"
SafariZone_Southeast_Text_LittleGirl:
.string "Wow! Whee! I haven't seen any of\n"
.string "these POKéMON before!$"
SafariZone_Southeast_Text_FatMan:
.string "The POKéMON in this area are all\n"
.string "new to me.\p"
.string "And I'm allowed to catch these rare\n"
.string "POKéMON! Too cool!$"
SafariZone_Southeast_Text_RichBoy:
.string "The POKéMON around here seem to be\n"
.string "from somewhere other than HOENN.$"
SafariZone_Northeast_Text_Boy:
.string "I only have a couple SAFARI BALLS left.\p"
.string "I'm having a hard time trying to\n"
.string "decide what I should catch.$"
SafariZone_Northeast_Text_Woman:
.string "I heard that you can see PIKACHU here.\n"
.string "Where might one be?$"
SafariZone_Northeast_Text_Girl:
.string "Oh, boo!\n"
.string "I can't seem to catch anything!\p"
.string "I'll end up wasting the admission\n"
.string "price if I don't catch something!$"

View File

@ -0,0 +1,737 @@
SecretBase_Text_TreeCanBeClimbed:
.string "If some vines drop down, this tree can\n"
.string "be climbed.$"
SecretBase_Text_TreeUseSecretPower:
.string "If some vines drop down, this tree can\n"
.string "be climbed.\p"
.string "Use the SECRET POWER?$"
SecretBase_Text_VineDroppedDown:
.string "A thick vine dropped down!$"
SecretBase_Text_ClumpOfGrass:
.string "If this clump of grass can be moved,\n"
.string "it might be possible to go inside.$"
SecretBase_Text_ClumpUseSecretPower:
.string "If this clump of grass can be moved,\n"
.string "it might be possible to go inside.\p"
.string "Use the SECRET POWER?$"
SecretBase_Text_DiscoveredSmallEntrance:
.string "Discovered a small entrance!$"
.include "data/text/secret_base_trainers.inc"
SecretBase_EventScript_CheckEntrance::
special GetSecretBaseTypeInFrontOfPlayer
special CheckPlayerHasSecretBase
goto_if_eq VAR_RESULT, TRUE, SecretBase_EventScript_AlreadyHasSecretBase
checkpartymove MOVE_SECRET_POWER
setfieldeffectargument 0, VAR_RESULT
buffermovename STR_VAR_2, MOVE_SECRET_POWER
goto_if_eq VAR_0x8007, SECRET_BASE_RED_CAVE, SecretBase_EventScript_Cave
goto_if_eq VAR_0x8007, SECRET_BASE_BROWN_CAVE, SecretBase_EventScript_Cave
goto_if_eq VAR_0x8007, SECRET_BASE_BLUE_CAVE, SecretBase_EventScript_Cave
goto_if_eq VAR_0x8007, SECRET_BASE_YELLOW_CAVE, SecretBase_EventScript_Cave
goto_if_eq VAR_0x8007, SECRET_BASE_TREE, SecretBase_EventScript_Tree
goto_if_eq VAR_0x8007, SECRET_BASE_SHRUB, SecretBase_EventScript_Shrub
end
SecretBase_EventScript_Cave::
lockall
goto_if_eq VAR_RESULT, PARTY_SIZE, SecretBase_EventScript_CaveNoSecretPower
bufferpartymonnick STR_VAR_1, VAR_RESULT
msgbox SecretBase_Text_IndentUseSecretPower, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
closemessage
dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
waitstate
goto SecretBase_EventScript_CaveEnter
end
SecretBase_EventScript_CaveUseSecretPower::
lockall
dofieldeffect FLDEFF_USE_SECRET_POWER_CAVE
waitstate
goto SecretBase_EventScript_CaveEnter
end
SecretBase_EventScript_CaveNoSecretPower::
msgbox SecretBase_Text_SmallIndentInWall, MSGBOX_DEFAULT
releaseall
end
SecretBase_EventScript_CaveEnter::
msgbox SecretBase_Text_DiscoveredSmallCavern, MSGBOX_DEFAULT
goto SecretBase_EventScript_InitSecretBase
end
SecretBase_EventScript_Tree::
lockall
goto_if_eq VAR_RESULT, PARTY_SIZE, SecretBase_EventScript_TreeNoSecretPower
bufferpartymonnick STR_VAR_1, VAR_RESULT
msgbox SecretBase_Text_TreeUseSecretPower, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
closemessage
dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
waitstate
goto SecretBase_EventScript_TreeEnter
end
SecretBase_EventScript_TreeUseSecretPower::
lockall
dofieldeffect FLDEFF_USE_SECRET_POWER_TREE
waitstate
goto SecretBase_EventScript_TreeEnter
end
SecretBase_EventScript_TreeNoSecretPower::
msgbox SecretBase_Text_TreeCanBeClimbed, MSGBOX_DEFAULT
releaseall
end
SecretBase_EventScript_TreeEnter::
msgbox SecretBase_Text_VineDroppedDown, MSGBOX_DEFAULT
goto SecretBase_EventScript_InitSecretBase
end
SecretBase_EventScript_Shrub::
lockall
goto_if_eq VAR_RESULT, PARTY_SIZE, SecretBase_EventScript_ShrubNoSecretPower
bufferpartymonnick STR_VAR_1, VAR_RESULT
msgbox SecretBase_Text_ClumpUseSecretPower, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
closemessage
dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
waitstate
goto SecretBase_EventScript_ShrubEnter
end
SecretBase_EventScript_ShrubUseSecretPower::
lockall
dofieldeffect FLDEFF_USE_SECRET_POWER_SHRUB
waitstate
goto SecretBase_EventScript_ShrubEnter
end
SecretBase_EventScript_ShrubNoSecretPower::
msgbox SecretBase_Text_ClumpOfGrass, MSGBOX_DEFAULT
releaseall
end
SecretBase_EventScript_ShrubEnter::
msgbox SecretBase_Text_DiscoveredSmallEntrance, MSGBOX_DEFAULT
goto SecretBase_EventScript_InitSecretBase
end
SecretBase_EventScript_InitSecretBase::
closemessage
playse SE_EXIT
setvar VAR_INIT_SECRET_BASE, 0
setflag FLAG_DECORATION_0
special SetPlayerSecretBase
special EnterSecretBase
setvar VAR_0x8004, 0
setvar VAR_0x8005, 0
special InitSecretBaseDecorationSprites
setvar VAR_SECRET_BASE_INITIALIZED, 1
waitstate
end
SecretBase_EventScript_FirstEntrance::
applymovement OBJ_EVENT_ID_PLAYER, SecretBase_Movement_EnterBase
waitmovement 0
setvar VAR_INIT_SECRET_BASE, 1
msgbox SecretBase_Text_WantToMakeYourSecretBaseHere, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, SecretBase_EventScript_SetAsBase
closemessage
playse SE_EXIT
special ClearAndLeaveSecretBase
end
SecretBase_EventScript_SetAsBase::
closemessage
setflag FLAG_RECEIVED_SECRET_POWER
special EnterNewlyCreatedSecretBase
waitstate
end
SecretBase_Movement_EnterBase:
walk_up
walk_up
step_end
SecretBase_EventScript_Enter::
lockall
setvar VAR_INIT_SECRET_BASE, 1
playse SE_EXIT
special IsCurSecretBaseOwnedByAnotherPlayer
goto_if_eq VAR_RESULT, FALSE, SecretBase_EventScript_EnterPlayersBase
clearflag FLAG_DECORATION_0
special EnterSecretBase
setvar VAR_SECRET_BASE_INITIALIZED, 0
waitstate
end
SecretBase_EventScript_EnterPlayersBase::
setflag FLAG_DECORATION_0
special EnterSecretBase
setvar VAR_SECRET_BASE_INITIALIZED, 0
waitstate
end
SecretBase_EventScript_AlreadyHasSecretBase::
checkpartymove MOVE_SECRET_POWER
goto_if_eq VAR_RESULT, PARTY_SIZE, SecretBase_EventScript_NoSecretPower
setfieldeffectargument 0, VAR_RESULT
setorcopyvar VAR_0x8004, VAR_RESULT
lockall
special GetSecretBaseNearbyMapName
msgbox SecretBase_Text_WouldYouLikeToMoveBases, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
fadescreenswapbuffers FADE_TO_BLACK
special MoveOutOfSecretBaseFromOutside
closemessage
fadescreenswapbuffers FADE_FROM_BLACK
msgbox SecretBase_Text_MovingCompletedUseSecretPower, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_CancelOnEntrance
bufferpartymonnick STR_VAR_1, VAR_0x8004
buffermovename STR_VAR_2, MOVE_SECRET_POWER
msgbox Text_MonUsedFieldMove, MSGBOX_DEFAULT
closemessage
closemessage
goto_if_eq VAR_0x8007, SECRET_BASE_RED_CAVE, SecretBase_EventScript_CaveUseSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_BROWN_CAVE, SecretBase_EventScript_CaveUseSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_BLUE_CAVE, SecretBase_EventScript_CaveUseSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_YELLOW_CAVE, SecretBase_EventScript_CaveUseSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_TREE, SecretBase_EventScript_TreeUseSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_SHRUB, SecretBase_EventScript_ShrubUseSecretPower
releaseall
end
SecretBase_EventScript_NoSecretPower::
lockall
goto_if_eq VAR_0x8007, SECRET_BASE_RED_CAVE, SecretBase_EventScript_CaveNoSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_BROWN_CAVE, SecretBase_EventScript_CaveNoSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_BLUE_CAVE, SecretBase_EventScript_CaveNoSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_YELLOW_CAVE, SecretBase_EventScript_CaveNoSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_TREE, SecretBase_EventScript_TreeNoSecretPower
goto_if_eq VAR_0x8007, SECRET_BASE_SHRUB, SecretBase_EventScript_ShrubNoSecretPower
end
SecretBase_EventScript_CancelOnEntrance::
closemessage
releaseall
end
SecretBase_EventScript_SetDecorationFlags::
setflag FLAG_DECORATION_1
setflag FLAG_DECORATION_2
setflag FLAG_DECORATION_3
setflag FLAG_DECORATION_4
setflag FLAG_DECORATION_5
setflag FLAG_DECORATION_6
setflag FLAG_DECORATION_7
setflag FLAG_DECORATION_8
setflag FLAG_DECORATION_9
setflag FLAG_DECORATION_10
setflag FLAG_DECORATION_11
setflag FLAG_DECORATION_12
setflag FLAG_DECORATION_13
setflag FLAG_DECORATION_14
return
SecretBase_EventScript_InitDecorations::
setvar VAR_0x8004, 0
setvar VAR_0x8005, 0
special InitSecretBaseDecorationSprites
setvar VAR_SECRET_BASE_INITIALIZED, 1
end
SecretBase_EventScript_SetDecoration::
setvar VAR_0x8005, 0
goto SecretBase_EventScript_SetDecoration2
end
SecretBase_EventScript_SetDecoration2::
special SetDecoration
end
SecretBase_EventScript_PutAwayDecoration::
setvar VAR_0x8004, 0
goto SecretBase_EventScript_PutAwayDecorationLoop
end
SecretBase_EventScript_PutAwayDecorationLoop::
special PutAwayDecorationIteration
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_PutAwayDecorationEnd
addvar VAR_0x8004, 1
goto_if_eq VAR_0x8005, 0, SecretBase_EventScript_PutAwayDecorationLoop
removeobject VAR_0x8006
setflag VAR_0x8005 @ UB: VAR_0x8005 is set to a flag by PutAwayDecorationIteration, but ScrCmd_setflag doesn't use VarGet
goto SecretBase_EventScript_PutAwayDecorationLoop
end
SecretBase_EventScript_PutAwayDecorationEnd::
end
SecretBase_EventScript_RecordMixTrainer::
special GetSecretBaseOwnerAndState
goto_if_eq VAR_0x8004, 0, SecretBase_EventScript_Trainer0
goto_if_eq VAR_0x8004, 1, SecretBase_EventScript_Trainer1
goto_if_eq VAR_0x8004, 2, SecretBase_EventScript_Trainer2
goto_if_eq VAR_0x8004, 3, SecretBase_EventScript_Trainer3
goto_if_eq VAR_0x8004, 4, SecretBase_EventScript_Trainer4
goto_if_eq VAR_0x8004, 5, SecretBase_EventScript_Trainer5
goto_if_eq VAR_0x8004, 6, SecretBase_EventScript_Trainer6
goto_if_eq VAR_0x8004, 7, SecretBase_EventScript_Trainer7
goto_if_eq VAR_0x8004, 8, SecretBase_EventScript_Trainer8
goto_if_eq VAR_0x8004, 9, SecretBase_EventScript_Trainer9
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer0::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer0PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer0PostBattle
msgbox SecretBase_Text_Trainer0Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer0DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer0DeclineBattle
msgbox SecretBase_Text_Trainer0AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer0PreChampion::
msgbox SecretBase_Text_Trainer0PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer0DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer0DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer0PostBattle::
msgbox SecretBase_Text_Trainer0PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer1::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer1PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer1PostBattle
msgbox SecretBase_Text_Trainer1Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer1DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer1DeclineBattle
msgbox SecretBase_Text_Trainer1AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer1PreChampion::
msgbox SecretBase_Text_Trainer1PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer1DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer1DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer1PostBattle::
msgbox SecretBase_Text_Trainer1PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer2::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer2PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer2PostBattle
msgbox SecretBase_Text_Trainer2Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer2DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer2DeclineBattle
msgbox SecretBase_Text_Trainer2AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer2PreChampion::
msgbox SecretBase_Text_Trainer2PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer2DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer2DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer2PostBattle::
msgbox SecretBase_Text_Trainer2PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer3::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer3PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer3PostBattle
msgbox SecretBase_Text_Trainer3Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer3DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer3DeclineBattle
msgbox SecretBase_Text_Trainer3AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer3PreChampion::
msgbox SecretBase_Text_Trainer3PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer3DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer3DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer3PostBattle::
msgbox SecretBase_Text_Trainer3PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer4::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer4PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer4PostBattle
msgbox SecretBase_Text_Trainer4Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer4DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer4DeclineBattle
msgbox SecretBase_Text_Trainer4AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer4PreChampion::
msgbox SecretBase_Text_Trainer4PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer4DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer4DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer4PostBattle::
msgbox SecretBase_Text_Trainer4PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer5::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer5PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer5PostBattle
msgbox SecretBase_Text_Trainer5Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer5DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer5DeclineBattle
msgbox SecretBase_Text_Trainer5AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer5PreChampion::
msgbox SecretBase_Text_Trainer5PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer5DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer5DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer5PostBattle::
msgbox SecretBase_Text_Trainer5PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer6::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer6PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer6PostBattle
msgbox SecretBase_Text_Trainer6Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer6DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer6DeclineBattle
msgbox SecretBase_Text_Trainer6AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer6PreChampion::
msgbox SecretBase_Text_Trainer6PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer6DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer6DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer6PostBattle::
msgbox SecretBase_Text_Trainer6PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer7::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer7PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer7PostBattle
msgbox SecretBase_Text_Trainer7Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer7DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer7DeclineBattle
msgbox SecretBase_Text_Trainer7AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer7PreChampion::
msgbox SecretBase_Text_Trainer7PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer7DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer7DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer7PostBattle::
msgbox SecretBase_Text_Trainer7PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer8::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer8PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer8PostBattle
msgbox SecretBase_Text_Trainer8Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer8DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer8DeclineBattle
msgbox SecretBase_Text_Trainer8AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer8PreChampion::
msgbox SecretBase_Text_Trainer8PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer8DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer8DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer8PostBattle::
msgbox SecretBase_Text_Trainer8PostBattle, MSGBOX_DEFAULT
release
end
@ VAR_RESULT is initially set by GetSecretBaseOwnerAndState
SecretBase_EventScript_Trainer9::
lock
faceplayer
goto_if_unset FLAG_SYS_GAME_CLEAR, SecretBase_EventScript_Trainer9PreChampion
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_Trainer9PostBattle
msgbox SecretBase_Text_Trainer9Intro, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_Trainer9DeclineBattle
setvar VAR_RESULT, 1
special SetBattledOwnerFromResult
call Common_EventScript_SaveGame
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_Trainer9DeclineBattle
msgbox SecretBase_Text_Trainer9AcceptBattle, MSGBOX_DEFAULT
goto SecretBase_EventScript_BattleTrainer
end
SecretBase_EventScript_Trainer9PreChampion::
msgbox SecretBase_Text_Trainer9PreChampion, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer9DeclineBattle::
special DeclinedSecretBaseBattle
setvar VAR_RESULT, 0
special SetBattledOwnerFromResult
msgbox SecretBase_Text_Trainer9DeclineBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_Trainer9PostBattle::
msgbox SecretBase_Text_Trainer9PostBattle, MSGBOX_DEFAULT
release
end
SecretBase_EventScript_BattleTrainer::
special PrepSecretBaseBattleFlags
setvar VAR_0x8004, SPECIAL_BATTLE_SECRET_BASE
setvar VAR_0x8005, 0
special DoSpecialTrainerBattle
waitstate
call_if_eq VAR_RESULT, B_OUTCOME_DREW, SecretBase_EventScript_DrewSecretBaseBattle
call_if_eq VAR_RESULT, B_OUTCOME_WON, SecretBase_EventScript_WonSecretBaseBattle
call_if_eq VAR_RESULT, B_OUTCOME_LOST, SecretBase_EventScript_LostSecretBaseBattle
special HealPlayerParty
release
end
SecretBase_EventScript_DrewSecretBaseBattle::
special DrewSecretBaseBattle
return
SecretBase_EventScript_WonSecretBaseBattle::
special WonSecretBaseBattle
return
SecretBase_EventScript_LostSecretBaseBattle::
special LostSecretBaseBattle
return
.include "data/scripts/secret_power_tm.inc"
SecretBase_EventScript_DollInteract::
special CheckInteractedWithFriendsDollDecor
end
SecretBase_EventScript_CushionInteract::
special CheckInteractedWithFriendsCushionDecor
end
SecretBase_Text_AllDecorationsWillBeReturned:
.string "All decorations and furniture in your\n"
.string "SECRET BASE will be returned to your PC.\p"
.string "Is that okay?$"
SecretBase_Text_WantToRegisterSecretBase:
.string "Do you want to register\n"
.string "{STR_VAR_1}'s SECRET BASE?$"
SecretBase_Text_AlreadyRegisteredDelete:
.string "This data is already registered.\n"
.string "Would you like to delete it?$"
SecretBase_Text_TooManyBasesDeleteSome:
.string "Up to 10 locations can be registered.\p"
.string "Delete a location if you want to\n"
.string "register another location.$"
SecretBase_Text_RegistrationCompleted:
.string "Registration completed.$"
SecretBase_Text_DataUnregistered:
.string "Data has been unregistered.$"
SecretBase_Text_BootUpPC:
.string "{PLAYER} booted up the PC.$"
SecretBase_Text_WhatWouldYouLikeToDo:
.string "What would you like to do?$"
SecretBase_Text_RegistryInfo:
.string "Once registered, a SECRET BASE will not\n"
.string "disappear unless the other TRAINER\l"
.string "moves it to a different location.\p"
.string "If a SECRET BASE is deleted from the\n"
.string "registered list, another one may take\l"
.string "its place.\p"
.string "Up to ten SECRET BASE locations\n"
.string "may be registered.$"
SecretBase_Text_BattleTowerShield:
.string "A shield of {STR_VAR_2} that marks winning\n"
.string "{STR_VAR_1} times in a row at the BATTLE TOWER.$"
SecretBase_Text_ToyTV:
.string "A realistic toy TV. It could be easily\n"
.string "mistaken for the real thing.$"
SecretBase_Text_SeedotTV:
.string "A toy TV shaped like a SEEDOT.\n"
.string "It looks ready to roll away on its own…$"
SecretBase_Text_SkittyTV:
.string "A toy TV shaped like a SKITTY.\n"
.string "It looks ready to stroll away…$"
SecretBase_Text_WouldYouLikeToMoveBases:
.string "You may only make one SECRET BASE.\p"
.string "Would you like to move from the SECRET\n"
.string "BASE near {STR_VAR_1}?$"
SecretBase_Text_MovingCompletedUseSecretPower:
.string "Moving completed.\p"
.string "Would you like to use the SECRET POWER?$"

View File

@ -0,0 +1,100 @@
Route111_Text_MakingRoomUseTMToMakeYourOwn:
.string "What's that?\n"
.string "What am I doing?\p"
.string "I'm thinking about making my own room\n"
.string "here using a POKéMON move.\p"
.string "I know! I'll give you this TM.\n"
.string "Will you use it to make your own room?$"
Route111_Text_ExplainSecretPower:
.string "Find a big tree that looks like it might\n"
.string "drop some vines.\p"
.string "Use SECRET POWER in front of the tree.\n"
.string "Some vines should get free and drop\l"
.string "down, so you can climb the tree.\p"
.string "You'll find a lot of space for putting\n"
.string "your favorite things.\p"
.string "It'll be your own secret room…\n"
.string "A SECRET BASE!\p"
.string "You should make one, too.\p"
.string "Another thing, you don't always have\n"
.string "to make your SECRET BASE in a tree.\p"
.string "Try using SECRET POWER on rock walls\n"
.string "that have small indents in them.\p"
.string "I'm going to look for other places, too.\n"
.string "Okay, bye!$"
Route111_Text_DontWantThis:
.string "Oh, you don't want this?\n"
.string "If you change your mind, tell me, okay?$"
Route111_Text_DontHaveAnyRoom:
.string "Oh, you don't have any room for this.\p"
.string "I'll hold on to it, so come back for it\n"
.string "another time, okay?$"
Route111_EventScript_SecretPowerMan::
lock
faceplayer
msgbox Route111_Text_MakingRoomUseTMToMakeYourOwn, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, Route111_EventScript_GiveSecretPower
msgbox Route111_Text_DontWantThis, MSGBOX_DEFAULT
release
end
Route111_EventScript_GiveSecretPower::
giveitem ITEM_TM43
goto_if_eq VAR_RESULT, FALSE, Route111_EventScript_NoRoomForSecretPower
msgbox Route111_Text_ExplainSecretPower, MSGBOX_DEFAULT
closemessage
setflag FLAG_RECEIVED_SECRET_POWER
clearflag FLAG_HIDE_SLATEPORT_CITY_TM_SALESMAN
call_if_eq VAR_FACING, DIR_WEST, Route111_EventScript_SecretPowerManExit
call_if_eq VAR_FACING, DIR_EAST, Route111_EventScript_SecretPowerManExit
call_if_eq VAR_FACING, DIR_NORTH, Route111_EventScript_SecretPowerManExitNorth
removeobject VAR_LAST_TALKED
release
end
Route111_EventScript_SecretPowerManExit::
applymovement VAR_LAST_TALKED, Route111_Movement_SecretPowerManExit
waitmovement 0
return
Route111_EventScript_SecretPowerManExitNorth::
applymovement VAR_LAST_TALKED, Route111_Movement_SecretPowerManExitNorth
waitmovement 0
return
Route111_EventScript_NoRoomForSecretPower::
msgbox Route111_Text_DontHaveAnyRoom, MSGBOX_DEFAULT
release
end
Route111_Movement_SecretPowerManExit:
walk_down
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_down
walk_down
step_end
Route111_Movement_SecretPowerManExitNorth:
walk_left
walk_down
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_down
walk_down
step_end

View File

@ -0,0 +1,92 @@
Common_EventScript_SetGymTrainers::
switch VAR_0x8008
case 1, RustboroCity_Gym_SetGymTrainers
case 2, DewfordTown_Gym_SetGymTrainers
case 3, MauvilleCity_Gym_SetGymTrainers
case 4, LavaridgeTown_Gym_SetGymTrainers
case 5, PetalburgCity_Gym_SetGymTrainers
case 6, FortreeCity_Gym_SetGymTrainers
case 7, MossdeepCity_Gym_SetGymTrainers
case 8, SootopolisCity_Gym_SetGymTrainers
end
RustboroCity_Gym_SetGymTrainers::
settrainerflag TRAINER_JOSH
settrainerflag TRAINER_TOMMY
settrainerflag TRAINER_MARC
return
DewfordTown_Gym_SetGymTrainers::
settrainerflag TRAINER_TAKAO
settrainerflag TRAINER_JOCELYN
settrainerflag TRAINER_LAURA
settrainerflag TRAINER_BRENDEN
settrainerflag TRAINER_CRISTIAN
settrainerflag TRAINER_LILITH
return
MauvilleCity_Gym_SetGymTrainers::
settrainerflag TRAINER_KIRK
settrainerflag TRAINER_SHAWN
settrainerflag TRAINER_BEN
settrainerflag TRAINER_VIVIAN
settrainerflag TRAINER_ANGELO
return
LavaridgeTown_Gym_SetGymTrainers::
settrainerflag TRAINER_COLE
settrainerflag TRAINER_AXLE
settrainerflag TRAINER_KEEGAN
settrainerflag TRAINER_GERALD
settrainerflag TRAINER_DANIELLE
settrainerflag TRAINER_JACE
settrainerflag TRAINER_JEFF
settrainerflag TRAINER_ELI
return
PetalburgCity_Gym_SetGymTrainers::
settrainerflag TRAINER_RANDALL
settrainerflag TRAINER_PARKER
settrainerflag TRAINER_GEORGE
settrainerflag TRAINER_BERKE
settrainerflag TRAINER_MARY
settrainerflag TRAINER_ALEXIA
settrainerflag TRAINER_JODY
return
FortreeCity_Gym_SetGymTrainers::
settrainerflag TRAINER_JARED
settrainerflag TRAINER_FLINT
settrainerflag TRAINER_ASHLEY
settrainerflag TRAINER_EDWARDO
settrainerflag TRAINER_HUMBERTO
settrainerflag TRAINER_DARIUS
return
MossdeepCity_Gym_SetGymTrainers::
settrainerflag TRAINER_PRESTON
settrainerflag TRAINER_VIRGIL
settrainerflag TRAINER_BLAKE
settrainerflag TRAINER_HANNAH
settrainerflag TRAINER_SAMANTHA
settrainerflag TRAINER_MAURA
settrainerflag TRAINER_SYLVIA
settrainerflag TRAINER_NATE
settrainerflag TRAINER_KATHLEEN
settrainerflag TRAINER_CLIFFORD
settrainerflag TRAINER_MACEY
settrainerflag TRAINER_NICHOLAS
return
SootopolisCity_Gym_SetGymTrainers::
settrainerflag TRAINER_ANDREA
settrainerflag TRAINER_CRISSY
settrainerflag TRAINER_BRIANNA
settrainerflag TRAINER_CONNIE
settrainerflag TRAINER_BRIDGET
settrainerflag TRAINER_OLIVIA
settrainerflag TRAINER_TIFFANY
settrainerflag TRAINER_BETHANY
settrainerflag TRAINER_ANNIKA
settrainerflag TRAINER_DAPHNE
return

View File

@ -0,0 +1,215 @@
SecretBase_MapScripts::
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, SecretBase_OnWarp
map_script MAP_SCRIPT_ON_TRANSITION, SecretBase_OnTransition
map_script MAP_SCRIPT_ON_FRAME_TABLE, SecretBase_OnFrame
map_script MAP_SCRIPT_ON_RESUME, SecretBase_OnResume
.byte 0
SecretBase_OnWarp:
map_script_2 VAR_SECRET_BASE_INITIALIZED, 0, SecretBase_EventScript_InitDecorations
.2byte 0
SecretBase_OnTransition:
call SecretBase_EventScript_SetDecorationFlags
special SetSecretBaseOwnerGfxId
special InitSecretBaseVars
end
SecretBase_OnFrame:
map_script_2 VAR_INIT_SECRET_BASE, 0, SecretBase_EventScript_FirstEntrance
.2byte 0
SecretBase_OnResume:
setstepcallback STEP_CB_SECRET_BASE
end
SecretBase_EventScript_PC::
lockall
playse SE_PC_LOGIN
message SecretBase_Text_BootUpPC
dofieldeffect FLDEFF_PCTURN_ON
waitstate
waitmessage
waitbuttonpress
playse SE_SELECT
goto SecretBase_EventScript_PCShowMainMenu
end
SecretBase_EventScript_PCShowMainMenu::
message SecretBase_Text_WhatWouldYouLikeToDo
waitmessage
goto_if_set FLAG_SECRET_BASE_REGISTRY_ENABLED, SecretBase_EventScript_PCMainMenuWithRegister
goto SecretBase_EventScript_PCMainMenuWithoutRegister
end
SecretBase_EventScript_PCCancel::
lockall
goto SecretBase_EventScript_PCShowMainMenu
end
SecretBase_EventScript_PCMainMenuWithRegister::
multichoice 0, 0, MULTI_BASE_PC_WITH_REGISTRY, FALSE
switch VAR_RESULT
case 0, SecretBase_EventScript_PCDecorationMenu
case 1, SecretBase_EventScript_PCPackUp
case 2, SecretBase_EventScript_PCRegistryMenu
case 3, SecretBase_EventScript_PCTurnOff
case MULTI_B_PRESSED, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_PCMainMenuWithoutRegister::
multichoice 0, 0, MULTI_BASE_PC_NO_REGISTRY, FALSE
switch VAR_RESULT
case 0, SecretBase_EventScript_PCDecorationMenu
case 1, SecretBase_EventScript_PCPackUp
case 2, SecretBase_EventScript_PCTurnOff
case MULTI_B_PRESSED, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_PCPackUp::
msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_PCShowMainMenu
closemessage
special MoveOutOfSecretBase
releaseall
end
SecretBase_EventScript_PCDecorationMenu::
special ShowSecretBaseDecorationMenu
end
SecretBase_EventScript_PCRegistryMenu::
special ShowSecretBaseRegistryMenu
end
SecretBase_EventScript_RecordMixingPC::
lockall
message SecretBase_Text_BootUpPC
playse SE_PC_LOGIN
dofieldeffect FLDEFF_PCTURN_ON
waitstate
waitmessage
waitbuttonpress
playse SE_SELECT
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCRegisterMenu::
message SecretBase_Text_WhatWouldYouLikeToDo
waitmessage
multichoice 0, 0, MULTI_REGISTER_MENU, FALSE
switch VAR_RESULT
case 0, SecretBase_EventScript_PCRegister
case 1, SecretBase_EventScript_PCRegistryMenu
case 2, SecretBase_EventScript_PCRegistryInfo
case 3, SecretBase_EventScript_PCTurnOff
case MULTI_B_PRESSED, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_ShowRegisterMenu::
lockall
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCRegister::
special GetCurSecretBaseRegistrationValidity
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_AlreadyRegistered
goto_if_eq VAR_RESULT, 2, SecretBase_EventScript_CantRegisterTooManyBases
special CopyCurSecretBaseOwnerName_StrVar1
msgbox SecretBase_Text_WantToRegisterSecretBase, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_PCRegisterMenu
msgbox SecretBase_Text_RegistrationCompleted, MSGBOX_SIGN
special ToggleCurSecretBaseRegistry
special DoSecretBasePCTurnOffEffect
releaseall
end
SecretBase_EventScript_AlreadyRegistered::
msgbox SecretBase_Text_AlreadyRegisteredDelete, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, SecretBase_EventScript_PCRegisterMenu
msgbox SecretBase_Text_DataUnregistered, MSGBOX_SIGN
special ToggleCurSecretBaseRegistry
special DoSecretBasePCTurnOffEffect
releaseall
end
SecretBase_EventScript_CantRegisterTooManyBases::
msgbox SecretBase_Text_TooManyBasesDeleteSome, MSGBOX_SIGN
special DoSecretBasePCTurnOffEffect
closemessage
releaseall
end
SecretBase_EventScript_PCRegistryInfo::
msgbox SecretBase_Text_RegistryInfo, MSGBOX_DEFAULT
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCTurnOff::
special DoSecretBasePCTurnOffEffect
closemessage
releaseall
end
@ Unused
SecretBase_EventScript_Poster::
special CheckInteractedWithFriendsPosterDecor
end
@ Unused
SecretBase_EventScript_FurnitureBottom::
special CheckInteractedWithFriendsFurnitureBottom
end
@ Unused
SecretBase_EventScript_FurnitureMiddle::
special CheckInteractedWithFriendsFurnitureMiddle
end
@ Unused
SecretBase_EventScript_FurnitureTop::
special CheckInteractedWithFriendsFurnitureTop
end
SecretBase_EventScript_SandOrnament::
special CheckInteractedWithFriendsSandOrnament
dofieldeffect FLDEFF_SAND_PILLAR
waitstate
end
SecretBase_EventScript_ShieldOrToyTV::
special InteractWithShieldOrTVDecoration
goto_if_eq VAR_RESULT, 0, SecretBase_EventScript_BattleTowerShield
goto_if_eq VAR_RESULT, 1, SecretBase_EventScript_ToyTV
goto_if_eq VAR_RESULT, 2, SecretBase_EventScript_SeedotTV
goto_if_eq VAR_RESULT, 3, SecretBase_EventScript_SkittyTV
end
SecretBase_EventScript_BattleTowerShield::
msgbox SecretBase_Text_BattleTowerShield, MSGBOX_SIGN
end
SecretBase_EventScript_ToyTV::
msgbox SecretBase_Text_ToyTV, MSGBOX_SIGN
end
SecretBase_EventScript_SeedotTV::
msgbox SecretBase_Text_SeedotTV, MSGBOX_SIGN
end
SecretBase_EventScript_SkittyTV::
msgbox SecretBase_Text_SkittyTV, MSGBOX_SIGN
end
SecretBase_Text_SmallIndentInWall::
.string "There's a small indent in the wall.$"
SecretBase_Text_IndentUseSecretPower::
.string "There's a small indent in the wall.\p"
.string "Use the SECRET POWER?$"
SecretBase_Text_DiscoveredSmallCavern::
.string "Discovered a small cavern!$"
SecretBase_Text_WantToMakeYourSecretBaseHere:
.string "Want to make your SECRET BASE here?$"

View File

@ -0,0 +1,49 @@
Std_MsgboxNPC:
lock
faceplayer
message NULL
waitmessage
waitbuttonpress
release
return
Std_MsgboxSign:
lockall
message NULL
waitmessage
waitbuttonpress
releaseall
return
Std_MsgboxDefault:
message NULL
waitmessage
waitbuttonpress
return
Std_MsgboxYesNo:
message NULL
waitmessage
yesnobox 20, 8
return
Std_MsgboxGetPoints:
message NULL
playfanfare MUS_OBTAIN_B_POINTS
waitfanfare
waitmessage
return
@ Never used, pokenavcall is always used directly instead
Std_MsgboxPokenav:
pokenavcall NULL
waitmessage
return
EventScript_UnusedReturn:
return
Common_EventScript_SaveGame::
special SaveGame
waitstate
return

14
data/scripts/surf.inc Normal file
View File

@ -0,0 +1,14 @@
EventScript_UseSurf::
checkpartymove MOVE_SURF
goto_if_eq VAR_RESULT, PARTY_SIZE, EventScript_EndUseSurf
bufferpartymonnick STR_VAR_1, VAR_RESULT
setfieldeffectargument 0, VAR_RESULT
lockall
msgbox gText_WantToUseSurf, MSGBOX_YESNO
goto_if_eq VAR_RESULT, NO, EventScript_ReleaseUseSurf
msgbox gText_PlayerUsedSurf, MSGBOX_DEFAULT
dofieldeffect FLDEFF_USE_SURF
EventScript_ReleaseUseSurf::
releaseall
EventScript_EndUseSurf::
end

View File

@ -0,0 +1,7 @@
Text_ThisIsATestSignpostMsg::
.string "This is a test message.\n"
.string "This is a signpost.$"
EventScript_TestSignpostMsg::
msgbox Text_ThisIsATestSignpostMsg, MSGBOX_SIGN
end

View File

@ -0,0 +1,131 @@
EventScript_StartTrainerApproach::
selectapproachingtrainer
lockfortrainer
EventScript_TrainerApproach::
special PlayTrainerEncounterMusic
special DoTrainerApproach
waitstate
goto EventScript_ShowTrainerIntroMsg
EventScript_TryDoNormalTrainerBattle::
lock
faceplayer
applymovement VAR_LAST_TALKED, Movement_RevealTrainer
waitmovement 0
specialvar VAR_RESULT, GetTrainerFlag
goto_if_ne VAR_RESULT, FALSE, EventScript_NoNormalTrainerBattle
special PlayTrainerEncounterMusic
special SetTrainerFacingDirection
goto EventScript_ShowTrainerIntroMsg
EventScript_NoNormalTrainerBattle::
gotopostbattlescript
EventScript_TryDoDoubleTrainerBattle::
lock
faceplayer
call EventScript_RevealTrainer
specialvar VAR_RESULT, GetTrainerFlag
goto_if_ne VAR_RESULT, FALSE, EventScript_NoDoubleTrainerBattle
special HasEnoughMonsForDoubleBattle
goto_if_ne VAR_RESULT, PLAYER_HAS_TWO_USABLE_MONS, EventScript_NotEnoughMonsForDoubleBattle
special PlayTrainerEncounterMusic
special SetTrainerFacingDirection
goto EventScript_ShowTrainerIntroMsg
EventScript_NotEnoughMonsForDoubleBattle::
special ShowTrainerCantBattleSpeech
waitmessage
waitbuttonpress
release
end
EventScript_NoDoubleTrainerBattle::
gotopostbattlescript
EventScript_DoNoIntroTrainerBattle::
applymovement VAR_LAST_TALKED, Movement_RevealTrainer
waitmovement 0
special PlayTrainerEncounterMusic
dotrainerbattle
gotopostbattlescript
EventScript_TryDoRematchBattle::
call EventScript_RevealTrainer
specialvar VAR_RESULT, IsTrainerReadyForRematch
goto_if_eq VAR_RESULT, FALSE, EventScript_NoRematchTrainerBattle
special PlayTrainerEncounterMusic
special SetTrainerFacingDirection
special ShowTrainerIntroSpeech
waitmessage
waitbuttonpress
special BattleSetup_StartRematchBattle
waitstate
releaseall
end
EventScript_NoRematchTrainerBattle::
gotopostbattlescript
EventScript_TryDoDoubleRematchBattle::
specialvar VAR_RESULT, IsTrainerReadyForRematch
goto_if_eq VAR_RESULT, FALSE, EventScript_NoDoubleRematchTrainerBattle
special HasEnoughMonsForDoubleBattle
goto_if_ne VAR_RESULT, PLAYER_HAS_TWO_USABLE_MONS, EventScript_NotEnoughMonsForDoubleRematchBattle
special PlayTrainerEncounterMusic
special SetTrainerFacingDirection
special ShowTrainerIntroSpeech
waitmessage
waitbuttonpress
special BattleSetup_StartRematchBattle
waitstate
releaseall
end
EventScript_NoDoubleRematchTrainerBattle::
gotopostbattlescript
EventScript_NotEnoughMonsForDoubleRematchBattle::
special ShowTrainerCantBattleSpeech
waitmessage
waitbuttonpress
release
end
EventScript_RevealTrainer::
applymovement VAR_LAST_TALKED, Movement_RevealTrainer
waitmovement 0
return
Movement_RevealTrainer:
reveal_trainer
step_end
EventScript_ShowTrainerIntroMsg::
special ShowTrainerIntroSpeech
waitmessage
waitbuttonpress
special TryPrepareSecondApproachingTrainer
goto_if_eq VAR_RESULT, TRUE, EventScript_TrainerApproach
goto EventScript_DoTrainerBattle
EventScript_DoTrainerBattle::
dotrainerbattle
@ Below battle mode check only needed in FRLG
specialvar VAR_RESULT, GetTrainerBattleMode
goto_if_eq VAR_RESULT, TRAINER_BATTLE_SINGLE, EventScript_EndTrainerBattle
goto_if_eq VAR_RESULT, TRAINER_BATTLE_CONTINUE_SCRIPT, EventScript_EndTrainerBattle
goto_if_eq VAR_RESULT, TRAINER_BATTLE_CONTINUE_SCRIPT_NO_MUSIC, EventScript_EndTrainerBattle
goto_if_eq VAR_RESULT, TRAINER_BATTLE_CONTINUE_SCRIPT_DOUBLE, EventScript_EndTrainerBattle
goto_if_eq VAR_RESULT, TRAINER_BATTLE_CONTINUE_SCRIPT_DOUBLE_NO_MUSIC, EventScript_EndTrainerBattle
EventScript_EndTrainerBattle::
gotobeatenscript
releaseall
end
Std_MsgboxAutoclose::
message NULL
waitmessage
waitbuttonpress
release
return

View File

@ -0,0 +1,68 @@
TrainerHill_OnResume:
setvar VAR_TEMP_2, 0
trainerhill_resumetimer
frontier_get FRONTIER_DATA_BATTLE_OUTCOME
goto_if_eq VAR_RESULT, B_OUTCOME_LOST, TrainerHill_1F_EventScript_Lost
goto_if_eq VAR_RESULT, B_OUTCOME_DREW, TrainerHill_1F_EventScript_Lost
goto_if_eq VAR_RESULT, B_OUTCOME_FORFEITED, TrainerHill_1F_EventScript_Lost
end
TrainerHill_OnWarp:
map_script_2 VAR_TEMP_3, 0, TrainerHill_1F_EventScript_DummyOnWarp
.2byte 0
TrainerHill_1F_EventScript_DummyOnWarp::
setvar VAR_TEMP_3, 1
.ifdef BUGFIX
end @ Missing end. By chance, the next byte (0x02 of VAR_TEMP_2) is also the id for the end cmd
.endif
TrainerHill_OnFrame:
map_script_2 VAR_TEMP_2, 0, TrainerHill_1F_EventScript_DummyWarpToEntranceCounter
map_script_2 VAR_TEMP_1, 1, TrainerHill_EventScript_WarpToEntranceCounter
.2byte 0
EventScript_TrainerHillTimer::
lockall
trainerhill_gettime
msgbox TrainerHill_Entrance_Text_ChallengeTime, MSGBOX_DEFAULT
releaseall
end
TrainerHill_1F_EventScript_DummyWarpToEntranceCounter::
setvar VAR_TEMP_2, 1
trainerhill_getusingereader
goto_if_eq VAR_RESULT, TRUE, TrainerHill_1F_EventScript_WarpSilentToEntranceCounter @ VAR_RESULT always FALSE here
end
@ Never reached
TrainerHill_1F_EventScript_WarpSilentToEntranceCounter::
warpsilent MAP_TRAINER_HILL_ENTRANCE, 9, 6
waitstate
end
TrainerHill_1F_EventScript_Lost::
trainerhill_settrainerflags
trainerhill_lost
setvar VAR_TEMP_1, 1
end
TrainerHill_EventScript_WarpToEntranceCounter::
setvar VAR_TEMP_1, 0
warp MAP_TRAINER_HILL_ENTRANCE, 9, 6
waitstate
end
@ Unused
TrainerHill_1F_Movement_SetInvisible::
set_invisible
step_end
@ TRAINER_PHILLIP is an actual Trainer on the SS Tidal, but is used as a placeholder here
TrainerHill_EventScript_TrainerBattle::
trainerbattle TRAINER_BATTLE_HILL, TRAINER_PHILLIP, 0, BattleFacility_TrainerBattle_PlaceholderText, BattleFacility_TrainerBattle_PlaceholderText
trainerhill_postbattletext
waitmessage
waitbuttonpress
closemessage
end

View File

@ -0,0 +1,22 @@
Std_RegisteredInMatchCall::
buffertrainerclassname STR_VAR_1, VAR_0x8000
buffertrainername STR_VAR_2, VAR_0x8000
closemessage
delay 30
playfanfare MUS_REGISTER_MATCH_CALL
msgbox gText_RegisteredTrainerinPokeNav, MSGBOX_DEFAULT
waitfanfare
closemessage
delay 30
return
EventScript_TryGetTrainerScript::
special ShouldTryGetTrainerScript
goto_if_eq VAR_RESULT, TRUE, EventScript_GotoTrainerScript
releaseall
end
EventScript_GotoTrainerScript::
gotobeatenscript
releaseall
end

85
data/scripts/tv.inc Normal file
View File

@ -0,0 +1,85 @@
EventScript_TV::
lockall
incrementgamestat GAME_STAT_WATCHED_TV
special ResetTVShowState
specialvar VAR_RESULT, CheckForPlayersHouseNews
goto_if_eq VAR_RESULT, PLAYERS_HOUSE_TV_MOVIE, EventScript_PlayersHouseMovie
goto_if_eq VAR_RESULT, PLAYERS_HOUSE_TV_LATI, EventScript_PlayersHouseLatiNewsFlash
goto_if_unset FLAG_SYS_TV_START, EventScript_MomDadMightLikeThis1
goto_if_set FLAG_SYS_TV_WATCH, EventScript_MomDadMightLikeThis1
specialvar VAR_RESULT, IsGabbyAndTyShowOnTheAir
goto_if_eq VAR_RESULT, TRUE, EventScript_DoInSearchOfTrainers
goto EventScript_TryDoPokeNews
end
EventScript_TryDoTVShow::
specialvar VAR_0x8004, GetRandomActiveShowIdx
goto_if_eq VAR_0x8004, 255, EventScript_MomDadMightLikeThis2
specialvar VAR_RESULT, GetNextActiveShowIfMassOutbreak
goto_if_eq VAR_RESULT, 255, EventScript_MomDadMightLikeThis2
copyvar VAR_0x8004, VAR_RESULT
specialvar VAR_RESULT, GetSelectedTVShow
goto_if_ne VAR_RESULT, 0, EventScript_DoTVShow
end
EventScript_MomDadMightLikeThis1::
special GetMomOrDadStringForTVMessage
msgbox gText_MomOrDadMightLikeThisProgram, MSGBOX_DEFAULT
special TurnOffTVScreen
releaseall
end
EventScript_PlayersHouseMovie::
msgbox PlayersHouse_1F_Text_TheresAMovieOnTV, MSGBOX_DEFAULT
releaseall
end
@ special InitRoamer is a junk call. Its input var (VAR_0x8004) hasn't been set, and
@ It's called again when Mom actually asks for the color, overwriting
@ whatever it does here.
EventScript_PlayersHouseLatiNewsFlash::
msgbox PlayersHouse_1F_Text_LatiEmergencyNewsFlash, MSGBOX_DEFAULT
special InitRoamer
clearflag FLAG_SYS_TV_LATIAS_LATIOS
setflag FLAG_LATIOS_OR_LATIAS_ROAMING
special TurnOffTVScreen
releaseall
end
@ The following is a loop for the TV show messages
@ VAR_RESULT is set to TRUE when the show has printed its final message
EventScript_DoTVShow::
special DoTVShow
waitmessage
waitbuttonpress
goto_if_ne VAR_RESULT, TRUE, EventScript_DoTVShow
goto EventScript_TurnOffTV
end
EventScript_TurnOffTV::
special TurnOffTVScreen
setflag FLAG_SYS_TV_WATCH
releaseall
end
EventScript_MomDadMightLikeThis2::
special GetMomOrDadStringForTVMessage
msgbox gText_MomOrDadMightLikeThisProgram, MSGBOX_DEFAULT
goto EventScript_TurnOffTV
end
EventScript_TryDoPokeNews::
special DoPokeNews
goto_if_eq VAR_RESULT, FALSE, EventScript_TryDoTVShow
waitmessage
waitbuttonpress
goto EventScript_TurnOffTV
end
EventScript_DoInSearchOfTrainers::
special DoTVShowInSearchOfTrainers
waitmessage
waitbuttonpress
goto_if_eq VAR_RESULT, 0, EventScript_DoInSearchOfTrainers
goto EventScript_TurnOffTV
end