pokefirered/data/maps/LavenderTown_House2/scripts.inc

73 lines
2.3 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 ChoosePartyMon
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, GetPartyMonSpecies
compare VAR_RESULT, SPECIES_EGG
goto_if_eq LavenderTown_House2_EventScript_CantNicknameEgg
special BufferMonNickname
special IsMonOTIDNotPlayers
compare VAR_RESULT, TRUE
goto_if_eq LavenderTown_House2_EventScript_CantNicknameTradeMon
specialvar VAR_RESULT, IsMonOTNameNotPlayers
special BufferMonNickname
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 BufferMonNickname
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