pokefirered/data/maps/LavenderTown_House2/scripts.inc
2020-01-16 13:56:46 -05:00

73 lines
2.4 KiB
PHP

LavenderTown_House2_MapScripts:: @ 816B265
.byte 0
LavenderTown_House2_EventScript_NameRater:: @ 816B266
lock
faceplayer
msgbox LavenderTown_House2_Text_WantMeToRateNicknames, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq LavenderTown_House2_EventScript_ChooseMon
compare VAR_RESULT, NO
goto_if_eq LavenderTown_House2_EventScript_DontRateNickname
end
LavenderTown_House2_EventScript_ChooseMon:: @ 816B287
msgbox LavenderTown_House2_Text_CritiqueWhichMonsNickname
special Special_ChooseMonFromParty
waitstate
compare VAR_0x8004, PARTY_SIZE
goto_if_lt LavenderTown_House2_EventScript_CheckCanRateMon
compare VAR_0x8004, PARTY_SIZE
goto_if_ge LavenderTown_House2_EventScript_DontRateNickname
end
LavenderTown_House2_EventScript_DontRateNickname:: @ 816B2AA
msgbox LavenderTown_House2_Text_ISeeComeVisitAgain
release
end
LavenderTown_House2_EventScript_CheckCanRateMon:: @ 816B2B4
specialvar VAR_RESULT, Special_GetSpeciesOfPartySlot_x8004
compare VAR_RESULT, SPECIES_EGG
goto_if_eq LavenderTown_House2_EventScript_CantNicknameEgg
special Special_GetMonNickname
special Special_IsMonOTIDNotPlayers
compare VAR_RESULT, TRUE
goto_if_eq LavenderTown_House2_EventScript_CantNicknameTradeMon
specialvar VAR_RESULT, Special_IsMonOTNameNotPlayers
special Special_GetMonNickname
compare VAR_RESULT, TRUE
goto_if_eq LavenderTown_House2_EventScript_CantNicknameTradeMon
msgbox LavenderTown_House2_Text_GiveItANicerName, MSGBOX_YESNO
compare VAR_RESULT, YES
goto_if_eq LavenderTown_House2_EventScript_ChooseNewNickname
compare VAR_RESULT, NO
goto_if_eq LavenderTown_House2_EventScript_DontRateNickname
end
LavenderTown_House2_EventScript_CantNicknameEgg:: @ 816B307
msgbox LavenderTown_House2_Text_ThatIsMerelyAnEgg
release
end
LavenderTown_House2_EventScript_CantNicknameTradeMon:: @ 816B311
msgbox LavenderTown_House2_Text_TrulyImpeccableName
release
end
LavenderTown_House2_EventScript_ChooseNewNickname:: @ 816B31B
msgbox LavenderTown_House2_Text_WhatShallNewNicknameBe
call EventScript_ChangePokemonNickname
specialvar VAR_RESULT, NameRaterWasNicknameChanged
special Special_GetMonNickname
compare VAR_RESULT, TRUE
goto_if_eq LavenderTown_House2_EventScript_ChoseNewNickname
msgbox LavenderTown_House2_Text_FromNowOnShallBeKnownAsSameName
release
end
LavenderTown_House2_EventScript_ChoseNewNickname:: @ 816B345
msgbox LavenderTown_House2_Text_FromNowOnShallBeKnownAsName
release
end