63 lines
2.2 KiB
ObjectPascal
63 lines
2.2 KiB
ObjectPascal
SilphCo_4F_MapScripts::
|
|
map_script MAP_SCRIPT_ON_LOAD, SilphCo_4F_OnLoad
|
|
.byte 0
|
|
|
|
SilphCo_4F_OnLoad::
|
|
call_if_unset FLAG_SILPH_4F_DOOR_1, EventScript_Close4FDoor1
|
|
call_if_unset FLAG_SILPH_4F_DOOR_2, EventScript_Close4FDoor2
|
|
end
|
|
|
|
SilphCo_4F_EventScript_WorkerM::
|
|
lock
|
|
faceplayer
|
|
goto_if_ge VAR_MAP_SCENE_SILPH_CO_11F, 1, SilphCo_4F_EventScript_WorkerMRocketsGone
|
|
msgbox SilphCo_4F_Text_CantYouSeeImHiding
|
|
release
|
|
end
|
|
|
|
SilphCo_4F_EventScript_WorkerMRocketsGone::
|
|
msgbox SilphCo_4F_Text_TeamRocketIsGone
|
|
release
|
|
end
|
|
|
|
SilphCo_4F_EventScript_FloorSign::
|
|
msgbox SilphCo_4F_Text_FloorSign, MSGBOX_SIGN
|
|
end
|
|
|
|
SilphCo_4F_EventScript_Rodney::
|
|
trainerbattle_single TRAINER_SCIENTIST_RODNEY, SilphCo_4F_Text_RodneyIntro, SilphCo_4F_Text_RodneyDefeat
|
|
specialvar VAR_RESULT, ShouldTryRematchBattle
|
|
goto_if_eq VAR_RESULT, TRUE, SilphCo_4F_EventScript_RodneyRematch
|
|
msgbox SilphCo_4F_Text_RodneyPostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|
|
SilphCo_4F_EventScript_RodneyRematch::
|
|
trainerbattle_rematch TRAINER_SCIENTIST_RODNEY, SilphCo_4F_Text_RodneyIntro, SilphCo_4F_Text_RodneyDefeat
|
|
msgbox SilphCo_4F_Text_RodneyPostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|
|
SilphCo_4F_EventScript_Grunt1::
|
|
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_26, SilphCo_4F_Text_Grunt1Intro, SilphCo_4F_Text_Grunt1Defeat
|
|
specialvar VAR_RESULT, ShouldTryRematchBattle
|
|
goto_if_eq VAR_RESULT, TRUE, SilphCo_4F_EventScript_Grunt1Rematch
|
|
msgbox SilphCo_4F_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|
|
SilphCo_4F_EventScript_Grunt1Rematch::
|
|
trainerbattle_rematch TRAINER_TEAM_ROCKET_GRUNT_26, SilphCo_4F_Text_Grunt1Intro, SilphCo_4F_Text_Grunt1Defeat
|
|
msgbox SilphCo_4F_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|
|
SilphCo_4F_EventScript_Grunt2::
|
|
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_27, SilphCo_4F_Text_Grunt2Intro, SilphCo_4F_Text_Grunt2Defeat
|
|
specialvar VAR_RESULT, ShouldTryRematchBattle
|
|
goto_if_eq VAR_RESULT, TRUE, SilphCo_4F_EventScript_Grunt2Rematch
|
|
msgbox SilphCo_4F_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|
|
SilphCo_4F_EventScript_Grunt2Rematch::
|
|
trainerbattle_rematch TRAINER_TEAM_ROCKET_GRUNT_27, SilphCo_4F_Text_Grunt2Intro, SilphCo_4F_Text_Grunt2Defeat
|
|
msgbox SilphCo_4F_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
|
|
end
|
|
|