mirror of
https://github.com/pret/pokefirered.git
synced 2026-05-20 11:58:04 -05:00
135 lines
3.2 KiB
C++
135 lines
3.2 KiB
C++
EventScript_PC::
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
lockall
|
|
goto_if_set FLAG_SYS_PC_STORAGE_DISABLED, EventScript_PCDisabled
|
|
setvar VAR_0x8004, HELPCONTEXT_PC
|
|
special Script_SetHelpContext
|
|
setvar VAR_0x8004, 0
|
|
special AnimatePcTurnOn
|
|
playse SE_PC_ON
|
|
msgbox Text_BootedUpPC
|
|
goto EventScript_PCMainMenu
|
|
end
|
|
|
|
@ For when the player first arrives on One Island
|
|
EventScript_PCDisabled::
|
|
msgbox OneIsland_PokemonCenter_1F_Text_UsualPCServicesUnavailable
|
|
releaseall
|
|
end
|
|
|
|
EventScript_PCMainMenu::
|
|
message Text_AccessWhichPC
|
|
waitmessage
|
|
special CreatePCMenu
|
|
waitstate
|
|
goto EventScript_ChoosePCMenu
|
|
end
|
|
|
|
EventScript_ChoosePCMenu::
|
|
switch VAR_RESULT
|
|
case 0, EventScript_AccessPokemonStorage
|
|
case 1, EventScript_AccessPlayersPC
|
|
case 2, EventScript_AccessProfOaksPC
|
|
case 3, EventScript_AccessHallOfFame
|
|
case 4, EventScript_TurnOffPC
|
|
case SCR_MENU_CANCEL, EventScript_TurnOffPC
|
|
end
|
|
|
|
EventScript_AccessPlayersPC::
|
|
playse SE_PC_LOGIN
|
|
msgbox Text_AccessedPlayersPC
|
|
special PlayerPC
|
|
waitstate
|
|
goto EventScript_PCMainMenu
|
|
end
|
|
|
|
EventScript_AccessPokemonStorage::
|
|
playse SE_PC_LOGIN
|
|
call_if_unset FLAG_SYS_NOT_SOMEONES_PC, EventScript_AccessSomeonesPC
|
|
call_if_set FLAG_SYS_NOT_SOMEONES_PC, EventScript_AccessBillsPC
|
|
msgbox Text_OpenedPkmnStorage
|
|
special ShowPokemonStorageSystemPC
|
|
waitstate
|
|
setvar VAR_0x8004, HELPCONTEXT_PC
|
|
special Script_SetHelpContext
|
|
goto EventScript_PCMainMenu
|
|
end
|
|
|
|
EventScript_AccessSomeonesPC::
|
|
msgbox Text_AccessedSomeonesPC
|
|
return
|
|
|
|
EventScript_AccessBillsPC::
|
|
msgbox Text_AccessedBillsPC
|
|
return
|
|
|
|
EventScript_TurnOffPC::
|
|
setvar VAR_0x8004, 0
|
|
playse SE_PC_OFF
|
|
special AnimatePcTurnOff
|
|
special SetHelpContextForMap
|
|
releaseall
|
|
end
|
|
|
|
EventScript_AccessHallOfFame::
|
|
goto_if_unset FLAG_SYS_GAME_CLEAR, EventScript_TurnOffPC
|
|
playse SE_PC_LOGIN
|
|
setvar VAR_0x8004, HELPCONTEXT_PC_MISC
|
|
special BackupHelpContext
|
|
special Script_SetHelpContext
|
|
special HallOfFamePCBeginFade
|
|
waitstate
|
|
special RestoreHelpContext
|
|
goto EventScript_ChoosePCMenu
|
|
end
|
|
|
|
EventScript_AccessProfOaksPC::
|
|
goto_if_unset FLAG_SYS_POKEDEX_GET, EventScript_TurnOffPC
|
|
playse SE_PC_LOGIN
|
|
msgbox Text_AccessedProfOaksPC
|
|
msgbox Text_HavePokedexRated, MSGBOX_YESNO
|
|
goto_if_eq VAR_RESULT, NO, EventScript_ExitOaksPC
|
|
setflag FLAG_OAKS_RATING_IS_VIA_PC
|
|
call PokedexRating_EventScript_Rate
|
|
clearflag FLAG_OAKS_RATING_IS_VIA_PC
|
|
goto EventScript_ExitOaksPC
|
|
end
|
|
|
|
EventScript_ExitOaksPC::
|
|
msgbox Text_ClosedLinkToProfOaksPC
|
|
goto EventScript_PCMainMenu
|
|
end
|
|
|
|
EventScript_PCRetrainPkmn::
|
|
msgbox Text_PCRetrainWhichMon
|
|
special ChooseMonForMoveRelearner
|
|
waitstate
|
|
goto_if_ge VAR_0x8004, PARTY_SIZE, EventScript_PCRetrainDone
|
|
special IsSelectedMonEgg
|
|
goto_if_eq VAR_RESULT, TRUE, EventScript_PCRetrainCantTeachEgg
|
|
goto_if_eq VAR_0x8005, 0, EventScript_PCRetrainNoMoves
|
|
goto EventScript_PCRetrainChooseMove
|
|
end
|
|
|
|
EventScript_PCRetrainChooseMove::
|
|
msgbox Text_PCRetrainWhichMove
|
|
special TeachMoveRelearnerMove
|
|
waitstate
|
|
goto_if_eq VAR_0x8004, 0, EventScript_PCRetrainPkmn
|
|
goto EventScript_PCRetrainPkmn
|
|
end
|
|
|
|
EventScript_PCRetrainNoMoves::
|
|
msgbox Text_PCRetrainNoMoves
|
|
goto EventScript_PCRetrainPkmn
|
|
end
|
|
|
|
EventScript_PCRetrainCantTeachEgg::
|
|
msgbox Text_PCRetrainCantTeachEgg
|
|
goto EventScript_PCRetrainPkmn
|
|
end
|
|
|
|
EventScript_PCRetrainDone::
|
|
goto EventScript_PCMainMenu
|
|
end
|