pokefirered/data/maps/FiveIsland_RocketWarehouse/scripts.inc
2020-03-03 22:23:40 -05:00

191 lines
7.1 KiB
PHP

.equ LOCALID_GRUNT1, 5
.equ LOCALID_GRUNT2, 1
.equ LOCALID_GRUNT3, 2
.equ LOCALID_ADMIN1, 3
.equ LOCALID_ADMIN2, 4
.equ PLAYER_X_POS, VAR_0x8004
.equ PLAYER_Y_POS, VAR_0x8005
FiveIsland_RocketWarehouse_MapScripts:: @ 8163F2E
map_script MAP_SCRIPT_ON_LOAD, FiveIsland_RocketWarehouse_OnLoad
map_script MAP_SCRIPT_ON_TRANSITION, FiveIsland_RocketWarehouse_OnTransition
.byte 0
FiveIsland_RocketWarehouse_OnTransition:: @ 8163F39
setworldmapflag FLAG_WORLD_MAP_FIVE_ISLAND_ROCKET_WAREHOUSE
end
FiveIsland_RocketWarehouse_OnLoad:: @ 8163F3D
call_if_defeated TRAINER_TEAM_ROCKET_ADMIN, FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry
end
FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry:: @ 8163F47
setmetatile 26, 20, METATILE_SilphCo_Arrow_Up, 0
setmetatile 27, 20, METATILE_SilphCo_Arrow_Up, 0
return
FiveIsland_RocketWarehouse_EventScript_Cage:: @ 8163F5A
lockall
goto_if_set FLAG_DEFEATED_ROCKETS_IN_WAREHOUSE, FiveIsland_RocketWarehouse_EventScript_CageUnlocked
msgbox FiveIsland_RocketWarehouse_Text_ManyMonsLockedInPen
releaseall
end
FiveIsland_RocketWarehouse_EventScript_CageUnlocked:: @ 8163F6E
msgbox FiveIsland_RocketWarehouse_Text_PenUnlockedMonsFled
releaseall
end
FiveIsland_RocketWarehouse_EventScript_Computer:: @ 8163F78
msgbox FiveIsland_RocketWarehouse_Text_ReportWithGraphsAndText, MSGBOX_SIGN
end
FiveIsland_RocketWarehouse_EventScript_Admin2Trigger:: @ 8163F81
lockall
applymovement LOCALID_ADMIN2, Movement_WalkInPlaceFastestLeft
waitmovement 0
setvar VAR_MAP_SCENE_ROCKET_WAREHOUSE, 1
releaseall
end
FiveIsland_RocketWarehouse_EventScript_Gideon:: @ 8163F93
trainerbattle_single TRAINER_SCIENTIST_GIDEON, FiveIsland_RocketWarehouse_Text_GideonIntro, FiveIsland_RocketWarehouse_Text_GideonDefeat, FiveIsland_RocketWarehouse_EventScript_DefeatedGideon
goto_if_set FLAG_SYS_CAN_LINK_WITH_RS, FiveIsland_RocketWarehouse_EventScript_MentionGiovannisKid
msgbox FiveIsland_RocketWarehouse_Text_GetLostLeaveMeBe, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_MentionGiovannisKid:: @ 8163FB7
famechecker FAMECHECKER_GIOVANNI, 5
msgbox FiveIsland_RocketWarehouse_Text_GiovannisKidHasRedHair, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedGideon:: @ 8163FCD
msgbox FiveIsland_RocketWarehouse_Text_GideonPostBattle
setflag FLAG_RECOVERED_SAPPHIRE
giveitem ITEM_SAPPHIRE
release
end
FiveIsland_RocketWarehouse_EventScript_Grunt2:: @ 8163FE6
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_47, FiveIsland_RocketWarehouse_Text_Grunt2Intro, FiveIsland_RocketWarehouse_Text_Grunt2Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Grunt3:: @ 8163FFD
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_48, FiveIsland_RocketWarehouse_Text_Grunt3Intro, FiveIsland_RocketWarehouse_Text_Grunt3Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt3PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Admin2:: @ 8164014
trainerbattle_single TRAINER_TEAM_ROCKET_ADMIN_2, FiveIsland_RocketWarehouse_Text_Admin2Intro, FiveIsland_RocketWarehouse_Text_Admin2Defeat, FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin2
msgbox FiveIsland_RocketWarehouse_Text_Admin2PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin2:: @ 816402F
getplayerxy PLAYER_X_POS, PLAYER_Y_POS
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin2
msgbox FiveIsland_RocketWarehouse_Text_Admin2PostBattle
closemessage
fadescreen FADE_TO_BLACK
removeobject LOCALID_GRUNT2
removeobject LOCALID_GRUNT3
removeobject LOCALID_ADMIN2
removeobject LOCALID_ADMIN1
setflag FLAG_HIDE_FIVE_ISLAND_ROCKETS
fadescreen FADE_FROM_BLACK
setvar VAR_MAP_SCENE_ROCKET_WAREHOUSE, 1
setflag FLAG_DEFEATED_ROCKETS_IN_WAREHOUSE
release
end
FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin2:: @ 8164065
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestRight
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_Grunt1:: @ 8164070
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_42, FiveIsland_RocketWarehouse_Text_Grunt1Intro, FiveIsland_RocketWarehouse_Text_Grunt1Defeat
msgbox FiveIsland_RocketWarehouse_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_Admin1:: @ 8164087
trainerbattle_single TRAINER_TEAM_ROCKET_ADMIN, FiveIsland_RocketWarehouse_Text_Admin1Intro, FiveIsland_RocketWarehouse_Text_Admin1Defeat, FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin1
msgbox FiveIsland_RocketWarehouse_Text_MadeItSoYouCanComeBackThrough, MSGBOX_AUTOCLOSE
end
FiveIsland_RocketWarehouse_EventScript_DefeatedAdmin1:: @ 81640A2
getplayerxy PLAYER_X_POS, PLAYER_Y_POS
specialvar VAR_RESULT, GetPlayerFacingDirection
compare VAR_RESULT, DIR_NORTH
call_if_eq FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin1
msgbox FiveIsland_RocketWarehouse_Text_Admin1PostBattle
closemessage
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitchFar
compare PLAYER_X_POS, 25
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitch
compare PLAYER_X_POS, 26
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch
compare PLAYER_X_POS, 27
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch
playse SE_PIN
call FiveIsland_RocketWarehouse_EventScript_SetArrowsForReEntry
special DrawWholeMapView
waitse
compare PLAYER_X_POS, 24
call_if_le FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 25
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 26
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft
compare PLAYER_X_POS, 27
call_if_eq FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerDown
msgbox FiveIsland_RocketWarehouse_Text_MadeItSoYouCanComeBackThrough
release
end
FiveIsland_RocketWarehouse_EventScript_PlayerFaceAdmin1:: @ 816412E
compare PLAYER_X_POS, 27
goto_if_eq EventScript_Return
applymovement OBJ_EVENT_ID_PLAYER, Movement_WalkInPlaceFastestRight
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitchFar:: @ 8164144
applymovement LOCALID_ADMIN1, FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitchFar
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminWalkToSwitch:: @ 816414F
applymovement LOCALID_ADMIN1, FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitch
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFaceSwitch:: @ 816415A
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestUp
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerLeft:: @ 8164165
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestLeft
waitmovement 0
return
FiveIsland_RocketWarehouse_EventScript_AdminFacePlayerDown:: @ 8164170
applymovement LOCALID_ADMIN1, Movement_WalkInPlaceFastestDown
waitmovement 0
return
FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitchFar:: @ 816417B
walk_right
walk_right
walk_in_place_fastest_up
step_end
FiveIsland_RocketWarehouse_Movement_AdminWalkToSwitch:: @ 816417F
walk_right
walk_in_place_fastest_up
step_end