pokeemerald-expansion/data/scripts/mystery_event_club.inc
2026-01-28 17:41:12 +01:00

178 lines
4.2 KiB
PHP

.equ GAVE_PROFILE, VAR_TEMP_1
MysteryEventClub_EventScript_Woman::
lock
faceplayer
goto_if_eq GAVE_PROFILE, TRUE, EventScript_AlreadyGaveProfile
goto_if_set FLAG_SYS_SET_TRAINER_CARD_PROFILE, EventScript_GivenProfileBefore
msgbox Text_IdLoveToHearYourProfile
goto EventScript_AskForProfile
end
EventScript_AlreadyGaveProfile:
msgbox Text_TellMoreNextTime
release
end
EventScript_AskForProfile:
message Text_TellMeWhatsYourProfile
waitmessage
multichoice 18, 6, MULTI_YESNOINFO_2, FALSE
switch VAR_RESULT
case 0, EventScript_AcceptGiveProfile
case 1, EventScript_DeclineGiveProfile
case 2, EventScript_ProfileInfo
case MULTI_B_PRESSED, EventScript_DeclineGiveProfile
end
EventScript_ProfileInfo:
msgbox Text_ExplainProfile
goto EventScript_AskForProfile
end
EventScript_AcceptGiveProfile:
msgbox Text_WhatsYourProfile
closemessage
goto EventScript_GiveProfile
end
EventScript_CancelGiveProfile:
msgbox Text_DecidedNotTo
release
end
EventScript_GaveProfile:
setvar GAVE_PROFILE, TRUE
setvar VAR_0x8004, 0
special ShowEasyChatProfile
waitmessage
delay 80
msgbox Text_ProfileSaysSomethingAboutYou
release
end
EventScript_DeclineGiveProfile:
msgbox Text_DontBeLikeThat
release
end
EventScript_GivenProfileBefore:
msgbox Text_HiWeMeetAgain
goto EventScript_AskForNewProfile
end
EventScript_AskForNewProfile:
message Text_ChangeYourProfile
waitmessage
multichoice 18, 6, MULTI_YESNOINFO_2, FALSE
switch VAR_RESULT
case 0, EventScript_AcceptGiveNewProfile
case 1, EventScript_DeclineGiveNewProfile
case 2, EventScript_ProfileInfo2
@case MULTI_B_PRESSED, EventScript_DeclineGiveNewProfile
end
EventScript_ProfileInfo2:
msgbox Text_ExplainProfile
goto EventScript_AskForNewProfile
end
EventScript_AcceptGiveNewProfile:
msgbox Text_WhatAreYouLikeNow
closemessage
goto EventScript_GiveProfile
end
EventScript_DeclineGiveNewProfile:
msgbox Text_LikeProfileWayItIs
release
end
EventScript_GaveSpecialProfile:
setvar GAVE_PROFILE, TRUE
setvar VAR_0x8004, 0
special ShowEasyChatProfile
waitmessage
delay 80
msgbox Text_HeardThatBefore
release
end
EventScript_GiveProfile:
setvar VAR_0x8004, EASY_CHAT_TYPE_PROFILE
call Common_ShowEasyChatScreen
lock
faceplayer
goto_if_eq VAR_0x8004, 0, EventScript_GaveSpecialProfile
goto_if_eq VAR_RESULT, FALSE, EventScript_CancelGiveProfile
goto_if_eq VAR_RESULT, TRUE, EventScript_GaveProfile
end
Text_IdLoveToHearYourProfile:
.string "Hi, glad to meet you!\p"
.string "…That's unfriendly of you.\n"
.string "How about saying hi back?\p"
.string "So, come on, tell me about\n"
.string "yourself.\p"
.string "I'd love to hear your profile!$"
Text_TellMeWhatsYourProfile:
.string "Tell me something good about\n"
.string "yourself. What's your profile?$"
Text_ExplainProfile:
.string "A profile is written using four\n"
.string "words or phrases.\p"
.string "There're plenty of words to choose\n"
.string "from for your profile.\p"
.string "The words and phrases are placed\n"
.string "in several convenient groups.\p"
.string "First, choose a group, then choose\n"
.string "a word or phrase.\p"
.string "…It's easier than it sounds.\n"
.string "Why don't you try it?$"
Text_WhatsYourProfile:
.string "What's your profile?$"
Text_DontBeLikeThat:
.string "Aww… Don't be like that.\n"
.string "You can tell me your profile.$"
Text_DecidedNotTo:
.string "Oh, you've decided not to?\n"
.string "You're fickle, aren't you?$"
Text_HiWeMeetAgain:
.string "Hi!\n"
.string "We meet again!$"
Text_ChangeYourProfile:
.string "Would you like to change your\n"
.string "profile?$"
Text_WhatAreYouLikeNow:
.string "What are you like now?\n"
.string "I'd really like to know.$"
Text_LikeProfileWayItIs:
.string "Okay, you like your profile the\n"
.string "way it is.\p"
.string "I think so, too.$"
Text_ProfileSaysSomethingAboutYou:
.string "Hmhm…\p"
.string "Your profile really says something\n"
.string "about who you are.\p"
.string "Now that I know you better, it \n"
.string "makes us better friends than ever!$"
Text_HeardThatBefore:
.string "Oh, I've heard that before…\p"
.string "My cousin, who lives far away,\n"
.string "always used to say that, I think.$"
Text_TellMoreNextTime:
.string "Please tell me more about\n"
.string "yourself next time!$"