pokefirered/data/maps/OneIsland_Harbor/scripts.inc
2020-02-26 00:26:05 -05:00

43 lines
1.1 KiB
PHP

OneIsland_Harbor_MapScripts:: @ 8171378
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, OneIsland_Harbor_OnWarp
map_script MAP_SCRIPT_ON_FRAME_TABLE, OneIsland_Harbor_OnFrame
.byte 0
OneIsland_Harbor_OnWarp:: @ 8171383
map_script_2 VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 1, OneIsland_Harbor_EventScript_TurnPlayerNorth
.2byte 0
OneIsland_Harbor_EventScript_TurnPlayerNorth:: @ 817138D
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
OneIsland_Harbor_OnFrame:: @ 8171392
map_script_2 VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 1, OneIsland_Harbor_EventScript_PlayerEnterHarborFirstTime
.2byte 0
OneIsland_Harbor_EventScript_PlayerEnterHarborFirstTime:: @ 817139C
lockall
textcolor 0
applymovement OBJ_EVENT_ID_PLAYER, OneIsland_Harbor_Movement_PlayerExitHarbor
waitmovement 0
setvar VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 2
warp MAP_ONE_ISLAND, 255, 12, 18
waitstate
releaseall
end
OneIsland_Harbor_Movement_PlayerExitHarbor:: @ 81713B9
walk_up
walk_up
walk_up
step_end
OneIsland_Harbor_EventScript_Sailor:: @ 81713BD
lock
faceplayer
message Text_WhereDoYouWantToSail
waitmessage
setvar VAR_0x8004, SEAGALLOP_ONE_ISLAND
goto EventScript_ChooseDestFromOneIsland
end