dionmoustos/PokemonEmeraldSafariFrontier
1
0
Fork 0
Code Issues 21 Pull Requests Actions Packages Projects Releases Wiki Activity

document secret_base_1.inc

Browse Source
This commit is contained in:
GriffinR
2019-09-05 16:16:21 -04:00
parent 1d703e786b
commit 8c6b5648d4
7 changed files with 242 additions and 235 deletions
Download Patch File Download Diff File Expand all files Collapse all files

199
data/scripts/secret_base_1.inc Normal file
View File

@@ -0,0 +1,199 @@
SecretBase_EventScript_PC:: @ 823B4BB
lockall
playse SE_PC_LOGIN
message SecretBase_Text_BootUpPC
dofieldeffect FLDEFF_PCTURN_ON
waitstate
waitmessage
waitbuttonpress
playse SE_SELECT
goto SecretBase_EventScript_PCShowMainMenu
end
SecretBase_EventScript_PCShowMainMenu:: @ 823B4D3
message SecretBase_Text_WhatWouldYouLikeToDo
waitmessage
goto_if_set FLAG_SECRET_BASE_REGISTRY_ENABLED, SecretBase_EventScript_PCMainMenuWithRegister
goto SecretBase_EventScript_PCMainMenuWithoutRegister
end
SecretBase_EventScript_PCCancel:: @ 823B4E8
lockall
goto SecretBase_EventScript_PCShowMainMenu
end
SecretBase_EventScript_PCMainMenuWithRegister:: @ 823B4EF
multichoice 0, 0, 6, 0
switch VAR_RESULT
case 0, SecretBase_EventScript_PCDecorationMenu
case 1, SecretBase_EventScript_PCPackUp
case 2, SecretBase_EventScript_PCRegistryMenu
case 3, SecretBase_EventScript_PCTurnOff
case 127, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_PCMainMenuWithoutRegister:: @ 823B531
multichoice 0, 0, 5, 0
switch VAR_RESULT
case 0, SecretBase_EventScript_PCDecorationMenu
case 1, SecretBase_EventScript_PCPackUp
case 2, SecretBase_EventScript_PCTurnOff
case 127, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_PCPackUp:: @ 823B568
msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq SecretBase_EventScript_PCShowMainMenu
closemessage
special MoveOutOfSecretBase
releaseall
end
SecretBase_EventScript_PCDecorationMenu:: @ 823B581
special ShowSecretBaseDecorationMenu
end
SecretBase_EventScript_PCRegistryMenu:: @ 823B585
special ShowSecretBaseRegistryMenu
end
SecretBase_EventScript_RecordMixingPC:: @ 823B589
lockall
message SecretBase_Text_BootUpPC
playse SE_PC_LOGIN
dofieldeffect FLDEFF_PCTURN_ON
waitstate
waitmessage
waitbuttonpress
playse SE_SELECT
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCRegisterMenu:: @ 823B5A1
message SecretBase_Text_WhatWouldYouLikeToDo
waitmessage
multichoice 0, 0, 7, 0
switch VAR_RESULT
case 0, SecretBase_EventScript_PCRegister
case 1, SecretBase_EventScript_PCRegistryMenu
case 2, SecretBase_EventScript_PCRegistryInfo
case 3, SecretBase_EventScript_PCTurnOff
case 127, SecretBase_EventScript_PCTurnOff
end
SecretBase_EventScript_ShowRegisterMenu:: @ 823B5E9
lockall
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCRegister:: @ 823B5F0
special GetCurSecretBaseRegistrationValidity
compare VAR_RESULT, 1
goto_if_eq SecretBase_EventScript_AlreadyRegistered
compare VAR_RESULT, 2
goto_if_eq SecretBase_EventScript_CantRegisterTooManyBases
special CopyCurSecretBaseOwnerName_StrVar1
msgbox SecretBase_Text_WantToRegisterSecretBase, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq SecretBase_EventScript_PCRegisterMenu
msgbox SecretBase_Text_RegistrationCompleted, MSGBOX_SIGN
special ToggleCurSecretBaseRegistry
special DoSecretBasePCTurnOffEffect
releaseall
end
SecretBase_EventScript_AlreadyRegistered:: @ 823B62F
msgbox SecretBase_Text_AlreadyRegisteredDelete, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq SecretBase_EventScript_PCRegisterMenu
msgbox SecretBase_Text_DataUnregistered, MSGBOX_SIGN
special ToggleCurSecretBaseRegistry
special DoSecretBasePCTurnOffEffect
releaseall
end
SecretBase_EventScript_CantRegisterTooManyBases:: @ 823B652
msgbox SecretBase_Text_TooManyBasesDeleteSome, MSGBOX_SIGN
special DoSecretBasePCTurnOffEffect
closemessage
releaseall
end
SecretBase_EventScript_PCRegistryInfo:: @ 823B660
msgbox SecretBase_Text_RegistryInfo, MSGBOX_DEFAULT
goto SecretBase_EventScript_PCRegisterMenu
end
SecretBase_EventScript_PCTurnOff:: @ 823B66E
special DoSecretBasePCTurnOffEffect
closemessage
releaseall
end
@ Unused
SecretBase_EventScript_23B674:: @ 823B674
special SetSecretBaseSecretsTvFlags_Poster
end
@ Unused
SecretBase_EventScript_23B678:: @ 823B678
special SetSecretBaseSecretsTvFlags_MiscFurnature
end
@ Unused
SecretBase_EventScript_23B67C:: @ 823B67C
special SetSecretBaseSecretsTvFlags_LargeDecorationSpot
end
@ Unused
SecretBase_EventScript_23B680:: @ 823B680
special SetSecretBaseSecretsTvFlags_SmallDecorationSpot
end
SecretBase_EventScript_SandOrnament:: @ 823B684
special SetSecretBaseSecretsTvFlags_SandOrnament
dofieldeffect FLDEFF_SAND_PILLAR
waitstate
end
SecretBase_EventScript_ShieldOrToyTV:: @ 823B68C
special GetShieldToyTVDecorationInfo
compare VAR_RESULT, 0
goto_if_eq SecretBase_EventScript_BattleTowerShield
compare VAR_RESULT, 1
goto_if_eq SecretBase_EventScript_ToyTV
compare VAR_RESULT, 2
goto_if_eq SecretBase_EventScript_SeedotTV
compare VAR_RESULT, 3
goto_if_eq SecretBase_EventScript_SkittyTV
end
SecretBase_EventScript_BattleTowerShield:: @ 823B6BC
msgbox SecretBase_Text_BattleTowerShield, MSGBOX_SIGN
end
SecretBase_EventScript_ToyTV:: @ 823B6C5
msgbox SecretBase_Text_ToyTV, MSGBOX_SIGN
end
SecretBase_EventScript_SeedotTV:: @ 823B6CE
msgbox SecretBase_Text_SeedotTV, MSGBOX_SIGN
end
SecretBase_EventScript_SkittyTV:: @ 823B6D7
msgbox SecretBase_Text_SkittyTV, MSGBOX_SIGN
end
SecretBase_Text_SmallIndentInWall:: @ 823B6E0
.string "There's a small indent in the wall.$"
SecretBase_Text_UseSecretPower:: @ 823B704
.string "There's a small indent in the wall.\p"
.string "Use the SECRET POWER?$"
SecretBase_Text_DiscoveredSmallCavern:: @ 823B73E
.string "Discovered a small cavern!$"
SecretBase_Text_WantToMakeYourSecretBaseHere: @ 823B759
.string "Want to make your SECRET BASE here?$"

