From e7f6459a890901d59ca179c40f58bd84b255e467 Mon Sep 17 00:00:00 2001 From: GriffinR Date: Tue, 5 Nov 2019 15:19:08 -0500 Subject: [PATCH] Split mystery event msg --- data/mystery_event_msg.s | 422 +---------------------- data/scripts/meventmsg_altering_cave.inc | 24 ++ data/scripts/meventmsg_aurora_ticket.inc | 61 ++++ data/scripts/meventmsg_battle_card.inc | 47 +++ data/scripts/meventmsg_mystic_ticket.inc | 63 ++++ data/scripts/meventmsg_old_sea_map.inc | 62 ++++ data/scripts/meventmsg_pichu.inc | 79 +++++ data/scripts/meventmsg_stamp_card.inc | 21 ++ data/scripts/meventmsg_trainer.inc | 49 +++ 9 files changed, 414 insertions(+), 414 deletions(-) create mode 100644 data/scripts/meventmsg_altering_cave.inc create mode 100644 data/scripts/meventmsg_aurora_ticket.inc create mode 100644 data/scripts/meventmsg_battle_card.inc create mode 100644 data/scripts/meventmsg_mystic_ticket.inc create mode 100644 data/scripts/meventmsg_old_sea_map.inc create mode 100644 data/scripts/meventmsg_pichu.inc create mode 100644 data/scripts/meventmsg_stamp_card.inc create mode 100644 data/scripts/meventmsg_trainer.inc diff --git a/data/mystery_event_msg.s b/data/mystery_event_msg.s index 07612d89a..877e5c649 100644 --- a/data/mystery_event_msg.s +++ b/data/mystery_event_msg.s @@ -15,417 +15,11 @@ .section .rodata .align 2 - -MysteryEventScript_StampCard:: @ 8674CB0 - setvaddress MysteryEventScript_StampCard - setorcopyvar VAR_RESULT, GET_MAX_STAMPS - specialvar VAR_0x8008, GetMysteryEventCardVal - setorcopyvar VAR_RESULT, GET_NUM_STAMPS - specialvar VAR_0x8009, GetMysteryEventCardVal - subvar VAR_0x8008, VAR_0x8009 - buffernumberstring 0, VAR_0x8008 - lock - faceplayer - vmessage sText_MysteryGiftStampCard - waitmessage - waitbuttonpress - release - end - -sText_MysteryGiftStampCard: - .string "Thank you for using the STAMP CARD\n" - .string "System.\p" - .string "You have {STR_VAR_1} more to collect to\n" - .string "fill your STAMP CARD.$" - -MysteryEventScript_SurfPichu:: @ 8674D3D - setvaddress MysteryEventScript_SurfPichu - checkflag FLAG_MYSTERY_EVENT_DONE - vgoto_if_ne SurfPichu_GiveIfPossible - returnram - -SurfPichu_GiveIfPossible: @ 8674D4C - specialvar VAR_EVENT_PICHU_SLOT, CalculatePlayerPartyCount - compare_var_to_value VAR_EVENT_PICHU_SLOT, PARTY_SIZE - vgoto_if_eq SurfPichu_FullParty - setflag FLAG_MYSTERY_EVENT_DONE - vcall SurfPichu_GiveEgg - lock - faceplayer - vmessage sText_MysteryGiftEgg - waitmessage - waitbuttonpress - playfanfare MUS_FANFA4 - waitfanfare - release - end - -SurfPichu_FullParty: @ 8674D73 - lock - faceplayer - vmessage sText_FullParty - waitmessage - waitbuttonpress - release - end - -SurfPichu_GiveEgg: @ 8674D7E - giveegg SPECIES_PICHU - setmonobedient VAR_EVENT_PICHU_SLOT - setmonmetlocation VAR_EVENT_PICHU_SLOT, METLOC_FATEFUL_ENCOUNTER - compare_var_to_value VAR_EVENT_PICHU_SLOT, 1 - vgoto_if_eq SurfPichu_Slot1 - compare_var_to_value VAR_EVENT_PICHU_SLOT, 2 - vgoto_if_eq SurfPichu_Slot2 - compare_var_to_value VAR_EVENT_PICHU_SLOT, 3 - vgoto_if_eq SurfPichu_Slot3 - compare_var_to_value VAR_EVENT_PICHU_SLOT, 4 - vgoto_if_eq SurfPichu_Slot4 - compare_var_to_value VAR_EVENT_PICHU_SLOT, 5 - vgoto_if_eq SurfPichu_Slot5 - return - -SurfPichu_Slot1: @ 8674DC0 - setmonmove 1, 2, MOVE_SURF - return - -SurfPichu_Slot2:: @ 8674DC6 - setmonmove 2, 2, MOVE_SURF - return - -SurfPichu_Slot3: @ 8674DCC - setmonmove 3, 2, MOVE_SURF - return - -SurfPichu_Slot4: @ 8674DD2 - setmonmove 4, 2, MOVE_SURF - return - -SurfPichu_Slot5: @ 8674DD8 - setmonmove 5, 2, MOVE_SURF - return - -sText_MysteryGiftEgg: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "From the POKéMON CENTER we\n" - .string "have a gift--a POKéMON EGG!\p" - .string "Please raise it with love and\n" - .string "kindness.$" - -sText_FullParty: - .string "Oh, your party appears to be full.\p" - .string "Please come see me after storing\n" - .string "a POKéMON on a PC.$" - -MysteryEventScript_VisitingTrainer:: @ 8674EC1 - setvaddress MysteryEventScript_VisitingTrainer - special ValidateEReaderTrainer - compare_var_to_value VAR_RESULT, 0 - vgoto_if_eq MysteryEventScript_VisitingTrainerArrived - lock - faceplayer - vmessage sText_MysteryGiftVisitingTrainerInstructions - waitmessage - waitbuttonpress - release - end - -MysteryEventScript_VisitingTrainerArrived: @ 8674EDF - lock - faceplayer - vmessage sText_MysteryGiftVisitingTrainerArrived - waitmessage - waitbuttonpress - release - end - -sText_MysteryGiftVisitingTrainerInstructions: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "By holding this WONDER CARD, you\n" - .string "may take part in a survey at a\l" - .string "POKéMON MART.\p" - .string "Use these surveys to invite\n" - .string "TRAINERS to SOOTOPOLIS CITY.\p" - .string "…Let me give you a secret\n" - .string "password for a survey:\p" - .string "“GIVE ME\n" - .string "AWESOME TRAINER”\p" - .string "Write that in on a survey and send\n" - .string "it to the WIRELESS\l" - .string "COMMUNICATION SYSTEM.$" - -sText_MysteryGiftVisitingTrainerArrived: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "A TRAINER has arrived in\n" - .string "SOOTOPOLIS CITY looking for you.\p" - .string "We hope you will enjoy\n" - .string "battling the visiting TRAINER.\p" - .string "You may invite other TRAINERS by\n" - .string "entering other passwords.\p" - .string "Try looking for other passwords\n" - .string "that may work.$" - -MysteryEventScript_BattleCard:: @ 867513C - setvaddress MysteryEventScript_BattleCard - checkflag FLAG_MYSTERY_EVENT_DONE - vgoto_if_eq MysteryEventScript_BattleCardInfo - setorcopyvar VAR_RESULT, GET_CARD_BATTLES_WON - specialvar VAR_0x8008, GetMysteryEventCardVal - compare_var_to_value VAR_0x8008, REQUIRED_CARD_BATTLES - vgoto_if_ne MysteryEventScript_BattleCardInfo - lock - faceplayer - vmessage sText_MysteryGiftBattleCountCard_WonPrize - waitmessage - waitbuttonpress - giveitem_std ITEM_POTION - release - setflag FLAG_MYSTERY_EVENT_DONE - end - -MysteryEventScript_BattleCardInfo: @ 8675179 - lock - faceplayer - vmessage sText_MysteryGiftBattleCountCard - waitmessage - waitbuttonpress - release - end - -sText_MysteryGiftBattleCountCard: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "Your BATTLE COUNT CARD keeps\n" - .string "track of your battle record against\l" - .string "TRAINERS with the same CARD.\p" - .string "Look for and battle TRAINERS who\n" - .string "have the same CARD as you.\p" - .string "You may check the overall rankings\n" - .string "by reading the NEWS.\p" - .string "Please do give it a try!$" - -sText_MysteryGiftBattleCountCard_WonPrize: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "Congratulations!\p" - .string "You have won a prize for winning\n" - .string "three battles!\p" - .string "We hope you will be inspired to\n" - .string "battle some more.$" - -MysteryEventScript_AuroraTicket:: @ 867533C - setvaddress MysteryEventScript_AuroraTicket - lock - faceplayer - checkflag FLAG_RECEIVED_AURORA_TICKET - vgoto_if_eq AuroraTicket_Obtained - checkflag FLAG_BATTLED_DEOXYS - vgoto_if_eq AuroraTicket_Obtained - checkitem ITEM_AURORA_TICKET, 1 - compare_var_to_value VAR_RESULT, TRUE - vgoto_if_eq AuroraTicket_Obtained - vmessage sText_AuroraTicketForYou - waitmessage - waitbuttonpress - checkitemspace ITEM_AURORA_TICKET, 1 - compare_var_to_value VAR_RESULT, FALSE - vgoto_if_eq AuroraTicket_NoBagSpace - giveitem_std ITEM_AURORA_TICKET - setflag FLAG_ENABLE_SHIP_BIRTH_ISLAND - setflag FLAG_RECEIVED_AURORA_TICKET - vmessage sText_AuroraTicketUseAtPort - waitmessage - waitbuttonpress - release - end - -AuroraTicket_NoBagSpace: @ 8675397 - vmessage sText_AuroraTicketBagFull - waitmessage - waitbuttonpress - release - end - -AuroraTicket_Obtained: @ 86753A0 - vmessage sText_AuroraTicketThankYou - waitmessage - waitbuttonpress - release - end - -sText_AuroraTicketForYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "You must be {PLAYER}.\n" - .string "There is a ticket here for you.$" - -sText_AuroraTicketUseAtPort: - .string "It appears to be for use at the\n" - .string "LILYCOVE CITY port.\p" - .string "Why not give it a try and see what\n" - .string "it is about?$" - -sText_AuroraTicketThankYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.$" - -sText_AuroraTicketBagFull: - .string "Oh, I'm sorry, {PLAYER}.\n" - .string "Your BAG's KEY ITEMS POCKET is full.\p" - .string "Please store something on your PC,\n" - .string "then come back for this.$" - -MysteryEventScript_MysticTicket:: @ 867550B - setvaddress MysteryEventScript_MysticTicket - lock - faceplayer - checkflag FLAG_RECEIVED_MYSTIC_TICKET - vgoto_if_eq MysticTicket_Obtained - checkflag FLAG_CAUGHT_LUGIA - vgoto_if_eq MysticTicket_Obtained - checkflag FLAG_CAUGHT_HO_OH - vgoto_if_eq MysticTicket_Obtained - checkitem ITEM_MYSTIC_TICKET, 1 - compare_var_to_value VAR_RESULT, TRUE - vgoto_if_eq MysticTicket_Obtained - vmessage sText_MysticTicketForYou - waitmessage - waitbuttonpress - checkitemspace ITEM_MYSTIC_TICKET, 1 - compare_var_to_value VAR_RESULT, FALSE - vgoto_if_eq MysticTicket_NoBagSpace - giveitem_std ITEM_MYSTIC_TICKET - setflag FLAG_ENABLE_SHIP_NAVEL_ROCK - setflag FLAG_RECEIVED_MYSTIC_TICKET - vmessage sText_MysticTicketUseAtPort - waitmessage - waitbuttonpress - release - end - -MysticTicket_NoBagSpace: @ 867556F - vmessage sText_MysticTicketBagFull - waitmessage - waitbuttonpress - release - end - -MysticTicket_Obtained: @ 8675578 - vmessage sText_MysticTicketThankYou - waitmessage - waitbuttonpress - release - end - -sText_MysticTicketForYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "You must be {PLAYER}.\n" - .string "There is a ticket here for you.$" - -sText_MysticTicketUseAtPort: - .string "It appears to be for use at the\n" - .string "LILYCOVE CITY port.\p" - .string "Why not give it a try and see what\n" - .string "it is about?$" - -sText_MysticTicketThankYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.$" - -sText_MysticTicketBagFull: - .string "Oh, I'm sorry, {PLAYER}.\n" - .string "Your BAG's KEY ITEMS POCKET is full.\p" - .string "Please store something on your PC,\n" - .string "then come back for this.$" - -MysteryEventScript_AlteringCave:: @ 86756E3 - setvaddress MysteryEventScript_AlteringCave - addvar VAR_ALTERING_CAVE_WILD_SET, 1 - compare_var_to_value VAR_ALTERING_CAVE_WILD_SET, 10 - vgoto_if_ne MysteryEventScript_AlteringCave_ - setvar VAR_ALTERING_CAVE_WILD_SET, 0 -MysteryEventScript_AlteringCave_: @ 86756FD - lock - faceplayer - vmessage sText_MysteryGiftAlteringCave - waitmessage - waitbuttonpress - release - end - -sText_MysteryGiftAlteringCave:: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "There appears to be a rumor about\n" - .string "rare POKéMON sightings.\p" - .string "The sightings reportedly came from\n" - .string "the ALTERING CAVE on ROUTE 103.\p" - .string "Perhaps it would be worthwhile for\n" - .string "you to investigate this rumor.$" - -MysteryEventScript_OldSeaMap:: @ 86757F4 - setvaddress MysteryEventScript_OldSeaMap - lock - faceplayer - checkflag FLAG_RECEIVED_OLD_SEA_MAP - vgoto_if_eq OldSeaMap_Obtained - checkflag FLAG_CAUGHT_MEW - vgoto_if_eq OldSeaMap_Obtained - checkitem ITEM_OLD_SEA_MAP, 1 - compare_var_to_value VAR_RESULT, TRUE - vgoto_if_eq OldSeaMap_Obtained - vmessage sText_MysteryGiftOldSeaMapForYou - waitmessage - waitbuttonpress - checkitemspace ITEM_OLD_SEA_MAP, 1 - compare_var_to_value VAR_RESULT, FALSE - vgoto_if_eq OldSeaMap_NoBagSpace - giveitem_std ITEM_OLD_SEA_MAP - setflag FLAG_ENABLE_SHIP_FARAWAY_ISLAND - setflag FLAG_RECEIVED_OLD_SEA_MAP - vmessage sText_MysteryGiftOldSeaMapUseAtPort - waitmessage - waitbuttonpress - release - end - -OldSeaMap_NoBagSpace: @ 867584F - vmessage sText_MysteryGiftOldSeaMapBagFull - waitmessage - waitbuttonpress - release - end - -OldSeaMap_Obtained: @ 8675858 - vmessage sText_MysteryGiftOldSeaMapThankYou - waitmessage - waitbuttonpress - release - end - -sText_MysteryGiftOldSeaMapForYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.\p" - .string "Let me confirm--you are {PLAYER}?\p" - .string "We received this OLD SEA MAP\n" - .string "addressed to you.$" - -sText_MysteryGiftOldSeaMapUseAtPort: - .string "It appears to be for use at the\n" - .string "LILYCOVE CITY port.\p" - .string "Why not give it a try and see what\n" - .string "it is about?$" - -sText_MysteryGiftOldSeaMapThankYou: - .string "Thank you for using the MYSTERY\n" - .string "GIFT System.$" - -sText_MysteryGiftOldSeaMapBagFull: - .string "Oh, I'm sorry, {PLAYER}.\n" - .string "Your BAG's KEY ITEMS POCKET is full.\p" - .string "Please store something on your PC,\n" - .string "then come back for this.$" + .include "data/scripts/meventmsg_stamp_card.inc" + .include "data/scripts/meventmsg_pichu.inc" + .include "data/scripts/meventmsg_trainer.inc" + .include "data/scripts/meventmsg_battle_card.inc" + .include "data/scripts/meventmsg_aurora_ticket.inc" + .include "data/scripts/meventmsg_mystic_ticket.inc" + .include "data/scripts/meventmsg_altering_cave.inc" + .include "data/scripts/meventmsg_old_sea_map.inc" diff --git a/data/scripts/meventmsg_altering_cave.inc b/data/scripts/meventmsg_altering_cave.inc new file mode 100644 index 000000000..072005934 --- /dev/null +++ b/data/scripts/meventmsg_altering_cave.inc @@ -0,0 +1,24 @@ +MysteryEventScript_AlteringCave:: @ 86756E3 + setvaddress MysteryEventScript_AlteringCave + addvar VAR_ALTERING_CAVE_WILD_SET, 1 + compare_var_to_value VAR_ALTERING_CAVE_WILD_SET, 10 + vgoto_if_ne MysteryEventScript_AlteringCave_ + setvar VAR_ALTERING_CAVE_WILD_SET, 0 +MysteryEventScript_AlteringCave_: @ 86756FD + lock + faceplayer + vmessage sText_MysteryGiftAlteringCave + waitmessage + waitbuttonpress + release + end + +sText_MysteryGiftAlteringCave:: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "There appears to be a rumor about\n" + .string "rare POKéMON sightings.\p" + .string "The sightings reportedly came from\n" + .string "the ALTERING CAVE on ROUTE 103.\p" + .string "Perhaps it would be worthwhile for\n" + .string "you to investigate this rumor.$" diff --git a/data/scripts/meventmsg_aurora_ticket.inc b/data/scripts/meventmsg_aurora_ticket.inc new file mode 100644 index 000000000..811c840aa --- /dev/null +++ b/data/scripts/meventmsg_aurora_ticket.inc @@ -0,0 +1,61 @@ +MysteryEventScript_AuroraTicket:: @ 867533C + setvaddress MysteryEventScript_AuroraTicket + lock + faceplayer + checkflag FLAG_RECEIVED_AURORA_TICKET + vgoto_if_eq AuroraTicket_Obtained + checkflag FLAG_BATTLED_DEOXYS + vgoto_if_eq AuroraTicket_Obtained + checkitem ITEM_AURORA_TICKET, 1 + compare_var_to_value VAR_RESULT, TRUE + vgoto_if_eq AuroraTicket_Obtained + vmessage sText_AuroraTicketForYou + waitmessage + waitbuttonpress + checkitemspace ITEM_AURORA_TICKET, 1 + compare_var_to_value VAR_RESULT, FALSE + vgoto_if_eq AuroraTicket_NoBagSpace + giveitem_std ITEM_AURORA_TICKET + setflag FLAG_ENABLE_SHIP_BIRTH_ISLAND + setflag FLAG_RECEIVED_AURORA_TICKET + vmessage sText_AuroraTicketUseAtPort + waitmessage + waitbuttonpress + release + end + +AuroraTicket_NoBagSpace: @ 8675397 + vmessage sText_AuroraTicketBagFull + waitmessage + waitbuttonpress + release + end + +AuroraTicket_Obtained: @ 86753A0 + vmessage sText_AuroraTicketThankYou + waitmessage + waitbuttonpress + release + end + +sText_AuroraTicketForYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "You must be {PLAYER}.\n" + .string "There is a ticket here for you.$" + +sText_AuroraTicketUseAtPort: + .string "It appears to be for use at the\n" + .string "LILYCOVE CITY port.\p" + .string "Why not give it a try and see what\n" + .string "it is about?$" + +sText_AuroraTicketThankYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.$" + +sText_AuroraTicketBagFull: + .string "Oh, I'm sorry, {PLAYER}.\n" + .string "Your BAG's KEY ITEMS POCKET is full.\p" + .string "Please store something on your PC,\n" + .string "then come back for this.$" diff --git a/data/scripts/meventmsg_battle_card.inc b/data/scripts/meventmsg_battle_card.inc new file mode 100644 index 000000000..8c36ed63a --- /dev/null +++ b/data/scripts/meventmsg_battle_card.inc @@ -0,0 +1,47 @@ +MysteryEventScript_BattleCard:: @ 867513C + setvaddress MysteryEventScript_BattleCard + checkflag FLAG_MYSTERY_EVENT_DONE + vgoto_if_eq MysteryEventScript_BattleCardInfo + setorcopyvar VAR_RESULT, GET_CARD_BATTLES_WON + specialvar VAR_0x8008, GetMysteryEventCardVal + compare_var_to_value VAR_0x8008, REQUIRED_CARD_BATTLES + vgoto_if_ne MysteryEventScript_BattleCardInfo + lock + faceplayer + vmessage sText_MysteryGiftBattleCountCard_WonPrize + waitmessage + waitbuttonpress + giveitem_std ITEM_POTION + release + setflag FLAG_MYSTERY_EVENT_DONE + end + +MysteryEventScript_BattleCardInfo: @ 8675179 + lock + faceplayer + vmessage sText_MysteryGiftBattleCountCard + waitmessage + waitbuttonpress + release + end + +sText_MysteryGiftBattleCountCard: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "Your BATTLE COUNT CARD keeps\n" + .string "track of your battle record against\l" + .string "TRAINERS with the same CARD.\p" + .string "Look for and battle TRAINERS who\n" + .string "have the same CARD as you.\p" + .string "You may check the overall rankings\n" + .string "by reading the NEWS.\p" + .string "Please do give it a try!$" + +sText_MysteryGiftBattleCountCard_WonPrize: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "Congratulations!\p" + .string "You have won a prize for winning\n" + .string "three battles!\p" + .string "We hope you will be inspired to\n" + .string "battle some more.$" diff --git a/data/scripts/meventmsg_mystic_ticket.inc b/data/scripts/meventmsg_mystic_ticket.inc new file mode 100644 index 000000000..0264fb77f --- /dev/null +++ b/data/scripts/meventmsg_mystic_ticket.inc @@ -0,0 +1,63 @@ +MysteryEventScript_MysticTicket:: @ 867550B + setvaddress MysteryEventScript_MysticTicket + lock + faceplayer + checkflag FLAG_RECEIVED_MYSTIC_TICKET + vgoto_if_eq MysticTicket_Obtained + checkflag FLAG_CAUGHT_LUGIA + vgoto_if_eq MysticTicket_Obtained + checkflag FLAG_CAUGHT_HO_OH + vgoto_if_eq MysticTicket_Obtained + checkitem ITEM_MYSTIC_TICKET, 1 + compare_var_to_value VAR_RESULT, TRUE + vgoto_if_eq MysticTicket_Obtained + vmessage sText_MysticTicketForYou + waitmessage + waitbuttonpress + checkitemspace ITEM_MYSTIC_TICKET, 1 + compare_var_to_value VAR_RESULT, FALSE + vgoto_if_eq MysticTicket_NoBagSpace + giveitem_std ITEM_MYSTIC_TICKET + setflag FLAG_ENABLE_SHIP_NAVEL_ROCK + setflag FLAG_RECEIVED_MYSTIC_TICKET + vmessage sText_MysticTicketUseAtPort + waitmessage + waitbuttonpress + release + end + +MysticTicket_NoBagSpace: @ 867556F + vmessage sText_MysticTicketBagFull + waitmessage + waitbuttonpress + release + end + +MysticTicket_Obtained: @ 8675578 + vmessage sText_MysticTicketThankYou + waitmessage + waitbuttonpress + release + end + +sText_MysticTicketForYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "You must be {PLAYER}.\n" + .string "There is a ticket here for you.$" + +sText_MysticTicketUseAtPort: + .string "It appears to be for use at the\n" + .string "LILYCOVE CITY port.\p" + .string "Why not give it a try and see what\n" + .string "it is about?$" + +sText_MysticTicketThankYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.$" + +sText_MysticTicketBagFull: + .string "Oh, I'm sorry, {PLAYER}.\n" + .string "Your BAG's KEY ITEMS POCKET is full.\p" + .string "Please store something on your PC,\n" + .string "then come back for this.$" diff --git a/data/scripts/meventmsg_old_sea_map.inc b/data/scripts/meventmsg_old_sea_map.inc new file mode 100644 index 000000000..dffb56caa --- /dev/null +++ b/data/scripts/meventmsg_old_sea_map.inc @@ -0,0 +1,62 @@ +MysteryEventScript_OldSeaMap:: @ 86757F4 + setvaddress MysteryEventScript_OldSeaMap + lock + faceplayer + checkflag FLAG_RECEIVED_OLD_SEA_MAP + vgoto_if_eq OldSeaMap_Obtained + checkflag FLAG_CAUGHT_MEW + vgoto_if_eq OldSeaMap_Obtained + checkitem ITEM_OLD_SEA_MAP, 1 + compare_var_to_value VAR_RESULT, TRUE + vgoto_if_eq OldSeaMap_Obtained + vmessage sText_MysteryGiftOldSeaMapForYou + waitmessage + waitbuttonpress + checkitemspace ITEM_OLD_SEA_MAP, 1 + compare_var_to_value VAR_RESULT, FALSE + vgoto_if_eq OldSeaMap_NoBagSpace + giveitem_std ITEM_OLD_SEA_MAP + setflag FLAG_ENABLE_SHIP_FARAWAY_ISLAND + setflag FLAG_RECEIVED_OLD_SEA_MAP + vmessage sText_MysteryGiftOldSeaMapUseAtPort + waitmessage + waitbuttonpress + release + end + +OldSeaMap_NoBagSpace: @ 867584F + vmessage sText_MysteryGiftOldSeaMapBagFull + waitmessage + waitbuttonpress + release + end + +OldSeaMap_Obtained: @ 8675858 + vmessage sText_MysteryGiftOldSeaMapThankYou + waitmessage + waitbuttonpress + release + end + +sText_MysteryGiftOldSeaMapForYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "Let me confirm--you are {PLAYER}?\p" + .string "We received this OLD SEA MAP\n" + .string "addressed to you.$" + +sText_MysteryGiftOldSeaMapUseAtPort: + .string "It appears to be for use at the\n" + .string "LILYCOVE CITY port.\p" + .string "Why not give it a try and see what\n" + .string "it is about?$" + +sText_MysteryGiftOldSeaMapThankYou: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.$" + +sText_MysteryGiftOldSeaMapBagFull: + .string "Oh, I'm sorry, {PLAYER}.\n" + .string "Your BAG's KEY ITEMS POCKET is full.\p" + .string "Please store something on your PC,\n" + .string "then come back for this.$" diff --git a/data/scripts/meventmsg_pichu.inc b/data/scripts/meventmsg_pichu.inc new file mode 100644 index 000000000..4df317564 --- /dev/null +++ b/data/scripts/meventmsg_pichu.inc @@ -0,0 +1,79 @@ +MysteryEventScript_SurfPichu:: @ 8674D3D + setvaddress MysteryEventScript_SurfPichu + checkflag FLAG_MYSTERY_EVENT_DONE + vgoto_if_ne SurfPichu_GiveIfPossible + returnram + +SurfPichu_GiveIfPossible: @ 8674D4C + specialvar VAR_EVENT_PICHU_SLOT, CalculatePlayerPartyCount + compare_var_to_value VAR_EVENT_PICHU_SLOT, PARTY_SIZE + vgoto_if_eq SurfPichu_FullParty + setflag FLAG_MYSTERY_EVENT_DONE + vcall SurfPichu_GiveEgg + lock + faceplayer + vmessage sText_MysteryGiftEgg + waitmessage + waitbuttonpress + playfanfare MUS_FANFA4 + waitfanfare + release + end + +SurfPichu_FullParty: @ 8674D73 + lock + faceplayer + vmessage sText_FullParty + waitmessage + waitbuttonpress + release + end + +SurfPichu_GiveEgg: @ 8674D7E + giveegg SPECIES_PICHU + setmonobedient VAR_EVENT_PICHU_SLOT + setmonmetlocation VAR_EVENT_PICHU_SLOT, METLOC_FATEFUL_ENCOUNTER + compare_var_to_value VAR_EVENT_PICHU_SLOT, 1 + vgoto_if_eq SurfPichu_Slot1 + compare_var_to_value VAR_EVENT_PICHU_SLOT, 2 + vgoto_if_eq SurfPichu_Slot2 + compare_var_to_value VAR_EVENT_PICHU_SLOT, 3 + vgoto_if_eq SurfPichu_Slot3 + compare_var_to_value VAR_EVENT_PICHU_SLOT, 4 + vgoto_if_eq SurfPichu_Slot4 + compare_var_to_value VAR_EVENT_PICHU_SLOT, 5 + vgoto_if_eq SurfPichu_Slot5 + return + +SurfPichu_Slot1: @ 8674DC0 + setmonmove 1, 2, MOVE_SURF + return + +SurfPichu_Slot2:: @ 8674DC6 + setmonmove 2, 2, MOVE_SURF + return + +SurfPichu_Slot3: @ 8674DCC + setmonmove 3, 2, MOVE_SURF + return + +SurfPichu_Slot4: @ 8674DD2 + setmonmove 4, 2, MOVE_SURF + return + +SurfPichu_Slot5: @ 8674DD8 + setmonmove 5, 2, MOVE_SURF + return + +sText_MysteryGiftEgg: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "From the POKéMON CENTER we\n" + .string "have a gift--a POKéMON EGG!\p" + .string "Please raise it with love and\n" + .string "kindness.$" + +sText_FullParty: + .string "Oh, your party appears to be full.\p" + .string "Please come see me after storing\n" + .string "a POKéMON on a PC.$" diff --git a/data/scripts/meventmsg_stamp_card.inc b/data/scripts/meventmsg_stamp_card.inc new file mode 100644 index 000000000..dcef80a50 --- /dev/null +++ b/data/scripts/meventmsg_stamp_card.inc @@ -0,0 +1,21 @@ +MysteryEventScript_StampCard:: @ 8674CB0 + setvaddress MysteryEventScript_StampCard + setorcopyvar VAR_RESULT, GET_MAX_STAMPS + specialvar VAR_0x8008, GetMysteryEventCardVal + setorcopyvar VAR_RESULT, GET_NUM_STAMPS + specialvar VAR_0x8009, GetMysteryEventCardVal + subvar VAR_0x8008, VAR_0x8009 + buffernumberstring 0, VAR_0x8008 + lock + faceplayer + vmessage sText_MysteryGiftStampCard + waitmessage + waitbuttonpress + release + end + +sText_MysteryGiftStampCard: + .string "Thank you for using the STAMP CARD\n" + .string "System.\p" + .string "You have {STR_VAR_1} more to collect to\n" + .string "fill your STAMP CARD.$" diff --git a/data/scripts/meventmsg_trainer.inc b/data/scripts/meventmsg_trainer.inc new file mode 100644 index 000000000..1b0117078 --- /dev/null +++ b/data/scripts/meventmsg_trainer.inc @@ -0,0 +1,49 @@ +MysteryEventScript_VisitingTrainer:: @ 8674EC1 + setvaddress MysteryEventScript_VisitingTrainer + special ValidateEReaderTrainer + compare_var_to_value VAR_RESULT, 0 + vgoto_if_eq MysteryEventScript_VisitingTrainerArrived + lock + faceplayer + vmessage sText_MysteryGiftVisitingTrainerInstructions + waitmessage + waitbuttonpress + release + end + +MysteryEventScript_VisitingTrainerArrived: @ 8674EDF + lock + faceplayer + vmessage sText_MysteryGiftVisitingTrainerArrived + waitmessage + waitbuttonpress + release + end + +sText_MysteryGiftVisitingTrainerInstructions: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "By holding this WONDER CARD, you\n" + .string "may take part in a survey at a\l" + .string "POKéMON MART.\p" + .string "Use these surveys to invite\n" + .string "TRAINERS to SOOTOPOLIS CITY.\p" + .string "…Let me give you a secret\n" + .string "password for a survey:\p" + .string "“GIVE ME\n" + .string "AWESOME TRAINER”\p" + .string "Write that in on a survey and send\n" + .string "it to the WIRELESS\l" + .string "COMMUNICATION SYSTEM.$" + +sText_MysteryGiftVisitingTrainerArrived: + .string "Thank you for using the MYSTERY\n" + .string "GIFT System.\p" + .string "A TRAINER has arrived in\n" + .string "SOOTOPOLIS CITY looking for you.\p" + .string "We hope you will enjoy\n" + .string "battling the visiting TRAINER.\p" + .string "You may invite other TRAINERS by\n" + .string "entering other passwords.\p" + .string "Try looking for other passwords\n" + .string "that may work.$"