pokeemerald/data/maps/Underwater_SeafloorCavern/scripts.inc
2019-11-07 07:57:51 -05:00

51 lines
2.0 KiB
PHP

Underwater_SeafloorCavern_MapScripts:: @ 823433B
map_script MAP_SCRIPT_ON_RESUME, Underwater_SeafloorCavern_OnResume
map_script MAP_SCRIPT_ON_TRANSITION, Underwater_SeafloorCavern_OnTransition
map_script MAP_SCRIPT_ON_LOAD, Underwater_SeafloorCavern_OnLoad
.byte 0
Underwater_SeafloorCavern_OnTransition: @ 823434B
setflag FLAG_LANDMARK_SEAFLOOR_CAVERN
goto_if_set FLAG_KYOGRE_ESCAPED_SEAFLOOR_CAVERN, Underwater_SeafloorCavern_EventScript_HideSubmarine
end
Underwater_SeafloorCavern_EventScript_HideSubmarine:: @ 8234358
setflag FLAG_HIDE_UNDERWATER_SEA_FLOOR_CAVERN_STOLEN_SUBMARINE
end
Underwater_SeafloorCavern_OnLoad: @ 823435C
call_if_set FLAG_KYOGRE_ESCAPED_SEAFLOOR_CAVERN, Underwater_SeafloorCavern_EventScript_SetSubmarineGoneMetatiles
end
Underwater_SeafloorCavern_EventScript_SetSubmarineGoneMetatiles:: @ 8234366
setmetatile 5, 3, METATILE_Underwater_RockWall, 1
setmetatile 6, 3, METATILE_Underwater_RockWall, 1
setmetatile 7, 3, METATILE_Underwater_RockWall, 1
setmetatile 8, 3, METATILE_Underwater_RockWall, 1
setmetatile 5, 4, METATILE_Underwater_FloorShadow, 0
setmetatile 6, 4, METATILE_Underwater_FloorShadow, 0
setmetatile 7, 4, METATILE_Underwater_FloorShadow, 0
setmetatile 8, 4, METATILE_Underwater_FloorShadow, 0
setmetatile 5, 5, METATILE_Underwater_FloorShadow, 0
setmetatile 6, 5, METATILE_Underwater_FloorShadow, 0
setmetatile 7, 5, METATILE_Underwater_FloorShadow, 0
setmetatile 8, 5, METATILE_Underwater_FloorShadow, 0
return
Underwater_SeafloorCavern_OnResume: @ 82343D3
setdivewarp MAP_SEAFLOOR_CAVERN_ENTRANCE, 255, 10, 17
end
Underwater_SeafloorCavern_EventScript_CheckStolenSub:: @ 82343DC
msgbox Underwater_SeafloorCavern_Text_SubExplorer1, MSGBOX_SIGN
end
Underwater_SeafloorCavern_Text_SubExplorer1: @ 82343E5
.string "“SUBMARINE EXPLORER 1” is painted\n"
.string "on the hull.\p"
.string "This is the submarine TEAM AQUA\n"
.string "stole in SLATEPORT!\p"
.string "TEAM AQUA must have gone\n"
.string "ashore here.$"