36
data/scripts/secret_base.inc → data/scripts/secret_base_2.inc
View File

@@ -336,7 +336,7 @@ EventScript_275A50:: @ 8275A50
compare VAR_RESULT, 6
goto_if_eq EventScript_275A91
bufferpartymonnick 0, VAR_RESULT
msgbox gText_UseSecretPower, MSGBOX_YESNO
msgbox SecretBase_Text_UseSecretPower, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq EventScript_275CDE
msgbox Text_MonUsedHM, MSGBOX_DEFAULT
@@ -354,12 +354,12 @@ EventScript_275A86:: @ 8275A86
end
EventScript_275A91:: @ 8275A91
msgbox gText_SmallIndentInWall, MSGBOX_DEFAULT
msgbox SecretBase_Text_SmallIndentInWall, MSGBOX_DEFAULT
releaseall
end
EventScript_275A9B:: @ 8275A9B
msgbox gText_DiscoveredSmallCavern, MSGBOX_DEFAULT
msgbox SecretBase_Text_DiscoveredSmallCavern, MSGBOX_DEFAULT
goto EventScript_275B5B
end
@@ -445,7 +445,7 @@ SecretBase_RedCave1_EventScript_275B81:: @ 8275B81
applymovement EVENT_OBJ_ID_PLAYER, SecretBase_RedCave1_Movement_275BB4
waitmovement 0
setvar VAR_INIT_SECRET_BASE, 1
msgbox SecretBase_RedCave1_Text_23B759, MSGBOX_YESNO
msgbox SecretBase_Text_WantToMakeYourSecretBaseHere, MSGBOX_YESNO
compare VAR_RESULT, 1
goto_if_eq SecretBase_RedCave1_EventScript_275BAB
closemessage
@@ -493,17 +493,17 @@ EventScript_275BE8:: @ 8275BE8
setorcopyvar VAR_0x8004, VAR_RESULT
lockall
special GetSecretBaseNearbyMapName
msgbox Text_276A3D, MSGBOX_YESNO
msgbox SecretBase_Text_WouldYouLikeToMoveBases, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq EventScript_275CDE
msgbox Text_2766AA, MSGBOX_YESNO
msgbox SecretBase_Text_AllDecorationsWillBeReturned, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq EventScript_275CDE
fadescreenswapbuffers 1
special MoveOutOfSecretBaseFromOutside
closemessage
fadescreenswapbuffers 0
msgbox Text_276A95, MSGBOX_YESNO
msgbox SecretBase_Text_MovingCompletedUseSecretPower, MSGBOX_YESNO
compare VAR_RESULT, 0
goto_if_eq EventScript_275CDE
bufferpartymonnick 0, VAR_0x8004
@@ -1047,37 +1047,37 @@ SecretBase_EventScript_CushionInteract:: @ 82766A6
special sub_80EB2C8
end
Text_2766AA: @ 82766AA
SecretBase_Text_AllDecorationsWillBeReturned: @ 82766AA
.string "All decorations and furniture in your\n"
.string "SECRET BASE will be returned to your PC.\p"
.string "Is that okay?$"
Text_WantToRegisterSecretBase: @ 8276707
SecretBase_Text_WantToRegisterSecretBase: @ 8276707
.string "Do you want to register\n"
.string "{STR_VAR_1}'s SECRET BASE?$"
Text_276731: @ 8276731
SecretBase_Text_AlreadyRegisteredDelete: @ 8276731
.string "This data is already registered.\n"
.string "Would you like to delete it?$"
Text_TooManyBasesDeleteSome: @ 827676F
SecretBase_Text_TooManyBasesDeleteSome: @ 827676F
.string "Up to 10 locations can be registered.\p"
.string "Delete a location if you want to\n"
.string "register another location.$"
Text_2767D1: @ 82767D1
SecretBase_Text_RegistrationCompleted: @ 82767D1
.string "Registration completed.$"
Text_2767E9: @ 82767E9
SecretBase_Text_DataUnregistered: @ 82767E9
.string "Data has been unregistered.$"
Text_SecretBaseBootUpPC: @ 8276805
SecretBase_Text_BootUpPC: @ 8276805
.string "{PLAYER} booted up the PC.$"
Text_SecretBasePCStartMenu: @ 827681A
SecretBase_Text_WhatWouldYouLikeToDo: @ 827681A
.string "What would you like to do?$"
Text_276835: @ 8276835
SecretBase_Text_RegistryInfo: @ 8276835
.string "Once registered, a SECRET BASE will not\n"
.string "disappear unless the other TRAINER\l"
.string "moves it to a different location.\p"
@@ -1103,11 +1103,11 @@ SecretBase_Text_SkittyTV: @ 82769FF
.string "A toy TV shaped like a SKITTY.\n"
.string "It looks ready to stroll away…$"
Text_276A3D: @ 8276A3D
SecretBase_Text_WouldYouLikeToMoveBases: @ 8276A3D
.string "You may only make one SECRET BASE.\p"
.string "Would you like to move from the SECRET\n"
.string "BASE near {STR_VAR_1}?$"
Text_276A95: @ 8276A95
SecretBase_Text_MovingCompletedUseSecretPower: @ 8276A95
.string "Moving completed.\p"
.string "Would you like to use the SECRET POWER?$"