pokefirered/data/scripts/trainer_card.inc
2020-03-02 13:52:16 -05:00

377 lines
12 KiB
PHP

CeladonCity_GameCorner_EventScript_PhotoPrinter:: @ 81B2867
lockall
showmoneybox 0, 0, 0
msgbox CeladonCity_GameCorner_Text_TryPokemonPrinter, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq CeladonCity_GameCorner_EventScript_DeclinePhoto
checkmoney 50, 0
compare VAR_RESULT, FALSE
goto_if_eq CeladonCity_GameCorner_EventScript_NotEnoughMoneyForPhoto
playse SE_SHOP
removemoney 50, 0
updatemoneybox 0, 0, 0
waitse
message CeladonCity_GameCorner_Text_ChoosePrintType
waitmessage
multichoice 21, 0, MULTICHOICE_TRAINER_CARD_ICON_TINT, TRUE
switch VAR_RESULT
case 0, CeladonCity_GameCorner_EventScript_PrintTypeNormal
case 1, CeladonCity_GameCorner_EventScript_PrintTypeBlack
case 2, CeladonCity_GameCorner_EventScript_PrintTypePink
case 3, CeladonCity_GameCorner_EventScript_PrintTypeSepia
end
CeladonCity_GameCorner_EventScript_PrintTypeNormal:: @ 81B28DB
setvar VAR_0x8004, MON_ICON_TINT_NORMAL
goto CeladonCity_GameCorner_EventScript_PrintPhoto
end
CeladonCity_GameCorner_EventScript_PrintTypeBlack:: @ 81B28E6
setvar VAR_0x8004, MON_ICON_TINT_BLACK
goto CeladonCity_GameCorner_EventScript_PrintPhoto
end
CeladonCity_GameCorner_EventScript_PrintTypePink:: @ 81B28F1
setvar VAR_0x8004, MON_ICON_TINT_PINK
goto CeladonCity_GameCorner_EventScript_PrintPhoto
end
CeladonCity_GameCorner_EventScript_PrintTypeSepia:: @ 81B28FC
setvar VAR_0x8004, MON_ICON_TINT_SEPIA
goto CeladonCity_GameCorner_EventScript_PrintPhoto
end
CeladonCity_GameCorner_EventScript_PrintPhoto:: @ 81B2907
message CeladonCity_GameCorner_Text_BigSmileForPhoto
waitmessage
playse MUS_ME_PHOTO
dofieldeffect FLDEFF_UNK_45
delay 60
special Special_UpdateTrainerCardPhotoIcons
msgbox CeladonCity_GameCorner_Text_PrintIsReadyCheckTrainerCard
hidemoneybox 0, 0
releaseall
end
CeladonCity_GameCorner_EventScript_DeclinePhoto:: @ 81B2926
hidemoneybox 0, 0
releaseall
end
CeladonCity_GameCorner_EventScript_NotEnoughMoneyForPhoto:: @ 81B292B
msgbox CeladonCity_GameCorner_Text_DontHaveEnoughMoney
hidemoneybox 0, 0
releaseall
end
FourIsland_House2_EventScript_StickerMan:: @ 81B2938
lock
specialvar VAR_0x8008, StickerManGetBragFlags
goto_if_unset FLAG_MET_STICKER_MAN, FourIsland_House2_EventScript_MeetStickerMan
goto_if_set FLAG_MET_STICKER_MAN, FourIsland_House2_EventScript_StickerManAskForBrag
end
FourIsland_House2_EventScript_MeetStickerMan:: @ 81B2951
setflag FLAG_MET_STICKER_MAN
msgbox FourIsland_House2_Text_WishICouldShowOffStickers
applymovement 1, Movement_FacePlayer
waitmovement 0
playse SE_PIN
applymovement 1, Movement_ExclamationMark
waitmovement 0
applymovement 1, Movement_Delay48
waitmovement 0
compare VAR_0x8008, 0
goto_if_eq FourIsland_House2_EventScript_StickerManNothingToBrag
message FourIsland_House2_Text_GiveYouStickerIfYouBrag
waitmessage
goto FourIsland_House2_EventScript_ChooseBrag
end
FourIsland_House2_EventScript_StickerManAskForBrag:: @ 81B2994
applymovement 1, Movement_FacePlayer
waitmovement 0
goto_if_questlog EventScript_ReleaseEnd
special sub_8112364
compare VAR_0x8008, 0
goto_if_eq FourIsland_House2_EventScript_NothingToBragAbout
message FourIsland_House2_Text_BragAboutWhatToday
waitmessage
goto FourIsland_House2_EventScript_ChooseBrag
end
FourIsland_House2_EventScript_NothingToBragAbout:: @ 81B29C6
msgbox FourIsland_House2_Text_BragAboutSomethingForMe
release
end
FourIsland_House2_EventScript_ChooseBrag:: @ 81B29D0
switch VAR_0x8008
case 1, FourIsland_House2_EventScript_ChooseBragHoF
case 2, FourIsland_House2_EventScript_ChooseBragEggs
case 4, FourIsland_House2_EventScript_ChooseBragLinkWins
case 3, FourIsland_House2_EventScript_ChooseBragHoFEggs
case 5, FourIsland_House2_EventScript_ChooseBragHoFLinkWins
case 6, FourIsland_House2_EventScript_ChooseBragEggsLinkWins
case 7, FourIsland_House2_EventScript_ChooseBragHofEggsLinkWins
end
FourIsland_House2_EventScript_ChooseBragHoF:: @ 81B2A23
multichoice 15, 8, MULTICHOICE_HOF_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragHoF
case 1, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragEggs:: @ 81B2A4F
multichoice 16, 8, MULTICHOICE_EGGS_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragEggs
case 1, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragLinkWins:: @ 81B2A7B
multichoice 15, 8, MULTICHOICE_VICTORIES_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragLinkWins
case 1, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragHoFEggs:: @ 81B2AA7
multichoice 15, 6, MULTICHOICE_HOF_EGGS_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragHoF
case 1, FourIsland_House2_EventScript_BragEggs
case 2, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragHoFLinkWins:: @ 81B2ADE
multichoice 15, 6, MULTICHOICE_HOF_VICTORIES_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragHoF
case 1, FourIsland_House2_EventScript_BragLinkWins
case 2, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragEggsLinkWins:: @ 81B2B15
multichoice 15, 6, MULTICHOICE_EGGS_VICTORIES_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragEggs
case 1, FourIsland_House2_EventScript_BragLinkWins
case 2, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_ChooseBragHofEggsLinkWins:: @ 81B2B4C
multichoice 15, 5, MULTICHOICE_HOF_EGGS_VICTORIES_QUIT, FALSE
switch VAR_RESULT
case 0, FourIsland_House2_EventScript_BragHoF
case 1, FourIsland_House2_EventScript_BragEggs
case 2, FourIsland_House2_EventScript_BragLinkWins
case 3, FourIsland_House2_EventScript_QuitBrag
case SCR_MENU_CANCEL, FourIsland_House2_EventScript_QuitBrag
end
FourIsland_House2_EventScript_StickerManNothingToBrag:: @ 81B2B8E
msgbox FourIsland_House2_Text_GiveYouStickerIfYouBrag
release
end
FourIsland_House2_EventScript_BragHoF:: @ 81B2B98
compare VAR_0x8004, 39
goto_if_le FourIsland_House2_EventScript_BragHoFLowest
compare VAR_0x8004, 99
goto_if_le FourIsland_House2_EventScript_BragHoFLow
compare VAR_0x8004, 199
goto_if_le FourIsland_House2_EventScript_BragHoFHigh
compare VAR_0x8004, 200
goto_if_ge FourIsland_House2_EventScript_BragHoFHighest
end
FourIsland_House2_EventScript_BragHoFLowest:: @ 81B2BC5
compare VAR_HOF_BRAG_STATE, 1
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedHoF
setvar VAR_HOF_BRAG_STATE, 1
msgbox FourIsland_House2_Text_WowHoFLowest
goto FourIsland_House2_EventScript_BraggedHoF
end
FourIsland_House2_EventScript_BragHoFLow:: @ 81B2BE3
compare VAR_HOF_BRAG_STATE, 2
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedHoF
setvar VAR_HOF_BRAG_STATE, 2
msgbox FourIsland_House2_Text_WowHoFLow
goto FourIsland_House2_EventScript_BraggedHoF
end
FourIsland_House2_EventScript_BragHoFHigh:: @ 81B2C01
compare VAR_HOF_BRAG_STATE, 3
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedHoF
setvar VAR_HOF_BRAG_STATE, 3
msgbox FourIsland_House2_Text_WowHoFHigh
goto FourIsland_House2_EventScript_BraggedHoF
end
FourIsland_House2_EventScript_BragHoFHighest:: @ 81B2C1F
compare VAR_HOF_BRAG_STATE, 4
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedHoFMax
setvar VAR_HOF_BRAG_STATE, 4
msgbox FourIsland_House2_Text_WowHoFHighest
goto FourIsland_House2_EventScript_BraggedHoF
end
FourIsland_House2_EventScript_AlreadyBraggedHoF:: @ 81B2C3D
msgbox FourIsland_House2_Text_ComeBackWithBetterStoryHoF
release
end
FourIsland_House2_EventScript_AlreadyBraggedHoFMax:: @ 81B2C47
msgbox FourIsland_House2_Text_LivingLegendHoF
release
end
FourIsland_House2_EventScript_BraggedHoF:: @ 81B2C51
textcolor 3
playfanfare MUS_FANFA1
message FourIsland_House2_Text_HoFStickerApplied
waitmessage
waitfanfare
delay 90
release
end
FourIsland_House2_EventScript_BragEggs:: @ 81B2C62
compare VAR_0x8005, 99
goto_if_le FourIsland_House2_EventScript_BragEggsLowest
compare VAR_0x8005, 199
goto_if_le FourIsland_House2_EventScript_BragEggsLow
compare VAR_0x8005, 299
goto_if_le FourIsland_House2_EventScript_BragEggsHigh
compare VAR_0x8005, 300
goto_if_ge FourIsland_House2_EventScript_BragEggsHighest
end
FourIsland_House2_EventScript_BragEggsLowest:: @ 81B2C8F
compare VAR_EGG_BRAG_STATE, 1
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedEggs
setvar VAR_EGG_BRAG_STATE, 1
msgbox FourIsland_House2_Text_WowEggsLowest
goto FourIsland_House2_EventScript_BraggedEggs
end
FourIsland_House2_EventScript_BragEggsLow:: @ 81B2CAD
compare VAR_EGG_BRAG_STATE, 2
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedEggs
setvar VAR_EGG_BRAG_STATE, 2
msgbox FourIsland_House2_Text_WowEggsLow
goto FourIsland_House2_EventScript_BraggedEggs
end
FourIsland_House2_EventScript_BragEggsHigh:: @ 81B2CCB
compare VAR_EGG_BRAG_STATE, 3
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedEggs
setvar VAR_EGG_BRAG_STATE, 3
msgbox FourIsland_House2_Text_WowEggsHigh
goto FourIsland_House2_EventScript_BraggedEggs
end
FourIsland_House2_EventScript_BragEggsHighest:: @ 81B2CE9
compare VAR_EGG_BRAG_STATE, 4
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedEggsMax
setvar VAR_EGG_BRAG_STATE, 4
msgbox FourIsland_House2_Text_WowEggsHighest
goto FourIsland_House2_EventScript_BraggedEggs
end
FourIsland_House2_EventScript_AlreadyBraggedEggs:: @ 81B2D07
msgbox FourIsland_House2_Text_ComeBackWithBetterStoryEggs
release
end
FourIsland_House2_EventScript_AlreadyBraggedEggsMax:: @ 81B2D11
msgbox FourIsland_House2_Text_LivingLegendEggs
release
end
FourIsland_House2_EventScript_BraggedEggs:: @ 81B2D1B
textcolor 3
playfanfare MUS_FANFA1
message FourIsland_House2_Text_EggStickerApplied
waitmessage
waitfanfare
delay 90
release
end
FourIsland_House2_EventScript_BragLinkWins:: @ 81B2D2C
compare VAR_0x8006, 19
goto_if_le FourIsland_House2_EventScript_BragLinkWinsLowest
compare VAR_0x8006, 49
goto_if_le FourIsland_House2_EventScript_BragLinkWinsLow
compare VAR_0x8006, 99
goto_if_le FourIsland_House2_EventScript_BragLinkWinsHigh
compare VAR_0x8006, 100
goto_if_ge FourIsland_House2_EventScript_BragLinkWinsHighest
end
FourIsland_House2_EventScript_BragLinkWinsLowest:: @ 81B2D59
compare VAR_LINK_WIN_BRAG_STATE, 1
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedLinkWins
setvar VAR_LINK_WIN_BRAG_STATE, 1
msgbox FourIsland_House2_Text_WowLinkWinsLowest
goto FourIsland_House2_EventScript_BraggedLinkWins
end
FourIsland_House2_EventScript_BragLinkWinsLow:: @ 81B2D77
compare VAR_LINK_WIN_BRAG_STATE, 2
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedLinkWins
setvar VAR_LINK_WIN_BRAG_STATE, 2
msgbox FourIsland_House2_Text_WowLinkWinsLow
goto FourIsland_House2_EventScript_BraggedLinkWins
end
FourIsland_House2_EventScript_BragLinkWinsHigh:: @ 81B2D95
compare VAR_LINK_WIN_BRAG_STATE, 3
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedLinkWins
setvar VAR_LINK_WIN_BRAG_STATE, 3
msgbox FourIsland_House2_Text_WowLinkWinsHigh
goto FourIsland_House2_EventScript_BraggedLinkWins
end
FourIsland_House2_EventScript_BragLinkWinsHighest:: @ 81B2DB3
compare VAR_LINK_WIN_BRAG_STATE, 4
goto_if_eq FourIsland_House2_EventScript_AlreadyBraggedLinkWinsMax
setvar VAR_LINK_WIN_BRAG_STATE, 4
msgbox FourIsland_House2_Text_WowLinkWinsHighest
goto FourIsland_House2_EventScript_BraggedLinkWins
end
FourIsland_House2_EventScript_AlreadyBraggedLinkWins:: @ 81B2DD1
msgbox FourIsland_House2_Text_ComeBackWithBetterStoryLinkWins
release
end
FourIsland_House2_EventScript_AlreadyBraggedLinkWinsMax:: @ 81B2DDB
msgbox FourIsland_House2_Text_LivingLegendLinkWins
release
end
FourIsland_House2_EventScript_BraggedLinkWins:: @ 81B2DE5
textcolor 3
playfanfare MUS_FANFA1
message FourIsland_House2_Text_VictoryStickerApplied
waitmessage
waitfanfare
delay 90
release
end
FourIsland_House2_EventScript_QuitBrag:: @ 81B2DF6
release
end