diff options
Diffstat (limited to 'maps/Route38.asm')
| -rw-r--r-- | maps/Route38.asm | 369 |
1 files changed, 369 insertions, 0 deletions
diff --git a/maps/Route38.asm b/maps/Route38.asm new file mode 100644 index 00000000..da7645d6 --- /dev/null +++ b/maps/Route38.asm @@ -0,0 +1,369 @@ + const_def 2 ; object constants + const ROUTE38_STANDING_YOUNGSTER1 + const ROUTE38_LASS + const ROUTE38_STANDING_YOUNGSTER2 + const ROUTE38_BUENA1 + const ROUTE38_SAILOR + const ROUTE38_FRUIT_TREE + const ROUTE38_BUENA2 + +Route38_MapScripts: + db 0 ; scene scripts + + db 0 ; callbacks + +TrainerBirdKeeperToby: + trainer BIRD_KEEPER, TOBY, EVENT_BEAT_BIRD_KEEPER_TOBY, BirdKeeperTobySeenText, BirdKeeperTobyBeatenText, 0, .Script + +.Script + endifjustbattled + opentext + writetext BirdKeeperTobyAfterBattleText + waitbutton + closetext + end + +TrainerSailorHarry: + trainer SAILOR, HARRY, EVENT_BEAT_SAILOR_HARRY, SailorHarrySeenText, SailorHarryBeatenText, 0, .Script + +.Script + endifjustbattled + opentext + writetext SailorHarryAfterBattleText + waitbutton + closetext + end + +TrainerLassDana1: + trainer LASS, DANA1, EVENT_BEAT_LASS_DANA, LassDana1SeenText, LassDana1BeatenText, 0, .Script + +.Script + endifjustbattled + opentext + checkevent EVENT_DANA_READY_FOR_REMATCH + iftrue .DanaRematch + checkcellnum PHONE_LASS_DANA + iftrue .NumberAccepted + checkevent EVENT_DANA_ASKED_FOR_PHONE_NUMBER + iftrue .SecondTimeAsking + writetext UnknownText_0x1a20ec + buttonsound + setevent EVENT_DANA_ASKED_FOR_PHONE_NUMBER + scall .AskNumber1F + jump .AskForPhoneNumber + +.SecondTimeAsking: + scall .AskNumber2F +.AskForPhoneNumber: + askforphonenumber PHONE_LASS_DANA + ifequal PHONE_CONTACTS_FULL, .PhoneFull + ifequal PHONE_CONTACT_REFUSED, .DeclinedPhoneNumber + trainertotext LASS, DANA1, MEM_BUFFER_0 + scall .RegisteredPhoneNumber + jump .NumberAccepted + +.DanaRematch: + scall .Rematch + winlosstext LassDana1BeatenText, 0 + checkevent EVENT_CLEARED_RADIO_TOWER + iftrue .LoadFight2 + checkflag ENGINE_FLYPOINT_CIANWOOD + iftrue .LoadFight1 + loadtrainer LASS, DANA1 + startbattle + reloadmapafterbattle + clearevent EVENT_DANA_READY_FOR_REMATCH + end + +.LoadFight1: + loadtrainer LASS, DANA2 + startbattle + reloadmapafterbattle + clearevent EVENT_DANA_READY_FOR_REMATCH + end + +.LoadFight2: + loadtrainer LASS, DANA3 + startbattle + reloadmapafterbattle + clearevent EVENT_DANA_READY_FOR_REMATCH + end + +.AskNumber1F: + jumpstd asknumber1f + end + +.AskNumber2F: + jumpstd asknumber2f + end + +.RegisteredPhoneNumber: + jumpstd registerednumberf + end + +.NumberAccepted: + jumpstd numberacceptedf + end + +.DeclinedPhoneNumber: + jumpstd numberdeclinedf + end + +.PhoneFull: + jumpstd phonefullf + end + +.Rematch: + jumpstd rematchf + end + +TrainerSchoolboyChad1: + trainer SCHOOLBOY, CHAD1, EVENT_BEAT_SCHOOLBOY_CHAD, SchoolboyChad1SeenText, SchoolboyChad1BeatenText, 0, .Script + +.Script + endifjustbattled + opentext + checkevent EVENT_CHAD_READY_FOR_REMATCH + iftrue .ChadRematch + checkcellnum PHONE_SCHOOLBOY_CHAD + iftrue .HaveChadsNumber + checkevent EVENT_CHAD_ASKED_FOR_PHONE_NUMBER + iftrue .SecondTimeAsking + writetext UnknownText_0x1a200e + buttonsound + setevent EVENT_CHAD_ASKED_FOR_PHONE_NUMBER + scall .AskPhoneNumber1 + jump .AskToRegisterNumber + +.SecondTimeAsking: + scall .AskPhoneNumber2 +.AskToRegisterNumber: + askforphonenumber PHONE_SCHOOLBOY_CHAD + ifequal PHONE_CONTACTS_FULL, .PhoneFull + ifequal PHONE_CONTACT_REFUSED, .SaidNo + trainertotext SCHOOLBOY, CHAD1, MEM_BUFFER_0 + scall .RegisteredChad + jump .HaveChadsNumber + +.ChadRematch: + scall .Rematch + winlosstext SchoolboyChad1BeatenText, 0 + checkevent EVENT_CLEARED_RADIO_TOWER + iftrue .LoadFight2 + checkflag ENGINE_FLYPOINT_MAHOGANY + iftrue .LoadFight1 + loadtrainer SCHOOLBOY, CHAD1 + startbattle + reloadmapafterbattle + clearevent EVENT_CHAD_READY_FOR_REMATCH + end + +.LoadFight1: + loadtrainer SCHOOLBOY, CHAD2 + startbattle + reloadmapafterbattle + clearevent EVENT_CHAD_READY_FOR_REMATCH + end + +.LoadFight2: + loadtrainer SCHOOLBOY, CHAD3 + startbattle + reloadmapafterbattle + clearevent EVENT_CHAD_READY_FOR_REMATCH + end + +.AskPhoneNumber1: + jumpstd asknumber1m + end + +.AskPhoneNumber2: + jumpstd asknumber2m + end + +.RegisteredChad: + jumpstd registerednumberm + end + +.HaveChadsNumber: + jumpstd numberacceptedm + end + +.SaidNo: + jumpstd numberdeclinedm + end + +.PhoneFull: + jumpstd phonefullm + end + +.Rematch: + jumpstd rematchm + end + +TrainerBeautyValerie: + trainer BEAUTY, VALERIE, EVENT_BEAT_BEAUTY_VALERIE, BeautyValerieSeenText, BeautyValerieBeatenText, 0, .Script + +.Script + endifjustbattled + opentext + writetext BeautyValerieAfterBattleText + waitbutton + closetext + end + +Route38Sign: + jumptext Route38SignText + +Route38TrainerTips: + jumptext Route38TrainerTipsText + +Route38FruitTree: + fruittree FRUITTREE_ROUTE_38 + +BirdKeeperTobySeenText: + text "Fly high into the" + line "sky, my beloved" + cont "bird #MON!" + done + +BirdKeeperTobyBeatenText: + text "I feel like just" + line "flying away now." + done + +BirdKeeperTobyAfterBattleText: + text "I plan to train in" + line "CIANWOOD CITY to" + + para "teach my #MON" + line "how to fly." + done + +SchoolboyChad1SeenText: + text "Let me try some-" + line "thing I learned" + cont "today." + done + +SchoolboyChad1BeatenText: + text "I didn't study" + line "enough, I guess." + done + +UnknownText_0x1a200e: + text "I have to take so" + line "many tests, I" + + para "don't have much" + line "time for #MON." + + para "So when I do get" + line "to play, I really" + cont "concentrate." + done + +LassDana1SeenText: + text "Are you good at" + line "training?" + + para "If you are, could" + line "you show me how?" + done + +LassDana1BeatenText: + text "I see. So you can" + line "battle that way." + done + +UnknownText_0x1a20ec: + text "I know something" + line "good!" + + para "MOOMOO FARM's milk" + line "is famous for its" + cont "flavor." + done + +BeautyValerieSeenText: + text "Hi! Aren't you a" + line "cute trainer!" + + para "May I see your" + line "#MON?" + done + +BeautyValerieBeatenText: + text "I'm glad I got to" + line "see your #MON!" + done + +BeautyValerieAfterBattleText: + text "When I see #-" + line "MON, it seems to" + cont "soothe my nerves." + done + +SailorHarrySeenText: + text "I've been over-" + line "seas, so I know" + + para "about all sorts of" + line "#MON!" + done + +SailorHarryBeatenText: + text "Your skill is" + line "world class!" + done + +SailorHarryAfterBattleText: + text "All kinds of peo-" + line "ple around the" + + para "world live happily" + line "with #MON." + done + +Route38SignText: + text "ROUTE 38" + + para "OLIVINE CITY -" + line "ECRUTEAK CITY" + done + +Route38TrainerTipsText: + text "TRAINER TIPS" + + para "If a #MON is" + line "trying to evolve," + cont "you can stop it." + + para "Press the B But-" + line "ton during evolu-" + cont "tion." + + para "That startles the" + line "#MON and stops" + cont "its evolution." + done + +Route38_MapEvents: + db 0, 0 ; filler + + db 2 ; warp events + warp_event 35, 8, ROUTE_38_ECRUTEAK_GATE, 1 + warp_event 35, 9, ROUTE_38_ECRUTEAK_GATE, 2 + + db 0 ; coord events + + db 2 ; bg events + bg_event 33, 7, BGEVENT_READ, Route38Sign + bg_event 5, 13, BGEVENT_READ, Route38TrainerTips + + db 6 ; object events + object_event 4, 1, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 3, TrainerSchoolboyChad1, -1 + object_event 15, 3, SPRITE_LASS, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerLassDana1, -1 + object_event 15, 10, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerBirdKeeperToby, -1 + object_event 9, 6, SPRITE_BUENA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerBeautyValerie, -1 + object_event 25, 5, SPRITE_SAILOR, SPRITEMOVEDATA_SPINCLOCKWISE, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerSailorHarry, -1 + object_event 12, 10, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route38FruitTree, -1 |