pokefirered/data/maps/PokemonLeague_LancesRoom/scripts.inc

168 lines
4.8 KiB
PHP

.set LOCALID_LANCE, 1
PokemonLeague_LancesRoom_MapScripts::
map_script MAP_SCRIPT_ON_RESUME, PokemonLeague_LancesRoom_OnResume
map_script MAP_SCRIPT_ON_LOAD, PokemonLeague_LancesRoom_OnLoad
map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, PokemonLeague_LancesRoom_OnWarp
map_script MAP_SCRIPT_ON_FRAME_TABLE, PokemonLeague_LancesRoom_OnFrame
.byte 0
PokemonLeague_LancesRoom_OnResume::
setvar VAR_0x8004, 3
call PokemonLeague_EventScript_DoLightingEffect
end
PokemonLeague_LancesRoom_OnLoad::
call_if_eq VAR_MAP_SCENE_POKEMON_LEAGUE, 4, PokemonLeague_LancesRoom_EventScript_CloseEntry
call_if_set FLAG_DEFEATED_LANCE, PokemonLeague_LancesRoom_EventScript_SetDoorOpen
end
PokemonLeague_LancesRoom_EventScript_CloseEntry::
call PokemonLeague_LancesRoom_EventScript_SetEntryClosed
return
PokemonLeague_LancesRoom_EventScript_SetDoorOpen::
call PokemonLeague_EventScript_SetDoorOpenLance
return
PokemonLeague_LancesRoom_OnWarp::
map_script_2 VAR_TEMP_1, 0, PokemonLeague_LancesRoom_EventScript_TurnPlayerNorth
.2byte 0
PokemonLeague_LancesRoom_EventScript_TurnPlayerNorth::
turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
end
PokemonLeague_LancesRoom_OnFrame::
map_script_2 VAR_MAP_SCENE_POKEMON_LEAGUE, 3, PokemonLeague_LancesRoom_EventScript_EnterRoom
.2byte 0
PokemonLeague_LancesRoom_EventScript_EnterRoom::
lockall
applymovement OBJ_EVENT_ID_PLAYER, PokemonLeague_LancesRoom_Movement_WalkThroughCorridor
waitmovement 0
setflag FLAG_TEMP_2
call PokemonLeague_LancesRoom_EventScript_SetEntryClosed
playse SE_UNLOCK
special DrawWholeMapView
waitse
setvar VAR_MAP_SCENE_POKEMON_LEAGUE, 4
releaseall
end
PokemonLeague_LancesRoom_EventScript_SetEntryClosed::
setmetatile 5, 14, METATILE_PokemonLeague_Entry_TopLeft_Closed, 1
setmetatile 6, 14, METATILE_PokemonLeague_Entry_TopMid_Closed, 1
setmetatile 7, 14, METATILE_PokemonLeague_Entry_TopRight_Closed, 1
setmetatile 5, 15, METATILE_PokemonLeague_Entry_BottomLeft_Closed, 1
setmetatile 6, 15, METATILE_PokemonLeague_Entry_BottomMid_Closed, 1
setmetatile 7, 15, METATILE_PokemonLeague_Entry_BottomRight_Closed, 1
setmetatile 6, 16, METATILE_PokemonLeague_Floor_ShadeFull_Lance, 0
setmetatile 7, 16, METATILE_PokemonLeague_Floor_ShadeFull_Lance, 0
return
PokemonLeague_LancesRoom_Movement_WalkThroughCorridor::
walk_up
walk_up
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
walk_down
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_left
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
walk_up
step_end
PokemonLeague_LancesRoom_EventScript_Lance::
lock
faceplayer
famechecker FAMECHECKER_LANCE, FCPICKSTATE_COLORED, UpdatePickStateFromSpecialVar8005
goto_if_set FLAG_DEFEATED_LANCE, PokemonLeague_LancesRoom_EventScript_PostBattle
famechecker FAMECHECKER_LANCE, 0
famechecker FAMECHECKER_LANCE, 1
call_if_unset FLAG_SYS_GAME_CLEAR, PokemonLeague_LancesRoom_EventScript_Intro
call_if_set FLAG_SYS_GAME_CLEAR, PokemonLeague_LancesRoom_EventScript_RematchIntro
setflag FLAG_TEMP_3
setflag FLAG_TEMP_5
call_if_unset FLAG_SYS_CAN_LINK_WITH_RS, PokemonLeague_LancesRoom_EventScript_Battle
call_if_set FLAG_SYS_CAN_LINK_WITH_RS, PokemonLeague_LancesRoom_EventScript_Rematch
clearflag FLAG_TEMP_5
goto PokemonLeague_LancesRoom_EventScript_DefeatedLance
end
PokemonLeague_LancesRoom_EventScript_Intro::
msgbox PokemonLeague_LancesRoom_Text_Intro
return
PokemonLeague_LancesRoom_EventScript_RematchIntro::
msgbox PokemonLeague_LancesRoom_Text_RematchIntro
return
PokemonLeague_LancesRoom_EventScript_Battle::
trainerbattle_no_intro TRAINER_ELITE_FOUR_LANCE, PokemonLeague_LancesRoom_Text_Defeat
return
PokemonLeague_LancesRoom_EventScript_Rematch::
trainerbattle_no_intro TRAINER_ELITE_FOUR_LANCE_2, PokemonLeague_LancesRoom_Text_Defeat
return
PokemonLeague_LancesRoom_EventScript_PostBattle::
msgbox PokemonLeague_LancesRoom_Text_PostBattle
release
end
PokemonLeague_LancesRoom_EventScript_DefeatedLance::
setvar VAR_0x8004, 0
special Script_TryGainNewFanFromCounter
setflag FLAG_DEFEATED_LANCE
call PokemonLeague_EventScript_OpenDoorLance
msgbox PokemonLeague_LancesRoom_Text_PostBattle
closemessage
release
end
PokemonLeague_LancesRoom_EventScript_LanceMoveOutOfWayLeft::
applymovement LOCALID_LANCE, PokemonLeague_LancesRoom_Movement_LanceMoveOutOfWayLeft
waitmovement 0
return
PokemonLeague_LancesRoom_EventScript_LanceMoveOutOfWayRight::
applymovement LOCALID_LANCE, PokemonLeague_LancesRoom_Movement_LanceMoveOutOfWayRight
waitmovement 0
return
PokemonLeague_LancesRoom_Movement_LanceMoveOutOfWayLeft::
walk_left
walk_in_place_faster_right
step_end
PokemonLeague_LancesRoom_Movement_LanceMoveOutOfWayRight::
walk_right
walk_in_place_faster_left
step_end