Files
2026-06-08 18:24:42 +09:30

68 lines
2.4 KiB
ObjectPascal

SilphCo_9F_MapScripts::
map_script MAP_SCRIPT_ON_LOAD, SilphCo_9F_OnLoad
.byte 0
SilphCo_9F_OnLoad::
call_if_unset FLAG_SILPH_9F_DOOR_1, EventScript_Close9FDoor1
call_if_unset FLAG_SILPH_9F_DOOR_2, EventScript_Close9FDoor2
call_if_unset FLAG_SILPH_9F_DOOR_3, EventScript_Close9FDoor3
call_if_unset FLAG_SILPH_9F_DOOR_4, EventScript_Close9FDoor4
end
SilphCo_9F_EventScript_HealWoman::
lock
faceplayer
goto_if_ge VAR_MAP_SCENE_SILPH_CO_11F, 1, SilphCo_9F_EventScript_HealWomanRocketsGone
msgbox SilphCo_9F_Text_YouShouldTakeQuickNap
closemessage
call EventScript_OutOfCenterPartyHeal
msgbox SilphCo_9F_Text_DontGiveUp
release
end
SilphCo_9F_EventScript_HealWomanRocketsGone::
msgbox SilphCo_9F_Text_ThankYouSoMuch
release
end
SilphCo_9F_EventScript_FloorSign::
msgbox SilphCo_9F_Text_FloorSign, MSGBOX_SIGN
end
SilphCo_9F_EventScript_Ed::
trainerbattle_single TRAINER_SCIENTIST_ED, SilphCo_9F_Text_EdIntro, SilphCo_9F_Text_EdDefeat
specialvar VAR_RESULT, ShouldTryRematchBattle
goto_if_eq VAR_RESULT, TRUE, SilphCo_9F_EventScript_EdRematch
msgbox SilphCo_9F_Text_EdPostBattle, MSGBOX_AUTOCLOSE
end
SilphCo_9F_EventScript_EdRematch::
trainerbattle_rematch TRAINER_SCIENTIST_ED, SilphCo_9F_Text_EdIntro, SilphCo_9F_Text_EdDefeat
msgbox SilphCo_9F_Text_EdPostBattle, MSGBOX_AUTOCLOSE
end
SilphCo_9F_EventScript_Grunt1::
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_37, SilphCo_9F_Text_Grunt1Intro, SilphCo_9F_Text_Grunt1Defeat
specialvar VAR_RESULT, ShouldTryRematchBattle
goto_if_eq VAR_RESULT, TRUE, SilphCo_9F_EventScript_Grunt1Rematch
msgbox SilphCo_9F_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
SilphCo_9F_EventScript_Grunt1Rematch::
trainerbattle_rematch TRAINER_TEAM_ROCKET_GRUNT_37, SilphCo_9F_Text_Grunt1Intro, SilphCo_9F_Text_Grunt1Defeat
msgbox SilphCo_9F_Text_Grunt1PostBattle, MSGBOX_AUTOCLOSE
end
SilphCo_9F_EventScript_Grunt2::
trainerbattle_single TRAINER_TEAM_ROCKET_GRUNT_38, SilphCo_9F_Text_Grunt2Intro, SilphCo_9F_Text_Grunt2Defeat
specialvar VAR_RESULT, ShouldTryRematchBattle
goto_if_eq VAR_RESULT, TRUE, SilphCo_9F_EventScript_Grunt2Rematch
msgbox SilphCo_9F_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end
SilphCo_9F_EventScript_Grunt2Rematch::
trainerbattle_rematch TRAINER_TEAM_ROCKET_GRUNT_38, SilphCo_9F_Text_Grunt2Intro, SilphCo_9F_Text_Grunt2Defeat
msgbox SilphCo_9F_Text_Grunt2PostBattle, MSGBOX_AUTOCLOSE
end