pokefirered/data/maps/SixIsland_PokemonCenter_1F/scripts.inc
2020-08-29 03:11:03 -04:00

82 lines
2.4 KiB
PHP

.equ LOCALID_RIVAL, 2
SixIsland_PokemonCenter_1F_MapScripts:: @ 8171D6A
map_script MAP_SCRIPT_ON_TRANSITION, SixIsland_PokemonCenter_1F_OnTransition
map_script MAP_SCRIPT_ON_RESUME, CableClub_OnResume
map_script MAP_SCRIPT_ON_FRAME_TABLE, SixIsland_PokemonCenter_1F_OnFrame
.byte 0
SixIsland_PokemonCenter_1F_OnTransition:: @ 8171D7A
setrespawn SPAWN_SIX_ISLAND
compare VAR_MAP_SCENE_SIX_ISLAND_POKEMON_CENTER_1F, 0
call_if_eq SixIsland_PokemonCenter_1F_EventScript_ShowRival
end
SixIsland_PokemonCenter_1F_EventScript_ShowRival:: @ 8171D89
clearflag FLAG_HIDE_SIX_ISLAND_POKECENTER_RIVAL
return
SixIsland_PokemonCenter_1F_OnFrame:: @ 8171D8D
map_script_2 VAR_MAP_SCENE_SIX_ISLAND_POKEMON_CENTER_1F, 0, SixIsland_PokemonCenter_1F_EventScript_RivalScene
.2byte 0
SixIsland_PokemonCenter_1F_EventScript_RivalScene:: @ 8171D97
lockall
textcolor 0
applymovement LOCALID_RIVAL, Movement_WalkInPlaceFastestDown
waitmovement 0
playbgm MUS_ENCOUNTER_RIVAL, 0
applymovement LOCALID_RIVAL, Movement_ExclamationMark
waitmovement 0
applymovement LOCALID_RIVAL, Movement_Delay48
waitmovement 0
delay 25
applymovement LOCALID_RIVAL, SixIsland_PokemonCenter_1F_Movement_RivalApproach
waitmovement 0
msgbox SixIsland_PokemonCenter_1F_Text_RivalImpossibleToGetAllMonsAroundHere
closemessage
applymovement OBJ_EVENT_ID_PLAYER, SixIsland_PokemonCenter_1F_Movement_PlayerWatchRivalExit
applymovement LOCALID_RIVAL, SixIsland_PokemonCenter_1F_Movement_RivalExit
waitmovement 0
fadedefaultbgm
playse SE_EXIT
delay 35
removeobject LOCALID_RIVAL
setvar VAR_MAP_SCENE_SIX_ISLAND_POKEMON_CENTER_1F, 1
setvar VAR_MAP_SCENE_FOUR_ISLAND, 1
releaseall
end
SixIsland_PokemonCenter_1F_Movement_RivalApproach:: @ 8171DF9
walk_right
walk_right
walk_down
walk_down
step_end
SixIsland_PokemonCenter_1F_Movement_RivalExit:: @ 8171DFE
delay_16
delay_4
walk_down
step_end
SixIsland_PokemonCenter_1F_Movement_PlayerWatchRivalExit:: @ 8171E02
walk_left
walk_in_place_fastest_right
step_end
SixIsland_PokemonCenter_1F_EventScript_Nurse:: @ 8171E05
lock
faceplayer
call EventScript_PkmnCenterNurse
release
end
SixIsland_PokemonCenter_1F_EventScript_Hiker:: @ 8171E0E
msgbox SixIsland_PokemonCenter_1F_Text_SomethingHiddenOnThisIsland, MSGBOX_NPC
end
SixIsland_PokemonCenter_1F_EventScript_OldMan:: @ 8171E17
msgbox SixIsland_PokemonCenter_1F_Text_SomeMonsEvolveByTradingWithHeldItem, MSGBOX_NPC
end