tumbledemerald-legacy/data/maps/SlateportCity_PokemonFanClub/scripts.inc
2022-05-19 17:14:13 +00:00

401 lines
15 KiB
PHP

SlateportCity_PokemonFanClub_MapScripts::
.byte 0
SlateportCity_PokemonFanClub_EventScript_Chairman::
lock
faceplayer
goto_if_unset FLAG_ENTERED_CONTEST, SlateportCity_PokemonFanClub_EventScript_ChairmanNotEnteredContest
call_if_unset FLAG_MET_SLATEPORT_FANCLUB_CHAIRMAN, SlateportCity_PokemonFanClub_EventScript_MeetChairman
switch VAR_SLATEPORT_FAN_CLUB_STATE
case 0, SlateportCity_PokemonFanClub_EventScript_ChairmanFirstAssessment
case 1, SlateportCity_PokemonFanClub_EventScript_ChairmanTryAssessPokemon
case 2, SlateportCity_PokemonFanClub_EventScript_NoMoreScarves
release
end
SlateportCity_PokemonFanClub_EventScript_ChairmanFirstAssessment::
setvar VAR_SLATEPORT_FAN_CLUB_STATE, 1
msgbox SlateportCity_PokemonFanClub_Text_AllowMeToExamineYourPokemon, MSGBOX_DEFAULT
goto SlateportCity_PokemonFanClub_EventScript_ChairmanAssessLeadMon
end
SlateportCity_PokemonFanClub_EventScript_ChairmanTryAssessPokemon::
setvar VAR_TEMP_2, 0
call_if_set FLAG_RECEIVED_YELLOW_SCARF, SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf
call_if_set FLAG_RECEIVED_GREEN_SCARF, SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf
call_if_set FLAG_RECEIVED_PINK_SCARF, SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf
call_if_set FLAG_RECEIVED_BLUE_SCARF, SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf
call_if_set FLAG_RECEIVED_RED_SCARF, SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf
call_if_eq VAR_TEMP_2, CONTEST_CATEGORIES_COUNT, SlateportCity_PokemonFanClub_EventScript_ReceivedAllScarves
goto_if_eq VAR_SLATEPORT_FAN_CLUB_STATE, 2, SlateportCity_PokemonFanClub_EventScript_NoMoreScarves
msgbox SlateportCity_PokemonFanClub_Text_HowIsYourPokemonGrowing, MSGBOX_DEFAULT
goto SlateportCity_PokemonFanClub_EventScript_ChairmanAssessLeadMon
end
SlateportCity_PokemonFanClub_EventScript_NoMoreScarves::
msgbox SlateportCity_PokemonFanClub_Text_NothingElseToGiveYou, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_ChairmanAssessLeadMon::
msgbox SlateportCity_PokemonFanClub_Text_HmHmISee, MSGBOX_DEFAULT
setvar VAR_TEMP_1, 0
call_if_unset FLAG_RECEIVED_YELLOW_SCARF, SlateportCity_PokemonFanClub_EventScript_CheckMonTough
call_if_unset FLAG_RECEIVED_GREEN_SCARF, SlateportCity_PokemonFanClub_EventScript_CheckMonSmart
call_if_unset FLAG_RECEIVED_PINK_SCARF, SlateportCity_PokemonFanClub_EventScript_CheckMonCute
call_if_unset FLAG_RECEIVED_BLUE_SCARF, SlateportCity_PokemonFanClub_EventScript_CheckMonBeauty
call_if_unset FLAG_RECEIVED_RED_SCARF, SlateportCity_PokemonFanClub_EventScript_CheckMonCool
bufferleadmonspeciesname STR_VAR_1
switch VAR_TEMP_1
case 0, SlateportCity_PokemonFanClub_EventScript_NoHighConditions
case 1, SlateportCity_PokemonFanClub_EventScript_GiveRedScarf
case 2, SlateportCity_PokemonFanClub_EventScript_GiveBlueScarf
case 3, SlateportCity_PokemonFanClub_EventScript_GivePinkScarf
case 4, SlateportCity_PokemonFanClub_EventScript_GiveGreenScarf
case 5, SlateportCity_PokemonFanClub_EventScript_GiveYellowScarf
release
end
SlateportCity_PokemonFanClub_EventScript_ReceivedAllScarves::
setvar VAR_SLATEPORT_FAN_CLUB_STATE, 2
return
SlateportCity_PokemonFanClub_EventScript_CountReceivedScarf::
addvar VAR_TEMP_2, 1
return
SlateportCity_PokemonFanClub_EventScript_NoHighConditions::
msgbox SlateportCity_PokemonFanClub_Text_GiveMonMorePokeblocks, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_GiveRedScarf::
checkitemspace ITEM_RED_SCARF
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf
msgbox SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_RED_SCARF
giveitem ITEM_RED_SCARF
msgbox SlateportCity_PokemonFanClub_Text_ExplainRedScarf, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_GiveBlueScarf::
checkitemspace ITEM_BLUE_SCARF
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf
msgbox SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_BLUE_SCARF
giveitem ITEM_BLUE_SCARF
msgbox SlateportCity_PokemonFanClub_Text_ExplainBlueScarf, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_GivePinkScarf::
checkitemspace ITEM_PINK_SCARF
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf
msgbox SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_PINK_SCARF
giveitem ITEM_PINK_SCARF
msgbox SlateportCity_PokemonFanClub_Text_ExplainPinkScarf, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_GiveGreenScarf::
checkitemspace ITEM_GREEN_SCARF
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf
msgbox SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_GREEN_SCARF
giveitem ITEM_GREEN_SCARF
msgbox SlateportCity_PokemonFanClub_Text_ExplainGreenScarf, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_GiveYellowScarf::
checkitemspace ITEM_YELLOW_SCARF
goto_if_eq VAR_RESULT, FALSE, SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf
msgbox SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis, MSGBOX_DEFAULT
setflag FLAG_RECEIVED_YELLOW_SCARF
giveitem ITEM_YELLOW_SCARF
msgbox SlateportCity_PokemonFanClub_Text_ExplainYellowScarf, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_NoRoomForScarf::
msgbox SlateportCity_PokemonFanClub_Text_NoSpaceForReward, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_CheckMonCool::
specialvar VAR_RESULT, CheckLeadMonCool
call_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_SetMonCool
return
SlateportCity_PokemonFanClub_EventScript_SetMonCool::
setvar VAR_TEMP_1, 1
return
SlateportCity_PokemonFanClub_EventScript_CheckMonBeauty::
specialvar VAR_RESULT, CheckLeadMonBeauty
call_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_SetMonBeauty
return
SlateportCity_PokemonFanClub_EventScript_SetMonBeauty::
setvar VAR_TEMP_1, 2
return
SlateportCity_PokemonFanClub_EventScript_CheckMonCute::
specialvar VAR_RESULT, CheckLeadMonCute
call_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_SetMonCute
return
SlateportCity_PokemonFanClub_EventScript_SetMonCute::
setvar VAR_TEMP_1, 3
return
SlateportCity_PokemonFanClub_EventScript_CheckMonSmart::
specialvar VAR_RESULT, CheckLeadMonSmart
call_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_SetMonSmart
return
SlateportCity_PokemonFanClub_EventScript_SetMonSmart::
setvar VAR_TEMP_1, 4
return
SlateportCity_PokemonFanClub_EventScript_CheckMonTough::
specialvar VAR_RESULT, CheckLeadMonTough
call_if_eq VAR_RESULT, TRUE, SlateportCity_PokemonFanClub_EventScript_SetMonTough
return
SlateportCity_PokemonFanClub_EventScript_SetMonTough::
setvar VAR_TEMP_1, 5
return
SlateportCity_PokemonFanClub_EventScript_ChairmanNotEnteredContest::
goto_if_set FLAG_MET_SLATEPORT_FANCLUB_CHAIRMAN, SlateportCity_PokemonFanClub_EventScript_ChairmanEnterContest
msgbox SlateportCity_PokemonFanClub_Text_MeetChairman, MSGBOX_DEFAULT
setflag FLAG_MET_SLATEPORT_FANCLUB_CHAIRMAN
release
end
SlateportCity_PokemonFanClub_EventScript_ChairmanEnterContest::
msgbox SlateportCity_PokemonFanClub_Text_LikeToSeeEnteredContestPokemon, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_MeetChairman::
msgbox SlateportCity_PokemonFanClub_Text_MeetChairman, MSGBOX_DEFAULT
setflag FLAG_MET_SLATEPORT_FANCLUB_CHAIRMAN
return
SlateportCity_PokemonFanClub_EventScript_SootheBellWoman::
lock
faceplayer
goto_if_set FLAG_RECEIVED_SOOTHE_BELL, SlateportCity_PokemonFanClub_EventScript_ReceivedSootheBell
msgbox SlateportCity_PokemonFanClub_Text_ShowMePokemonThatLoveYou, MSGBOX_DEFAULT
specialvar VAR_RESULT, GetLeadMonFriendshipScore
goto_if_ge VAR_RESULT, 4, SlateportCity_PokemonFanClub_EventScript_GiveSootheBell
release
end
SlateportCity_PokemonFanClub_EventScript_GiveSootheBell::
playse SE_PIN
applymovement VAR_LAST_TALKED, Common_Movement_ExclamationMark
waitmovement 0
applymovement VAR_LAST_TALKED, Common_Movement_Delay48
waitmovement 0
msgbox SlateportCity_PokemonFanClub_Text_PokemonAdoresYou, MSGBOX_DEFAULT
giveitem ITEM_SOOTHE_BELL
goto_if_eq VAR_RESULT, FALSE, Common_EventScript_ShowBagIsFull
setflag FLAG_RECEIVED_SOOTHE_BELL
release
end
SlateportCity_PokemonFanClub_EventScript_ReceivedSootheBell::
msgbox SlateportCity_PokemonFanClub_Text_TreatPokemonWithLove, MSGBOX_DEFAULT
release
end
SlateportCity_PokemonFanClub_EventScript_Man::
msgbox SlateportCity_PokemonFanClub_Text_PokemonDontLikeFainting, MSGBOX_NPC
end
SlateportCity_PokemonFanClub_EventScript_Twin::
msgbox SlateportCity_PokemonFanClub_Text_MonEnjoyedProtein, MSGBOX_NPC
end
SlateportCity_PokemonFanClub_EventScript_Skitty::
lock
faceplayer
waitse
playmoncry SPECIES_SKITTY, CRY_MODE_NORMAL
msgbox SlateportCity_PokemonFanClub_Text_Skitty, MSGBOX_DEFAULT
waitmoncry
release
end
SlateportCity_PokemonFanClub_EventScript_Zigzagoon::
lock
faceplayer
waitse
playmoncry SPECIES_ZIGZAGOON, CRY_MODE_NORMAL
msgbox SlateportCity_PokemonFanClub_Text_Zigzagoon, MSGBOX_DEFAULT
waitmoncry
release
end
SlateportCity_PokemonFanClub_EventScript_Azumarill::
lock
faceplayer
waitse
playmoncry SPECIES_AZUMARILL, CRY_MODE_NORMAL
msgbox SlateportCity_PokemonFanClub_Text_Azumarill, MSGBOX_DEFAULT
waitmoncry
release
end
SlateportCity_PokemonFanClub_Text_MeetChairman:
.string "Er-hem! I am the CHAIRMAN of the\n"
.string "POKéMON FAN CLUB!\p"
.string "Being the CHAIRMAN, I am naturally\n"
.string "the most important!\p"
.string "No one can best me when it comes\n"
.string "to raising POKéMON. No one!\p"
.string "Well, let me tell you about\n"
.string "POKéMON CONTESTS.\p"
.string "They're events where one can show off\n"
.string "POKéMON for the world to see!\p"
.string "However, they're held in far-off towns,\n"
.string "so I cannot participate often enough.\p"
.string "That is why we gather here to show\n"
.string "off our POKéMON, and have others\l"
.string "show us theirs.$"
SlateportCity_PokemonFanClub_Text_LikeToSeeEnteredContestPokemon:
.string "The POKéMON of a TRAINER who has\n"
.string "entered a POKéMON CONTEST…\l"
.string "That, I would like to see.$"
SlateportCity_PokemonFanClub_Text_AllowMeToExamineYourPokemon:
.string "Er-hem! I see you've participated in\n"
.string "a POKéMON CONTEST!\p"
.string "Please! Allow me to examine how you\n"
.string "have raised your POKéMON.\p"
.string "It delights me no end to see POKéMON\n"
.string "raised by other TRAINERS.\p"
.string "The happy expressions of POKéMON\n"
.string "raised with proper care…\p"
.string "The kindly eyes of the TRAINER that\n"
.string "nurtured and raised the POKéMON…\p"
.string "The very thought fills my heart to\n"
.string "overwhelming with joy.\p"
.string "Oh! I do beg your pardon!\n"
.string "Forgive me for prattling on so!\p"
.string "Please! Allow me to examine how much\n"
.string "your POKéMON has grown!$"
SlateportCity_PokemonFanClub_Text_HowIsYourPokemonGrowing:
.string "How is your POKéMON growing?\n"
.string "Allow me to examine it.$"
SlateportCity_PokemonFanClub_Text_HmHmISee:
.string "Hm, hm…\n"
.string "I see…$"
SlateportCity_PokemonFanClub_Text_GiveMonMorePokeblocks:
.string "Hmmm… It's not bad, but it's not\n"
.string "good, either…\p"
.string "You, the TRAINER, must put more\n"
.string "effort into raising this POKéMON!\p"
.string "For instance, may I suggest that\n"
.string "you give it more {POKEBLOCK}S?$"
SlateportCity_PokemonFanClub_Text_NoSpaceForReward:
.string "Oh, my…\p"
.string "Your POKéMON is growing quite well,\n"
.string "so you deserve a reward.\p"
.string "Unfortunately, you have no space for\n"
.string "this in your BAG.$"
SlateportCity_PokemonFanClub_Text_MonMostImpressiveGiveItThis:
.string "Your {STR_VAR_1}, it is growing in\n"
.string "a most impressive manner!\l"
.string "It is one fine specimen!\p"
.string "But! If you were to give it this,\n"
.string "it would grow even better! Indeed!$"
SlateportCity_PokemonFanClub_Text_ExplainRedScarf:
.string "Let a POKéMON hold that RED SCARF.\p"
.string "Everyone will recognize the coolness\n"
.string "of that POKéMON!$"
SlateportCity_PokemonFanClub_Text_ExplainBlueScarf:
.string "Let a POKéMON hold that BLUE SCARF.\p"
.string "Its beauty will be accentuated much\n"
.string "more than now!$"
SlateportCity_PokemonFanClub_Text_ExplainPinkScarf:
.string "Let a POKéMON hold that PINK SCARF.\p"
.string "It will draw out the cuteness of\n"
.string "the POKéMON some more!$"
SlateportCity_PokemonFanClub_Text_ExplainGreenScarf:
.string "Let a POKéMON hold that GREEN SCARF.\p"
.string "That will enhance the\n"
.string "smartness of POKéMON!$"
SlateportCity_PokemonFanClub_Text_ExplainYellowScarf:
.string "Let a POKéMON hold that YELLOW SCARF.\p"
.string "It will bolster your POKéMON's\n"
.string "toughness so much more!$"
SlateportCity_PokemonFanClub_Text_NothingElseToGiveYou:
.string "I'm sorry, but I've nothing else to\n"
.string "give you! None at all!\p"
.string "After all, you're blessed with the gift\n"
.string "of raising POKéMON without resorting\l"
.string "to any items!$"
SlateportCity_PokemonFanClub_Text_ShowMePokemonThatLoveYou:
.string "I love seeing POKéMON that love\n"
.string "their TRAINERS.\p"
.string "POKéMON are very sensitive to\n"
.string "the feelings of their TRAINERS.\p"
.string "If you treat your POKéMON with love\n"
.string "and care, they'll love you back.\p"
.string "When your POKéMON grow to love you,\n"
.string "please come show me.$"
SlateportCity_PokemonFanClub_Text_PokemonAdoresYou:
.string "Your POKéMON really adores you.\p"
.string "For you, a most compassionate\n"
.string "TRAINER, a gift from the FAN CLUB!$"
SlateportCity_PokemonFanClub_Text_TreatPokemonWithLove:
.string "POKéMON are very sensitive to\n"
.string "the feelings of their TRAINERS.\p"
.string "If you treat your POKéMON with love\n"
.string "and care, they'll love you back.$"
SlateportCity_PokemonFanClub_Text_PokemonDontLikeFainting:
.string "If you keep letting a POKéMON faint\n"
.string "in battle, it'll come to resent it.\p"
.string "Soon, it will become less trusting\n"
.string "of the TRAINER.\p"
.string "In other words, it certainly won't\n"
.string "like you very much.$"
SlateportCity_PokemonFanClub_Text_MonEnjoyedProtein:
.string "Do POKéMON enjoy having items used\n"
.string "on them?\p"
.string "Mine acted really happy when I gave\n"
.string "it some PROTEIN.$"
SlateportCity_PokemonFanClub_Text_Skitty:
.string "SKITTY: Fffnyaaaah…$"
SlateportCity_PokemonFanClub_Text_Zigzagoon:
.string "ZIGZAGOON: Kyuuu…$"
SlateportCity_PokemonFanClub_Text_Azumarill:
.string "AZUMARILL: Marimari?$"