First Commit

Upload literally everything from the pokecrystal16 expand-move-ID branch

maps/AzaleaGym.asm

@@ -0,0 +1,382 @@
+	object_const_def
+	const AZALEAGYM_BUGSY
+	const AZALEAGYM_BUG_CATCHER1
+	const AZALEAGYM_BUG_CATCHER2
+	const AZALEAGYM_BUG_CATCHER3
+	const AZALEAGYM_TWIN1
+	const AZALEAGYM_TWIN2
+	const AZALEAGYM_GYM_GUIDE
+
+AzaleaGym_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+AzaleaGymBugsyScript:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_BUGSY
+	iftrue .FightDone
+	writetext BugsyText_INeverLose
+	waitbutton
+	closetext
+	winlosstext BugsyText_ResearchIncomplete, 0
+	loadtrainer BUGSY, BUGSY1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_BUGSY
+	opentext
+	writetext Text_ReceivedHiveBadge
+	playsound SFX_GET_BADGE
+	waitsfx
+	setflag ENGINE_HIVEBADGE
+	readvar VAR_BADGES
+	scall AzaleaGymActivateRockets
+.FightDone:
+	checkevent EVENT_GOT_TM49_FURY_CUTTER
+	iftrue .GotFuryCutter
+	setevent EVENT_BEAT_TWINS_AMY_AND_MAY
+	setevent EVENT_BEAT_BUG_CATCHER_BENNY
+	setevent EVENT_BEAT_BUG_CATCHER_AL
+	setevent EVENT_BEAT_BUG_CATCHER_JOSH
+	writetext BugsyText_HiveBadgeSpeech
+	promptbutton
+	verbosegiveitem TM_FURY_CUTTER
+	iffalse .NoRoomForFuryCutter
+	setevent EVENT_GOT_TM49_FURY_CUTTER
+	writetext BugsyText_FuryCutterSpeech
+	waitbutton
+	closetext
+	end
+
+.GotFuryCutter:
+	writetext BugsyText_BugMonsAreDeep
+	waitbutton
+.NoRoomForFuryCutter:
+	closetext
+	end
+
+AzaleaGymActivateRockets:
+	ifequal 7, .RadioTowerRockets
+	ifequal 6, .GoldenrodRockets
+	end
+
+.GoldenrodRockets:
+	jumpstd GoldenrodRocketsScript
+
+.RadioTowerRockets:
+	jumpstd RadioTowerRocketsScript
+
+TrainerTwinsAmyandmay1:
+	trainer TWINS, AMYANDMAY1, EVENT_BEAT_TWINS_AMY_AND_MAY, TwinsAmyandmay1SeenText, TwinsAmyandmay1BeatenText, 0, .AfterScript
+
+.AfterScript:
+	endifjustbattled
+	opentext
+	writetext TwinsAmyandmay1AfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerTwinsAmyandmay2:
+	trainer TWINS, AMYANDMAY2, EVENT_BEAT_TWINS_AMY_AND_MAY, TwinsAmyandmay2SeenText, TwinsAmyandmay2BeatenText, 0, .AfterScript
+
+.AfterScript:
+	endifjustbattled
+	opentext
+	writetext TwinsAmyandmay2AfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerBugCatcherBenny:
+	trainer BUG_CATCHER, BUG_CATCHER_BENNY, EVENT_BEAT_BUG_CATCHER_BENNY, BugCatcherBennySeenText, BugCatcherBennyBeatenText, 0, .AfterScript
+
+.AfterScript:
+	endifjustbattled
+	opentext
+	writetext BugCatcherBennyAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerBugCatcherAl:
+	trainer BUG_CATCHER, AL, EVENT_BEAT_BUG_CATCHER_AL, BugCatcherAlSeenText, BugCatcherAlBeatenText, 0, .AfterScript
+
+.AfterScript:
+	endifjustbattled
+	opentext
+	writetext BugCatcherAlAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerBugCatcherJosh:
+	trainer BUG_CATCHER, JOSH, EVENT_BEAT_BUG_CATCHER_JOSH, BugCatcherJoshSeenText, BugCatcherJoshBeatenText, 0, .AfterScript
+
+.AfterScript:
+	endifjustbattled
+	opentext
+	writetext BugCatcherJoshAfterBattleText
+	waitbutton
+	closetext
+	end
+
+AzaleaGymGuideScript:
+	faceplayer
+	checkevent EVENT_BEAT_BUGSY
+	iftrue .AzaleaGymGuideWinScript
+	opentext
+	writetext AzaleaGymGuideText
+	waitbutton
+	closetext
+	end
+
+.AzaleaGymGuideWinScript:
+	opentext
+	writetext AzaleaGymGuideWinText
+	waitbutton
+	closetext
+	end
+
+AzaleaGymStatue:
+	checkflag ENGINE_HIVEBADGE
+	iftrue .Beaten
+	jumpstd GymStatue1Script
+.Beaten:
+	gettrainername STRING_BUFFER_4, BUGSY, BUGSY1
+	jumpstd GymStatue2Script
+
+BugsyText_INeverLose:
+	text "I'm BUGSY!"
+	line "I never lose when"
+
+	para "it comes to bug"
+	line "#MON."
+
+	para "My research is"
+	line "going to make me"
+
+	para "the authority on"
+	line "bug #MON!"
+
+	para "Let me demonstrate"
+	line "what I've learned"
+	cont "from my studies."
+	done
+
+BugsyText_ResearchIncomplete:
+	text "Whoa, amazing!"
+	line "You're an expert"
+	cont "on #MON!"
+
+	para "My research isn't"
+	line "complete yet."
+
+	para "OK, you win. Take"
+	line "this BADGE."
+	done
+
+Text_ReceivedHiveBadge:
+	text "<PLAYER> received"
+	line "HIVEBADGE."
+	done
+
+BugsyText_HiveBadgeSpeech:
+	text "Do you know the"
+	line "benefits of HIVE-"
+	cont "BADGE?"
+
+	para "If you have it,"
+	line "#MON up to L30"
+
+	para "will obey you,"
+	line "even traded ones."
+
+	para "#MON that know"
+	line "CUT will be able"
+
+	para "to use it outside"
+	line "of battle too."
+
+	para "Here, I also want"
+	line "you to have this."
+	done
+
+BugsyText_FuryCutterSpeech:
+	text "TM49 contains"
+	line "FURY CUTTER."
+
+	para "If you don't miss,"
+	line "it gets stronger"
+	cont "every turn."
+
+	para "The longer your"
+	line "battle goes, the"
+	cont "better it gets."
+
+	para "Isn't that great?"
+	line "I discovered it!"
+	done
+
+BugsyText_BugMonsAreDeep:
+	text "Bug #MON are"
+	line "deep. There are"
+
+	para "many mysteries to"
+	line "be explored."
+
+	para "Study your favor-"
+	line "ites thoroughly."
+	done
+
+BugCatcherBennySeenText:
+	text "Bug #MON evolve"
+	line "young. So they get"
+
+	para "stronger that much"
+	line "faster."
+	done
+
+BugCatcherBennyBeatenText:
+	text "Just evolving"
+	line "isn't enough!"
+	done
+
+BugCatcherBennyAfterBattleText:
+	text "#MON become"
+	line "stronger if they"
+	cont "evolve. Really!"
+	done
+
+BugCatcherAlSeenText:
+	text "Bug #MON are"
+	line "cool and tough!"
+
+	para "I'll prove it to"
+	line "you!"
+	done
+
+BugCatcherAlBeatenText:
+	text "You proved how"
+	line "tough you are…"
+	done
+
+BugCatcherAlAfterBattleText:
+	text "They're so cool,"
+	line "but most girls"
+
+	para "don't like bug"
+	line "#MON."
+
+	para "I don't know why…"
+	done
+
+BugCatcherJoshSeenText:
+	text "You saved all the"
+	line "SLOWPOKE? Whew,"
+	cont "you're mighty!"
+
+	para "But my grown-up"
+	line "#MON are pretty"
+	cont "tough too!"
+	done
+
+BugCatcherJoshBeatenText:
+	text "Urrgggh!"
+	done
+
+BugCatcherJoshAfterBattleText:
+	text "I guess I should"
+	line "teach them better"
+	cont "moves…"
+	done
+
+TwinsAmyandmay1SeenText:
+	text "AMY: Hi! Are you"
+	line "challenging the"
+	cont "LEADER? No way!"
+	done
+
+TwinsAmyandmay1BeatenText:
+	text "AMY & MAY: Oh,"
+	line "double goodness!"
+	done
+
+TwinsAmyandmay1AfterBattleText:
+	text "AMY: You're"
+	line "really strong!"
+	done
+
+TwinsAmyandmay2SeenText:
+	text "MAY: You want to"
+	line "see the LEADER?"
+	cont "We come first!"
+	done
+
+TwinsAmyandmay2BeatenText:
+	text "AMY & MAY: Oh,"
+	line "double goodness!"
+	done
+
+TwinsAmyandmay2AfterBattleText:
+	text "MAY: Our bug #-"
+	line "MON lost! Oh, what"
+	cont "a shame."
+	done
+
+AzaleaGymGuideText:
+	text "Yo, challenger!"
+
+	para "BUGSY's young, but"
+	line "his knowledge of"
+
+	para "bug #MON is for"
+	line "real."
+
+	para "It's going to be"
+	line "tough without my"
+	cont "advice."
+
+	para "Let's see… Bug"
+	line "#MON don't like"
+	cont "fire."
+
+	para "Flying-type moves"
+	line "are super-effec-"
+	cont "tive too."
+	done
+
+AzaleaGymGuideWinText:
+	text "Well done! That"
+	line "was a great clash"
+
+	para "of talented young"
+	line "trainers."
+
+	para "With people like"
+	line "you, the future of"
+	cont "#MON is bright!"
+	done
+
+AzaleaGym_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 15, AZALEA_TOWN, 5
+	warp_event  5, 15, AZALEA_TOWN, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3, 13, BGEVENT_READ, AzaleaGymStatue
+	bg_event  6, 13, BGEVENT_READ, AzaleaGymStatue
+
+	def_object_events
+	object_event  5,  7, SPRITE_BUGSY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, AzaleaGymBugsyScript, -1
+	object_event  5,  3, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerBugCatcherBenny, -1
+	object_event  8,  8, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBugCatcherAl, -1
+	object_event  0,  2, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBugCatcherJosh, -1
+	object_event  4, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsAmyandmay1, -1
+	object_event  5, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsAmyandmay2, -1
+	object_event  7, 13, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, AzaleaGymGuideScript, -1

maps/AzaleaGym.blk

@@ -0,0 +1,2 @@
+
+!%&

maps/AzaleaMart.asm

@@ -0,0 +1,60 @@
+	object_const_def
+	const AZALEAMART_CLERK
+	const AZALEAMART_COOLTRAINER_M
+	const AZALEAMART_BUG_CATCHER
+
+AzaleaMart_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+AzaleaMartClerkScript:
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_AZALEA
+	closetext
+	end
+
+AzaleaMartCooltrainerMScript:
+	jumptextfaceplayer AzaleaMartCooltrainerMText
+
+AzaleaMartBugCatcherScript:
+	jumptextfaceplayer AzaleaMartBugCatcherText
+
+AzaleaMartCooltrainerMText:
+	text "There's no GREAT"
+	line "BALL here. #"
+
+	para "BALLS will have"
+	line "to do."
+
+	para "I wish KURT would"
+	line "make me some of"
+	cont "his custom BALLS."
+	done
+
+AzaleaMartBugCatcherText:
+	text "A GREAT BALL is"
+	line "better for catch-"
+	cont "ing #MON than a"
+	cont "# BALL."
+
+	para "But KURT's might"
+	line "be better some-"
+	cont "times."
+	done
+
+AzaleaMart_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, AZALEA_TOWN, 3
+	warp_event  3,  7, AZALEA_TOWN, 3
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  1,  3, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaMartClerkScript, -1
+	object_event  2,  5, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaMartCooltrainerMScript, -1
+	object_event  7,  2, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, AzaleaMartBugCatcherScript, -1

maps/AzaleaPokecenter1F.asm

@@ -0,0 +1,93 @@
+	object_const_def
+	const AZALEAPOKECENTER1F_NURSE
+	const AZALEAPOKECENTER1F_GENTLEMAN
+	const AZALEAPOKECENTER1F_FISHING_GURU
+	const AZALEAPOKECENTER1F_POKEFAN_F
+
+AzaleaPokecenter1F_MapScripts:
+	def_scene_scripts
+	scene_script AzaleaPokecenter1FNoopScene ; unusable
+
+	def_callbacks
+
+AzaleaPokecenter1FNoopScene:
+	end
+
+AzaleaPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+AzaleaPokecenter1FGentlemanScript:
+	jumptextfaceplayer AzaleaPokecenter1FGentlemanText
+
+AzaleaPokecenter1FFishingGuruScript:
+	jumptextfaceplayer AzaleaPokecenter1FFishingGuruText
+
+AzaleaPokecenter1FPokefanFScript:
+	jumptextfaceplayer AzaleaPokecenter1FPokefanFText
+
+AzaleaPokecenter1FGentlemanText:
+	text "Do your #MON"
+	line "know HM moves?"
+
+	para "Those moves can"
+	line "be used even if"
+
+	para "your #MON has"
+	line "fainted."
+	done
+
+AzaleaPokecenter1FUnusedText: ; unreferenced
+	text "This BILL guy"
+	line "created the system"
+
+	para "for storing"
+	line "#MON in a PC."
+
+	para "BILL's PC can"
+	line "store up to 20"
+	cont "#MON per BOX."
+	done
+
+AzaleaPokecenter1FFishingGuruText:
+	text "BILL's PC can"
+	line "store up to 20"
+	cont "#MON per BOX."
+	done
+
+AzaleaPokecenter1FPokefanFText:
+	text "Do you know about"
+	line "APRICORNS?"
+
+	para "Crack one open,"
+	line "hollow it out and"
+
+	para "fit it with a"
+	line "special device."
+
+	para "Then you can catch"
+	line "#MON with it."
+
+	para "Before # BALLS"
+	line "were invented,"
+
+	para "everyone used"
+	line "APRICORNS."
+	done
+
+AzaleaPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, AZALEA_TOWN, 1
+	warp_event  4,  7, AZALEA_TOWN, 1
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaPokecenter1FNurseScript, -1
+	object_event  9,  6, SPRITE_GENTLEMAN, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaPokecenter1FGentlemanScript, -1
+	object_event  6,  1, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaPokecenter1FFishingGuruScript, -1
+	object_event  1,  4, SPRITE_POKEFAN_F, SPRITEMOVEDATA_WANDER, 1, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaPokecenter1FPokefanFScript, -1

maps/AzaleaTown.asm

@@ -0,0 +1,496 @@
+	object_const_def
+	const AZALEATOWN_AZALEA_ROCKET1
+	const AZALEATOWN_GRAMPS
+	const AZALEATOWN_TEACHER
+	const AZALEATOWN_YOUNGSTER
+	const AZALEATOWN_SLOWPOKE1
+	const AZALEATOWN_SLOWPOKE2
+	const AZALEATOWN_SLOWPOKE3
+	const AZALEATOWN_SLOWPOKE4
+	const AZALEATOWN_FRUIT_TREE
+	const AZALEATOWN_RIVAL
+	const AZALEATOWN_AZALEA_ROCKET3
+	const AZALEATOWN_KURT_OUTSIDE
+
+AzaleaTown_MapScripts:
+	def_scene_scripts
+	scene_script AzaleaTownNoop1Scene, SCENE_AZALEATOWN_NOOP
+	scene_script AzaleaTownNoop2Scene, SCENE_AZALEATOWN_RIVAL_BATTLE
+	scene_script AzaleaTownNoop3Scene, SCENE_AZALEATOWN_KURT_RETURNS_GS_BALL
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, AzaleaTownFlypointCallback
+
+AzaleaTownNoop1Scene:
+	end
+
+AzaleaTownNoop2Scene:
+	end
+
+AzaleaTownNoop3Scene:
+	end
+
+AzaleaTownFlypointCallback:
+	setflag ENGINE_FLYPOINT_AZALEA
+	endcallback
+
+AzaleaTownRivalBattleScene1:
+	moveobject AZALEATOWN_RIVAL, 11, 11
+	turnobject PLAYER, RIGHT
+	showemote EMOTE_SHOCK, PLAYER, 15
+	special FadeOutMusic
+	pause 15
+	appear AZALEATOWN_RIVAL
+	applymovement AZALEATOWN_RIVAL, AzaleaTownRivalBattleApproachMovement1
+	turnobject PLAYER, DOWN
+	sjump AzaleaTownRivalBattleScript
+
+AzaleaTownRivalBattleScene2:
+	turnobject PLAYER, RIGHT
+	showemote EMOTE_SHOCK, PLAYER, 15
+	special FadeOutMusic
+	pause 15
+	appear AZALEATOWN_RIVAL
+	applymovement AZALEATOWN_RIVAL, AzaleaTownRivalBattleApproachMovement2
+	turnobject PLAYER, UP
+AzaleaTownRivalBattleScript:
+	playmusic MUSIC_RIVAL_ENCOUNTER
+	opentext
+	writetext AzaleaTownRivalBeforeText
+	waitbutton
+	closetext
+	setevent EVENT_RIVAL_AZALEA_TOWN
+	checkevent EVENT_GOT_TOTODILE_FROM_ELM
+	iftrue .Totodile
+	checkevent EVENT_GOT_CHIKORITA_FROM_ELM
+	iftrue .Chikorita
+	winlosstext AzaleaTownRivalWinText, AzaleaTownRivalLossText
+	setlasttalked AZALEATOWN_RIVAL
+	loadtrainer RIVAL1, RIVAL1_2_TOTODILE
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .AfterBattle
+
+.Totodile:
+	winlosstext AzaleaTownRivalWinText, AzaleaTownRivalLossText
+	setlasttalked AZALEATOWN_RIVAL
+	loadtrainer RIVAL1, RIVAL1_2_CHIKORITA
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .AfterBattle
+
+.Chikorita:
+	winlosstext AzaleaTownRivalWinText, AzaleaTownRivalLossText
+	setlasttalked AZALEATOWN_RIVAL
+	loadtrainer RIVAL1, RIVAL1_2_CYNDAQUIL
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .AfterBattle
+
+.AfterBattle:
+	playmusic MUSIC_RIVAL_AFTER
+	opentext
+	writetext AzaleaTownRivalAfterText
+	waitbutton
+	closetext
+	turnobject PLAYER, LEFT
+	applymovement AZALEATOWN_RIVAL, AzaleaTownRivalBattleExitMovement
+	playsound SFX_EXIT_BUILDING
+	disappear AZALEATOWN_RIVAL
+	setscene SCENE_AZALEATOWN_NOOP
+	waitsfx
+	playmapmusic
+	end
+
+AzaleaTownRocket1Script:
+	jumptextfaceplayer AzaleaTownRocket1Text
+
+AzaleaTownRocket2Script:
+	jumptextfaceplayer AzaleaTownRocket2Text
+
+AzaleaTownGrampsScript:
+	faceplayer
+	opentext
+	checkevent EVENT_CLEARED_SLOWPOKE_WELL
+	iftrue .ClearedWell
+	writetext AzaleaTownGrampsTextBefore
+	waitbutton
+	closetext
+	end
+
+.ClearedWell:
+	writetext AzaleaTownGrampsTextAfter
+	waitbutton
+	closetext
+	end
+
+AzaleaTownTeacherScript:
+	jumptextfaceplayer AzaleaTownTeacherText
+
+AzaleaTownYoungsterScript:
+	jumptextfaceplayer AzaleaTownYoungsterText
+
+AzaleaTownSlowpokeScript:
+	opentext
+	writetext AzaleaTownSlowpokeText1
+	pause 60
+	writetext AzaleaTownSlowpokeText2
+	cry SLOWPOKE
+	waitbutton
+	closetext
+	end
+
+UnusedWoosterScript: ; unreferenced
+	faceplayer
+	opentext
+	writetext WoosterText
+	cry QUAGSIRE
+	waitbutton
+	closetext
+	end
+
+AzaleaTownCelebiScene:
+	applymovement PLAYER, AzaleaTownPlayerLeavesKurtsHouseMovement
+	opentext
+	writetext AzaleaTownKurtText1
+	promptbutton
+	turnobject AZALEATOWN_KURT_OUTSIDE, RIGHT
+	writetext AzaleaTownKurtText2
+	promptbutton
+	writetext AzaleaTownKurtText3
+	waitbutton
+	verbosegiveitem GS_BALL
+	turnobject AZALEATOWN_KURT_OUTSIDE, LEFT
+	setflag ENGINE_FOREST_IS_RESTLESS
+	clearevent EVENT_ILEX_FOREST_LASS
+	setevent EVENT_ROUTE_34_ILEX_FOREST_GATE_LASS
+	setscene SCENE_AZALEATOWN_NOOP
+	closetext
+	end
+
+AzaleaTownKurtScript:
+	faceplayer
+	opentext
+	writetext AzaleaTownKurtText3
+	waitbutton
+	turnobject AZALEATOWN_KURT_OUTSIDE, LEFT
+	closetext
+	end
+
+AzaleaTownSign:
+	jumptext AzaleaTownSignText
+
+KurtsHouseSign:
+	jumptext KurtsHouseSignText
+
+AzaleaGymSign:
+	jumptext AzaleaGymSignText
+
+SlowpokeWellSign:
+	jumptext SlowpokeWellSignText
+
+CharcoalKilnSign:
+	jumptext CharcoalKilnSignText
+
+AzaleaTownIlextForestSign:
+	jumptext AzaleaTownIlexForestSignText
+
+AzaleaTownPokecenterSign:
+	jumpstd PokecenterSignScript
+
+AzaleaTownMartSign:
+	jumpstd MartSignScript
+
+WhiteApricornTree:
+	fruittree FRUITTREE_AZALEA_TOWN
+
+AzaleaTownHiddenFullHeal:
+	hiddenitem FULL_HEAL, EVENT_AZALEA_TOWN_HIDDEN_FULL_HEAL
+
+AzaleaTownRivalBattleApproachMovement1:
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	turn_head UP
+	step_end
+
+AzaleaTownRivalBattleApproachMovement2:
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	turn_head DOWN
+	step_end
+
+AzaleaTownRivalBattleExitMovement:
+	step LEFT
+	step LEFT
+	step LEFT
+	step_end
+
+AzaleaTownPlayerLeavesKurtsHouseMovement:
+	step LEFT
+	step LEFT
+	step UP
+	turn_head LEFT
+	step_end
+
+AzaleaTownRivalBeforeText:
+	text "…Tell me some-"
+	line "thing."
+
+	para "Is it true that"
+	line "TEAM ROCKET has"
+	cont "returned?"
+
+	para "What? You beat"
+	line "them? Hah! Quit"
+	cont "lying."
+
+	para "You're not joking?"
+	line "Then let's see how"
+	cont "good you are."
+	done
+
+AzaleaTownRivalWinText:
+	text "… Humph! Useless"
+	line "#MON!"
+
+	para "Listen, you. You"
+	line "only won because"
+
+	para "my #MON were"
+	line "weak."
+	done
+
+AzaleaTownRivalAfterText:
+	text "I hate the weak."
+
+	para "#MON, trainers."
+	line "It doesn't matter"
+	cont "who or what."
+
+	para "I'm going to be"
+	line "strong and wipe"
+	cont "out the weak."
+
+	para "That goes for TEAM"
+	line "ROCKET too."
+
+	para "They act big and"
+	line "tough in a group."
+
+	para "But get them"
+	line "alone, and they're"
+	cont "weak."
+
+	para "I hate them all."
+
+	para "You stay out of my"
+	line "way. A weakling"
+
+	para "like you is only a"
+	line "distraction."
+	done
+
+AzaleaTownRivalLossText:
+	text "…Humph! I knew"
+	line "you were lying."
+	done
+
+AzaleaTownRocket1Text:
+	text "It's unsafe to go"
+	line "in there, so I'm"
+	cont "standing guard."
+
+	para "Aren't I a good"
+	line "Samaritan?"
+	done
+
+AzaleaTownRocket2Text:
+	text "Do you know about"
+	line "SLOWPOKETAIL? I"
+	cont "heard it's tasty!"
+
+	para "Aren't you glad I"
+	line "told you that?"
+	done
+
+AzaleaTownGrampsTextBefore:
+	text "The SLOWPOKE have"
+	line "disappeared from"
+	cont "town…"
+
+	para "I heard their"
+	line "TAILS are being"
+	cont "sold somewhere."
+	done
+
+AzaleaTownGrampsTextAfter:
+	text "The SLOWPOKE have"
+	line "returned."
+
+	para "Knowing them, they"
+	line "could've just been"
+
+	para "goofing off some-"
+	line "where."
+	done
+
+AzaleaTownTeacherText:
+	text "Did you come to"
+	line "get KURT to make"
+	cont "some BALLS?"
+
+	para "A lot of people do"
+	line "just that."
+	done
+
+AzaleaTownYoungsterText:
+	text "Cut through AZALEA"
+	line "and you'll be in"
+	cont "ILEX FOREST."
+
+	para "But these skinny"
+	line "trees make it"
+
+	para "impossible to get"
+	line "through."
+
+	para "The CHARCOAL MAN's"
+	line "#MON can CUT"
+	cont "down trees."
+	done
+
+AzaleaTownSlowpokeText1:
+	text "SLOWPOKE: …"
+
+	para "<……> <……> <……>"
+	done
+
+AzaleaTownSlowpokeText2:
+	text "<……> <……>Yawn?"
+	done
+
+WoosterText:
+	text "WOOSTER: Gugyoo…"
+	done
+
+AzaleaTownKurtText1:
+	text "ILEX FOREST is"
+	line "restless!"
+
+	para "What is going on?"
+	done
+
+AzaleaTownKurtText2:
+	text "<PLAYER>, here's"
+	line "your GS BALL back!"
+	done
+
+AzaleaTownKurtText3:
+	text "Could you go see"
+	line "why ILEX FOREST is"
+	cont "so restless?"
+	done
+
+AzaleaTownSignText:
+	text "AZALEA TOWN"
+	line "Where People and"
+
+	para "#MON Live in"
+	line "Happy Harmony"
+	done
+
+KurtsHouseSignText:
+	text "KURT'S HOUSE"
+	done
+
+AzaleaGymSignText:
+	text "AZALEA TOWN"
+	line "#MON GYM"
+	cont "LEADER: BUGSY"
+
+	para "The Walking"
+	line "Bug #MON"
+	cont "Encyclopedia"
+	done
+
+SlowpokeWellSignText:
+	text "SLOWPOKE WELL"
+
+	para "Also known as the"
+	line "RAINMAKER WELL."
+
+	para "Locals believe"
+	line "that a SLOWPOKE's"
+	cont "yawn summons rain."
+
+	para "Records show that"
+	line "a SLOWPOKE's yawn"
+
+	para "ended a drought"
+	line "400 years ago."
+	done
+
+CharcoalKilnSignText:
+	text "CHARCOAL KILN"
+	done
+
+AzaleaTownIlexForestSignText:
+	text "ILEX FOREST"
+
+	para "Enter through the"
+	line "gate."
+	done
+
+AzaleaTown_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 15,  9, AZALEA_POKECENTER_1F, 1
+	warp_event 21, 13, CHARCOAL_KILN, 1
+	warp_event 21,  5, AZALEA_MART, 2
+	warp_event  9,  5, KURTS_HOUSE, 1
+	warp_event 10, 15, AZALEA_GYM, 1
+	warp_event 31,  7, SLOWPOKE_WELL_B1F, 1
+	warp_event  2, 10, ILEX_FOREST_AZALEA_GATE, 3
+	warp_event  2, 11, ILEX_FOREST_AZALEA_GATE, 4
+
+	def_coord_events
+	coord_event  5, 10, SCENE_AZALEATOWN_RIVAL_BATTLE, AzaleaTownRivalBattleScene1
+	coord_event  5, 11, SCENE_AZALEATOWN_RIVAL_BATTLE, AzaleaTownRivalBattleScene2
+	coord_event  9,  6, SCENE_AZALEATOWN_KURT_RETURNS_GS_BALL, AzaleaTownCelebiScene
+
+	def_bg_events
+	bg_event 19,  9, BGEVENT_READ, AzaleaTownSign
+	bg_event 10,  9, BGEVENT_READ, KurtsHouseSign
+	bg_event 14, 15, BGEVENT_READ, AzaleaGymSign
+	bg_event 29,  7, BGEVENT_READ, SlowpokeWellSign
+	bg_event 19, 13, BGEVENT_READ, CharcoalKilnSign
+	bg_event 16,  9, BGEVENT_READ, AzaleaTownPokecenterSign
+	bg_event 22,  5, BGEVENT_READ, AzaleaTownMartSign
+	bg_event  3,  9, BGEVENT_READ, AzaleaTownIlextForestSign
+	bg_event 31,  6, BGEVENT_ITEM, AzaleaTownHiddenFullHeal
+
+	def_object_events
+	object_event 31,  9, SPRITE_AZALEA_ROCKET, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownRocket1Script, EVENT_AZALEA_TOWN_SLOWPOKETAIL_ROCKET
+	object_event 21,  9, SPRITE_GRAMPS, SPRITEMOVEDATA_WANDER, 1, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownGrampsScript, -1
+	object_event 15, 13, SPRITE_TEACHER, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 2, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, AzaleaTownTeacherScript, -1
+	object_event  7,  9, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, AzaleaTownYoungsterScript, -1
+	object_event  8, 17, SPRITE_SLOWPOKE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownSlowpokeScript, EVENT_AZALEA_TOWN_SLOWPOKES
+	object_event 18,  9, SPRITE_SLOWPOKE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownSlowpokeScript, EVENT_AZALEA_TOWN_SLOWPOKES
+	object_event 29,  9, SPRITE_SLOWPOKE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownSlowpokeScript, EVENT_AZALEA_TOWN_SLOWPOKES
+	object_event 15, 15, SPRITE_SLOWPOKE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownSlowpokeScript, EVENT_AZALEA_TOWN_SLOWPOKES
+	object_event  8,  2, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, WhiteApricornTree, -1
+	object_event 11, 10, SPRITE_AZALEA_ROCKET, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_RIVAL_AZALEA_TOWN
+	object_event 10, 16, SPRITE_AZALEA_ROCKET, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownRocket2Script, EVENT_SLOWPOKE_WELL_ROCKETS
+	object_event  6,  5, SPRITE_KURT_OUTSIDE, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AzaleaTownKurtScript, EVENT_AZALEA_TOWN_KURT

maps/AzaleaTown.blk

@@ -0,0 +1,10 @@
+//
+hqqqq
+
+lrrrr3
+///
+
+WZW

G[\	xJ
<G

]^
+









;;WKW

G///
<




+











+

maps/BattleTower1F.asm

@@ -0,0 +1,813 @@
+	object_const_def
+	const BATTLETOWER1F_RECEPTIONIST
+	const BATTLETOWER1F_YOUNGSTER
+	const BATTLETOWER1F_COOLTRAINER_F
+	const BATTLETOWER1F_BUG_CATCHER
+	const BATTLETOWER1F_GRANNY
+
+BattleTower1F_MapScripts:
+	def_scene_scripts
+	scene_script BattleTower1FCheckStateScene, SCENE_BATTLETOWER1F_CHECKSTATE
+	scene_script BattleTower1FNoopScene,       SCENE_BATTLETOWER1F_NOOP
+
+	def_callbacks
+
+BattleTower1FCheckStateScene:
+	setval BATTLETOWERACTION_CHECKSAVEFILEISYOURS
+	special BattleTowerAction
+	iffalse .SkipEverything
+	setval BATTLETOWERACTION_GET_CHALLENGE_STATE ; readmem sBattleTowerChallengeState
+	special BattleTowerAction
+	ifequal $0, .SkipEverything
+	ifequal $2, .LeftWithoutSaving
+	ifequal $3, .SkipEverything
+	ifequal $4, .SkipEverything
+	opentext
+	writetext Text_WeveBeenWaitingForYou
+	waitbutton
+	closetext
+	sdefer Script_ResumeBattleTowerChallenge
+	end
+
+.LeftWithoutSaving
+	sdefer BattleTower_LeftWithoutSaving
+	setval BATTLETOWERACTION_CHALLENGECANCELED
+	special BattleTowerAction
+	setval BATTLETOWERACTION_06
+	special BattleTowerAction
+.SkipEverything:
+	setscene SCENE_BATTLETOWER1F_NOOP
+	; fallthrough
+BattleTower1FNoopScene:
+	end
+
+BattleTower1FRulesSign:
+	opentext
+	writetext Text_ReadBattleTowerRules
+	yesorno
+	iffalse .skip
+	writetext Text_BattleTowerRules
+	waitbutton
+.skip:
+	closetext
+	end
+
+BattleTower1FReceptionistScript:
+	setval BATTLETOWERACTION_GET_CHALLENGE_STATE ; readmem sBattleTowerChallengeState
+	special BattleTowerAction
+	ifequal $3, Script_BeatenAllTrainers2 ; maps/BattleTowerBattleRoom.asm
+	opentext
+	writetext Text_BattleTowerWelcomesYou
+	promptbutton
+	setval BATTLETOWERACTION_CHECK_EXPLANATION_READ ; if new save file: bit 1, [sBattleTowerSaveFileFlags]
+	special BattleTowerAction
+	ifnotequal $0, Script_Menu_ChallengeExplanationCancel
+	sjump Script_BattleTowerIntroductionYesNo
+
+Script_Menu_ChallengeExplanationCancel:
+	writetext Text_WantToGoIntoABattleRoom
+	setval TRUE
+	special Menu_ChallengeExplanationCancel
+	ifequal 1, Script_ChooseChallenge
+	ifequal 2, Script_BattleTowerExplanation
+	sjump Script_BattleTowerHopeToServeYouAgain
+
+Script_ChooseChallenge:
+	setval BATTLETOWERACTION_RESETDATA ; ResetBattleTowerTrainerSRAM
+	special BattleTowerAction
+	special CheckForBattleTowerRules
+	ifnotequal FALSE, Script_WaitButton
+	writetext Text_SaveBeforeEnteringBattleRoom
+	yesorno
+	iffalse Script_Menu_ChallengeExplanationCancel
+	setscene SCENE_BATTLETOWER1F_CHECKSTATE
+	special TryQuickSave
+	iffalse Script_Menu_ChallengeExplanationCancel
+	setscene SCENE_BATTLETOWER1F_NOOP
+	setval BATTLETOWERACTION_SET_EXPLANATION_READ ; set 1, [sBattleTowerSaveFileFlags]
+	special BattleTowerAction
+	special BattleTowerRoomMenu
+	ifequal $a, Script_Menu_ChallengeExplanationCancel
+	ifnotequal $0, Script_MobileError
+	setval BATTLETOWERACTION_11
+	special BattleTowerAction
+	writetext Text_RightThisWayToYourBattleRoom
+	waitbutton
+	closetext
+	setval BATTLETOWERACTION_CHOOSEREWARD
+	special BattleTowerAction
+	sjump Script_WalkToBattleTowerElevator
+
+Script_ResumeBattleTowerChallenge:
+	closetext
+	setval BATTLETOWERACTION_LOADLEVELGROUP ; load choice of level group
+	special BattleTowerAction
+Script_WalkToBattleTowerElevator:
+	musicfadeout MUSIC_NONE, 8
+	setmapscene BATTLE_TOWER_BATTLE_ROOM, SCENE_BATTLETOWERBATTLEROOM_ENTER
+	setmapscene BATTLE_TOWER_ELEVATOR, SCENE_BATTLETOWERELEVATOR_ENTER
+	setmapscene BATTLE_TOWER_HALLWAY, SCENE_BATTLETOWERHALLWAY_ENTER
+	follow BATTLETOWER1F_RECEPTIONIST, PLAYER
+	applymovement BATTLETOWER1F_RECEPTIONIST, MovementData_BattleTower1FWalkToElevator
+	setval BATTLETOWERACTION_0A
+	special BattleTowerAction
+	warpsound
+	disappear BATTLETOWER1F_RECEPTIONIST
+	stopfollow
+	applymovement PLAYER, MovementData_BattleTowerHallwayPlayerEntersBattleRoom
+	warpcheck
+	end
+
+Script_GivePlayerHisPrize:
+	setval BATTLETOWERACTION_1C
+	special BattleTowerAction
+	setval BATTLETOWERACTION_GIVEREWARD
+	special BattleTowerAction
+	ifequal POTION, Script_YourPackIsStuffedFull
+	getitemname STRING_BUFFER_4, USE_SCRIPT_VAR
+	giveitem ITEM_FROM_MEM, 5
+	writetext Text_PlayerGotFive
+	setval BATTLETOWERACTION_1D
+	special BattleTowerAction
+	closetext
+	end
+
+Script_YourPackIsStuffedFull:
+	writetext Text_YourPackIsStuffedFull
+	waitbutton
+	closetext
+	end
+
+Script_BattleTowerIntroductionYesNo:
+	writetext Text_WouldYouLikeToHearAboutTheBattleTower
+	yesorno
+	iffalse Script_BattleTowerSkipExplanation
+Script_BattleTowerExplanation:
+	writetext Text_BattleTowerIntroduction_2
+Script_BattleTowerSkipExplanation:
+	setval BATTLETOWERACTION_SET_EXPLANATION_READ
+	special BattleTowerAction
+	sjump Script_Menu_ChallengeExplanationCancel
+
+Script_BattleTowerHopeToServeYouAgain:
+	writetext Text_WeHopeToServeYouAgain
+	waitbutton
+	closetext
+	end
+
+Script_MobileError2: ; unreferenced
+	special BattleTowerMobileError
+	closetext
+	end
+
+Script_WaitButton:
+	waitbutton
+	closetext
+	end
+
+Script_ChooseChallenge2: ; unreferenced
+	writetext Text_SaveBeforeEnteringBattleRoom
+	yesorno
+	iffalse Script_Menu_ChallengeExplanationCancel
+	special TryQuickSave
+	iffalse Script_Menu_ChallengeExplanationCancel
+	setval BATTLETOWERACTION_SET_EXPLANATION_READ
+	special BattleTowerAction
+	special Function1700ba
+	ifequal $a, Script_Menu_ChallengeExplanationCancel
+	ifnotequal $0, Script_MobileError
+	writetext Text_ReceivedAListOfLeadersOnTheHonorRoll
+	turnobject BATTLETOWER1F_RECEPTIONIST, LEFT
+	writetext Text_PleaseConfirmOnThisMonitor
+	waitbutton
+	turnobject BATTLETOWER1F_RECEPTIONIST, DOWN
+	closetext
+	end
+
+Script_StartChallenge: ; unreferenced
+	setval BATTLETOWERACTION_LEVEL_CHECK
+	special BattleTowerAction
+	ifnotequal $0, Script_AMonLevelExceeds
+	setval BATTLETOWERACTION_UBERS_CHECK
+	special BattleTowerAction
+	ifnotequal $0, Script_MayNotEnterABattleRoomUnderL70
+	special CheckForBattleTowerRules
+	ifnotequal FALSE, Script_WaitButton
+	setval BATTLETOWERACTION_05
+	special BattleTowerAction
+	ifequal $0, .zero
+	writetext Text_CantBeRegistered_PreviousRecordDeleted
+	sjump .continue
+
+.zero
+	writetext Text_CantBeRegistered
+.continue
+	yesorno
+	iffalse Script_Menu_ChallengeExplanationCancel
+	writetext Text_SaveBeforeReentry
+	yesorno
+	iffalse Script_Menu_ChallengeExplanationCancel
+	setscene SCENE_BATTLETOWER1F_CHECKSTATE
+	special TryQuickSave
+	iffalse Script_Menu_ChallengeExplanationCancel
+	setscene SCENE_BATTLETOWER1F_NOOP
+	setval BATTLETOWERACTION_06
+	special BattleTowerAction
+	setval BATTLETOWERACTION_12
+	special BattleTowerAction
+	writetext Text_RightThisWayToYourBattleRoom
+	waitbutton
+	sjump Script_ResumeBattleTowerChallenge
+
+Script_ReachedBattleLimit: ; unreferenced
+	writetext Text_FiveDayBattleLimit_Mobile
+	waitbutton
+	sjump Script_BattleTowerHopeToServeYouAgain
+
+Script_AMonLevelExceeds:
+	writetext Text_AMonLevelExceeds
+	waitbutton
+	sjump Script_Menu_ChallengeExplanationCancel
+
+Script_MayNotEnterABattleRoomUnderL70:
+	writetext Text_MayNotEnterABattleRoomUnderL70
+	waitbutton
+	sjump Script_Menu_ChallengeExplanationCancel
+
+Script_MobileError:
+	special BattleTowerMobileError
+	closetext
+	end
+
+BattleTower_LeftWithoutSaving:
+	opentext
+	writetext Text_BattleTower_LeftWithoutSaving
+	waitbutton
+	sjump Script_BattleTowerHopeToServeYouAgain
+
+BattleTower1FYoungsterScript:
+	faceplayer
+	opentext
+	writetext Text_BattleTowerYoungster
+	waitbutton
+	closetext
+	turnobject BATTLETOWER1F_YOUNGSTER, RIGHT
+	end
+
+BattleTower1FCooltrainerFScript:
+	jumptextfaceplayer Text_BattleTowerCooltrainerF
+
+BattleTower1FBugCatcherScript:
+	jumptextfaceplayer Text_BattleTowerBugCatcher
+
+BattleTower1FGrannyScript:
+	jumptextfaceplayer Text_BattleTowerGranny
+
+MovementData_BattleTower1FWalkToElevator:
+	step UP
+	step UP
+	step UP
+	step UP
+	step UP
+MovementData_BattleTowerHallwayPlayerEntersBattleRoom:
+	step UP
+	step_end
+
+MovementData_BattleTowerElevatorExitElevator:
+	step DOWN
+	step_end
+
+MovementData_BattleTowerHallwayWalkTo1020Room:
+	step RIGHT
+	step RIGHT
+MovementData_BattleTowerHallwayWalkTo3040Room:
+	step RIGHT
+	step RIGHT
+	step UP
+	step RIGHT
+	turn_head LEFT
+	step_end
+
+MovementData_BattleTowerHallwayWalkTo90100Room:
+	step LEFT
+	step LEFT
+MovementData_BattleTowerHallwayWalkTo7080Room:
+	step LEFT
+	step LEFT
+MovementData_BattleTowerHallwayWalkTo5060Room:
+	step LEFT
+	step LEFT
+	step UP
+	step LEFT
+	turn_head RIGHT
+	step_end
+
+MovementData_BattleTowerBattleRoomPlayerWalksIn:
+	step UP
+	step UP
+	step UP
+	step UP
+	turn_head RIGHT
+	step_end
+
+MovementData_BattleTowerBattleRoomOpponentWalksIn:
+	slow_step DOWN
+	slow_step DOWN
+	slow_step DOWN
+	turn_head LEFT
+	step_end
+
+MovementData_BattleTowerBattleRoomOpponentWalksOut:
+	turn_head UP
+	slow_step UP
+	slow_step UP
+	slow_step UP
+	step_end
+
+MovementData_BattleTowerBattleRoomReceptionistWalksToPlayer:
+	slow_step RIGHT
+	slow_step RIGHT
+	slow_step UP
+	slow_step UP
+	step_end
+
+MovementData_BattleTowerBattleRoomReceptionistWalksAway:
+	slow_step DOWN
+	slow_step DOWN
+	slow_step LEFT
+	slow_step LEFT
+	turn_head RIGHT
+	step_end
+
+MovementData_BattleTowerBattleRoomPlayerTurnsToFaceReceptionist:
+	turn_head DOWN
+	step_end
+
+MovementData_BattleTowerBattleRoomPlayerTurnsToFaceNextOpponent:
+	turn_head RIGHT
+	step_end
+
+Text_BattleTowerWelcomesYou:
+	text "BATTLE TOWER"
+	line "welcomes you!"
+
+	para "I could show you"
+	line "to a BATTLE ROOM."
+	done
+
+Text_WantToGoIntoABattleRoom:
+	text "Want to go into a"
+	line "BATTLE ROOM?"
+	done
+
+Text_RightThisWayToYourBattleRoom:
+	text "Right this way to"
+	line "your BATTLE ROOM."
+	done
+
+Text_BattleTowerIntroduction_1: ; unreferenced
+	text "BATTLE TOWER is a"
+	line "facility made for"
+	cont "#MON battles."
+
+	para "Countless #MON"
+	line "trainers gather"
+
+	para "from all over to"
+	line "hold battles in"
+
+	para "specially designed"
+	line "BATTLE ROOMS."
+
+	para "There are many"
+	line "BATTLE ROOMS in"
+	cont "the BATTLE TOWER."
+
+	para "Each ROOM holds"
+	line "seven trainers."
+
+	para "If you defeat the"
+	line "seven in a ROOM,"
+
+	para "and you have a"
+	line "good record, you"
+
+	para "could become the"
+	line "ROOM's LEADER."
+
+	para "All LEADERS will"
+	line "be recorded in the"
+
+	para "HONOR ROLL for"
+	line "posterity."
+
+	para "You may challenge"
+	line "in up to five"
+
+	para "BATTLE ROOMS each"
+	line "day."
+
+	para "However, you may"
+	line "battle only once a"
+
+	para "day in any given"
+	line "ROOM."
+
+	para "To interrupt a"
+	line "session, you must"
+
+	para "SAVE. If not, you"
+	line "won't be able to"
+
+	para "resume your ROOM"
+	line "challenge."
+
+	para ""
+	done
+
+Text_BattleTowerIntroduction_2:
+	text "BATTLE TOWER is a"
+	line "facility made for"
+	cont "#MON battles."
+
+	para "Countless #MON"
+	line "trainers gather"
+
+	para "from all over to"
+	line "hold battles in"
+
+	para "specially designed"
+	line "BATTLE ROOMS."
+
+	para "There are many"
+	line "BATTLE ROOMS in"
+	cont "the BATTLE TOWER."
+
+	para "Each ROOM holds"
+	line "seven trainers."
+
+	para "Beat them all, and"
+	line "win a prize."
+
+	para "To interrupt a"
+	line "session, you must"
+
+	para "SAVE. If not, you"
+	line "won't be able to"
+
+	para "resume your ROOM"
+	line "challenge."
+
+	para ""
+	done
+
+Text_ReceivedAListOfLeadersOnTheHonorRoll:
+	text "Received a list of"
+	line "LEADERS on the"
+	cont "HONOR ROLL."
+
+	para ""
+	done
+
+Text_PleaseConfirmOnThisMonitor:
+	text "Please confirm on"
+	line "this monitor."
+	done
+
+Text_ThankYou: ; unreferenced
+	text "Thank you!"
+
+	para ""
+	done
+
+Text_ThanksForVisiting:
+	text "Thanks for"
+	line "visiting!"
+	done
+
+Text_BeatenAllTheTrainers_Mobile: ; unreferenced
+	text "Congratulations!"
+
+	para "You've beaten all"
+	line "the trainers!"
+
+	para "Your feat may be"
+	line "worth registering,"
+
+	para "<PLAYER>. With your"
+	line "results, you may"
+
+	para "be chosen as a"
+	line "ROOM LEADER."
+
+	para ""
+	done
+
+Text_CongratulationsYouveBeatenAllTheTrainers:
+	text "Congratulations!"
+
+	para "You've beaten all"
+	line "the trainers!"
+
+	para "For that, you get"
+	line "this great prize!"
+
+	para ""
+	done
+
+Text_AskRegisterRecord_Mobile: ; unreferenced
+	text "Would you like to"
+	line "register your"
+
+	para "record with the"
+	line "CENTER?"
+	done
+
+Text_PlayerGotFive:
+	text "<PLAYER> got five"
+	line "@"
+	text_ram wStringBuffer4
+	text "!@"
+	sound_item
+	text_promptbutton
+	text_end
+
+Text_YourPackIsStuffedFull:
+	text "Oops, your PACK is"
+	line "stuffed full."
+
+	para "Please make room"
+	line "and come back."
+	done
+
+Text_YourRegistrationIsComplete: ; unreferenced
+	text "Your registration"
+	line "is complete."
+
+	para "Please come again!"
+	done
+
+Text_WeHopeToServeYouAgain:
+	text "We hope to serve"
+	line "you again."
+	done
+
+Text_PleaseStepThisWay:
+	text "Please step this"
+	line "way."
+	done
+
+Text_WouldYouLikeToHearAboutTheBattleTower:
+	text "Would you like to"
+	line "hear about the"
+	cont "BATTLE TOWER?"
+	done
+
+Text_CantBeRegistered:
+	text "Your record from"
+	line "the previous"
+
+	para "BATTLE ROOM can't"
+	line "be registered. OK?"
+	done
+
+Text_CantBeRegistered_PreviousRecordDeleted:
+	text "Your record from"
+	line "the previous"
+
+	para "BATTLE ROOM can't"
+	line "be registered."
+
+	para "Also, the existing"
+	line "record will be"
+	cont "deleted. OK?"
+	done
+
+Text_CheckTheLeaderHonorRoll: ; unreferenced
+	text "Check the LEADER"
+	line "HONOR ROLL?"
+	done
+
+Text_ReadBattleTowerRules:
+	text "BATTLE TOWER rules"
+	line "are written here."
+
+	para "Read the rules?"
+	done
+
+Text_BattleTowerRules:
+	text "Three #MON may"
+	line "enter battles."
+
+	para "All three must be"
+	line "different."
+
+	para "The items they"
+	line "hold must also be"
+	cont "different."
+
+	para "Certain #MON"
+	line "may also have"
+
+	para "level restrictions"
+	line "placed on them."
+	done
+
+Text_BattleTower_LeftWithoutSaving:
+	text "Excuse me!"
+	line "You didn't SAVE"
+
+	para "before exiting"
+	line "the BATTLE ROOM."
+
+	para "I'm awfully sorry,"
+	line "but your challenge"
+
+	para "will be declared"
+	line "invalid."
+	done
+
+Text_YourMonWillBeHealedToFullHealth:
+	text "Your #MON will"
+	line "be healed to full"
+	cont "health."
+	done
+
+Text_NextUpOpponentNo:
+	text "Next up, opponent"
+	line "no.@"
+	text_ram wStringBuffer3
+	text ". Ready?"
+	done
+
+Text_SaveBeforeConnecting_Mobile: ; unreferenced
+	text "Your session will"
+	line "be SAVED before"
+
+	para "connecting with"
+	line "the CENTER."
+	done
+
+Text_SaveBeforeEnteringBattleRoom:
+	text "Before entering"
+	line "the BATTLE ROOM,"
+
+	para "your progress will"
+	line "be saved."
+	done
+
+Text_SaveAndEndTheSession:
+	text "SAVE and end the"
+	line "session?"
+	done
+
+Text_SaveBeforeReentry:
+	text "Your record will"
+	line "be SAVED before"
+
+	para "you go back into"
+	line "the previous ROOM."
+	done
+
+Text_CancelYourBattleRoomChallenge:
+	text "Cancel your BATTLE"
+	line "ROOM challenge?"
+	done
+
+Text_RegisterRecordOnFile_Mobile: ; unreferenced
+	text "We have your"
+	line "previous record on"
+
+	para "file. Would you"
+	line "like to register"
+	cont "it at the CENTER?"
+	done
+
+Text_WeveBeenWaitingForYou:
+	text "We've been waiting"
+	line "for you. This way"
+
+	para "to a BATTLE ROOM,"
+	line "please."
+	done
+
+Text_FiveDayBattleLimit_Mobile:
+	text "You may enter only"
+	line "five BATTLE ROOMS"
+	cont "each day."
+
+	para "Please come back"
+	line "tomorrow."
+	done
+
+Text_TooMuchTimeElapsedNoRegister:
+	text "Sorry, but it's"
+	line "not possible to"
+
+	para "register your"
+	line "current record at"
+
+	para "the CENTER because"
+	line "too much time has"
+
+	para "elapsed since the"
+	line "start of your"
+	cont "challenge."
+	done
+
+Text_RegisterRecordTimedOut_Mobile: ; unreferenced
+; duplicate of Text_TooMuchTimeElapsedNoRegister
+	text "Sorry, but it's"
+	line "not possible to"
+
+	para "register your most"
+	line "recent record at"
+
+	para "the CENTER because"
+	line "too much time has"
+
+	para "elapsed since the"
+	line "start of your"
+	cont "challenge."
+	done
+
+Text_AMonLevelExceeds:
+	text "One or more of"
+	line "your #MON's"
+	cont "levels exceeds @"
+	text_decimal wScriptVar, 1, 3
+	text "."
+	done
+
+Text_MayNotEnterABattleRoomUnderL70:
+	text_ram wcd49
+	text " may not"
+	line "enter a BATTLE"
+	cont "ROOM under L70."
+
+	para "This BATTLE ROOM"
+	line "is for L@"
+	text_decimal wScriptVar, 1, 3
+	text "."
+	done
+
+Text_BattleTowerYoungster:
+	text "Destroyed by the"
+	line "first opponent in"
+
+	para "no time at all…"
+	line "I'm no good…"
+	done
+
+Text_BattleTowerCooltrainerF:
+	text "There are lots of"
+	line "BATTLE ROOMS, but"
+
+	para "I'm going to win"
+	line "them all!"
+	done
+
+Text_BattleTowerGranny:
+	text "It's a grueling"
+	line "task, not being"
+
+	para "able to use items"
+	line "in battle."
+
+	para "Making your"
+	line "#MON hold items"
+
+	para "is the key to"
+	line "winning battles."
+	done
+
+Text_BattleTowerBugCatcher:
+	text "I'm trying to see"
+	line "how far I can go"
+
+	para "using just bug"
+	line "#MON."
+
+	para "Don't let there be"
+	line "any fire #MON…"
+	done
+
+BattleTower1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  7,  9, BATTLE_TOWER_OUTSIDE, 3
+	warp_event  8,  9, BATTLE_TOWER_OUTSIDE, 4
+	warp_event  7,  0, BATTLE_TOWER_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  6,  6, BGEVENT_READ, BattleTower1FRulesSign
+
+	def_object_events
+	object_event  7,  6, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTower1FReceptionistScript, -1
+	object_event 14,  9, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, BattleTower1FYoungsterScript, -1
+	object_event  4,  9, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BattleTower1FCooltrainerFScript, -1
+	object_event  1,  3, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BattleTower1FBugCatcherScript, -1
+	object_event 14,  3, SPRITE_GRANNY, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTower1FGrannyScript, -1

maps/BattleTower1F.blk

@@ -0,0 +1 @@
+*+





)(
	


maps/BattleTowerBattleRoom.asm

@@ -0,0 +1,153 @@
+	object_const_def
+	const BATTLETOWERBATTLEROOM_YOUNGSTER
+	const BATTLETOWERBATTLEROOM_RECEPTIONIST
+
+BattleTowerBattleRoom_MapScripts:
+	def_scene_scripts
+	scene_script BattleTowerBattleRoomEnterScene, SCENE_BATTLETOWERBATTLEROOM_ENTER
+	scene_script BattleTowerBattleRoomNoopScene,  SCENE_BATTLETOWERBATTLEROOM_NOOP
+
+	def_callbacks
+
+BattleTowerBattleRoomEnterScene:
+	disappear BATTLETOWERBATTLEROOM_YOUNGSTER
+	sdefer Script_BattleRoom
+	setscene SCENE_BATTLETOWERBATTLEROOM_NOOP
+	; fallthrough
+BattleTowerBattleRoomNoopScene:
+	end
+
+Script_BattleRoom:
+	applymovement PLAYER, MovementData_BattleTowerBattleRoomPlayerWalksIn
+; beat all 7 opponents in a row
+Script_BattleRoomLoop:
+	setval BATTLETOWERBATTLEROOM_YOUNGSTER
+	special LoadOpponentTrainerAndPokemonWithOTSprite
+	appear BATTLETOWERBATTLEROOM_YOUNGSTER
+	warpsound
+	waitsfx
+	applymovement BATTLETOWERBATTLEROOM_YOUNGSTER, MovementData_BattleTowerBattleRoomOpponentWalksIn
+	opentext
+	battletowertext BATTLETOWERTEXT_INTRO
+	promptbutton
+	closetext
+	special BattleTowerBattle ; predef StartBattle
+	special FadeOutPalettes
+	reloadmap
+	ifnotequal $0, Script_FailedBattleTowerChallenge
+	readmem wNrOfBeatenBattleTowerTrainers
+	ifequal BATTLETOWER_STREAK_LENGTH, Script_BeatenAllTrainers
+	applymovement BATTLETOWERBATTLEROOM_YOUNGSTER, MovementData_BattleTowerBattleRoomOpponentWalksOut
+	warpsound
+	disappear BATTLETOWERBATTLEROOM_YOUNGSTER
+	applymovement BATTLETOWERBATTLEROOM_RECEPTIONIST, MovementData_BattleTowerBattleRoomReceptionistWalksToPlayer
+	applymovement PLAYER, MovementData_BattleTowerBattleRoomPlayerTurnsToFaceReceptionist
+	opentext
+	writetext Text_YourMonWillBeHealedToFullHealth
+	waitbutton
+	closetext
+	playmusic MUSIC_HEAL
+	special FadeOutPalettes
+	special LoadMapPalettes
+	pause 60
+	special FadeInPalettes
+	special RestartMapMusic
+	opentext
+	writetext Text_NextUpOpponentNo
+	yesorno
+	iffalse Script_DontBattleNextOpponent
+Script_ContinueAndBattleNextOpponent:
+	closetext
+	applymovement PLAYER, MovementData_BattleTowerBattleRoomPlayerTurnsToFaceNextOpponent
+	applymovement BATTLETOWERBATTLEROOM_RECEPTIONIST, MovementData_BattleTowerBattleRoomReceptionistWalksAway
+	sjump Script_BattleRoomLoop
+
+Script_DontBattleNextOpponent:
+	writetext Text_SaveAndEndTheSession
+	yesorno
+	iffalse Script_DontSaveAndEndTheSession
+	setval BATTLETOWERACTION_SAVELEVELGROUP ; save level group
+	special BattleTowerAction
+	setval BATTLETOWERACTION_SAVEOPTIONS ; choose reward
+	special BattleTowerAction
+	setval BATTLETOWERACTION_SAVE_AND_QUIT ; quicksave
+	special BattleTowerAction
+	playsound SFX_SAVE
+	waitsfx
+	special FadeOutPalettes
+	special Reset
+Script_DontSaveAndEndTheSession:
+	writetext Text_CancelYourBattleRoomChallenge
+	yesorno
+	iffalse Script_ContinueAndBattleNextOpponent
+	setval BATTLETOWERACTION_CHALLENGECANCELED
+	special BattleTowerAction
+	setval BATTLETOWERACTION_06
+	special BattleTowerAction
+	closetext
+	special FadeOutPalettes
+	warpfacing UP, BATTLE_TOWER_1F, 7, 7
+	opentext
+	sjump Script_BattleTowerHopeToServeYouAgain
+
+Script_FailedBattleTowerChallenge:
+	pause 60
+	special BattleTowerFade
+	warpfacing UP, BATTLE_TOWER_1F, 7, 7
+	setval BATTLETOWERACTION_CHALLENGECANCELED
+	special BattleTowerAction
+	opentext
+	writetext Text_ThanksForVisiting
+	waitbutton
+	closetext
+	end
+
+Script_BeatenAllTrainers:
+	pause 60
+	special BattleTowerFade
+	warpfacing UP, BATTLE_TOWER_1F, 7, 7
+Script_BeatenAllTrainers2:
+	opentext
+	writetext Text_CongratulationsYouveBeatenAllTheTrainers
+	sjump Script_GivePlayerHisPrize
+
+Script_TooMuchTimeElapsedNoRegister: ; unreferenced
+	setval BATTLETOWERACTION_CHALLENGECANCELED
+	special BattleTowerAction
+	opentext
+	writetext Text_TooMuchTimeElapsedNoRegister
+	waitbutton
+	closetext
+	end
+
+Script_ChallengeCanceled: ; unreferenced
+	setval BATTLETOWERACTION_CHALLENGECANCELED
+	special BattleTowerAction
+	setval BATTLETOWERACTION_06
+	special BattleTowerAction
+	opentext
+	writetext Text_ThanksForVisiting
+	writetext Text_WeHopeToServeYouAgain
+	waitbutton
+	closetext
+	end
+
+Text_ReturnedAfterSave_Mobile: ; unreferenced
+	text "You'll be returned"
+	line "after you SAVE."
+	done
+
+BattleTowerBattleRoom_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, BATTLE_TOWER_HALLWAY, 4
+	warp_event  4,  7, BATTLE_TOWER_HALLWAY, 4
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  4,  0, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BATTLE_TOWER_BATTLE_ROOM_YOUNGSTER
+	object_event  1,  6, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1

maps/BattleTowerBattleRoom.blk

@@ -0,0 +1,3 @@
+ 
+
##
+"!

maps/BattleTowerElevator.asm

@@ -0,0 +1,57 @@
+	object_const_def
+	const BATTLETOWERELEVATOR_RECEPTIONIST
+
+BattleTowerElevator_MapScripts:
+	def_scene_scripts
+	scene_script BattleTowerElevatorEnterScene, SCENE_BATTLETOWERELEVATOR_ENTER
+	scene_script BattleTowerElevatorNoopScene,  SCENE_BATTLETOWERELEVATOR_NOOP
+
+	def_callbacks
+
+BattleTowerElevatorEnterScene:
+	sdefer BattleTowerElevatorRideElevatorScript
+	setscene SCENE_BATTLETOWERELEVATOR_NOOP
+	; fallthrough
+BattleTowerElevatorNoopScene:
+	end
+
+BattleTowerElevatorRideElevatorScript:
+	follow BATTLETOWERELEVATOR_RECEPTIONIST, PLAYER
+	applymovement BATTLETOWERELEVATOR_RECEPTIONIST, MovementData_BattleTowerElevatorReceptionistWalksIn
+	applymovement PLAYER, MovementData_BattleTowerElevatorPlayerWalksIn
+	setval BATTLETOWERACTION_0A
+	special BattleTowerAction
+	playsound SFX_ELEVATOR
+	earthquake 60
+	waitsfx
+	follow BATTLETOWERELEVATOR_RECEPTIONIST, PLAYER
+	applymovement BATTLETOWERELEVATOR_RECEPTIONIST, MovementData_BattleTowerElevatorExitElevator
+	stopfollow
+	warpsound
+	disappear BATTLETOWERELEVATOR_RECEPTIONIST
+	applymovement PLAYER, MovementData_BattleTowerElevatorExitElevator
+	warpcheck
+	end
+
+MovementData_BattleTowerElevatorReceptionistWalksIn:
+	step RIGHT
+	turn_head DOWN
+	step_end
+
+MovementData_BattleTowerElevatorPlayerWalksIn:
+	turn_head DOWN
+	step_end
+
+BattleTowerElevator_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  1,  3, BATTLE_TOWER_HALLWAY, 1
+	warp_event  2,  3, BATTLE_TOWER_HALLWAY, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  1,  2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MovementData_BattleTowerElevatorReceptionistWalksIn, -1

maps/BattleTowerElevator.blk

@@ -0,0 +1 @@
+&',-

maps/BattleTowerHallway.asm

@@ -0,0 +1,94 @@
+	object_const_def
+	const BATTLETOWERHALLWAY_RECEPTIONIST
+
+BattleTowerHallway_MapScripts:
+	def_scene_scripts
+	scene_script BattleTowerHallwayEnterScene, SCENE_BATTLETOWERHALLWAY_ENTER
+	scene_script BattleTowerHallwayNoopScene,  SCENE_BATTLETOWERHALLWAY_NOOP
+
+	def_callbacks
+
+BattleTowerHallwayEnterScene:
+	sdefer BattleTowerHallwayChooseBattleRoomScript
+	setscene SCENE_BATTLETOWERHALLWAY_NOOP
+	; fallthrough
+BattleTowerHallwayNoopScene:
+	end
+
+BattleTowerHallwayChooseBattleRoomScript:
+	follow BATTLETOWERHALLWAY_RECEPTIONIST, PLAYER
+	callasm .asm_load_battle_room
+	sjump .WalkToChosenBattleRoom
+
+.asm_load_battle_room
+	ldh a, [rSVBK]
+	push af
+
+	ld a, BANK(wBTChoiceOfLvlGroup)
+	ldh [rSVBK], a
+	ld a, [wBTChoiceOfLvlGroup]
+	ld [wScriptVar], a
+
+	pop af
+	ldh [rSVBK], a
+	ret
+
+; enter different rooms for different levels to battle against
+; at least it should look like that
+; because all warps lead to the same room
+.WalkToChosenBattleRoom:
+	ifequal 3, .L30L40
+	ifequal 4, .L30L40
+	ifequal 5, .L50L60
+	ifequal 6, .L50L60
+	ifequal 7, .L70L80
+	ifequal 8, .L70L80
+	ifequal 9, .L90L100
+	ifequal 10, .L90L100
+	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo1020Room
+	sjump .EnterBattleRoom
+
+.L30L40:
+	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo3040Room
+	sjump .EnterBattleRoom
+
+.L50L60:
+	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo5060Room
+	sjump .EnterBattleRoom
+
+.L70L80:
+	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo7080Room
+	sjump .EnterBattleRoom
+
+.L90L100:
+	applymovement BATTLETOWERHALLWAY_RECEPTIONIST, MovementData_BattleTowerHallwayWalkTo90100Room
+	sjump .EnterBattleRoom
+
+.EnterBattleRoom:
+	faceobject PLAYER, BATTLETOWERHALLWAY_RECEPTIONIST
+	opentext
+	writetext Text_PleaseStepThisWay
+	waitbutton
+	closetext
+	stopfollow
+	applymovement PLAYER, MovementData_BattleTowerHallwayPlayerEntersBattleRoom
+	warpcheck
+	end
+
+BattleTowerHallway_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 11,  1, BATTLE_TOWER_ELEVATOR, 1
+	warp_event  5,  0, BATTLE_TOWER_BATTLE_ROOM, 1
+	warp_event  7,  0, BATTLE_TOWER_BATTLE_ROOM, 1
+	warp_event  9,  0, BATTLE_TOWER_BATTLE_ROOM, 1
+	warp_event 13,  0, BATTLE_TOWER_BATTLE_ROOM, 1
+	warp_event 15,  0, BATTLE_TOWER_BATTLE_ROOM, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event 11,  2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerHallway_MapEvents, -1

maps/BattleTowerHallway.blk

@@ -0,0 +1 @@
+%$$$$$$$$$$$

maps/BattleTowerOutside.asm

@@ -0,0 +1,148 @@
+	object_const_def
+	const BATTLETOWEROUTSIDE_STANDING_YOUNGSTER
+	const BATTLETOWEROUTSIDE_BEAUTY
+	const BATTLETOWEROUTSIDE_SAILOR
+	const BATTLETOWEROUTSIDE_LASS
+
+BattleTowerOutside_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, BattleTowerOutsideNoopCallback
+	callback MAPCALLBACK_OBJECTS, BattleTowerOutsideShowCiviliansCallback
+
+BattleTowerOutsideNoopCallback:
+	endcallback
+
+BattleTowerOutsideShowCiviliansCallback:
+	clearevent EVENT_BATTLE_TOWER_OPEN_CIVILIANS
+	endcallback
+
+BattleTowerOutsideYoungsterScript:
+	jumptextfaceplayer BattleTowerOutsideYoungsterText
+
+BattleTowerOutsideBeautyScript:
+	jumptextfaceplayer BattleTowerOutsideBeautyText
+
+BattleTowerOutsideSailorScript:
+	jumptextfaceplayer BattleTowerOutsideSailorText
+
+BattleTowerOutsideSign:
+	jumptext BattleTowerOutsideSignText
+
+BattleTowerOutsideYoungsterText_NotYetOpen: ; unreferenced
+	text "Wow, the BATTLE"
+	line "TOWER is huge! My"
+
+	para "neck is tired from"
+	line "looking up at it."
+	done
+
+BattleTowerOutsideYoungsterText_Mobile: ; unreferenced
+	text "Wow, the BATTLE"
+	line "TOWER is huge!"
+
+	para "Since there are a"
+	line "whole bunch of"
+
+	para "trainers inside,"
+	line "there must also be"
+
+	para "a wide variety of"
+	line "#MON."
+	done
+
+BattleTowerOutsideYoungsterText:
+	text "Wow, the BATTLE"
+	line "TOWER is huge!"
+
+	para "There must be many"
+	line "kinds of #MON"
+	cont "in there!"
+	done
+
+BattleTowerOutsideBeautyText_NotYetOpen: ; unreferenced
+	text "What on earth do"
+	line "they do here?"
+
+	para "If the name says"
+	line "anything, I guess"
+
+	para "it must be for"
+	line "#MON battles."
+	done
+
+BattleTowerOutsideBeautyText:
+	text "You can use only"
+	line "three #MON."
+
+	para "It's so hard to"
+	line "decide which three"
+
+	para "should go into"
+	line "battle…"
+	done
+
+BattleTowerOutsideSailorText_Mobile: ; unreferenced
+	text "Ehehehe…"
+	line "I sneaked out of"
+	cont "work to come here."
+
+	para "I'm never giving"
+	line "up until I become"
+	cont "a LEADER!"
+	done
+
+BattleTowerOutsideSailorText:
+	text "Hehehe, I snuck"
+	line "out from work."
+
+	para "I can't bail out"
+	line "until I've won!"
+
+	para "I have to win it"
+	line "all. That I must!"
+	done
+
+BattleTowerOutsideSignText_NotYetOpen: ; unreferenced
+; originally shown when the Battle Tower was closed
+	text "BATTLE TOWER"
+	done
+
+BattleTowerOutsideSignText:
+	text "BATTLE TOWER"
+
+	para "Take the Ultimate"
+	line "Trainer Challenge!"
+	done
+
+BattleTowerOutsideText_DoorsClosed: ; unreferenced
+; originally shown when the Battle Tower was closed
+	text "The BATTLE TOWER's"
+	line "doors are closed…"
+	done
+
+BattleTowerOutsideText_DoorsOpen: ; unreferenced
+; originally shown after the Battle Tower opened
+	text "It's open!"
+	done
+
+BattleTowerOutside_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  8, 21, ROUTE_40_BATTLE_TOWER_GATE, 3
+	warp_event  9, 21, ROUTE_40_BATTLE_TOWER_GATE, 4
+	warp_event  8,  9, BATTLE_TOWER_1F, 1
+	warp_event  9,  9, BATTLE_TOWER_1F, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 10, 10, BGEVENT_READ, BattleTowerOutsideSign
+
+	def_object_events
+	object_event  6, 12, SPRITE_STANDING_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BattleTowerOutsideYoungsterScript, -1
+	object_event 13, 11, SPRITE_BEAUTY, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BattleTowerOutsideBeautyScript, -1
+	object_event 12, 18, SPRITE_SAILOR, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BattleTowerOutsideSailorScript, EVENT_BATTLE_TOWER_OPEN_CIVILIANS
+	object_event 12, 24, SPRITE_LASS, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, ObjectEvent, -1

maps/BattleTowerOutside.blk

@@ -0,0 +1,3 @@
+			


!








+
+

**2*3-
+3./    +301



+3

maps/BillsBrothersHouse.asm

@@ -0,0 +1,41 @@
+	object_const_def
+	const BILLSBROTHERSHOUSE_POKEFAN_F
+	const BILLSBROTHERSHOUSE_YOUNGSTER
+
+BillsBrothersHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+BillsBrotherScript:
+	jumptextfaceplayer BillsBrotherText
+
+BillsBrothersHouseYoungsterScript:
+	jumptextfaceplayer BillsBrothersHouseYoungsterText
+
+BillsBrotherText:
+	text "My grandpa is at "
+	line "my brother BILL's"
+	cont "on CERULEAN CAPE."
+	done
+
+BillsBrothersHouseYoungsterText:
+	text "I saw these weird,"
+	line "slow #MON on"
+	cont "CYCLING ROAD."
+	done
+
+BillsBrothersHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, FUCHSIA_CITY, 4
+	warp_event  3,  7, FUCHSIA_CITY, 4
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BillsBrotherScript, -1
+	object_event  6,  4, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BillsBrothersHouseYoungsterScript, -1

maps/BillsFamilysHouse.asm

@@ -0,0 +1,260 @@
+	object_const_def
+	const BILLSFAMILYSHOUSE_BILL
+	const BILLSFAMILYSHOUSE_POKEFAN_F
+	const BILLSFAMILYSHOUSE_TWIN
+
+BillsFamilysHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+BillScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_EEVEE
+	iftrue .GotEevee
+	writetext BillTakeThisEeveeText
+	yesorno
+	iffalse .Refused
+	writetext BillImCountingOnYouText
+	promptbutton
+	waitsfx
+	readvar VAR_PARTYCOUNT
+	ifequal PARTY_LENGTH, .NoRoom
+	writetext ReceivedEeveeText
+	playsound SFX_CAUGHT_MON
+	waitsfx
+	givepoke EEVEE, 20
+	setevent EVENT_GOT_EEVEE
+	writetext BillEeveeMayEvolveText
+	waitbutton
+	closetext
+	end
+
+.NoRoom:
+	writetext BillPartyFullText
+	waitbutton
+	closetext
+	end
+
+.Refused:
+	writetext BillNoEeveeText
+	waitbutton
+	closetext
+	end
+
+.GotEevee:
+	writetext BillPopWontWorkText
+	waitbutton
+	closetext
+	end
+
+BillsMomScript:
+	faceplayer
+	opentext
+	checkevent EVENT_MET_BILL
+	iffalse .HaventMetBill
+	writetext BillsMomText_BeforeEcruteak
+	waitbutton
+	closetext
+	end
+
+.HaventMetBill:
+	writetext BillsMomText_AfterEcruteak
+	waitbutton
+	closetext
+	end
+
+BillsSisterScript:
+	faceplayer
+	opentext
+	checkcellnum PHONE_BILL
+	iftrue .GotBillsNumber
+	writetext BillsSisterUsefulNumberText
+	askforphonenumber PHONE_BILL
+	ifequal PHONE_CONTACTS_FULL, .NoRoom
+	ifequal PHONE_CONTACT_REFUSED, .Refused
+	waitsfx
+	addcellnum PHONE_BILL
+	writetext RecordedBillsNumberText
+	playsound SFX_REGISTER_PHONE_NUMBER
+	waitsfx
+	promptbutton
+.GotBillsNumber:
+	writetext BillsSisterStorageSystemText
+	waitbutton
+	closetext
+	end
+
+.Refused:
+	writetext BillsSisterRefusedNumberText
+	waitbutton
+	closetext
+	end
+
+.NoRoom:
+	writetext BillsSisterPhoneFullText
+	promptbutton
+	sjump .Refused
+
+BillsHouseBookshelf1:
+	jumpstd PictureBookshelfScript
+
+BillsHouseBookshelf2:
+	jumpstd MagazineBookshelfScript
+
+BillsHouseRadio:
+	jumpstd Radio2Script
+
+BillTakeThisEeveeText:
+	text "BILL: Hi, <PLAYER>!"
+	line "Do us a favor and"
+	cont "take this EEVEE."
+
+	para "It came over when"
+	line "I was adjusting"
+	cont "the TIME CAPSULE."
+
+	para "Someone has to"
+	line "take care of it,"
+
+	para "but I don't like"
+	line "being outside."
+
+	para "Can I count on you"
+	line "to play with it,"
+	cont "<PLAYER>?"
+	done
+
+BillImCountingOnYouText:
+	text "BILL: I knew you'd"
+	line "come through!"
+
+	para "Way to go! You're"
+	line "the real deal!"
+
+	para "OK, I'm counting"
+	line "on you."
+
+	para "Take good care of"
+	line "it!"
+	done
+
+ReceivedEeveeText:
+	text "<PLAYER> received"
+	line "EEVEE!"
+	done
+
+BillEeveeMayEvolveText:
+	text "BILL: PROF.ELM"
+	line "claims EEVEE may"
+
+	para "evolve in new and"
+	line "unknown ways."
+	done
+
+BillPartyFullText:
+	text "Whoa, wait. You"
+	line "can't carry any"
+	cont "more #MON."
+	done
+
+BillNoEeveeText:
+	text "Oh… Now what to"
+	line "do?"
+	done
+
+BillPopWontWorkText:
+	text "BILL: My pop, he"
+	line "won't work. All he"
+
+	para "does is goof off"
+	line "all day long."
+
+	para "He's getting to be"
+	line "a real headache…"
+	done
+
+BillsMomText_BeforeEcruteak:
+	text "Oh, you collect"
+	line "#MON? My son"
+	cont "BILL is an expert."
+
+	para "He just got called"
+	line "to the #MON"
+
+	para "CENTER in ECRUTEAK"
+	line "CITY."
+
+	para "My husband went"
+	line "off to the GAME"
+
+	para "CORNER without"
+	line "being called…"
+	done
+
+BillsMomText_AfterEcruteak:
+	text "My husband was"
+	line "once known as a"
+
+	para "#MANIAC."
+	line "BILL must have"
+
+	para "taken after his"
+	line "father."
+	done
+
+BillsSisterUsefulNumberText:
+	text "Are you a trainer?"
+
+	para "I've got a useful"
+	line "phone number for"
+	cont "you."
+	done
+
+RecordedBillsNumberText:
+	text "<PLAYER> recorded"
+	line "BILL's number."
+	done
+
+BillsSisterRefusedNumberText:
+	text "My brother made"
+	line "the PC #MON"
+	cont "storage system."
+
+	para "I was going to"
+	line "give you BILL's"
+	cont "number…"
+	done
+
+BillsSisterPhoneFullText:
+	text "You can't record"
+	line "any more numbers."
+	done
+
+BillsSisterStorageSystemText:
+	text "My big brother"
+	line "BILL made the PC"
+
+	para "#MON storage"
+	line "system."
+	done
+
+BillsFamilysHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, GOLDENROD_CITY, 4
+	warp_event  3,  7, GOLDENROD_CITY, 4
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, BillsHouseBookshelf2
+	bg_event  1,  1, BGEVENT_READ, BillsHouseBookshelf1
+	bg_event  7,  1, BGEVENT_READ, BillsHouseRadio
+
+	def_object_events
+	object_event  2,  3, SPRITE_BILL, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BillScript, EVENT_MET_BILL
+	object_event  5,  3, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BillsMomScript, -1
+	object_event  5,  4, SPRITE_TWIN, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BillsSisterScript, -1

maps/BillsHouse.asm

@@ -0,0 +1,390 @@
+	object_const_def
+	const BILLSHOUSE_GRAMPS
+
+	const_def 1 ; locked Pokémon ID table entries, used for species checking
+	const BILLSHOUSE_INDEX_LICKITUNG
+	const BILLSHOUSE_INDEX_ODDISH
+	const BILLSHOUSE_INDEX_STARYU
+	const BILLSHOUSE_INDEX_GROWLITHE
+	const BILLSHOUSE_INDEX_VULPIX
+	const BILLSHOUSE_INDEX_PICHU
+
+BillsHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, BillsHouseLoadReservedIDsCallback
+
+BillsHouseLoadReservedIDsCallback:
+	loadmonindex BILLSHOUSE_INDEX_LICKITUNG, LICKITUNG
+	loadmonindex BILLSHOUSE_INDEX_ODDISH, ODDISH
+	loadmonindex BILLSHOUSE_INDEX_STARYU, STARYU
+	loadmonindex BILLSHOUSE_INDEX_GROWLITHE, GROWLITHE
+	loadmonindex BILLSHOUSE_INDEX_VULPIX, VULPIX
+	loadmonindex BILLSHOUSE_INDEX_PICHU, PICHU
+	endcallback
+
+BillsGrandpa:
+	faceplayer
+	opentext
+	checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	iftrue .JustShowedSomething
+	checkevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
+	iftrue .GotThunderstone
+	checkevent EVENT_MET_BILLS_GRANDPA
+	iftrue .MetGrandpa
+	writetext BillsGrandpaIntroText
+	promptbutton
+	setevent EVENT_MET_BILLS_GRANDPA
+.MetGrandpa:
+	checkevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
+	iftrue .ShowedPichu
+	checkevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
+	iftrue .ShowedGrowlitheVulpix
+	checkevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
+	iftrue .ShowedStaryu
+	checkevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
+	iftrue .ShowedOddish
+	checkevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
+	iftrue .ShowedLickitung
+	writetext BillsGrandpaLickitungText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_LICKITUNG, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_LICKITUNG_TO_BILLS_GRANDPA
+	sjump .ShowedLickitung
+
+.GotEverstone:
+	writetext BillsGrandpaOddishText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_ODDISH, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_ODDISH_TO_BILLS_GRANDPA
+	sjump .ShowedOddish
+
+.GotLeafStone:
+	writetext BillsGrandpaStaryuText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_STARYU, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_STARYU_TO_BILLS_GRANDPA
+	sjump .ShowedStaryu
+
+.GotWaterStone:
+	checkver
+	iftrue .AskVulpix
+	writetext BillsGrandpaGrowlitheText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_GROWLITHE, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
+	sjump .ShowedGrowlitheVulpix
+
+.AskVulpix:
+	writetext BillsGrandpaVulpixText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_VULPIX, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_GROWLITHE_VULPIX_TO_BILLS_GRANDPA
+	sjump .ShowedGrowlitheVulpix
+
+.GotFireStone:
+	writetext BillsGrandpaPichuText
+	promptbutton
+	writetext BillsGrandpaAskToSeeMonText
+	yesorno
+	iffalse .SaidNo
+	scall .ExcitedToSee
+	special BillsGrandfather
+	iffalse .SaidNo
+	checkmaplockedmons
+	ifnotequal BILLSHOUSE_INDEX_PICHU, .WrongPokemon
+	scall .CorrectPokemon
+	setevent EVENT_SHOWED_PICHU_TO_BILLS_GRANDPA
+	sjump .ShowedPichu
+
+.ShowedLickitung:
+	checkevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
+	iftrue .GotEverstone
+	scall .ReceiveItem
+	verbosegiveitem EVERSTONE
+	iffalse .BagFull
+	setevent EVENT_GOT_EVERSTONE_FROM_BILLS_GRANDPA
+	setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	closetext
+	end
+
+.ShowedOddish:
+	checkevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
+	iftrue .GotLeafStone
+	scall .ReceiveItem
+	verbosegiveitem LEAF_STONE
+	iffalse .BagFull
+	setevent EVENT_GOT_LEAF_STONE_FROM_BILLS_GRANDPA
+	setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	closetext
+	end
+
+.ShowedStaryu:
+	checkevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
+	iftrue .GotWaterStone
+	scall .ReceiveItem
+	verbosegiveitem WATER_STONE
+	iffalse .BagFull
+	setevent EVENT_GOT_WATER_STONE_FROM_BILLS_GRANDPA
+	setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	closetext
+	end
+
+.ShowedGrowlitheVulpix:
+	checkevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
+	iftrue .GotFireStone
+	scall .ReceiveItem
+	verbosegiveitem FIRE_STONE
+	iffalse .BagFull
+	setevent EVENT_GOT_FIRE_STONE_FROM_BILLS_GRANDPA
+	setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	closetext
+	end
+
+.ShowedPichu:
+	scall .ReceiveItem
+	verbosegiveitem THUNDERSTONE
+	iffalse .BagFull
+	setevent EVENT_GOT_THUNDERSTONE_FROM_BILLS_GRANDPA
+	closetext
+	end
+
+.ExcitedToSee:
+	writetext BillsGrandpaExcitedToSeeText
+	promptbutton
+	end
+
+.SaidNo:
+	writetext BillsGrandpaYouDontHaveItTextText
+	waitbutton
+	closetext
+	end
+
+.CorrectPokemon:
+	writetext BillsGrandpaShownPokemonText
+	promptbutton
+	end
+
+.ReceiveItem:
+	writetext BillsGrandpaTokenOfAppreciationText
+	promptbutton
+	end
+
+.JustShowedSomething:
+	writetext BillsGrandpaComeAgainText
+	waitbutton
+	closetext
+	end
+
+.GotThunderstone:
+	writetext BillsGrandpaShownAllThePokemonText
+	waitbutton
+	closetext
+	end
+
+.WrongPokemon:
+	writetext BillsGrandpaWrongPokemonText
+	waitbutton
+	closetext
+	end
+
+.BagFull:
+	closetext
+	end
+
+BillsGrandpaIntroText:
+	text "Hm? You know BILL?"
+	line "He's my grandson."
+
+	para "He's in JOHTO. He"
+	line "does something"
+
+	para "with PCs, so I'm"
+	line "house-sitting."
+	done
+
+BillsGrandpaAskToSeeMonText:
+	text "If you have that"
+	line "#MON, may I see"
+	cont "it, please?"
+	done
+
+BillsGrandpaExcitedToSeeText:
+	text "You will show me?"
+	line "How good of you!"
+	done
+
+BillsGrandpaYouDontHaveItTextText:
+	text "You don't have it?"
+	line "That's too bad…"
+	done
+
+BillsGrandpaShownPokemonText:
+	text "Ah, so that is"
+	line "@"
+	text_ram wStringBuffer3
+	text "?"
+
+	para "Isn't it cute!"
+	line "That's so kind of"
+	cont "you."
+	done
+
+BillsGrandpaTokenOfAppreciationText:
+	text "Thanks!"
+
+	para "This is a token of"
+	line "my appreciation."
+	done
+
+BillsGrandpaComeAgainText:
+	text "Come visit again"
+	line "sometime."
+	done
+
+BillsGrandpaShownAllThePokemonText:
+	text "Thanks for showing"
+	line "me so many cute"
+	cont "#MON."
+
+	para "I really enjoyed"
+	line "myself. I'm glad"
+
+	para "I've lived such a"
+	line "long life."
+	done
+
+BillsGrandpaWrongPokemonText:
+	text "Hm?"
+
+	para "That's not the"
+	line "#MON that I was"
+	cont "told about."
+	done
+
+BillsGrandpaLickitungText:
+	text "My grandson BILL"
+	line "told me about a"
+
+	para "#MON that has a"
+	line "long tongue."
+	done
+
+BillsGrandpaOddishText:
+	text "Ah, my grandson"
+	line "mentioned a round,"
+
+	para "green #MON that"
+	line "has leaves growing"
+	cont "on its head."
+	done
+
+BillsGrandpaStaryuText:
+	text "Do you know of a"
+	line "sea #MON that"
+
+	para "has a red sphere"
+	line "in its body?"
+
+	para "You know, the one"
+	line "that's shaped like"
+	cont "a star?"
+
+	para "I heard that it"
+	line "appears at night."
+
+	para "I would surely"
+	line "like to see it."
+	done
+
+BillsGrandpaGrowlitheText:
+	text "BILL told me about"
+	line "a #MON that is"
+
+	para "very loyal to its"
+	line "trainer."
+
+	para "It's supposed to"
+	line "ROAR well."
+	done
+
+BillsGrandpaVulpixText:
+	text "I heard about a"
+	line "cute #MON that"
+	cont "has six tails."
+
+	para "I would love to"
+	line "hug a cute #MON"
+	cont "like that."
+	done
+
+BillsGrandpaPichuText:
+	text "Do you know that"
+	line "hugely popular"
+	cont "#MON?"
+
+	para "The #MON that"
+	line "has a yellow body"
+	cont "and red cheeks."
+
+	para "I would love to"
+	line "see what it looks"
+
+	para "like before it"
+	line "evolves."
+	done
+
+BillsHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, ROUTE_25, 1
+	warp_event  3,  7, ROUTE_25, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_UP, 0, 2, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BillsGrandpa, -1

maps/BlackthornCity.asm

@@ -0,0 +1,346 @@
+	object_const_def
+	const BLACKTHORNCITY_SUPER_NERD1
+	const BLACKTHORNCITY_SUPER_NERD2
+	const BLACKTHORNCITY_GRAMPS1
+	const BLACKTHORNCITY_GRAMPS2
+	const BLACKTHORNCITY_BLACK_BELT
+	const BLACKTHORNCITY_COOLTRAINER_F1
+	const BLACKTHORNCITY_YOUNGSTER1
+	const BLACKTHORNCITY_SANTOS
+	const BLACKTHORNCITY_COOLTRAINER_F2
+
+BlackthornCity_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, BlackthornCityFlypointCallback
+	callback MAPCALLBACK_OBJECTS, BlackthornCitySantosCallback
+
+BlackthornCityFlypointCallback:
+	setflag ENGINE_FLYPOINT_BLACKTHORN
+	endcallback
+
+BlackthornCitySantosCallback:
+	readvar VAR_WEEKDAY
+	ifequal SATURDAY, .SantosAppears
+	disappear BLACKTHORNCITY_SANTOS
+	endcallback
+
+.SantosAppears:
+	appear BLACKTHORNCITY_SANTOS
+	endcallback
+
+BlackthornSuperNerdScript:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_CLAIR
+	iftrue .BeatClair
+	checkevent EVENT_CLEARED_RADIO_TOWER
+	iftrue .ClearedRadioTower
+	writetext Text_ClairIsOut
+	waitbutton
+	closetext
+	end
+
+.ClearedRadioTower:
+	writetext Text_ClairIsIn
+	waitbutton
+	closetext
+	end
+
+.BeatClair:
+	writetext Text_ClairIsBeaten
+	waitbutton
+	closetext
+	end
+
+BlackthornGramps1Script:
+	jumptextfaceplayer BlackthornGrampsRefusesEntryText
+
+BlackthornGramps2Script:
+	jumptextfaceplayer BlackthornGrampsGrantsEntryText
+
+BlackthornBlackBeltScript:
+	faceplayer
+	opentext
+	checkevent EVENT_CLEARED_RADIO_TOWER
+	iftrue .ClearedRadioTower
+	writetext BlackBeltText_WeirdRadio
+	waitbutton
+	closetext
+	end
+
+.ClearedRadioTower:
+	writetext BlackBeltText_VoicesInMyHead
+	waitbutton
+	closetext
+	end
+
+BlackthornCooltrainerF1Script:
+	jumptextfaceplayer BlackthornCooltrainerF1Text
+
+BlackthornYoungsterScript:
+	jumptextfaceplayer BlackthornYoungsterText
+
+BlackthornCooltrainerF2Script:
+	jumptextfaceplayer BlackthornCooltrainerF2Text
+
+SantosScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_SPELL_TAG_FROM_SANTOS
+	iftrue .Saturday
+	readvar VAR_WEEKDAY
+	ifnotequal SATURDAY, .NotSaturday
+	checkevent EVENT_MET_SANTOS_OF_SATURDAY
+	iftrue .MetSantos
+	writetext MeetSantosText
+	promptbutton
+	setevent EVENT_MET_SANTOS_OF_SATURDAY
+.MetSantos:
+	writetext SantosGivesGiftText
+	promptbutton
+	verbosegiveitem SPELL_TAG
+	iffalse .Done
+	setevent EVENT_GOT_SPELL_TAG_FROM_SANTOS
+	writetext SantosGaveGiftText
+	waitbutton
+	closetext
+	end
+
+.Saturday:
+	writetext SantosSaturdayText
+	waitbutton
+.Done:
+	closetext
+	end
+
+.NotSaturday:
+	writetext SantosNotSaturdayText
+	waitbutton
+	closetext
+	end
+
+BlackthornCitySign:
+	jumptext BlackthornCitySignText
+
+BlackthornGymSign:
+	jumptext BlackthornGymSignText
+
+MoveDeletersHouseSign:
+	jumptext MoveDeletersHouseSignText
+
+DragonDensSign:
+	jumptext DragonDensSignText
+
+BlackthornCityTrainerTips:
+	jumptext BlackthornCityTrainerTipsText
+
+BlackthornCityPokecenterSign:
+	jumpstd PokecenterSignScript
+
+BlackthornCityMartSign:
+	jumpstd MartSignScript
+
+Text_ClairIsOut:
+	text "I am sorry."
+
+	para "CLAIR, our GYM"
+	line "LEADER, entered"
+
+	para "the DRAGON'S DEN"
+	line "behind the GYM."
+
+	para "I have no idea"
+	line "when our LEADER"
+	cont "will return."
+	done
+
+Text_ClairIsIn:
+	text "CLAIR, our GYM"
+	line "LEADER, is waiting"
+	cont "for you."
+
+	para "However, it would"
+	line "be impossible for"
+
+	para "a run-of-the-mill"
+	line "trainer to win."
+	done
+
+Text_ClairIsBeaten:
+	text "You defeated"
+	line "CLAIR?"
+
+	para "That's amazing!"
+
+	para "I've never heard"
+	line "of her losing to"
+
+	para "anyone other than"
+	line "LANCE."
+	done
+
+BlackthornGrampsRefusesEntryText:
+	text "No. Only chosen"
+	line "trainers may train"
+
+	para "here."
+	line "Please leave."
+	done
+
+BlackthornGrampsGrantsEntryText:
+	text "If CLAIR allows"
+	line "it, her grand-"
+	cont "father--our MASTER"
+	cont "--will also."
+
+	para "You may enter."
+	done
+
+BlackBeltText_WeirdRadio:
+	text "My radio's busted?"
+	line "Lately, I only get"
+	cont "this weird signal."
+	done
+
+BlackBeltText_VoicesInMyHead:
+	text "Arooo! Voices in"
+	line "my head!"
+
+	para "Huh? I'm listening"
+	line "to my radio!"
+	done
+
+BlackthornCooltrainerF1Text:
+	text "Are you going to"
+	line "make your #MON"
+	cont "forget some moves?"
+	done
+
+BlackthornYoungsterText:
+	text "Dragon masters all"
+	line "come from the city"
+	cont "of BLACKTHORN."
+	done
+
+MeetSantosText:
+	text "SANTOS: …"
+
+	para "It's Saturday…"
+
+	para "I'm SANTOS of"
+	line "Saturday…"
+	done
+
+SantosGivesGiftText:
+	text "You can have this…"
+	done
+
+SantosGaveGiftText:
+	text "SANTOS: …"
+
+	para "SPELL TAG…"
+
+	para "Ghost-type moves"
+	line "get stronger…"
+
+	para "It will frighten"
+	line "you…"
+	done
+
+SantosSaturdayText:
+	text "SANTOS: …"
+
+	para "See you again on"
+	line "another Saturday…"
+
+	para "I won't have any"
+	line "more gifts…"
+	done
+
+SantosNotSaturdayText:
+	text "SANTOS: Today's"
+	line "not Saturday…"
+	done
+
+BlackthornCooltrainerF2Text:
+	text "Wow, you came"
+	line "through the ICE"
+	cont "PATH?"
+
+	para "You must be a real"
+	line "hotshot trainer!"
+	done
+
+BlackthornCitySignText:
+	text "BLACKTHORN CITY"
+
+	para "A Quiet Mountain"
+	line "Retreat"
+	done
+
+BlackthornGymSignText:
+	text "BLACKTHORN CITY"
+	line "#MON GYM"
+	cont "LEADER: CLAIR"
+
+	para "The Blessed User"
+	line "of Dragon #MON"
+	done
+
+MoveDeletersHouseSignText:
+	text "MOVE DELETER'S"
+	line "HOUSE"
+	done
+
+DragonDensSignText:
+	text "DRAGON'S DEN"
+	line "AHEAD"
+	done
+
+BlackthornCityTrainerTipsText:
+	text "TRAINER TIPS"
+
+	para "A #MON holding"
+	line "a MIRACLEBERRY"
+
+	para "will cure itself"
+	line "of any status"
+	cont "problem."
+	done
+
+BlackthornCity_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 18, 11, BLACKTHORN_GYM_1F, 1
+	warp_event 13, 21, BLACKTHORN_DRAGON_SPEECH_HOUSE, 1
+	warp_event 29, 23, BLACKTHORN_EMYS_HOUSE, 1
+	warp_event 15, 29, BLACKTHORN_MART, 2
+	warp_event 21, 29, BLACKTHORN_POKECENTER_1F, 1
+	warp_event  9, 31, MOVE_DELETERS_HOUSE, 1
+	warp_event 36,  9, ICE_PATH_1F, 2
+	warp_event 20,  1, DRAGONS_DEN_1F, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 34, 24, BGEVENT_READ, BlackthornCitySign
+	bg_event 17, 13, BGEVENT_READ, BlackthornGymSign
+	bg_event  7, 31, BGEVENT_READ, MoveDeletersHouseSign
+	bg_event 21,  3, BGEVENT_READ, DragonDensSign
+	bg_event  5, 25, BGEVENT_READ, BlackthornCityTrainerTips
+	bg_event 16, 29, BGEVENT_READ, BlackthornCityMartSign
+	bg_event 22, 29, BGEVENT_READ, BlackthornCityPokecenterSign
+
+	def_object_events
+	object_event 18, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornSuperNerdScript, EVENT_BLACKTHORN_CITY_SUPER_NERD_BLOCKS_GYM
+	object_event 19, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornSuperNerdScript, EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM
+	object_event 20,  2, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps1Script, EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN
+	object_event 21,  2, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGramps2Script, EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
+	object_event 24, 31, SPRITE_BLACK_BELT, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornBlackBeltScript, -1
+	object_event  9, 25, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF1Script, -1
+	object_event 13, 15, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornYoungsterScript, -1
+	object_event 22, 20, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, SantosScript, EVENT_BLACKTHORN_CITY_SANTOS_OF_SATURDAY
+	object_event 35, 19, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BlackthornCooltrainerF2Script, -1

maps/BlackthornCity.blk

@@ -0,0 +1,23 @@
+qqqqqqqiorsrnqhqqqqqqqqqorrmi
+G
+hqhqqqqoqqormorrmTvUlnhqqqqiqqiqqiTvvy5zUhhorrrmqqiqomX55Yhhiorsnqqiqi
+XYXYhhiiKWhqqiqi
+XYGhlmihrrmqi
+hqomKWhqqormWKW
+jpkWhqi
+

hqqi
+
+



lrm
hqi


hqqiVZVVZ
+VVlrmZVjqqomVVVZVVVVVV
+

hqomx













Ehqi
+







+



+hqi


+
+
+




jppqqi

x








+hjpppi
+







+jppppqhqqqqk
+
+


jppqqqqjpqqqq

maps/BlackthornDragonSpeechHouse.asm

@@ -0,0 +1,59 @@
+	object_const_def
+	const BLACKTHORNDRAGONSPEECHHOUSE_GRANNY
+	const BLACKTHORNDRAGONSPEECHHOUSE_EKANS
+
+BlackthornDragonSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+BlackthornDragonSpeechHouseGrannyScript:
+	jumptextfaceplayer BlackthornDragonSpeechHouseGrannyText
+
+BlackthornDragonSpeechHouseDratiniScript:
+	opentext
+	writetext BlackthornDragonSpeechHouseDratiniText
+	cry DRATINI
+	waitbutton
+	closetext
+	end
+
+BlackthornDragonSpeechHousePictureBookshelf: ; unreferenced
+	jumpstd PictureBookshelfScript
+
+BlackthornDragonSpeechHouseMagazineBookshelf: ; unreferenced
+	jumpstd MagazineBookshelfScript
+
+BlackthornDragonSpeechHouseGrannyText:
+	text "A clan of trainers"
+	line "who can freely"
+
+	para "command dragons"
+	line "live right here in"
+	cont "BLACKTHORN."
+
+	para "As a result, there"
+	line "are many legends"
+
+	para "about dragons in"
+	line "this town."
+	done
+
+BlackthornDragonSpeechHouseDratiniText:
+	text "DRATINI: Draa!"
+	done
+
+BlackthornDragonSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, BLACKTHORN_CITY, 2
+	warp_event  3,  7, BLACKTHORN_CITY, 2
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_GRANNY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornDragonSpeechHouseGrannyScript, -1
+	object_event  5,  5, SPRITE_EKANS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornDragonSpeechHouseDratiniScript, -1

maps/BlackthornEmysHouse.asm

@@ -0,0 +1,34 @@
+	object_const_def
+	const BLACKTHORNEMYSHOUSE_EMY
+
+BlackthornEmysHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+Emy:
+	faceplayer
+	opentext
+	trade NPC_TRADE_EMY
+	waitbutton
+	closetext
+	end
+
+EmysHouseBookshelf:
+	jumpstd MagazineBookshelfScript
+
+BlackthornEmysHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, BLACKTHORN_CITY, 3
+	warp_event  3,  7, BLACKTHORN_CITY, 3
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, EmysHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, EmysHouseBookshelf
+
+	def_object_events
+	object_event  2,  3, SPRITE_LASS, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, Emy, -1

maps/BlackthornGym1F.asm

@@ -0,0 +1,410 @@
+	object_const_def
+	const BLACKTHORNGYM1F_CLAIR
+	const BLACKTHORNGYM1F_COOLTRAINER_M1
+	const BLACKTHORNGYM1F_COOLTRAINER_M2
+	const BLACKTHORNGYM1F_COOLTRAINER_F
+	const BLACKTHORNGYM1F_GYM_GUIDE
+
+BlackthornGym1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, BlackthornGym1FBouldersCallback
+
+BlackthornGym1FBouldersCallback:
+	checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_1
+	iffalse .skip1
+	changeblock 8, 2, $3b ; fallen boulder 2
+.skip1
+	checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_2
+	iffalse .skip2
+	changeblock 2, 4, $3a ; fallen boulder 1
+.skip2
+	checkevent EVENT_BOULDER_IN_BLACKTHORN_GYM_3
+	iffalse .skip3
+	changeblock 8, 6, $3b ; fallen boulder 2
+.skip3
+	endcallback
+
+BlackthornGymClairScript:
+	faceplayer
+	opentext
+	checkflag ENGINE_RISINGBADGE
+	iftrue .AlreadyGotBadge
+	checkevent EVENT_BEAT_CLAIR
+	iftrue .FightDone
+	writetext ClairIntroText
+	waitbutton
+	closetext
+	winlosstext ClairWinText, 0
+	loadtrainer CLAIR, CLAIR1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_CLAIR
+	opentext
+	writetext ClairText_GoToDragonsDen
+	waitbutton
+	closetext
+	setevent EVENT_BEAT_COOLTRAINERM_PAUL
+	setevent EVENT_BEAT_COOLTRAINERM_CODY
+	setevent EVENT_BEAT_COOLTRAINERM_MIKE
+	setevent EVENT_BEAT_COOLTRAINERF_FRAN
+	setevent EVENT_BEAT_COOLTRAINERF_LOLA
+	clearevent EVENT_MAHOGANY_MART_OWNERS
+	setevent EVENT_BLACKTHORN_CITY_GRAMPS_BLOCKS_DRAGONS_DEN
+	clearevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
+	end
+
+.FightDone:
+	writetext ClairText_TooMuchToExpect
+	waitbutton
+	closetext
+	end
+
+.AlreadyGotBadge:
+	checkevent EVENT_GOT_TM24_DRAGONBREATH
+	iftrue .GotTM24
+	writetext BlackthornGymClairText_YouKeptMeWaiting
+	promptbutton
+	giveitem TM_DRAGONBREATH
+	iffalse .BagFull
+	getitemname STRING_BUFFER_3, TM_DRAGONBREATH
+	writetext BlackthornGymText_ReceivedTM24
+	playsound SFX_ITEM
+	waitsfx
+	itemnotify
+	setevent EVENT_GOT_TM24_DRAGONBREATH
+	writetext BlackthornGymClairText_DescribeTM24
+	promptbutton
+	sjump .GotTM24
+
+.BagFull:
+	writetext BlackthornGymClairText_BagFull
+	waitbutton
+	closetext
+	end
+
+.GotTM24:
+	writetext BlackthornGymClairText_League
+	waitbutton
+	closetext
+	end
+
+TrainerCooltrainermPaul:
+	trainer COOLTRAINERM, PAUL, EVENT_BEAT_COOLTRAINERM_PAUL, CooltrainermPaulSeenText, CooltrainermPaulBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext CooltrainermPaulAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerCooltrainermMike:
+	trainer COOLTRAINERM, MIKE, EVENT_BEAT_COOLTRAINERM_MIKE, CooltrainermMikeSeenText, CooltrainermMikeBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext CooltrainermMikeAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerCooltrainerfLola:
+	trainer COOLTRAINERF, LOLA, EVENT_BEAT_COOLTRAINERF_LOLA, CooltrainerfLolaSeenText, CooltrainerfLolaBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext CooltrainerfLolaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+BlackthornGymGuideScript:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_CLAIR
+	iftrue .BlackthornGymGuideWinScript
+	writetext BlackthornGymGuideText
+	waitbutton
+	closetext
+	end
+
+.BlackthornGymGuideWinScript:
+	writetext BlackthornGymGuideWinText
+	waitbutton
+	closetext
+	end
+
+BlackthornGymStatue:
+	checkflag ENGINE_RISINGBADGE
+	iftrue .Beaten
+	jumpstd GymStatue1Script
+.Beaten:
+	gettrainername STRING_BUFFER_4, CLAIR, CLAIR1
+	jumpstd GymStatue2Script
+
+ClairIntroText:
+	text "I am CLAIR."
+
+	para "The world's best"
+	line "dragon master."
+
+	para "I can hold my own"
+	line "against even the"
+
+	para "#MON LEAGUE's"
+	line "ELITE FOUR."
+
+	para "Do you still want"
+	line "to take me on?"
+
+	para "…Fine."
+	line "Let's do it!"
+
+	para "As a GYM LEADER,"
+	line "I will use my full"
+
+	para "power against any"
+	line "opponent!"
+	done
+
+ClairWinText:
+	text "I lost?"
+
+	para "I don't believe"
+	line "it. There must be"
+	cont "some mistake…"
+	done
+
+ClairText_GoToDragonsDen:
+	text "I won't admit"
+	line "this."
+
+	para "I may have lost,"
+	line "but you're still"
+
+	para "not ready for the"
+	line "#MON LEAGUE."
+
+	para "I know. You should"
+	line "take the dragon"
+	cont "user challenge."
+
+	para "Behind this GYM is"
+	line "a place called"
+	cont "DRAGON'S DEN."
+
+	para "There is a small"
+	line "shrine at its"
+
+	para "center."
+	line "Go there."
+
+	para "If you can prove"
+	line "that you've lost"
+
+	para "your lazy ideals,"
+	line "I will recognize"
+
+	para "you as a trainer"
+	line "worthy of a GYM"
+	cont "BADGE!"
+	done
+
+ClairText_TooMuchToExpect:
+	text "What's the matter?"
+
+	para "Is it too much to"
+	line "expect of you?"
+	done
+
+BlackthornGymClairText_YouKeptMeWaiting:
+	text "You've kept me"
+	line "waiting!"
+
+	para "Here! Take this!"
+	done
+
+BlackthornGymText_ReceivedTM24:
+	text "<PLAYER> received"
+	line "TM24."
+	done
+
+BlackthornGymClairText_DescribeTM24:
+	text "That contains"
+	line "DRAGONBREATH."
+
+	para "No, it doesn't"
+	line "have anything to"
+	cont "do with my breath."
+
+	para "If you don't want"
+	line "it, you don't have"
+	cont "to take it."
+	done
+
+BlackthornGymClairText_BagFull:
+	text "What is this? You"
+	line "don't have room?"
+	done
+
+BlackthornGymClairText_League:
+	text "What's the matter?"
+
+	para "Aren't you headed"
+	line "to the #MON"
+	cont "LEAGUE?"
+
+	para "Don't you know"
+	line "where it is?"
+
+	para "From here, go to"
+	line "NEW BARK TOWN."
+
+	para "Then SURF east."
+	line "The route there is"
+	cont "very tough."
+
+	para "Don't you dare"
+	line "lose at the #-"
+	cont "MON LEAGUE!"
+
+	para "If you do, I'll"
+	line "feel even worse"
+
+	para "about having lost"
+	line "to you!"
+
+	para "Give it every-"
+	line "thing you've got."
+	done
+
+CooltrainermPaulSeenText:
+	text "Your first battle"
+	line "against dragons?"
+
+	para "I'll show you how"
+	line "tough they are!"
+	done
+
+CooltrainermPaulBeatenText:
+	text "My dragon #MON"
+	line "lost?"
+	done
+
+CooltrainermPaulAfterBattleText:
+	text "LANCE told you"
+	line "that he'd like to"
+
+	para "see you again?"
+	line "Not a chance!"
+	done
+
+CooltrainermMikeSeenText:
+	text "My chance of"
+	line "losing? Not even"
+	cont "one percent!"
+	done
+
+CooltrainermMikeBeatenText:
+	text "That's odd."
+	done
+
+CooltrainermMikeAfterBattleText:
+	text "I know my short-"
+	line "comings now."
+
+	para "Thanks for showing"
+	line "me!"
+	done
+
+CooltrainerfLolaSeenText:
+	text "Dragons are sacred"
+	line "#MON."
+
+	para "They are full of"
+	line "life energy."
+
+	para "If you're not"
+	line "serious, you won't"
+
+	para "be able to beat"
+	line "them."
+	done
+
+CooltrainerfLolaBeatenText:
+	text "Way to go!"
+	done
+
+CooltrainerfLolaAfterBattleText:
+	text "Dragons are weak"
+	line "against dragon-"
+	cont "type moves."
+	done
+
+BlackthornGymGuideText:
+	text "Yo! CHAMP in"
+	line "making!"
+
+	para "It's been a long"
+	line "journey, but we"
+
+	para "are almost done!"
+	line "Count on me!"
+
+	para "CLAIR uses the"
+	line "mythical and sac-"
+	cont "red dragon-type"
+	cont "#MON."
+
+	para "You can't damage"
+	line "them very easily."
+
+	para "But you know,"
+	line "they're supposed"
+
+	para "to be weak against"
+	line "ice-type moves."
+	done
+
+BlackthornGymGuideWinText:
+	text "You were great to"
+	line "beat CLAIR!"
+
+	para "All that's left is"
+	line "the #MON LEAGUE"
+	cont "challenge."
+
+	para "You're on the way"
+	line "to becoming the"
+	cont "#MON CHAMPION!"
+	done
+
+BlackthornGym1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 17, BLACKTHORN_CITY, 1
+	warp_event  5, 17, BLACKTHORN_CITY, 1
+	warp_event  1,  7, BLACKTHORN_GYM_2F, 1
+	warp_event  7,  9, BLACKTHORN_GYM_2F, 2
+	warp_event  2,  6, BLACKTHORN_GYM_2F, 3
+	warp_event  7,  7, BLACKTHORN_GYM_2F, 4
+	warp_event  7,  6, BLACKTHORN_GYM_2F, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3, 15, BGEVENT_READ, BlackthornGymStatue
+	bg_event  6, 15, BGEVENT_READ, BlackthornGymStatue
+
+	def_object_events
+	object_event  5,  3, SPRITE_CLAIR, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BlackthornGymClairScript, -1
+	object_event  6,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermMike, -1
+	object_event  1, 14, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerCooltrainermPaul, -1
+	object_event  9,  2, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainerfLola, -1
+	object_event  7, 15, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornGymGuideScript, -1

maps/BlackthornGym1F.blk

@@ -0,0 +1 @@
+,,,,,+ 00 + )-+- - )-++-+----------

maps/BlackthornGym2F.asm

@@ -0,0 +1,148 @@
+	object_const_def
+	const BLACKTHORNGYM2F_COOLTRAINER_M
+	const BLACKTHORNGYM2F_COOLTRAINER_F
+	const BLACKTHORNGYM2F_BOULDER1
+	const BLACKTHORNGYM2F_BOULDER2
+	const BLACKTHORNGYM2F_BOULDER3
+	const BLACKTHORNGYM2F_BOULDER4
+	const BLACKTHORNGYM2F_BOULDER5
+	const BLACKTHORNGYM2F_BOULDER6
+
+BlackthornGym2F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_CMDQUEUE, BlackthornGym2FSetUpStoneTableCallback
+
+BlackthornGym2FSetUpStoneTableCallback:
+	writecmdqueue .CommandQueue
+	endcallback
+
+.CommandQueue:
+	cmdqueue CMDQUEUE_STONETABLE, .StoneTable ; check if any stones are sitting on a warp
+
+.StoneTable:
+	stonetable 5, BLACKTHORNGYM2F_BOULDER1, .Boulder1
+	stonetable 3, BLACKTHORNGYM2F_BOULDER2, .Boulder2
+	stonetable 4, BLACKTHORNGYM2F_BOULDER3, .Boulder3
+	db -1 ; end
+
+.Boulder1:
+	disappear BLACKTHORNGYM2F_BOULDER1
+	sjump .Fall
+
+.Boulder2:
+	disappear BLACKTHORNGYM2F_BOULDER2
+	sjump .Fall
+
+.Boulder3:
+	disappear BLACKTHORNGYM2F_BOULDER3
+	sjump .Fall
+
+.Fall:
+	pause 30
+	scall .FX
+	opentext
+	writetext BlackthornGym2FBoulderFellText
+	waitbutton
+	closetext
+	end
+
+.FX:
+	playsound SFX_STRENGTH
+	earthquake 80
+	end
+
+BlackthornGymBoulder:
+	jumpstd StrengthBoulderScript
+
+TrainerCooltrainermCody:
+	trainer COOLTRAINERM, CODY, EVENT_BEAT_COOLTRAINERM_CODY, CooltrainermCodySeenText, CooltrainermCodyBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext CooltrainermCodyAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerCooltrainerfFran:
+	trainer COOLTRAINERF, FRAN, EVENT_BEAT_COOLTRAINERF_FRAN, CooltrainerfFranSeenText, CooltrainerfFranBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext CooltrainerfFranAfterBattleText
+	waitbutton
+	closetext
+	end
+
+CooltrainermCodySeenText:
+	text "It's not as if we"
+	line "all use dragon-"
+	cont "type #MON."
+	done
+
+CooltrainermCodyBeatenText:
+	text "Rats! If only I"
+	line "had a dragon!"
+	done
+
+CooltrainermCodyAfterBattleText:
+	text "Members of our"
+	line "dragon-user clan"
+
+	para "can use dragon"
+	line "#MON only after"
+
+	para "our MASTER allows"
+	line "it."
+	done
+
+CooltrainerfFranSeenText:
+	text "I can't allow a"
+	line "nameless trainer"
+	cont "past me!"
+
+	para "CLAIR would be"
+	line "livid if I did!"
+	done
+
+CooltrainerfFranBeatenText:
+	text "Awww… I lost…"
+	done
+
+CooltrainerfFranAfterBattleText:
+	text "Uh-oh… CLAIR is"
+	line "going to be mad…"
+	done
+
+BlackthornGym2FBoulderFellText:
+	text "The boulder fell"
+	line "through!"
+	done
+
+BlackthornGym2F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  1,  7, BLACKTHORN_GYM_1F, 3
+	warp_event  7,  9, BLACKTHORN_GYM_1F, 4
+	warp_event  2,  5, BLACKTHORN_GYM_1F, 5 ; hole
+	warp_event  8,  7, BLACKTHORN_GYM_1F, 6 ; hole
+	warp_event  8,  3, BLACKTHORN_GYM_1F, 7 ; hole
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  4,  1, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainermCody, -1
+	object_event  4, 11, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerCooltrainerfFran, -1
+	object_event  8,  2, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, EVENT_BOULDER_IN_BLACKTHORN_GYM_1
+	object_event  2,  3, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, EVENT_BOULDER_IN_BLACKTHORN_GYM_2
+	object_event  6, 16, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, EVENT_BOULDER_IN_BLACKTHORN_GYM_3
+	object_event  3,  3, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, -1
+	object_event  6,  1, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, -1
+	object_event  8, 14, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornGymBoulder, -1

maps/BlackthornGym2F.blk

@@ -0,0 +1 @@
+######-	-	##(-#	-#(-#--#-----

maps/BlackthornMart.asm

@@ -0,0 +1,61 @@
+	object_const_def
+	const BLACKTHORNMART_CLERK
+	const BLACKTHORNMART_COOLTRAINER_M
+	const BLACKTHORNMART_BLACK_BELT
+
+BlackthornMart_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+BlackthornMartClerkScript:
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_BLACKTHORN
+	closetext
+	end
+
+BlackthornMartCooltrainerMScript:
+	jumptextfaceplayer BlackthornMartCooltrainerMText
+
+BlackthornMartBlackBeltScript:
+	jumptextfaceplayer BlackthornMartBlackBeltText
+
+BlackthornMartCooltrainerMText:
+	text "You can't buy MAX"
+	line "REVIVE, but it"
+
+	para "fully restores a"
+	line "fainted #MON."
+
+	para "Beware--it won't"
+	line "restore PP, the"
+
+	para "POWER POINTS"
+	line "needed for moves."
+	done
+
+BlackthornMartBlackBeltText:
+	text "MAX REPEL keeps"
+	line "weak #MON away"
+	cont "from you."
+
+	para "It's the longest"
+	line "lasting of the"
+	cont "REPEL sprays."
+	done
+
+BlackthornMart_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, BLACKTHORN_CITY, 4
+	warp_event  3,  7, BLACKTHORN_CITY, 4
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  1,  3, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornMartClerkScript, -1
+	object_event  7,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornMartCooltrainerMScript, -1
+	object_event  5,  2, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BlackthornMartBlackBeltScript, -1

maps/BlackthornPokecenter1F.asm

@@ -0,0 +1,66 @@
+	object_const_def
+	const BLACKTHORNPOKECENTER1F_NURSE
+	const BLACKTHORNPOKECENTER1F_GENTLEMAN
+	const BLACKTHORNPOKECENTER1F_TWIN
+	const BLACKTHORNPOKECENTER1F_COOLTRAINER_M
+
+BlackthornPokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+BlackthornPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+BlackthornPokecenter1FGentlemanScript:
+	jumptextfaceplayer BlackthornPokecenter1FGentlemanText
+
+BlackthornPokecenter1FTwinScript:
+	jumptextfaceplayer BlackthornPokecenter1FTwinText
+
+BlackthornPokecenter1FCooltrainerMScript:
+	jumpstd HappinessCheckScript
+
+BlackthornPokecenter1FGentlemanText:
+	text "Deep inside far-"
+	line "off INDIGO PLATEAU"
+
+	para "is the #MON"
+	line "LEAGUE."
+
+	para "I hear the best"
+	line "trainers gather"
+
+	para "there from around"
+	line "the country."
+	done
+
+BlackthornPokecenter1FTwinText:
+	text "There was this"
+	line "move I just had"
+
+	para "to teach my #-"
+	line "MON."
+
+	para "So I got the MOVE"
+	line "DELETER to make it"
+	cont "forget an HM move."
+	done
+
+BlackthornPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, BLACKTHORN_CITY, 5
+	warp_event  4,  7, BLACKTHORN_CITY, 5
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornPokecenter1FNurseScript, -1
+	object_event  5,  3, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BlackthornPokecenter1FGentlemanScript, -1
+	object_event  1,  4, SPRITE_TWIN, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, BlackthornPokecenter1FTwinScript, -1
+	object_event  7,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, BlackthornPokecenter1FCooltrainerMScript, -1

maps/BluesHouse.asm

@@ -0,0 +1,157 @@
+	object_const_def
+	const BLUESHOUSE_DAISY
+
+BluesHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+DaisyScript:
+	faceplayer
+	opentext
+	readvar VAR_HOUR
+	ifequal 15, .ThreePM
+	writetext DaisyHelloText
+	waitbutton
+	closetext
+	end
+
+.ThreePM:
+	checkflag ENGINE_DAISYS_GROOMING
+	iftrue .AlreadyGroomedMon
+	writetext DaisyOfferGroomingText
+	yesorno
+	iffalse .Refused
+	writetext DaisyWhichMonText
+	waitbutton
+	special DaisysGrooming
+	ifequal $0, .Refused
+	ifequal $1, .CantGroomEgg
+	setflag ENGINE_DAISYS_GROOMING
+	writetext DaisyAlrightText
+	waitbutton
+	closetext
+	special FadeOutPalettes
+	playmusic MUSIC_HEAL
+	pause 60
+	special FadeInPalettes
+	special RestartMapMusic
+	opentext
+	writetext GroomedMonLooksContentText
+	special PlayCurMonCry
+	promptbutton
+	writetext DaisyAllDoneText
+	waitbutton
+	closetext
+	end
+
+.AlreadyGroomedMon:
+	writetext DaisyAlreadyGroomedText
+	waitbutton
+	closetext
+	end
+
+.Refused:
+	writetext DaisyRefusedText
+	waitbutton
+	closetext
+	end
+
+.CantGroomEgg:
+	writetext DaisyCantGroomEggText
+	waitbutton
+	closetext
+	end
+
+DaisyHelloText:
+	text "DAISY: Hi! My kid"
+	line "brother is the GYM"
+
+	para "LEADER in VIRIDIAN"
+	line "CITY."
+
+	para "But he goes out"
+	line "of town so often,"
+
+	para "it causes problems"
+	line "for the trainers."
+	done
+
+DaisyOfferGroomingText:
+	text "DAISY: Hi! Good"
+	line "timing. I'm about"
+	cont "to have some tea."
+
+	para "Would you like to"
+	line "join me?"
+
+	para "Oh, your #MON"
+	line "are a bit dirty."
+
+	para "Would you like me"
+	line "to groom one?"
+	done
+
+DaisyWhichMonText:
+	text "DAISY: Which one"
+	line "should I groom?"
+	done
+
+DaisyAlrightText:
+	text "DAISY: OK, I'll"
+	line "get it looking"
+	cont "nice in no time."
+	done
+
+GroomedMonLooksContentText:
+	text_ram wStringBuffer3
+	text " looks"
+	line "content."
+	done
+
+DaisyAllDoneText:
+	text "DAISY: There you"
+	line "go! All done."
+
+	para "See? Doesn't it"
+	line "look nice?"
+
+	para "It's such a cute"
+	line "#MON."
+	done
+
+DaisyAlreadyGroomedText:
+	text "DAISY: I always"
+	line "have tea around"
+
+	para "this time. Come"
+	line "join me."
+	done
+
+DaisyRefusedText:
+	text "DAISY: You don't"
+	line "want to have one"
+
+	para "groomed? OK, we'll"
+	line "just have tea."
+	done
+
+DaisyCantGroomEggText:
+	text "DAISY: Oh, sorry."
+	line "I honestly can't"
+	cont "groom an EGG."
+	done
+
+BluesHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, PALLET_TOWN, 2
+	warp_event  3,  7, PALLET_TOWN, 2
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_DAISY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DaisyScript, -1

maps/BrunosRoom.asm

@@ -0,0 +1,139 @@
+	object_const_def
+	const BRUNOSROOM_BRUNO
+
+BrunosRoom_MapScripts:
+	def_scene_scripts
+	scene_script BrunosRoomLockDoorScene, SCENE_BRUNOSROOM_LOCK_DOOR
+	scene_script BrunosRoomNoopScene,     SCENE_BRUNOSROOM_NOOP
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, BrunosRoomDoorsCallback
+
+BrunosRoomLockDoorScene:
+	sdefer BrunosRoomDoorLocksBehindYouScript
+	end
+
+BrunosRoomNoopScene:
+	end
+
+BrunosRoomDoorsCallback:
+	checkevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED
+	iffalse .KeepEntranceOpen
+	changeblock 4, 14, $2a ; wall
+.KeepEntranceOpen:
+	checkevent EVENT_BRUNOS_ROOM_EXIT_OPEN
+	iffalse .KeepExitClosed
+	changeblock 4, 2, $16 ; open door
+.KeepExitClosed:
+	endcallback
+
+BrunosRoomDoorLocksBehindYouScript:
+	applymovement PLAYER, BrunosRoom_EnterMovement
+	refreshscreen $86
+	playsound SFX_STRENGTH
+	earthquake 80
+	changeblock 4, 14, $2a ; wall
+	reloadmappart
+	closetext
+	setscene SCENE_BRUNOSROOM_NOOP
+	setevent EVENT_BRUNOS_ROOM_ENTRANCE_CLOSED
+	waitsfx
+	end
+
+BrunoScript_Battle:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_ELITE_4_BRUNO
+	iftrue BrunoScript_AfterBattle
+	writetext BrunoScript_BrunoBeforeText
+	waitbutton
+	closetext
+	winlosstext BrunoScript_BrunoBeatenText, 0
+	loadtrainer BRUNO, BRUNO1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_ELITE_4_BRUNO
+	opentext
+	writetext BrunoScript_BrunoDefeatText
+	waitbutton
+	closetext
+	playsound SFX_ENTER_DOOR
+	changeblock 4, 2, $16 ; open door
+	reloadmappart
+	closetext
+	setevent EVENT_BRUNOS_ROOM_EXIT_OPEN
+	waitsfx
+	end
+
+BrunoScript_AfterBattle:
+	writetext BrunoScript_BrunoDefeatText
+	waitbutton
+	closetext
+	end
+
+BrunosRoom_EnterMovement:
+	step UP
+	step UP
+	step UP
+	step UP
+	step_end
+
+BrunoScript_BrunoBeforeText:
+	text "I am BRUNO of the"
+	line "ELITE FOUR."
+
+	para "I always train to"
+	line "the extreme be-"
+	cont "cause I believe in"
+	cont "our potential."
+
+	para "That is how we"
+	line "became strong."
+
+	para "Can you withstand"
+	line "our power?"
+
+	para "Hm? I see no fear"
+	line "in you. You look"
+
+	para "determined. Per-"
+	line "fect for battle!"
+
+	para "Ready, <PLAYER>?"
+	line "You will bow down"
+
+	para "to our overwhelm-"
+	line "ing power!"
+
+	para "Hoo hah!"
+	done
+
+BrunoScript_BrunoBeatenText:
+	text "Why? How could we"
+	line "lose?"
+	done
+
+BrunoScript_BrunoDefeatText:
+	text "Having lost, I"
+	line "have no right to"
+	cont "say anything…"
+
+	para "Go face your next"
+	line "challenge!"
+	done
+
+BrunosRoom_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 17, KOGAS_ROOM, 3
+	warp_event  5, 17, KOGAS_ROOM, 4
+	warp_event  4,  2, KARENS_ROOM, 1
+	warp_event  5,  2, KARENS_ROOM, 2
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  5,  7, SPRITE_BRUNO, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, BrunoScript_Battle, -1

maps/BrunosRoom.blk

@@ -0,0 +1 @@
+"44
44,888,+888++,8,+++8++**-**--

maps/BurnedTower1F.asm

@@ -0,0 +1,309 @@
+	object_const_def
+	const BURNEDTOWER1F_ROCK
+	const BURNEDTOWER1F_EUSINE
+	const BURNEDTOWER1F_RIVAL
+	const BURNEDTOWER1F_MORTY
+	const BURNEDTOWER1F_POKE_BALL
+
+BurnedTower1F_MapScripts:
+	def_scene_scripts
+	scene_script BurnedTower1FMeetEusineScene, SCENE_BURNEDTOWER1F_MEET_EUSINE
+	scene_script BurnedTower1FNoop1Scene,      SCENE_BURNEDTOWER1F_RIVAL_BATTLE
+	scene_script BurnedTower1FNoop2Scene,      SCENE_BURNEDTOWER1F_NOOP
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, BurnedTower1FHoleAndLadderCallback
+
+BurnedTower1FMeetEusineScene:
+	sdefer BurnedTower1FMeetEusineScript
+	end
+
+BurnedTower1FNoop1Scene:
+	end
+
+BurnedTower1FNoop2Scene:
+	end
+
+BurnedTower1FHoleAndLadderCallback:
+	checkevent EVENT_HOLE_IN_BURNED_TOWER
+	iftrue .KeepHoleOpen
+	changeblock 10, 8, $32 ; floor
+.KeepHoleOpen:
+	checkevent EVENT_RELEASED_THE_BEASTS
+	iftrue .HideBasement
+	changeblock 6, 14, $09 ; ladder
+.HideBasement:
+	endcallback
+
+BurnedTower1FMeetEusineScript:
+	turnobject BURNEDTOWER1F_EUSINE, DOWN
+	showemote EMOTE_SHOCK, BURNEDTOWER1F_EUSINE, 15
+	applymovement BURNEDTOWER1F_EUSINE, BurnedTower1FEusineMovement
+	opentext
+	writetext BurnedTower1FEusineIntroText
+	waitbutton
+	closetext
+	moveobject BURNEDTOWER1F_EUSINE, 9, 14
+	setscene SCENE_BURNEDTOWER1F_RIVAL_BATTLE
+	end
+
+BurnedTowerRivalBattleScript:
+	showemote EMOTE_SHOCK, BURNEDTOWER1F_RIVAL, 15
+	special FadeOutMusic
+	pause 15
+	turnobject BURNEDTOWER1F_RIVAL, RIGHT
+	pause 15
+	applymovement PLAYER, BurnedTowerMovement_PlayerWalksToRival
+	applymovement BURNEDTOWER1F_RIVAL, BurnedTowerMovement_RivalWalksToPlayer
+	playmusic MUSIC_RIVAL_ENCOUNTER
+	opentext
+	writetext BurnedTowerRival_BeforeText
+	waitbutton
+	closetext
+	checkevent EVENT_GOT_TOTODILE_FROM_ELM
+	iftrue .totodile
+	checkevent EVENT_GOT_CHIKORITA_FROM_ELM
+	iftrue .chikorita
+	winlosstext BurnedTowerRival_WinText, BurnedTowerRival_LossText
+	setlasttalked BURNEDTOWER1F_RIVAL
+	loadtrainer RIVAL1, RIVAL1_3_TOTODILE
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .returnfrombattle
+
+.totodile
+	winlosstext BurnedTowerRival_WinText, BurnedTowerRival_LossText
+	setlasttalked BURNEDTOWER1F_RIVAL
+	loadtrainer RIVAL1, RIVAL1_3_CHIKORITA
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .returnfrombattle
+
+.chikorita
+	winlosstext BurnedTowerRival_WinText, BurnedTowerRival_LossText
+	setlasttalked BURNEDTOWER1F_RIVAL
+	loadtrainer RIVAL1, RIVAL1_3_CYNDAQUIL
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	sjump .returnfrombattle
+
+.returnfrombattle
+	playmusic MUSIC_RIVAL_AFTER
+	opentext
+	writetext BurnedTowerRival_AfterText1
+	waitbutton
+	closetext
+	setscene SCENE_BURNEDTOWER1F_NOOP
+	setevent EVENT_RIVAL_BURNED_TOWER
+	special FadeOutMusic
+	pause 15
+	earthquake 50
+	showemote EMOTE_SHOCK, PLAYER, 15
+	playsound SFX_ENTER_DOOR
+	waitsfx
+	changeblock 10, 8, $25 ; hole
+	reloadmappart
+	pause 15
+	applymovement PLAYER, BurnedTower1FMovement_PlayerStartsToFall
+	playsound SFX_KINESIS
+	showemote EMOTE_SHOCK, BURNEDTOWER1F_RIVAL, 20
+	opentext
+	writetext BurnedTowerRival_AfterText2
+	waitbutton
+	closetext
+	setevent EVENT_HOLE_IN_BURNED_TOWER
+	pause 15
+	warpcheck
+	end
+
+BurnedTower1FEusineScript:
+	jumptextfaceplayer BurnedTower1FEusineText
+
+BurnedTower1FMortyScript:
+	jumptextfaceplayer BurnedTower1FMortyText
+
+BurnedTower1FRock:
+	jumpstd SmashRockScript
+
+BurnedTower1FHiddenEther:
+	hiddenitem ETHER, EVENT_BURNED_TOWER_1F_HIDDEN_ETHER
+
+BurnedTower1FHiddenUltraBall:
+	hiddenitem ULTRA_BALL, EVENT_BURNED_TOWER_1F_HIDDEN_ULTRA_BALL
+
+BurnedTower1FHPUp:
+	itemball HP_UP
+
+BurnedTowerMovement_PlayerWalksToRival:
+	step LEFT
+	step_end
+
+BurnedTowerMovement_RivalWalksToPlayer:
+	step RIGHT
+	step_end
+
+BurnedTower1FMovement_PlayerStartsToFall:
+	skyfall_top
+	step_end
+
+BurnedTower1FEusineMovement:
+	step DOWN
+	step LEFT
+	step LEFT
+	step LEFT
+	step DOWN
+	step_end
+
+BurnedTowerRival_BeforeText:
+	text "<……> <……> <……>"
+
+	para "…Oh, it's you."
+
+	para "I came looking for"
+	line "some legendary"
+
+	para "#MON that they"
+	line "say roosts here."
+
+	para "But there's"
+	line "nothing here!"
+
+	para "Nothing after all"
+	line "the trouble of"
+
+	para "coming to this"
+	line "dump? No way!"
+
+	para "It's all your"
+	line "fault!"
+	done
+
+BurnedTowerRival_WinText:
+	text "…Humph!"
+
+	para "This is why I hate"
+	line "battling wimps."
+
+	para "There's no"
+	line "challenge in it."
+	done
+
+BurnedTowerRival_AfterText1:
+	text "…Aw, whatever."
+
+	para "You would never be"
+	line "able to catch a"
+
+	para "legendary #MON"
+	line "anyway."
+	done
+
+BurnedTowerRival_LossText:
+	text "…Humph!"
+
+	para "This is why I hate"
+	line "battling wimps."
+
+	para "It's just a waste"
+	line "of my time."
+	done
+
+BurnedTowerRival_AfterText2:
+	text "Humph!"
+
+	para "What are you doing"
+	line "falling into a"
+
+	para "hole? Some genius"
+	line "you are!"
+
+	para "Serves you right!"
+	done
+
+BurnedTower1FEusineIntroText:
+	text "EUSINE: My name's"
+	line "EUSINE."
+
+	para "I'm on the trail"
+	line "of a #MON named"
+	cont "SUICUNE."
+
+	para "And you are…?"
+
+	para "<PLAYER>? Glad to"
+	line "meet you!"
+
+	para "I heard rumors"
+	line "that SUICUNE is in"
+
+	para "this BURNED TOWER,"
+	line "so I came to look."
+
+	para "But where exactly"
+	line "could it be?"
+	done
+
+BurnedTower1FEusineText:
+	text "EUSINE: I heard"
+	line "that SUICUNE is in"
+
+	para "this BURNED TOWER,"
+	line "so I came to look."
+
+	para "But where exactly"
+	line "could it be?"
+	done
+
+BurnedTower1FMortyText:
+	text "MORTY: ECRUTEAK's"
+	line "GYM LEADER has to"
+
+	para "study what are"
+	line "said to be the"
+
+	para "legendary #MON"
+	line "--SUICUNE, ENTEI"
+	cont "and RAIKOU."
+
+	para "EUSINE is here, so"
+	line "I've decided to"
+
+	para "investigate the"
+	line "TOWER with him."
+	done
+
+BurnedTower1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  9, 15, ECRUTEAK_CITY, 13
+	warp_event 10, 15, ECRUTEAK_CITY, 13
+	warp_event 10,  9, BURNED_TOWER_B1F, 1
+	warp_event  5,  5, BURNED_TOWER_B1F, 1 ; inaccessible, left over from G/S
+	warp_event  5,  6, BURNED_TOWER_B1F, 1 ; inaccessible, left over from G/S
+	warp_event  4,  6, BURNED_TOWER_B1F, 1 ; inaccessible, left over from G/S
+	warp_event 15,  4, BURNED_TOWER_B1F, 2 ; inaccessible, left over from G/S
+	warp_event 15,  5, BURNED_TOWER_B1F, 2 ; inaccessible, left over from G/S
+	warp_event 10,  7, BURNED_TOWER_B1F, 3 ; inaccessible, left over from G/S
+	warp_event  5, 14, BURNED_TOWER_B1F, 4 ; inaccessible, left over from G/S
+	warp_event  4, 14, BURNED_TOWER_B1F, 4 ; inaccessible, left over from G/S
+	warp_event 14, 14, BURNED_TOWER_B1F, 5 ; inaccessible, left over from G/S
+	warp_event 15, 14, BURNED_TOWER_B1F, 5 ; inaccessible, left over from G/S
+	warp_event  7, 15, BURNED_TOWER_B1F, 6 ; inaccessible, left over from G/S
+
+	def_coord_events
+	coord_event 11,  9, SCENE_BURNEDTOWER1F_RIVAL_BATTLE, BurnedTowerRivalBattleScript
+
+	def_bg_events
+	bg_event  8,  7, BGEVENT_ITEM, BurnedTower1FHiddenEther
+	bg_event 13, 11, BGEVENT_ITEM, BurnedTower1FHiddenUltraBall
+
+	def_object_events
+	object_event 15,  4, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BurnedTower1FRock, -1
+	object_event 12, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BurnedTower1FEusineScript, EVENT_BURNED_TOWER_1F_EUSINE
+	object_event  8,  9, SPRITE_RIVAL, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_TRAINER, 3, ObjectEvent, EVENT_RIVAL_BURNED_TOWER
+	object_event 14, 14, SPRITE_MORTY, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, BurnedTower1FMortyScript, EVENT_BURNED_TOWER_MORTY
+	object_event 14,  2, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, BurnedTower1FHPUp, EVENT_BURNED_TOWER_1F_HP_UP

maps/BurnedTower1F.blk

@@ -0,0 +1,3 @@
+
!2432"

4	3	63	3

		525	

5443
+4	

	62%
+		

54

356

2	42		4	

3	:		6

maps/BurnedTowerB1F.asm

@@ -0,0 +1,261 @@
+	object_const_def
+	const BURNEDTOWERB1F_BOULDER
+	const BURNEDTOWERB1F_RAIKOU1
+	const BURNEDTOWERB1F_ENTEI1
+	const BURNEDTOWERB1F_SUICUNE1
+	const BURNEDTOWERB1F_RAIKOU2
+	const BURNEDTOWERB1F_ENTEI2
+	const BURNEDTOWERB1F_SUICUNE2
+	const BURNEDTOWERB1F_POKE_BALL
+	const BURNEDTOWERB1F_EUSINE
+
+BurnedTowerB1F_MapScripts:
+	def_scene_scripts
+	scene_script BurnedTowerB1FNoop1Scene, SCENE_BURNEDTOWERB1F_RELEASE_THE_BEASTS
+	scene_script BurnedTowerB1FNoop2Scene, SCENE_BURNEDTOWERB1F_NOOP
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, BurnedTowerB1FLadderCallback
+
+BurnedTowerB1FNoop1Scene:
+	end
+
+BurnedTowerB1FNoop2Scene:
+	end
+
+BurnedTowerB1FLadderCallback:
+	checkevent EVENT_RELEASED_THE_BEASTS
+	iftrue .HideLadder
+	changeblock 6, 14, $02 ; floor
+.HideLadder:
+	endcallback
+
+ReleaseTheBeasts:
+	playmusic MUSIC_NONE
+	pause 30
+	appear BURNEDTOWERB1F_RAIKOU1
+	turnobject PLAYER, UP
+	pause 5
+	disappear BURNEDTOWERB1F_RAIKOU2
+	pause 15
+	cry RAIKOU
+	appear BURNEDTOWERB1F_ENTEI1
+	turnobject PLAYER, UP
+	pause 5
+	disappear BURNEDTOWERB1F_ENTEI2
+	pause 15
+	cry ENTEI
+	appear BURNEDTOWERB1F_SUICUNE1
+	turnobject PLAYER, UP
+	pause 5
+	disappear BURNEDTOWERB1F_SUICUNE2
+	pause 15
+	cry SUICUNE
+	pause 15
+	playsound SFX_WARP_FROM
+	turnobject PLAYER, LEFT
+	applymovement BURNEDTOWERB1F_RAIKOU1, BurnedTowerRaikouMovement
+	disappear BURNEDTOWERB1F_RAIKOU1
+	waitsfx
+	playsound SFX_WARP_FROM
+	turnobject PLAYER, RIGHT
+	applymovement BURNEDTOWERB1F_ENTEI1, BurnedTowerEnteiMovement
+	disappear BURNEDTOWERB1F_ENTEI1
+	waitsfx
+	pause 15
+	playsound SFX_WARP_FROM
+	turnobject PLAYER, UP
+	applymovement BURNEDTOWERB1F_SUICUNE1, BurnedTowerSuicuneMovement1
+	playsound SFX_WARP_FROM
+	turnobject PLAYER, DOWN
+	applymovement BURNEDTOWERB1F_SUICUNE1, BurnedTowerSuicuneMovement2
+	turnobject PLAYER, UP
+	pause 20
+	cry SUICUNE
+	pause 30
+	playsound SFX_WARP_FROM
+	applymovement BURNEDTOWERB1F_SUICUNE1, BurnedTowerSuicuneMovement3
+	turnobject PLAYER, DOWN
+	disappear BURNEDTOWERB1F_SUICUNE1
+	waitsfx
+	special RestartMapMusic
+	setscene SCENE_BURNEDTOWERB1F_NOOP
+	setevent EVENT_RELEASED_THE_BEASTS
+	special InitRoamMons
+	setmapscene ECRUTEAK_GYM, SCENE_ECRUTEAKGYM_NOOP
+	setmapscene CIANWOOD_CITY, SCENE_CIANWOODCITY_SUICUNE_AND_EUSINE
+	clearevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY
+	setevent EVENT_ECRUTEAK_GYM_GRAMPS
+	clearevent EVENT_ECRUTEAK_CITY_GRAMPS
+	setevent EVENT_BURNED_TOWER_MORTY
+	setevent EVENT_BURNED_TOWER_1F_EUSINE
+	appear BURNEDTOWERB1F_EUSINE
+	refreshscreen
+	changeblock 6, 14, $1b ; ladder
+	reloadmappart
+	closetext
+	setscene SCENE_BURNEDTOWERB1F_NOOP
+	end
+
+BurnedTowerB1FEusine:
+	faceplayer
+	opentext
+	writetext BurnedTowerB1FEusineText
+	waitbutton
+	closetext
+	readvar VAR_FACING
+	ifequal UP, .Movement2
+	applymovement BURNEDTOWERB1F_EUSINE, BurnedTowerB1FEusineMovement1
+	sjump .Finish
+
+.Movement2:
+	applymovement BURNEDTOWERB1F_EUSINE, BurnedTowerB1FEusineMovement2
+.Finish:
+	disappear BURNEDTOWERB1F_EUSINE
+	playsound SFX_EXIT_BUILDING
+	waitsfx
+	end
+
+BurnedTowerB1FTMEndure:
+	itemball TM_ENDURE
+
+BurnedTowerB1FBoulder:
+	jumpstd StrengthBoulderScript
+
+BurnedTowerRaikouMovement:
+	set_sliding
+	fast_jump_step DOWN
+	fast_jump_step LEFT
+	remove_sliding
+	step_end
+
+BurnedTowerEnteiMovement:
+	set_sliding
+	fast_jump_step RIGHT
+	fast_jump_step DOWN
+	fast_jump_step RIGHT
+	remove_sliding
+	step_end
+
+BurnedTowerSuicuneMovement1:
+	set_sliding
+	fast_jump_step RIGHT
+	fast_jump_step DOWN
+	fast_jump_step DOWN
+	fast_jump_step LEFT
+	remove_sliding
+	step_end
+
+BurnedTowerSuicuneMovement2:
+	set_sliding
+	fast_jump_step LEFT
+	fast_jump_step UP
+	big_step UP
+	fast_jump_step RIGHT
+	remove_sliding
+	step_end
+
+BurnedTowerUnusedMovement: ; unreferenced
+	set_sliding
+	big_step DOWN
+	remove_sliding
+	step_end
+
+BurnedTowerSuicuneMovement3:
+	set_sliding
+	big_step UP
+	fast_jump_step RIGHT
+	fast_jump_step DOWN
+	fast_jump_step DOWN
+	fast_jump_step DOWN
+	fast_jump_step DOWN
+	remove_sliding
+	step_end
+
+BurnedTowerB1FEusineMovement2:
+	step LEFT
+	step LEFT
+	step DOWN
+	step DOWN
+	step LEFT
+	step DOWN
+	step_end
+
+BurnedTowerB1FEusineMovement1:
+	step DOWN
+	step LEFT
+	step LEFT
+	step LEFT
+	step DOWN
+	step DOWN
+	step_end
+
+BurnedTowerB1FEusineText:
+	text "EUSINE: I dug a"
+	line "hole here, too…"
+
+	para "I was shocked!"
+
+	para "SUICUNE raced by"
+	line "like a blur, right"
+
+	para "in front of my"
+	line "eyes!"
+
+	para "For ten years I"
+	line "chased SUICUNE,"
+
+	para "and I finally got"
+	line "to see it."
+
+	para "I'm all choked up!"
+
+	para "<PLAYER>, I owe"
+	line "this all to you!"
+
+	para "Thank you!"
+
+	para "I heard that the"
+	line "legendary #MON"
+
+	para "of ECRUTEAK test"
+	line "chosen humans by"
+
+	para "allowing them to"
+	line "get close."
+
+	para "I'm going to track"
+	line "SUICUNE."
+
+	para "<PLAYER>, let's"
+	line "meet again!"
+
+	para "Farewell!"
+	done
+
+BurnedTowerB1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 10,  9, BURNED_TOWER_1F, 3
+	warp_event 17,  7, BURNED_TOWER_1F, 7
+	warp_event 10,  8, BURNED_TOWER_1F, 9
+	warp_event  3, 13, BURNED_TOWER_1F, 10
+	warp_event 17, 14, BURNED_TOWER_1F, 12
+	warp_event  7, 15, BURNED_TOWER_1F, 14
+
+	def_coord_events
+	coord_event 10,  6, SCENE_BURNEDTOWERB1F_RELEASE_THE_BEASTS, ReleaseTheBeasts
+
+	def_bg_events
+
+	def_object_events
+	object_event 17,  8, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, BurnedTowerB1FBoulder, -1
+	object_event  7,  3, SPRITE_RAIKOU, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_1
+	object_event 12,  3, SPRITE_ENTEI, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_1
+	object_event 10,  4, SPRITE_SUICUNE, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_1
+	object_event  7,  3, SPRITE_RAIKOU, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_EMOTE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_2
+	object_event 12,  3, SPRITE_ENTEI, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_EMOTE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_2
+	object_event 10,  4, SPRITE_SUICUNE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_EMOTE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_BURNED_TOWER_B1F_BEASTS_2
+	object_event 16,  4, SPRITE_POKE_BALL, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_ITEMBALL, 0, BurnedTowerB1FTMEndure, EVENT_BURNED_TOWER_B1F_TM_ENDURE
+	object_event 10, 12, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, BurnedTowerB1FEusine, EVENT_EUSINE_IN_BURNED_TOWER

maps/BurnedTowerB1F.blk

@@ -0,0 +1,8 @@
+	





		
+	
+		
+
+
0
+
+		(
+1
01+	*(!		!+								

maps/CeladonCafe.asm

@@ -0,0 +1,226 @@
+	object_const_def
+	const CELADONCAFE_SUPER_NERD
+	const CELADONCAFE_FISHER1
+	const CELADONCAFE_FISHER2
+	const CELADONCAFE_FISHER3
+	const CELADONCAFE_TEACHER
+
+CeladonCafe_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonCafeChef:
+	faceplayer
+	opentext
+	writetext ChefText_Eatathon
+	waitbutton
+	closetext
+	end
+
+CeladonCafeFisher1:
+	opentext
+	writetext Fisher1Text_Snarfle
+	waitbutton
+	closetext
+	faceplayer
+	opentext
+	writetext Fisher1Text_Concentration
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_FISHER1, LEFT
+	end
+
+CeladonCafeFisher2:
+	opentext
+	writetext Fisher2Text_GulpChew
+	waitbutton
+	closetext
+	faceplayer
+	opentext
+	writetext Fisher2Text_Quantity
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_FISHER2, RIGHT
+	end
+
+CeladonCafeFisher3:
+	opentext
+	writetext Fisher3Text_MunchMunch
+	waitbutton
+	closetext
+	faceplayer
+	opentext
+	writetext Fisher3Text_GoldenrodIsBest
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_FISHER3, RIGHT
+	end
+
+CeladonCafeTeacher:
+	checkitem COIN_CASE
+	iftrue .HasCoinCase
+	opentext
+	writetext TeacherText_CrunchCrunch
+	waitbutton
+	closetext
+	faceplayer
+	opentext
+	writetext TeacherText_NoCoinCase
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_TEACHER, LEFT
+	end
+
+.HasCoinCase:
+	opentext
+	writetext TeacherText_KeepEating
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_TEACHER, RIGHT
+	opentext
+	writetext TeacherText_MoreChef
+	waitbutton
+	closetext
+	turnobject CELADONCAFE_TEACHER, LEFT
+	end
+
+EatathonContestPoster:
+	jumptext EatathonContestPosterText
+
+CeladonCafeTrashcan:
+	checkevent EVENT_FOUND_LEFTOVERS_IN_CELADON_CAFE
+	iftrue .TrashEmpty
+	giveitem LEFTOVERS
+	iffalse .PackFull
+	opentext
+	getitemname STRING_BUFFER_3, LEFTOVERS
+	writetext FoundLeftoversText
+	playsound SFX_ITEM
+	waitsfx
+	itemnotify
+	closetext
+	setevent EVENT_FOUND_LEFTOVERS_IN_CELADON_CAFE
+	end
+
+.PackFull:
+	opentext
+	getitemname STRING_BUFFER_3, LEFTOVERS
+	writetext FoundLeftoversText
+	promptbutton
+	writetext NoRoomForLeftoversText
+	waitbutton
+	closetext
+	end
+
+.TrashEmpty:
+	jumpstd TrashCanScript
+
+ChefText_Eatathon:
+	text "Hi!"
+
+	para "We're holding an"
+	line "eatathon contest."
+
+	para "We can't serve you"
+	line "right now. Sorry."
+	done
+
+Fisher1Text_Snarfle:
+	text "…Snarfle, chew…"
+	done
+
+Fisher1Text_Concentration:
+	text "Don't talk to me!"
+
+	para "You'll break my"
+	line "concentration!"
+	done
+
+Fisher2Text_GulpChew:
+	text "…Gulp… Chew…"
+	done
+
+Fisher2Text_Quantity:
+	text "I take quantity"
+	line "over quality!"
+
+	para "I'm happy when I'm"
+	line "full!"
+	done
+
+Fisher3Text_MunchMunch:
+	text "Munch, munch…"
+	done
+
+Fisher3Text_GoldenrodIsBest:
+	text "The food is good"
+	line "here, but GOLDEN-"
+	cont "ROD has the best"
+	cont "food anywhere."
+	done
+
+TeacherText_CrunchCrunch:
+	text "Crunch… Crunch…"
+	done
+
+TeacherText_NoCoinCase:
+	text "Nobody here will"
+	line "give you a COIN"
+
+	para "CASE. You should"
+	line "look in JOHTO."
+	done
+
+TeacherText_KeepEating:
+	text "Crunch… Crunch…"
+
+	para "I can keep eating!"
+	done
+
+TeacherText_MoreChef:
+	text "More, CHEF!"
+	done
+
+EatathonContestPosterText:
+	text "Eatathon Contest!"
+	line "No time limit!"
+
+	para "A battle without"
+	line "end! The biggest"
+
+	para "muncher gets it"
+	line "all for free!"
+	done
+
+FoundLeftoversText:
+	text "<PLAYER> found"
+	line "@"
+	text_ram wStringBuffer3
+	text "!"
+	done
+
+NoRoomForLeftoversText:
+	text "But <PLAYER> can't"
+	line "hold another item…"
+	done
+
+CeladonCafe_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  6,  7, CELADON_CITY, 9
+	warp_event  7,  7, CELADON_CITY, 9
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  5,  0, BGEVENT_READ, EatathonContestPoster
+	bg_event  7,  1, BGEVENT_READ, CeladonCafeTrashcan
+
+	def_object_events
+	object_event  9,  3, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CeladonCafeChef, -1
+	object_event  4,  6, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher1, -1
+	object_event  1,  7, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher2, -1
+	object_event  1,  2, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeFisher3, -1
+	object_event  4,  3, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonCafeTeacher, -1

maps/CeladonCafe.blk

@@ -0,0 +1 @@
+-().
,
.

maps/CeladonCity.asm

@@ -0,0 +1,269 @@
+	object_const_def
+	const CELADONCITY_FISHER
+	const CELADONCITY_POLIWAG
+	const CELADONCITY_TEACHER1
+	const CELADONCITY_GRAMPS1
+	const CELADONCITY_GRAMPS2
+	const CELADONCITY_YOUNGSTER1
+	const CELADONCITY_YOUNGSTER2
+	const CELADONCITY_TEACHER2
+	const CELADONCITY_LASS
+
+CeladonCity_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, CeladonCityFlypointCallback
+
+CeladonCityFlypointCallback:
+	setflag ENGINE_FLYPOINT_CELADON
+	endcallback
+
+CeladonCityFisherScript:
+	jumptextfaceplayer CeladonCityFisherText
+
+CeladonCityPoliwrath:
+	opentext
+	writetext CeladonCityPoliwrathText
+	cry POLIWRATH
+	waitbutton
+	closetext
+	end
+
+CeladonCityTeacher1Script:
+	jumptextfaceplayer CeladonCityTeacher1Text
+
+CeladonCityGramps1Script:
+	jumptextfaceplayer CeladonCityGramps1Text
+
+CeladonCityGramps2Script:
+	jumptextfaceplayer CeladonCityGramps2Text
+
+CeladonCityYoungster1Script:
+	jumptextfaceplayer CeladonCityYoungster1Text
+
+CeladonCityYoungster2Script:
+	jumptextfaceplayer CeladonCityYoungster2Text
+
+CeladonCityTeacher2Script:
+	jumptextfaceplayer CeladonCityTeacher2Text
+
+CeladonCityLassScript:
+	jumptextfaceplayer CeladonCityLassText
+
+CeladonCitySign:
+	jumptext CeladonCitySignText
+
+CeladonGymSign:
+	jumptext CeladonGymSignText
+
+CeladonCityDeptStoreSign:
+	jumptext CeladonCityDeptStoreSignText
+
+CeladonCityMansionSign:
+	jumptext CeladonCityMansionSignText
+
+CeladonCityGameCornerSign:
+	jumptext CeladonCityGameCornerSignText
+
+CeladonCityTrainerTips:
+	jumptext CeladonCityTrainerTipsText
+
+CeladonCityPokecenterSign:
+	jumpstd PokecenterSignScript
+
+CeladonCityHiddenPpUp:
+	hiddenitem PP_UP, EVENT_CELADON_CITY_HIDDEN_PP_UP
+
+CeladonCityFisherText:
+	text "This POLIWRATH is"
+	line "my partner."
+
+	para "I wonder if it'll"
+	line "ever evolve into a"
+	cont "frog #MON."
+	done
+
+CeladonCityPoliwrathText:
+	text "POLIWRATH: Croak!"
+	done
+
+CeladonCityTeacher1Text:
+	text "I lost at the slot"
+	line "machines again…"
+
+	para "We girls also play"
+	line "the slots now."
+
+	para "You should check"
+	line "them out too."
+	done
+
+CeladonCityGramps1Text:
+	text "GRIMER have been"
+	line "appearing lately."
+
+	para "See that pond out"
+	line "in front of the"
+
+	para "house? GRIMER live"
+	line "there now."
+
+	para "Where did they"
+	line "come from? This is"
+	cont "a serious problem…"
+	done
+
+CeladonCityGramps2Text:
+	text "Nihihi! This GYM"
+	line "is great! Only"
+
+	para "girls are allowed"
+	line "here!"
+	done
+
+CeladonCityYoungster1Text:
+	text "Want to know a"
+	line "secret?"
+
+	para "CELADON MANSION"
+	line "has a hidden back"
+	cont "door."
+	done
+
+CeladonCityYoungster2Text:
+	text "They're holding an"
+	line "eating contest at"
+	cont "the restaurant."
+
+	para "Just watching them"
+	line "go at it makes me"
+	cont "feel bloated…"
+	done
+
+CeladonCityTeacher2Text:
+	text "CELADON DEPT.STORE"
+	line "has the biggest"
+
+	para "and best selection"
+	line "of merchandise."
+
+	para "If you can't get"
+	line "it there, you"
+
+	para "can't get it any-"
+	line "where."
+
+	para "Gee… I sound like"
+	line "a sales clerk."
+	done
+
+CeladonCityLassText_Mobile: ; unreferenced
+	text "I love being"
+	line "surrounded by tall"
+	cont "buildings!"
+
+	para "Isn't it true that"
+	line "GOLDENROD #MON"
+
+	para "CENTER was made"
+	line "much, much bigger?"
+
+	para "That is so neat!"
+	line "I wish we had a"
+
+	para "place like that in"
+	line "KANTO…"
+	done
+
+CeladonCityLassText:
+	text "Looking at the"
+	line "ground while I was"
+
+	para "walking made me"
+	line "dizzy."
+	done
+
+CeladonCitySignText:
+	text "CELADON CITY"
+
+	para "The City of"
+	line "Rainbow Dreams"
+	done
+
+CeladonGymSignText:
+	text "CELADON CITY"
+	line "#MON GYM"
+	cont "LEADER: ERIKA"
+
+	para "The Nature-Loving"
+	line "Princess"
+	done
+
+CeladonCityDeptStoreSignText:
+	text "Find What You"
+	line "Need at CELADON"
+	cont "DEPT.STORE!"
+	done
+
+CeladonCityMansionSignText:
+	text "CELADON MANSION"
+	done
+
+CeladonCityGameCornerSignText:
+	text "The Playground for"
+	line "Everybody--CELADON"
+	cont "GAME CORNER"
+	done
+
+CeladonCityTrainerTipsText:
+	text "TRAINER TIPS"
+
+	para "GUARD SPEC."
+	line "protects #MON"
+
+	para "against SPECIAL"
+	line "attacks such as"
+	cont "fire and water."
+
+	para "Get your items at"
+	line "CELADON DEPT."
+	cont "STORE!"
+	done
+
+CeladonCity_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4,  9, CELADON_DEPT_STORE_1F, 1
+	warp_event 16,  9, CELADON_MANSION_1F, 1
+	warp_event 16,  3, CELADON_MANSION_1F, 3
+	warp_event 17,  3, CELADON_MANSION_1F, 3
+	warp_event 29,  9, CELADON_POKECENTER_1F, 1
+	warp_event 18, 19, CELADON_GAME_CORNER, 1
+	warp_event 23, 19, CELADON_GAME_CORNER_PRIZE_ROOM, 1
+	warp_event 10, 29, CELADON_GYM, 1
+	warp_event 25, 29, CELADON_CAFE, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 23, 21, BGEVENT_READ, CeladonCitySign
+	bg_event 11, 31, BGEVENT_READ, CeladonGymSign
+	bg_event  6,  9, BGEVENT_READ, CeladonCityDeptStoreSign
+	bg_event 13,  9, BGEVENT_READ, CeladonCityMansionSign
+	bg_event 19, 21, BGEVENT_READ, CeladonCityGameCornerSign
+	bg_event 29, 21, BGEVENT_READ, CeladonCityTrainerTips
+	bg_event 30,  9, BGEVENT_READ, CeladonCityPokecenterSign
+	bg_event 37, 21, BGEVENT_ITEM, CeladonCityHiddenPpUp
+
+	def_object_events
+	object_event 26, 11, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonCityFisherScript, -1
+	object_event 27, 11, SPRITE_POLIWAG, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonCityPoliwrath, -1
+	object_event 20, 24, SPRITE_TEACHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonCityTeacher1Script, -1
+	object_event 14, 16, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CeladonCityGramps1Script, -1
+	object_event  8, 31, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonCityGramps2Script, -1
+	object_event 18, 13, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonCityYoungster1Script, -1
+	object_event 24, 33, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonCityYoungster2Script, -1
+	object_event  6, 14, SPRITE_TEACHER, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonCityTeacher2Script, -1
+	object_event  7, 22, SPRITE_LASS, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 2, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonCityLassScript, -1

maps/CeladonCity.blk

@@ -0,0 +1,16 @@
+ T!
+
+ooooo
+oooo
+hi !U T!UUUUUUUmhihiUhi ! ! !Um7:s7~y7:~7~7~|rUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0wwwwwUwwwUUUUUN T! !U ! !UUUUUg7:~|~U7~7~UUUUUCPVwVwUVwwwUUUUUUUUUUUUUUUUUm
UUUUUUUUUUUUUUUUUm !
 !UU ! ! ! !m7~7~UU7~|~7~7~mUUUUy !UUUUUUUUU
+
+/7~UUUUUUUUU
+m
+
+
+
+
+
+
+llllll`lll
+

maps/CeladonDeptStore1F.asm

@@ -0,0 +1,92 @@
+	object_const_def
+	const CELADONDEPTSTORE1F_RECEPTIONIST
+	const CELADONDEPTSTORE1F_GENTLEMAN
+	const CELADONDEPTSTORE1F_TEACHER
+
+CeladonDeptStore1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStore1FReceptionistScript:
+	jumptextfaceplayer CeladonDeptStore1FReceptionistText
+
+CeladonDeptStore1FGentlemanScript:
+	jumptextfaceplayer CeladonDeptStore1FGentlemanText
+
+CeladonDeptStore1FTeacherScript:
+	jumptextfaceplayer CeladonDeptStore1FTeacherText
+
+CeladonDeptStore1FDirectory:
+	jumptext CeladonDeptStore1FDirectoryText
+
+CeladonDeptStore1FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+CeladonDeptStore1FReceptionistText:
+	text "Hello! Welcome to"
+	line "CELADON DEPT."
+	cont "STORE!"
+
+	para "The directory is"
+	line "on the wall."
+	done
+
+CeladonDeptStore1FGentlemanText:
+	text "This DEPT.STORE is"
+	line "part of the same"
+
+	para "chain as the one"
+	line "in GOLDENROD CITY."
+
+	para "They were both"
+	line "renovated at the"
+	cont "same time."
+	done
+
+CeladonDeptStore1FTeacherText:
+	text "This is my first"
+	line "time here."
+
+	para "It's so big…"
+
+	para "I'm afraid I'll"
+	line "get lost."
+	done
+
+CeladonDeptStore1FDirectoryText:
+	text "1F: SERVICE"
+	line "    COUNTER"
+
+	para "2F: TRAINER'S"
+	line "    MARKET"
+
+	para "3F: TM SHOP"
+
+	para "4F: WISEMAN GIFTS"
+
+	para "5F: DRUG STORE"
+
+	para "6F: ROOFTOP"
+	line "    SQUARE"
+	done
+
+CeladonDeptStore1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  7,  7, CELADON_CITY, 1
+	warp_event  8,  7, CELADON_CITY, 1
+	warp_event 15,  0, CELADON_DEPT_STORE_2F, 2
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore1FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore1FElevatorButton
+
+	def_object_events
+	object_event 10,  1, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore1FReceptionistScript, -1
+	object_event 11,  4, SPRITE_GENTLEMAN, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore1FGentlemanScript, -1
+	object_event  5,  3, SPRITE_TEACHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore1FTeacherScript, -1

maps/CeladonDeptStore2F.asm

@@ -0,0 +1,87 @@
+	object_const_def
+	const CELADONDEPTSTORE2F_CLERK1
+	const CELADONDEPTSTORE2F_CLERK2
+	const CELADONDEPTSTORE2F_POKEFAN_M
+	const CELADONDEPTSTORE2F_YOUNGSTER
+
+CeladonDeptStore2F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStore2FClerk1Script:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_2F_1
+	closetext
+	end
+
+CeladonDeptStore2FClerk2Script:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_2F_2
+	closetext
+	end
+
+CeladonDeptStore2FPokefanMScript:
+	jumptextfaceplayer CeladonDeptStore2FPokefanMText
+
+CeladonDeptStore2FYoungsterScript:
+	jumptextfaceplayer CeladonDeptStore2FYoungsterText
+
+CeladonDeptStore2FDirectory:
+	jumptext CeladonDeptStore2FDirectoryText
+
+CeladonDeptStore2FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+CeladonDeptStore2FPokefanMText:
+	text "I just recently"
+	line "became a trainer."
+
+	para "My son encouraged"
+	line "me to do it."
+
+	para "I'm impressed by"
+	line "the selection of"
+	cont "convenient items."
+	done
+
+CeladonDeptStore2FYoungsterText:
+	text "My dad's having a"
+	line "hard time learning"
+
+	para "the names of items"
+	line "and how they are"
+
+	para "supposed to be"
+	line "used…"
+	done
+
+CeladonDeptStore2FDirectoryText:
+	text "Top Grade Items"
+	line "for Trainers!"
+
+	para "2F: TRAINER'S"
+	line "    MARKET"
+	done
+
+CeladonDeptStore2F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 12,  0, CELADON_DEPT_STORE_3F, 1
+	warp_event 15,  0, CELADON_DEPT_STORE_1F, 3
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore2FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore2FElevatorButton
+
+	def_object_events
+	object_event 13,  5, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore2FClerk1Script, -1
+	object_event 14,  5, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore2FClerk2Script, -1
+	object_event  5,  2, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore2FPokefanMScript, -1
+	object_event  6,  2, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore2FYoungsterScript, -1

maps/CeladonDeptStore3F.asm

@@ -0,0 +1,114 @@
+	object_const_def
+	const CELADONDEPTSTORE3F_CLERK
+	const CELADONDEPTSTORE3F_YOUNGSTER
+	const CELADONDEPTSTORE3F_GAMEBOY_KID1
+	const CELADONDEPTSTORE3F_GAMEBOY_KID2
+	const CELADONDEPTSTORE3F_SUPER_NERD
+
+CeladonDeptStore3F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStore3FClerkScript:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_3F
+	closetext
+	end
+
+CeladonDeptStore3FYoungsterScript:
+	jumptextfaceplayer CeladonDeptStore3FYoungsterText
+
+CeladonDeptStore3FGameboyKid1Script:
+	faceplayer
+	opentext
+	writetext CeladonDeptStore3FGameboyKid1Text
+	waitbutton
+	closetext
+	turnobject CELADONDEPTSTORE3F_GAMEBOY_KID1, DOWN
+	end
+
+CeladonDeptStore3FGameboyKid2Script:
+	faceplayer
+	opentext
+	writetext CeladonDeptStore3FGameboyKid2Text
+	waitbutton
+	closetext
+	turnobject CELADONDEPTSTORE3F_GAMEBOY_KID2, DOWN
+	end
+
+CeladonDeptStore3FSuperNerdScript:
+	jumptextfaceplayer CeladonDeptStore3FSuperNerdText
+
+CeladonDeptStore3FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+CeladonDeptStore3FDirectory:
+	jumptext CeladonDeptStore3FDirectoryText
+
+CeladonDeptStore3FYoungsterText:
+	text "I can't decide"
+	line "which #MON I"
+
+	para "should use this TM"
+	line "on…"
+	done
+
+CeladonDeptStore3FGameboyKid1Text:
+	text "Uh-oh! I traded my"
+	line "#MON without"
+
+	para "removing the UP-"
+	line "GRADE from it."
+	done
+
+CeladonDeptStore3FGameboyKid2Text:
+	text "Yeah! I'm finally"
+	line "getting a PORYGON!"
+
+	para "I'm no good at the"
+	line "slots, so I could"
+
+	para "never get enough"
+	line "coins…"
+
+	para "…Huh?"
+
+	para "The traded PORYGON"
+	line "turned into a dif-"
+	cont "ferent #MON!"
+	done
+
+CeladonDeptStore3FSuperNerdText:
+	text "The TM SHOP sells"
+	line "some rare moves."
+	done
+
+CeladonDeptStore3FDirectoryText:
+	text "3F: TM SHOP"
+
+	para "Make Your #MON"
+	line "Stronger!"
+	done
+
+CeladonDeptStore3F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 12,  0, CELADON_DEPT_STORE_2F, 1
+	warp_event 15,  0, CELADON_DEPT_STORE_4F, 2
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore3FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore3FElevatorButton
+
+	def_object_events
+	object_event  7,  1, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore3FClerkScript, -1
+	object_event  6,  4, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore3FYoungsterScript, -1
+	object_event  9,  1, SPRITE_GAMEBOY_KID, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore3FGameboyKid1Script, -1
+	object_event 10,  1, SPRITE_GAMEBOY_KID, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore3FGameboyKid2Script, -1
+	object_event 13,  4, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore3FSuperNerdScript, -1

maps/CeladonDeptStore4F.asm

@@ -0,0 +1,68 @@
+	object_const_def
+	const CELADONDEPTSTORE4F_CLERK
+	const CELADONDEPTSTORE4F_SUPER_NERD
+	const CELADONDEPTSTORE4F_YOUNGSTER
+
+CeladonDeptStore4F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStore4FClerkScript:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_4F
+	closetext
+	end
+
+CeladonDeptStore4FSuperNerdScript:
+	jumptextfaceplayer CeladonDeptStore4FSuperNerdText
+
+CeladonDeptStore4FYoungsterScript:
+	jumptextfaceplayer CeladonDeptStore4FYoungsterText
+
+CeladonDeptStore4FDirectory:
+	jumptext CeladonDeptStore4FDirectoryText
+
+CeladonDeptStore4FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+CeladonDeptStore4FSuperNerdText:
+	text "I'm here to buy"
+	line "SURF MAIL to send"
+	cont "to my girlfriend."
+	done
+
+CeladonDeptStore4FYoungsterText:
+	text "This is the only"
+	line "place where you"
+
+	para "can buy LOVELY"
+	line "MAIL."
+	done
+
+CeladonDeptStore4FDirectoryText:
+	text "Express Yourself"
+	line "With Gifts!"
+
+	para "4F: WISEMAN GIFTS"
+	done
+
+CeladonDeptStore4F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 12,  0, CELADON_DEPT_STORE_5F, 1
+	warp_event 15,  0, CELADON_DEPT_STORE_3F, 2
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore4FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore4FElevatorButton
+
+	def_object_events
+	object_event 13,  5, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore4FClerkScript, -1
+	object_event  7,  6, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore4FSuperNerdScript, -1
+	object_event  8,  2, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore4FYoungsterScript, -1

maps/CeladonDeptStore5F.asm

@@ -0,0 +1,91 @@
+	object_const_def
+	const CELADONDEPTSTORE5F_CLERK1
+	const CELADONDEPTSTORE5F_CLERK2
+	const CELADONDEPTSTORE5F_GENTLEMAN
+	const CELADONDEPTSTORE5F_SAILOR
+	const CELADONDEPTSTORE5F_TEACHER
+
+CeladonDeptStore5F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStore5FClerk1Script:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_5F_1
+	closetext
+	end
+
+CeladonDeptStore5FClerk2Script:
+	faceplayer
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CELADON_5F_2
+	closetext
+	end
+
+CeladonDeptStore5FGentlemanScript:
+	jumptextfaceplayer CeladonDeptStore5FGentlemanText
+
+CeladonDeptStore5FSailorScript:
+	jumptextfaceplayer CeladonDeptStore5FSailorText
+
+CeladonDeptStore5FTeacherScript:
+	jumptextfaceplayer CeladonDeptStore5FTeacherText
+
+CeladonDeptStore5FDirectory:
+	jumptext CeladonDeptStore5FDirectoryText
+
+CeladonDeptStore5FElevatorButton:
+	jumpstd ElevatorButtonScript
+
+CeladonDeptStore5FGentlemanText:
+	text "I want to buy some"
+	line "items that raise"
+
+	para "#MON stats, but"
+	line "I don't have"
+	cont "enough money…"
+	done
+
+CeladonDeptStore5FSailorText:
+	text "I want PP UP, so I"
+	line "can raise the PP"
+
+	para "of moves. But you"
+	line "can't buy it…"
+	done
+
+CeladonDeptStore5FTeacherText:
+	text "Using items on"
+	line "them makes #-"
+	cont "MON happy."
+
+	para "They hate certain"
+	line "items, though…"
+	done
+
+CeladonDeptStore5FDirectoryText:
+	text "5F: DRUG STORE"
+	done
+
+CeladonDeptStore5F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 12,  0, CELADON_DEPT_STORE_4F, 1
+	warp_event 15,  0, CELADON_DEPT_STORE_6F, 1
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore5FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore5FElevatorButton
+
+	def_object_events
+	object_event  7,  5, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore5FClerk1Script, -1
+	object_event  8,  5, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore5FClerk2Script, -1
+	object_event 13,  5, SPRITE_GENTLEMAN, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore5FGentlemanScript, -1
+	object_event  3,  4, SPRITE_SAILOR, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore5FSailorScript, -1
+	object_event  1,  7, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore5FTeacherScript, -1

maps/CeladonDeptStore6F.asm

@@ -0,0 +1,168 @@
+DEF CELADONDEPTSTORE6F_FRESH_WATER_PRICE EQU 200
+DEF CELADONDEPTSTORE6F_SODA_POP_PRICE    EQU 300
+DEF CELADONDEPTSTORE6F_LEMONADE_PRICE    EQU 350
+
+	object_const_def
+	const CELADONDEPTSTORE6F_SUPER_NERD
+	const CELADONDEPTSTORE6F_YOUNGSTER
+
+CeladonDeptStore6F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_TILES, CeladonDeptStore6FHideRooftopStairsCallback
+
+CeladonDeptStore6FHideRooftopStairsCallback:
+	changeblock 12, 0, $03 ; wall
+	endcallback
+
+CeladonDeptStore6FSuperNerdScript:
+	jumptextfaceplayer CeladonDeptStore6FSuperNerdText
+
+CeladonDeptStore6FYoungsterScript:
+	jumptextfaceplayer CeladonDeptStore6FYoungsterText
+
+CeladonDeptStore6FVendingMachine:
+	opentext
+	writetext CeladonVendingText
+.Start:
+	special PlaceMoneyTopRight
+	loadmenu .MenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .FreshWater
+	ifequal 2, .SodaPop
+	ifequal 3, .Lemonade
+	closetext
+	end
+
+.FreshWater:
+	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem FRESH_WATER
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_FRESH_WATER_PRICE
+	getitemname STRING_BUFFER_3, FRESH_WATER
+	sjump .VendItem
+
+.SodaPop:
+	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem SODA_POP
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_SODA_POP_PRICE
+	getitemname STRING_BUFFER_3, SODA_POP
+	sjump .VendItem
+
+.Lemonade:
+	checkmoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE
+	ifequal HAVE_LESS, .NotEnoughMoney
+	giveitem LEMONADE
+	iffalse .NotEnoughSpace
+	takemoney YOUR_MONEY, CELADONDEPTSTORE6F_LEMONADE_PRICE
+	getitemname STRING_BUFFER_3, LEMONADE
+	sjump .VendItem
+
+.VendItem:
+	pause 10
+	playsound SFX_ENTER_DOOR
+	writetext CeladonClangText
+	promptbutton
+	itemnotify
+	sjump .Start
+
+.NotEnoughMoney:
+	writetext CeladonVendingNoMoneyText
+	waitbutton
+	sjump .Start
+
+.NotEnoughSpace:
+	writetext CeladonVendingNoSpaceText
+	waitbutton
+	sjump .Start
+
+.MenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 2, SCREEN_WIDTH - 1, TEXTBOX_Y - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR ; flags
+	db 4 ; items
+	db "FRESH WATER  ¥{d:CELADONDEPTSTORE6F_FRESH_WATER_PRICE}@"
+	db "SODA POP     ¥{d:CELADONDEPTSTORE6F_SODA_POP_PRICE}@"
+	db "LEMONADE     ¥{d:CELADONDEPTSTORE6F_LEMONADE_PRICE}@"
+	db "CANCEL@"
+
+CeladonDeptStore6FDirectory:
+	jumptext CeladonDeptStore6FDirectoryText
+
+CeladonDeptStore6FElevatorButton: ; unreferenced
+	jumpstd ElevatorButtonScript
+
+CeladonVendingText:
+	text "A vending machine!"
+	line "Here's the menu."
+	done
+
+CeladonClangText:
+	text "Clang!"
+
+	para "@"
+	text_ram wStringBuffer3
+	text_start
+	line "popped out."
+	done
+
+CeladonVendingNoMoneyText:
+	text "Oops, not enough"
+	line "money…"
+	done
+
+CeladonVendingNoSpaceText:
+	text "There's no more"
+	line "room for stuff…"
+	done
+
+CeladonDeptStore6FSuperNerdText:
+	text "A vending machine"
+	line "with a prize rou-"
+	cont "lette…"
+
+	para "You never see"
+	line "those anymore."
+	done
+
+CeladonDeptStore6FYoungsterText:
+	text "Aww! There's no"
+	line "games here!"
+
+	para "I wanted to play…"
+	done
+
+CeladonDeptStore6FDirectoryText:
+	text "6F: ROOFTOP SQUARE"
+	line "VENDING MACHINES"
+	done
+
+CeladonDeptStore6F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 15,  0, CELADON_DEPT_STORE_5F, 2
+	warp_event  2,  0, CELADON_DEPT_STORE_ELEVATOR, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 14,  0, BGEVENT_READ, CeladonDeptStore6FDirectory
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStore1FElevatorButton
+	bg_event  8,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
+	bg_event  9,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
+	bg_event 10,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
+	bg_event 11,  1, BGEVENT_UP, CeladonDeptStore6FVendingMachine
+
+	def_object_events
+	object_event  9,  2, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FSuperNerdScript, -1
+	object_event 12,  5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 2, 1, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonDeptStore6FYoungsterScript, -1

maps/CeladonDeptStoreElevator.asm

@@ -0,0 +1,40 @@
+CeladonDeptStoreElevator_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonDeptStoreElevatorScript:
+	opentext
+	elevator CeladonDeptStoreElevatorData
+	closetext
+	iffalse .Done
+	pause 5
+	playsound SFX_ELEVATOR
+	earthquake 60
+	waitsfx
+.Done:
+	end
+
+CeladonDeptStoreElevatorData:
+	db 6 ; floors
+	elevfloor FLOOR_1F, 4, CELADON_DEPT_STORE_1F
+	elevfloor FLOOR_2F, 3, CELADON_DEPT_STORE_2F
+	elevfloor FLOOR_3F, 3, CELADON_DEPT_STORE_3F
+	elevfloor FLOOR_4F, 3, CELADON_DEPT_STORE_4F
+	elevfloor FLOOR_5F, 3, CELADON_DEPT_STORE_5F
+	elevfloor FLOOR_6F, 2, CELADON_DEPT_STORE_6F
+	db -1 ; end
+
+CeladonDeptStoreElevator_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  1,  3, CELADON_DEPT_STORE_1F, -1
+	warp_event  2,  3, CELADON_DEPT_STORE_1F, -1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3,  0, BGEVENT_READ, CeladonDeptStoreElevatorScript
+
+	def_object_events

maps/CeladonGameCorner.asm

@@ -0,0 +1,339 @@
+	object_const_def
+	const CELADONGAMECORNER_CLERK
+	const CELADONGAMECORNER_RECEPTIONIST
+	const CELADONGAMECORNER_POKEFAN_M
+	const CELADONGAMECORNER_TEACHER
+	const CELADONGAMECORNER_FISHING_GURU
+	const CELADONGAMECORNER_FISHER1
+	const CELADONGAMECORNER_FISHER2
+	const CELADONGAMECORNER_GYM_GUIDE
+	const CELADONGAMECORNER_GRAMPS
+
+CeladonGameCorner_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonGameCornerClerkScript:
+	jumpstd GameCornerCoinVendorScript
+
+CeladonGameCornerReceptionistScript:
+	jumptextfaceplayer CeladonGameCornerReceptionistText
+
+CeladonGameCornerPokefanMScript:
+	faceplayer
+	opentext
+	writetext CeladonGameCornerPokefanMText
+	waitbutton
+	closetext
+	turnobject CELADONGAMECORNER_POKEFAN_M, LEFT
+	end
+
+CeladonGameCornerTeacherScript:
+	faceplayer
+	opentext
+	writetext CeladonGameCornerTeacherText
+	waitbutton
+	closetext
+	turnobject CELADONGAMECORNER_TEACHER, RIGHT
+	end
+
+CeladonGameCornerFishingGuruScript:
+	faceplayer
+	opentext
+	writetext CeladonGameCornerFishingGuruText
+	waitbutton
+	closetext
+	turnobject CELADONGAMECORNER_FISHING_GURU, RIGHT
+	end
+
+CeladonGameCornerFisherScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
+	iftrue .GotCoins
+	writetext CeladonGameCornerFisherText1
+	promptbutton
+	checkitem COIN_CASE
+	iffalse .NoCoinCase
+	checkcoins MAX_COINS - 1
+	ifequal HAVE_MORE, .FullCoinCase
+	getstring STRING_BUFFER_4, .coinname
+	scall .GiveCoins
+	givecoins 18
+	setevent EVENT_GOT_COINS_FROM_GAMBLER_AT_CELADON
+.GotCoins:
+	writetext CeladonGameCornerFisherText2
+	waitbutton
+	closetext
+	turnobject LAST_TALKED, LEFT
+	end
+
+.GiveCoins:
+	jumpstd ReceiveItemScript
+	end
+
+.coinname
+	db "COIN@"
+
+.NoCoinCase:
+	writetext CeladonGameCornerFisherNoCoinCaseText
+	waitbutton
+	closetext
+	turnobject LAST_TALKED, LEFT
+	end
+
+.FullCoinCase:
+	writetext CeladonGameCornerFisherFullCoinCaseText
+	waitbutton
+	closetext
+	turnobject LAST_TALKED, LEFT
+	end
+
+CeladonGymGuideScript:
+	jumptextfaceplayer CeladonGymGuideText
+
+CeladonGameCornerGrampsScript:
+	faceplayer
+	opentext
+	writetext CeladonGameCornerGrampsText
+	waitbutton
+	closetext
+	turnobject CELADONGAMECORNER_GRAMPS, LEFT
+	end
+
+CeladonGameCornerPoster1Script:
+	jumptext CeladonGameCornerPoster1Text
+
+CeladonGameCornerPoster2Script:
+	jumptext CeladonGameCornerPoster2Text
+
+CeladonGameCornerLuckySlotMachineScript:
+	random 6
+	ifequal 0, CeladonGameCornerSlotMachineScript
+	refreshscreen
+	setval FALSE
+	special SlotMachine
+	closetext
+	end
+
+CeladonGameCornerSlotMachineScript:
+	refreshscreen
+	setval TRUE
+	special SlotMachine
+	closetext
+	end
+
+CeladonGameCornerCardFlipScript:
+	refreshscreen
+	special CardFlip
+	closetext
+	end
+
+CeladonGameCornerLighterScript:
+	jumptext CeladonGameCornerLighterText
+
+CeladonGameCornerSodaCanScript:
+	opentext
+	writetext CeladonGameCornerSodaCanText
+	waitbutton
+	special CardFlip
+	closetext
+	end
+
+CeladonGameCornerUnusedMovementData: ; unreferenced
+	step RIGHT
+	turn_head LEFT
+	step_end
+
+CeladonGameCornerReceptionistText:
+	text "Welcome!"
+
+	para "You may exchange"
+	line "your coins for"
+
+	para "fabulous prizes"
+	line "next door."
+	done
+
+CeladonGameCornerPokefanMText:
+	text "The slot machines"
+	line "are all state of"
+	cont "the art."
+	done
+
+CeladonGameCornerTeacherText:
+	text "It's this machine"
+	line "I want."
+
+	para "It cleaned me out"
+	line "yesterday, so it"
+
+	para "should pay out"
+	line "today."
+	done
+
+CeladonGameCornerFishingGuruText:
+	text "I think this slot"
+	line "machine will pay"
+	cont "out…"
+
+	para "The odds vary"
+	line "among machines."
+	done
+
+CeladonGameCornerFisherText1:
+	text "Gahahaha!"
+
+	para "The coins just"
+	line "keep popping out!"
+
+	para "Hm? What, kid? You"
+	line "want to play?"
+
+	para "I'll share my luck"
+	line "with you!"
+	done
+
+CeladonGameCornerFisherText2:
+	text "Gahahaha!"
+
+	para "It makes me feel"
+	line "good to do nice"
+
+	para "things for other"
+	line "people!"
+	done
+
+CeladonGameCornerFisherNoCoinCaseText:
+	text "Hey, you don't"
+	line "have a COIN CASE."
+
+	para "How am I supposed"
+	line "to give you any"
+	cont "coins, kid?"
+	done
+
+CeladonGameCornerFisherFullCoinCaseText:
+	text "Hey, your COIN"
+	line "CASE is full, kid."
+
+	para "You must be riding"
+	line "a winning streak"
+	cont "too."
+	done
+
+CeladonGymGuideText:
+	text "Hey! CHAMP in"
+	line "making!"
+
+	para "Are you playing"
+	line "the slots too?"
+
+	para "I'm trying to get"
+	line "enough coins for a"
+	cont "prize #MON."
+
+	para "But I don't have"
+	line "enough coins yet…"
+	done
+
+CeladonGameCornerGrampsText:
+	text "Hmmm… The odds are"
+	line "surely better for"
+
+	para "PIKACHU's line,"
+	line "but… What to do?"
+	done
+
+CeladonGameCornerPoster1Text:
+	text "Hey!"
+
+	para "Underneath this"
+	line "poster…"
+
+	para "There's nothing!"
+	done
+
+CeladonGameCornerPoster2Text:
+	text "Hey!"
+
+	para "Underneath this"
+	line "poster…"
+
+	para "There's nothing!"
+	done
+
+CeladonGameCornerLighterText:
+	text "There's a lighter"
+	line "here."
+	done
+
+CeladonGameCornerSodaCanText:
+	text "A can of soda…"
+
+	para "Someone must be"
+	line "coming back…"
+
+	para "Huh? It's empty!"
+	done
+
+CeladonGameCorner_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 14, 13, CELADON_CITY, 6
+	warp_event 15, 13, CELADON_CITY, 6
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  1,  6, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  1,  7, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  1,  8, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  1,  9, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  1, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  1, 11, BGEVENT_LEFT, CeladonGameCornerCardFlipScript
+	bg_event  6,  6, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  6,  7, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  6,  8, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  6,  9, BGEVENT_READ, CeladonGameCornerSodaCanScript
+	bg_event  6, 10, BGEVENT_READ, CeladonGameCornerCardFlipScript
+	bg_event  6, 11, BGEVENT_RIGHT, CeladonGameCornerCardFlipScript
+	bg_event  7,  6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event  7,  7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event  7,  8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event  7,  9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event  7, 10, BGEVENT_READ, CeladonGameCornerSlotMachineScript
+	bg_event  7, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12,  6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12,  7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12,  8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12,  9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 12, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13,  6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13,  7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13,  8, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13,  9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 13, 11, BGEVENT_LEFT, CeladonGameCornerLuckySlotMachineScript
+	bg_event 18,  6, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 18,  7, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 18,  8, BGEVENT_READ, CeladonGameCornerLighterScript
+	bg_event 18,  9, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 18, 10, BGEVENT_READ, CeladonGameCornerLuckySlotMachineScript
+	bg_event 18, 11, BGEVENT_RIGHT, CeladonGameCornerLuckySlotMachineScript
+	bg_event 15,  0, BGEVENT_READ, CeladonGameCornerPoster1Script
+	bg_event  9,  0, BGEVENT_READ, CeladonGameCornerPoster2Script
+
+	def_object_events
+	object_event  5,  2, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerClerkScript, -1
+	object_event  3,  2, SPRITE_RECEPTIONIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerReceptionistScript, -1
+	object_event 14, 10, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPokefanMScript, -1
+	object_event 17,  7, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerTeacherScript, -1
+	object_event 11,  7, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFishingGuruScript, -1
+	object_event  8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, DAY, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
+	object_event  8, 10, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, NITE, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerFisherScript, -1
+	object_event 11,  3, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGymGuideScript, -1
+	object_event  2,  8, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerGrampsScript, -1

maps/CeladonGameCorner.blk

@@ -0,0 +1 @@
+(
(
		'
















maps/CeladonGameCornerPrizeRoom.asm

@@ -0,0 +1,286 @@
+DEF CELADONGAMECORNERPRIZEROOM_TM32_COINS     EQU 1500
+DEF CELADONGAMECORNERPRIZEROOM_TM29_COINS     EQU 3500
+DEF CELADONGAMECORNERPRIZEROOM_TM15_COINS     EQU 7500
+DEF CELADONGAMECORNERPRIZEROOM_PIKACHU_COINS  EQU 2222
+DEF CELADONGAMECORNERPRIZEROOM_PORYGON_COINS  EQU 5555
+DEF CELADONGAMECORNERPRIZEROOM_LARVITAR_COINS EQU 8888
+
+	object_const_def
+	const CELADONGAMECORNERPRIZEROOM_GENTLEMAN
+	const CELADONGAMECORNERPRIZEROOM_PHARMACIST
+
+CeladonGameCornerPrizeRoom_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonGameCornerPrizeRoomGentlemanScript:
+	jumptextfaceplayer CeladonGameCornerPrizeRoomGentlemanText
+
+CeladonGameCornerPrizeRoomPharmacistScript:
+	jumptextfaceplayer CeladonGameCornerPrizeRoomPharmacistText
+
+CeladonGameCornerPrizeRoomTMVendor:
+	faceplayer
+	opentext
+	writetext CeladonPrizeRoom_PrizeVendorIntroText
+	waitbutton
+	checkitem COIN_CASE
+	iffalse CeladonPrizeRoom_NoCoinCase
+	writetext CeladonPrizeRoom_AskWhichPrizeText
+CeladonPrizeRoom_tmcounterloop:
+	special DisplayCoinCaseBalance
+	loadmenu CeladonPrizeRoom_TMMenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .DoubleTeam
+	ifequal 2, .Psychic
+	ifequal 3, .HyperBeam
+	sjump CeladonPrizeRoom_CancelPurchaseScript
+
+.DoubleTeam:
+	checkcoins CELADONGAMECORNERPRIZEROOM_TM32_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	getitemname STRING_BUFFER_3, TM_DOUBLE_TEAM
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	giveitem TM_DOUBLE_TEAM
+	iffalse CeladonPrizeRoom_notenoughroom
+	takecoins CELADONGAMECORNERPRIZEROOM_TM32_COINS
+	sjump CeladonPrizeRoom_purchased
+
+.Psychic:
+	checkcoins CELADONGAMECORNERPRIZEROOM_TM29_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	getitemname STRING_BUFFER_3, TM_PSYCHIC_M
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	giveitem TM_PSYCHIC_M
+	iffalse CeladonPrizeRoom_notenoughroom
+	takecoins CELADONGAMECORNERPRIZEROOM_TM29_COINS
+	sjump CeladonPrizeRoom_purchased
+
+.HyperBeam:
+	checkcoins CELADONGAMECORNERPRIZEROOM_TM15_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	getitemname STRING_BUFFER_3, TM_HYPER_BEAM
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	giveitem TM_HYPER_BEAM
+	iffalse CeladonPrizeRoom_notenoughroom
+	takecoins CELADONGAMECORNERPRIZEROOM_TM15_COINS
+	sjump CeladonPrizeRoom_purchased
+
+CeladonPrizeRoom_askbuy:
+	writetext CeladonPrizeRoom_ConfirmPurchaseText
+	yesorno
+	end
+
+CeladonPrizeRoom_purchased:
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CeladonPrizeRoom_HereYouGoText
+	waitbutton
+	sjump CeladonPrizeRoom_tmcounterloop
+
+CeladonPrizeRoom_notenoughcoins:
+	writetext CeladonPrizeRoom_NotEnoughCoinsText
+	waitbutton
+	closetext
+	end
+
+CeladonPrizeRoom_notenoughroom:
+	writetext CeladonPrizeRoom_NotEnoughRoomText
+	waitbutton
+	closetext
+	end
+
+CeladonPrizeRoom_CancelPurchaseScript:
+	writetext CeladonPrizeRoom_ComeAgainText
+	waitbutton
+	closetext
+	end
+
+CeladonPrizeRoom_NoCoinCase:
+	writetext CeladonPrizeRoom_NoCoinCaseText
+	waitbutton
+	closetext
+	end
+
+CeladonPrizeRoom_TMMenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 2, 15, TEXTBOX_Y - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR ; flags
+	db 4 ; items
+	db "TM32    {d:CELADONGAMECORNERPRIZEROOM_TM32_COINS}@"
+	db "TM29    {d:CELADONGAMECORNERPRIZEROOM_TM29_COINS}@"
+	db "TM15    {d:CELADONGAMECORNERPRIZEROOM_TM15_COINS}@"
+	db "CANCEL@"
+
+CeladonGameCornerPrizeRoomPokemonVendor:
+	faceplayer
+	opentext
+	writetext CeladonPrizeRoom_PrizeVendorIntroText
+	waitbutton
+	checkitem COIN_CASE
+	iffalse CeladonPrizeRoom_NoCoinCase
+.loop
+	writetext CeladonPrizeRoom_AskWhichPrizeText
+	special DisplayCoinCaseBalance
+	loadmenu .MenuHeader
+	verticalmenu
+	closewindow
+	ifequal 1, .Pikachu
+	ifequal 2, .Porygon
+	ifequal 3, .Larvitar
+	sjump CeladonPrizeRoom_CancelPurchaseScript
+
+.Pikachu:
+	checkcoins CELADONGAMECORNERPRIZEROOM_PIKACHU_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	readvar VAR_PARTYCOUNT
+	ifequal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
+	getmonname STRING_BUFFER_3, PIKACHU
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CeladonPrizeRoom_HereYouGoText
+	waitbutton
+	loadmonindex 1, PIKACHU
+	special GameCornerPrizeMonCheckDex
+	givepoke PIKACHU, 25
+	takecoins CELADONGAMECORNERPRIZEROOM_PIKACHU_COINS
+	sjump .loop
+
+.Porygon:
+	checkcoins CELADONGAMECORNERPRIZEROOM_PORYGON_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	readvar VAR_PARTYCOUNT
+	ifequal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
+	getmonname STRING_BUFFER_3, PORYGON
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CeladonPrizeRoom_HereYouGoText
+	waitbutton
+	loadmonindex 2, PORYGON
+	special GameCornerPrizeMonCheckDex
+	givepoke PORYGON, 15
+	takecoins CELADONGAMECORNERPRIZEROOM_PORYGON_COINS
+	sjump .loop
+
+.Larvitar:
+	checkcoins CELADONGAMECORNERPRIZEROOM_LARVITAR_COINS
+	ifequal HAVE_LESS, CeladonPrizeRoom_notenoughcoins
+	readvar VAR_PARTYCOUNT
+	ifequal PARTY_LENGTH, CeladonPrizeRoom_notenoughroom
+	getmonname STRING_BUFFER_3, LARVITAR
+	scall CeladonPrizeRoom_askbuy
+	iffalse CeladonPrizeRoom_CancelPurchaseScript
+	waitsfx
+	playsound SFX_TRANSACTION
+	writetext CeladonPrizeRoom_HereYouGoText
+	waitbutton
+	loadmonindex 3, LARVITAR
+	special GameCornerPrizeMonCheckDex
+	givepoke LARVITAR, 40
+	takecoins CELADONGAMECORNERPRIZEROOM_LARVITAR_COINS
+	sjump .loop
+
+.MenuHeader:
+	db MENU_BACKUP_TILES ; flags
+	menu_coords 0, 2, 17, TEXTBOX_Y - 1
+	dw .MenuData
+	db 1 ; default option
+
+.MenuData:
+	db STATICMENU_CURSOR ; flags
+	db 4 ; items
+	db "PIKACHU    {d:CELADONGAMECORNERPRIZEROOM_PIKACHU_COINS}@"
+	db "PORYGON    {d:CELADONGAMECORNERPRIZEROOM_PORYGON_COINS}@"
+	db "LARVITAR   {d:CELADONGAMECORNERPRIZEROOM_LARVITAR_COINS}@"
+	db "CANCEL@"
+
+CeladonGameCornerPrizeRoomGentlemanText:
+	text "I wanted PORYGON,"
+	line "but I was short by"
+	cont "100 coins…"
+	done
+
+CeladonGameCornerPrizeRoomPharmacistText:
+	text "Whew…"
+
+	para "I've got to stay"
+	line "calm and cool…"
+
+	para "I can't lose my"
+	line "cool, or I'll lose"
+	cont "all my money…"
+	done
+
+CeladonPrizeRoom_PrizeVendorIntroText:
+	text "Welcome!"
+
+	para "We exchange your"
+	line "coins for fabulous"
+	cont "prizes!"
+	done
+
+CeladonPrizeRoom_AskWhichPrizeText:
+	text "Which prize would"
+	line "you like?"
+	done
+
+CeladonPrizeRoom_ConfirmPurchaseText:
+	text "OK, so you wanted"
+	line "a @"
+	text_ram wStringBuffer3
+	text "?"
+	done
+
+CeladonPrizeRoom_HereYouGoText:
+	text "Here you go!"
+	done
+
+CeladonPrizeRoom_NotEnoughCoinsText:
+	text "You don't have"
+	line "enough coins."
+	done
+
+CeladonPrizeRoom_NotEnoughRoomText:
+	text "You have no room"
+	line "for it."
+	done
+
+CeladonPrizeRoom_ComeAgainText:
+	text "Oh. Please come"
+	line "back with coins!"
+	done
+
+CeladonPrizeRoom_NoCoinCaseText:
+	text "Oh? You don't have"
+	line "a COIN CASE."
+	done
+
+CeladonGameCornerPrizeRoom_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  5, CELADON_CITY, 7
+	warp_event  3,  5, CELADON_CITY, 7
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  2,  1, BGEVENT_READ, CeladonGameCornerPrizeRoomTMVendor
+	bg_event  4,  1, BGEVENT_READ, CeladonGameCornerPrizeRoomPokemonVendor
+
+	def_object_events
+	object_event  0,  2, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPrizeRoomGentlemanScript, -1
+	object_event  4,  4, SPRITE_PHARMACIST, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGameCornerPrizeRoomPharmacistScript, -1

maps/CeladonGameCornerPrizeRoom.blk

@@ -0,0 +1 @@
+





maps/CeladonGym.asm

@@ -0,0 +1,287 @@
+	object_const_def
+	const CELADONGYM_ERIKA
+	const CELADONGYM_LASS1
+	const CELADONGYM_LASS2
+	const CELADONGYM_BEAUTY
+	const CELADONGYM_TWIN1
+	const CELADONGYM_TWIN2
+
+CeladonGym_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonGymErikaScript:
+	faceplayer
+	opentext
+	checkflag ENGINE_RAINBOWBADGE
+	iftrue .FightDone
+	writetext ErikaBeforeBattleText
+	waitbutton
+	closetext
+	winlosstext ErikaBeatenText, 0
+	loadtrainer ERIKA, ERIKA1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_ERIKA
+	setevent EVENT_BEAT_LASS_MICHELLE
+	setevent EVENT_BEAT_PICNICKER_TANYA
+	setevent EVENT_BEAT_BEAUTY_JULIA
+	setevent EVENT_BEAT_TWINS_JO_AND_ZOE
+	opentext
+	writetext PlayerReceivedRainbowBadgeText
+	playsound SFX_GET_BADGE
+	waitsfx
+	setflag ENGINE_RAINBOWBADGE
+.FightDone:
+	checkevent EVENT_GOT_TM19_GIGA_DRAIN
+	iftrue .GotGigaDrain
+	writetext ErikaExplainTMText
+	promptbutton
+	verbosegiveitem TM_GIGA_DRAIN
+	iffalse .GotGigaDrain
+	setevent EVENT_GOT_TM19_GIGA_DRAIN
+.GotGigaDrain:
+	writetext ErikaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerLassMichelle:
+	trainer LASS, MICHELLE, EVENT_BEAT_LASS_MICHELLE, LassMichelleSeenText, LassMichelleBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext LassMichelleAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerPicnickerTanya:
+	trainer PICNICKER, TANYA, EVENT_BEAT_PICNICKER_TANYA, PicnickerTanyaSeenText, PicnickerTanyaBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext PicnickerTanyaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerBeautyJulia:
+	trainer BEAUTY, JULIA, EVENT_BEAT_BEAUTY_JULIA, BeautyJuliaSeenText, BeautyJuliaBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext BeautyJuliaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerTwinsJoAndZoe1:
+	trainer TWINS, JOANDZOE1, EVENT_BEAT_TWINS_JO_AND_ZOE, TwinsJoAndZoe1SeenText, TwinsJoAndZoe1BeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext TwinsJoAndZoe1AfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerTwinsJoAndZoe2:
+	trainer TWINS, JOANDZOE2, EVENT_BEAT_TWINS_JO_AND_ZOE, TwinsJoAndZoe2SeenText, TwinsJoAndZoe2BeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext TwinsJoAndZoe2AfterBattleText
+	waitbutton
+	closetext
+	end
+
+CeladonGymStatue:
+	checkflag ENGINE_RAINBOWBADGE
+	iftrue .Beaten
+	jumpstd GymStatue1Script
+.Beaten:
+	gettrainername STRING_BUFFER_4, ERIKA, ERIKA1
+	jumpstd GymStatue2Script
+
+ErikaBeforeBattleText:
+	text "ERIKA: Hello…"
+	line "Lovely weather,"
+
+	para "isn't it?"
+	line "It's so pleasant…"
+
+	para "…I'm afraid I may"
+	line "doze off…"
+
+	para "My name is ERIKA."
+	line "I am the LEADER of"
+	cont "CELADON GYM."
+
+	para "…Oh? All the way"
+	line "from JOHTO, you"
+	cont "say? How nice…"
+
+	para "Oh. I'm sorry, I"
+	line "didn't realize"
+
+	para "that you wished to"
+	line "challenge me."
+
+	para "Very well, but I"
+	line "shall not lose."
+	done
+
+ErikaBeatenText:
+	text "ERIKA: Oh!"
+	line "I concede defeat…"
+
+	para "You are remarkably"
+	line "strong…"
+
+	para "I shall give you"
+	line "RAINBOWBADGE…"
+	done
+
+PlayerReceivedRainbowBadgeText:
+	text "<PLAYER> received"
+	line "RAINBOWBADGE."
+	done
+
+ErikaExplainTMText:
+	text "ERIKA: That was a"
+	line "delightful match."
+
+	para "I felt inspired."
+	line "Please, I wish you"
+	cont "to have this TM."
+
+	para "It is GIGA DRAIN."
+
+	para "It is a wonderful"
+	line "move that drains"
+
+	para "half the damage it"
+	line "inflicts to heal"
+	cont "your #MON."
+
+	para "Please use it if"
+	line "it pleases you…"
+	done
+
+ErikaAfterBattleText:
+	text "ERIKA: Losing"
+	line "leaves a bitter"
+	cont "aftertaste…"
+
+	para "But knowing that"
+	line "there are strong"
+
+	para "trainers spurs me"
+	line "to do better…"
+	done
+
+LassMichelleSeenText:
+	text "Do you think a"
+	line "girls-only GYM"
+	cont "is rare?"
+	done
+
+LassMichelleBeatenText:
+	text "Oh, bleah!"
+	done
+
+LassMichelleAfterBattleText:
+	text "I just got care-"
+	line "less, that's all!"
+	done
+
+PicnickerTanyaSeenText:
+	text "Oh, a battle?"
+	line "That's kind of"
+	cont "scary, but OK!"
+	done
+
+PicnickerTanyaBeatenText:
+	text "Oh, that's it?"
+	done
+
+PicnickerTanyaAfterBattleText:
+	text "Oh, look at all"
+	line "your BADGES. No"
+
+	para "wonder I couldn't"
+	line "win!"
+	done
+
+BeautyJuliaSeenText:
+	text "Were you looking"
+	line "at these flowers"
+	cont "or at me?"
+	done
+
+BeautyJuliaBeatenText:
+	text "How annoying!"
+	done
+
+BeautyJuliaAfterBattleText:
+	text "How do I go about"
+	line "becoming ladylike"
+	cont "like ERIKA?"
+	done
+
+TwinsJoAndZoe1SeenText:
+	text "We'll show you"
+	line "#MON moves that"
+	cont "ERIKA taught us!"
+	done
+
+TwinsJoAndZoe1BeatenText:
+	text "Oh… We lost…"
+	done
+
+TwinsJoAndZoe1AfterBattleText:
+	text "ERIKA will get you"
+	line "back for us!"
+	done
+
+TwinsJoAndZoe2SeenText:
+	text "We're going to"
+	line "protect ERIKA!"
+	done
+
+TwinsJoAndZoe2BeatenText:
+	text "We couldn't win…"
+	done
+
+TwinsJoAndZoe2AfterBattleText:
+	text "ERIKA is much,"
+	line "much stronger!"
+	done
+
+CeladonGym_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 17, CELADON_CITY, 8
+	warp_event  5, 17, CELADON_CITY, 8
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3, 15, BGEVENT_READ, CeladonGymStatue
+	bg_event  6, 15, BGEVENT_READ, CeladonGymStatue
+
+	def_object_events
+	object_event  5,  3, SPRITE_ERIKA, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonGymErikaScript, -1
+	object_event  7,  8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerLassMichelle, -1
+	object_event  2,  8, SPRITE_LASS, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 2, TrainerPicnickerTanya, -1
+	object_event  3,  5, SPRITE_BEAUTY, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 2, TrainerBeautyJulia, -1
+	object_event  4, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsJoAndZoe1, -1
+	object_event  5, 10, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsJoAndZoe2, -1

maps/CeladonGym.blk

@@ -0,0 +1 @@
+ ###   ##!"

maps/CeladonMansion1F.asm

@@ -0,0 +1,96 @@
+	object_const_def
+	const CELADONMANSION1F_GRANNY
+	const CELADONMANSION1F_GROWLITHE1
+	const CELADONMANSION1F_CLEFAIRY
+	const CELADONMANSION1F_GROWLITHE2
+
+CeladonMansion1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonMansionManager:
+	jumptextfaceplayer CeladonMansionManagerText
+
+CeladonMansion1FMeowth:
+	opentext
+	writetext CeladonMansion1FMeowthText
+	cry MEOWTH
+	waitbutton
+	closetext
+	end
+
+CeladonMansion1FClefairy:
+	opentext
+	writetext CeladonMansion1FClefairyText
+	cry CLEFAIRY
+	waitbutton
+	closetext
+	end
+
+CeladonMansion1FNidoranF:
+	opentext
+	writetext CeladonMansion1FNidoranFText
+	cry NIDORAN_F
+	waitbutton
+	closetext
+	end
+
+CeladonMansionManagersSuiteSign:
+	jumptext CeladonMansionManagersSuiteSignText
+
+CeladonMansion1FBookshelf:
+	jumpstd PictureBookshelfScript
+
+CeladonMansionManagerText:
+	text "My dear #MON"
+	line "keep me company,"
+
+	para "so I don't ever"
+	line "feel lonely."
+
+	para "MEOWTH even brings"
+	line "money home."
+	done
+
+CeladonMansion1FMeowthText:
+	text "MEOWTH: Meow!"
+	done
+
+CeladonMansion1FClefairyText:
+	text "CLEFAIRY: Clef"
+	line "cleff!"
+	done
+
+CeladonMansion1FNidoranFText:
+	text "NIDORAN: Kya"
+	line "kyaoo!"
+	done
+
+CeladonMansionManagersSuiteSignText:
+	text "CELADON MANSION"
+	line "MANAGER'S SUITE"
+	done
+
+CeladonMansion1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  6,  9, CELADON_CITY, 2
+	warp_event  7,  9, CELADON_CITY, 2
+	warp_event  3,  0, CELADON_CITY, 3
+	warp_event  0,  0, CELADON_MANSION_2F, 1
+	warp_event  7,  0, CELADON_MANSION_2F, 4
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  5,  8, BGEVENT_UP, CeladonMansionManagersSuiteSign
+	bg_event  0,  3, BGEVENT_READ, CeladonMansion1FBookshelf
+	bg_event  2,  3, BGEVENT_READ, CeladonMansion1FBookshelf
+
+	def_object_events
+	object_event  1,  5, SPRITE_GRANNY, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonMansionManager, -1
+	object_event  2,  6, SPRITE_GROWLITHE, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonMansion1FMeowth, -1
+	object_event  3,  4, SPRITE_CLEFAIRY, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonMansion1FClefairy, -1
+	object_event  4,  4, SPRITE_GROWLITHE, SPRITEMOVEDATA_POKEMON, 2, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonMansion1FNidoranF, -1

maps/CeladonMansion1F.blk

@@ -0,0 +1,2 @@
+

+	

maps/CeladonMansion2F.asm

@@ -0,0 +1,66 @@
+CeladonMansion2F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonMansion2FComputer:
+	jumptext CeladonMansion2FComputerText
+
+CeladonMansion2FMeetingRoomSign:
+	jumptext CeladonMansion2FMeetingRoomSignText
+
+CeladonMansion2FBookshelf:
+	jumpstd DifficultBookshelfScript
+
+CeladonMansion2FComputerText:
+	text "<PLAYER> turned on"
+	line "the PC."
+
+	para "…"
+
+	para "Someone was in the"
+	line "middle of compos-"
+	cont "ing an e-mail."
+
+	para "…I hope you'll"
+	line "come visit KANTO."
+
+	para "I think you'll be"
+	line "surprised at how"
+
+	para "much things have"
+	line "changed here."
+
+	para "You'll also see"
+	line "many #MON that"
+
+	para "aren't native to"
+	line "JOHTO."
+
+	para "To the PRODUCER"
+
+	para "…"
+	done
+
+CeladonMansion2FMeetingRoomSignText:
+	text "GAME FREAK"
+	line "MEETING ROOM"
+	done
+
+CeladonMansion2F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  0,  0, CELADON_MANSION_1F, 4
+	warp_event  1,  0, CELADON_MANSION_3F, 2
+	warp_event  6,  0, CELADON_MANSION_3F, 3
+	warp_event  7,  0, CELADON_MANSION_1F, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  3, BGEVENT_READ, CeladonMansion2FComputer
+	bg_event  5,  8, BGEVENT_UP, CeladonMansion2FMeetingRoomSign
+	bg_event  2,  3, BGEVENT_READ, CeladonMansion2FBookshelf
+
+	def_object_events

maps/CeladonMansion2F.blk

@@ -0,0 +1,2 @@
+

+	

maps/CeladonMansion3F.asm

@@ -0,0 +1,211 @@
+	object_const_def
+	const CELADONMANSION3F_COOLTRAINER_M
+	const CELADONMANSION3F_GYM_GUIDE
+	const CELADONMANSION3F_SUPER_NERD
+	const CELADONMANSION3F_FISHER
+
+CeladonMansion3F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+GameFreakGameDesignerScript:
+	faceplayer
+	opentext
+	writetext GameFreakGameDesignerText
+	readvar VAR_DEXUNCAUGHT
+	ifless 3, .CompletedPokedex ; ignore Mew and Celebi
+	waitbutton
+	closetext
+	end
+
+.CompletedPokedex:
+	promptbutton
+	writetext GameFreakGameDesignerCompletedPokedexText
+	playsound SFX_DEX_FANFARE_230_PLUS
+	waitsfx
+	writetext GameFreakGameDesignerPauseForDiplomaText
+	promptbutton
+	special Diploma
+	writetext GameFreakGameDesignerAfterDiplomaText
+	waitbutton
+	closetext
+	setevent EVENT_ENABLE_DIPLOMA_PRINTING
+	end
+
+GameFreakGraphicArtistScript:
+	faceplayer
+	opentext
+	checkevent EVENT_ENABLE_DIPLOMA_PRINTING
+	iftrue .CanPrintDiploma
+	writetext GameFreakGraphicArtistText
+	waitbutton
+	closetext
+	end
+
+.CanPrintDiploma:
+	writetext GameFreakGraphicArtistPrintDiplomaText
+	yesorno
+	iffalse .Refused
+	special PrintDiploma
+	closetext
+	end
+
+.Refused:
+	writetext GameFreakGraphicArtistRefusedText
+	waitbutton
+	closetext
+	end
+
+.CancelPrinting: ; unreferenced
+	writetext GameFreakGraphicArtistErrorText
+	waitbutton
+	closetext
+	end
+
+GameFreakProgrammerScript:
+	jumptextfaceplayer GameFreakProgrammerText
+
+GameFreakCharacterDesignerScript:
+	jumptextfaceplayer GameFreakCharacterDesignerText
+
+CeladonMansion3FDevRoomSign:
+	jumptext CeladonMansion3FDevRoomSignText
+
+CeladonMansion3FDrawing:
+	jumptext CeladonMansion3FDrawingText
+
+CeladonMansion3FGameProgram:
+	jumptext CeladonMansion3FGameProgramText
+
+CeladonMansion3FReferenceMaterial:
+	jumptext CeladonMansion3FReferenceMaterialText
+
+GameFreakGameDesignerText:
+	text "Is that right?"
+
+	para "I'm the GAME"
+	line "DESIGNER!"
+
+	para "Filling up your"
+	line "#DEX is tough,"
+	cont "but don't give up!"
+	done
+
+GameFreakGameDesignerCompletedPokedexText:
+	text "Wow! Excellent!"
+	line "You completed your"
+	cont "#DEX!"
+
+	para "Congratulations!"
+	done
+
+GameFreakGameDesignerPauseForDiplomaText:
+	text "…"
+	done
+
+GameFreakGameDesignerAfterDiplomaText:
+	text "The GRAPHIC ARTIST"
+	line "will print out a"
+	cont "DIPLOMA for you."
+
+	para "You should go show"
+	line "it off."
+	done
+
+GameFreakGraphicArtistText:
+	text "I'm the GRAPHIC"
+	line "ARTIST."
+
+	para "I drew you!"
+	done
+
+GameFreakGraphicArtistPrintDiplomaText:
+	text "I'm the GRAPHIC"
+	line "ARTIST."
+
+	para "Oh, you completed"
+	line "your #DEX?"
+
+	para "Want me to print"
+	line "out your DIPLOMA?"
+	done
+
+GameFreakGraphicArtistRefusedText:
+	text "Give me a shout if"
+	line "you want your"
+	cont "DIPLOMA printed."
+	done
+
+GameFreakGraphicArtistErrorText:
+	text "Something's wrong."
+	line "I'll have to can-"
+	cont "cel printing."
+	done
+
+GameFreakProgrammerText:
+	text "Who, me? I'm the"
+	line "PROGRAMMER."
+
+	para "Play the slot"
+	line "machines!"
+	done
+
+GameFreakCharacterDesignerText:
+	text "Aren't the TWINS"
+	line "adorable?"
+
+	para "JASMINE's pretty"
+	line "too."
+
+	para "Oh, I love them!"
+	done
+
+CeladonMansion3FDevRoomSignText:
+	text "GAME FREAK"
+	line "DEVELOPMENT ROOM"
+	done
+
+CeladonMansion3FDrawingText:
+	text "It's a detailed"
+	line "drawing of a"
+	cont "pretty girl."
+	done
+
+CeladonMansion3FGameProgramText:
+	text "It's the game"
+	line "program. Messing"
+
+	para "with it could put"
+	line "a bug in the game!"
+	done
+
+CeladonMansion3FReferenceMaterialText:
+	text "It's crammed with"
+	line "reference materi-"
+	cont "als. There's even"
+	cont "a # DOLL."
+	done
+
+CeladonMansion3F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  0,  0, CELADON_MANSION_ROOF, 1
+	warp_event  1,  0, CELADON_MANSION_2F, 2
+	warp_event  6,  0, CELADON_MANSION_2F, 3
+	warp_event  7,  0, CELADON_MANSION_ROOF, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  5,  8, BGEVENT_UP, CeladonMansion3FDevRoomSign
+	bg_event  4,  3, BGEVENT_UP, CeladonMansion3FDrawing
+	bg_event  1,  6, BGEVENT_UP, CeladonMansion3FGameProgram
+	bg_event  1,  3, BGEVENT_UP, CeladonMansion3FReferenceMaterial
+
+	def_object_events
+	object_event  3,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GameFreakGameDesignerScript, -1
+	object_event  3,  4, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GameFreakGraphicArtistScript, -1
+	object_event  0,  7, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, GameFreakProgrammerScript, -1
+	object_event  0,  4, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, GameFreakCharacterDesignerScript, -1

maps/CeladonMansion3F.blk

@@ -0,0 +1 @@
+
	

maps/CeladonMansionRoof.asm

@@ -0,0 +1,48 @@
+	object_const_def
+	const CELADONMANSIONROOF_FISHER
+
+CeladonMansionRoof_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonMansionRoofFisherScript:
+	jumptextfaceplayer CeladonMansionRoofFisherText
+
+CeladonMansionRoofGraffiti:
+	jumptext CeladonMansionRoofGraffitiText
+
+CeladonMansionRoofFisherText:
+	text "High places--I do"
+	line "love them so!"
+
+	para "I'd say the only"
+	line "thing that loves"
+
+	para "heights as much as"
+	line "me is smoke!"
+	done
+
+CeladonMansionRoofGraffitiText:
+	text "There's graffiti"
+	line "on the wall…"
+
+	para "<PLAYER> added a"
+	line "moustache!"
+	done
+
+CeladonMansionRoof_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  1,  1, CELADON_MANSION_3F, 1
+	warp_event  6,  1, CELADON_MANSION_3F, 4
+	warp_event  2,  5, CELADON_MANSION_ROOF_HOUSE, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  6,  1, BGEVENT_LEFT, CeladonMansionRoofGraffiti
+
+	def_object_events
+	object_event  7,  5, SPRITE_FISHER, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonMansionRoofFisherScript, -1

maps/CeladonMansionRoof.blk

@@ -0,0 +1 @@
+$%"#(),+&',+!+*

maps/CeladonMansionRoofHouse.asm

@@ -0,0 +1,129 @@
+	object_const_def
+	const CELADONMANSIONROOFHOUSE_PHARMACIST
+
+CeladonMansionRoofHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonMansionRoofHousePharmacistScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_TM03_CURSE
+	iftrue .GotCurse
+	writetext CeladonMansionRoofHousePharmacistIntroText
+	promptbutton
+	checktime NITE
+	iftrue .Night
+	writetext CeladonMansionRoofHousePharmacistNotNightText
+	waitbutton
+	closetext
+	end
+
+.Night:
+	writetext CeladonMansionRoofHousePharmacistStoryText
+	promptbutton
+	verbosegiveitem TM_CURSE
+	iffalse .NoRoom
+	setevent EVENT_GOT_TM03_CURSE
+.GotCurse:
+	writetext CeladonMansionRoofHousePharmacistCurseText
+	waitbutton
+.NoRoom:
+	closetext
+	end
+
+CeladonMansionRoofHousePharmacistIntroText:
+	text "Let me recount a"
+	line "terrifying tale…"
+	done
+
+CeladonMansionRoofHousePharmacistNotNightText:
+	text "Then again, it's"
+	line "not as scary while"
+
+	para "it's still light"
+	line "outside."
+
+	para "Come back after"
+	line "sunset, OK?"
+	done
+
+CeladonMansionRoofHousePharmacistStoryText:
+	text "Once upon a time,"
+	line "there was a little"
+
+	para "boy who was given"
+	line "a new BICYCLE…"
+
+	para "He wanted to try"
+	line "it right away…"
+
+	para "He was having so"
+	line "much fun that he"
+
+	para "didn't notice the"
+	line "sun had set…"
+
+	para "While riding home"
+	line "in the pitch-black"
+
+	para "night, the bike"
+	line "suddenly slowed!"
+
+	para "The pedals became"
+	line "heavy!"
+
+	para "When he stopped"
+	line "pedaling, the bike"
+
+	para "began slipping"
+	line "backwards!"
+
+	para "It was as if the"
+	line "bike were cursed"
+
+	para "and trying to drag"
+	line "him into oblivion!"
+
+	para "…"
+
+	para "…"
+
+	para "SHRIEEEEK!"
+
+	para "The boy had been"
+	line "riding uphill on"
+	cont "CYCLING ROAD!"
+
+	para "…"
+	line "Ba-dum ba-dum!"
+
+	para "For listening so"
+	line "patiently, you may"
+	cont "take this--TM03!"
+	done
+
+CeladonMansionRoofHousePharmacistCurseText:
+	text "TM03 is CURSE."
+
+	para "It's a terrifying"
+	line "move that slowly"
+
+	para "whittles down the"
+	line "victim's HP."
+	done
+
+CeladonMansionRoofHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CELADON_MANSION_ROOF, 3
+	warp_event  3,  7, CELADON_MANSION_ROOF, 3
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  2, SPRITE_PHARMACIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 2, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonMansionRoofHousePharmacistScript, -1

maps/CeladonPokecenter1F.asm

@@ -0,0 +1,163 @@
+	object_const_def
+	const CELADONPOKECENTER1F_NURSE
+	const CELADONPOKECENTER1F_GENTLEMAN
+	const CELADONPOKECENTER1F_PHARMACIST
+	const CELADONPOKECENTER1F_COOLTRAINER_F
+	const CELADONPOKECENTER1F_EUSINE
+
+CeladonPokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+CeladonPokecenter1FGentlemanScript:
+	jumpstd HappinessCheckScript
+
+CeladonPokecenter1FCooltrainerFScript:
+	jumptextfaceplayer CeladonPokecenter1FCooltrainerFText
+
+CeladonPokecenter1FPharmacistScript:
+	jumptextfaceplayer CeladonPokecenter1FPharmacistText
+
+CeladonEusine:
+	faceplayer
+	opentext
+	writetext CeladonEusineText1
+	promptbutton
+	loadmonindex 1, SUICUNE
+	special MonCheck
+	iffalse .NoSuicune
+	special BeastsCheck
+	iftrue .HoOh
+	writetext NoBeastsText
+	waitbutton
+.NoSuicune:
+	closetext
+	end
+
+.HoOh:
+	writetext EusineLeavesCeladonText
+	waitbutton
+	closetext
+	readvar VAR_FACING
+	ifequal UP, .Location1
+	applymovement CELADONPOKECENTER1F_EUSINE, .Movement1
+	sjump .Continue
+
+.Location1:
+	applymovement CELADONPOKECENTER1F_EUSINE, .Movement2
+.Continue:
+	disappear CELADONPOKECENTER1F_EUSINE
+	playsound SFX_EXIT_BUILDING
+	waitsfx
+	end
+
+.Movement2:
+	step LEFT
+	step DOWN
+	step DOWN
+	step DOWN
+	step DOWN
+	step_end
+
+.Movement1:
+	step DOWN
+	step DOWN
+	step DOWN
+	step DOWN
+	step_end
+
+CeladonPokecenter1FCooltrainerFText:
+	text "ERIKA is a master"
+	line "of grass #MON."
+
+	para "She'll make you"
+	line "pay if you don't"
+	cont "watch yourself."
+	done
+
+CeladonPokecenter1FPharmacistText:
+	text "TEAM ROCKET's"
+	line "hideout is in the"
+
+	para "basement of the"
+	line "GAME CORNER."
+
+	para "Oh, wait. That was"
+	line "three years ago."
+	done
+
+CeladonEusineText1:
+	text "EUSINE: Hi!"
+
+	para "I'm back visiting"
+	line "my hometown."
+
+	para "It's been quite a"
+	line "while."
+	done
+
+EusineLeavesCeladonText:
+	text "<PLAYER>, have you"
+	line "heard?"
+
+	para "There have been"
+	line "fresh rumors of a"
+
+	para "rainbow-colored"
+	line "#MON appearing"
+	cont "at TIN TOWER."
+
+	para "I've just had my"
+	line "party healed, so"
+
+	para "now I'm headed to"
+	line "ECRUTEAK."
+
+	para "I'll be seeing"
+	line "you, <PLAYER>!"
+	done
+
+NoBeastsText:
+	text "Oh, by the way,"
+	line "<PLAYER>."
+
+	para "Have you caught"
+	line "the legendary"
+
+	para "#MON RAIKOU and"
+	line "ENTEI?"
+
+	para "<……><……><……>"
+
+	para "Okay…"
+
+	para "If you catch even"
+	line "one, I hope that"
+	cont "you'll inform me."
+
+	para "I'm counting on"
+	line "you, <PLAYER>!"
+	done
+
+CeladonPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, CELADON_CITY, 5
+	warp_event  4,  7, CELADON_CITY, 5
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonPokecenter1FNurseScript, -1
+	object_event  1,  5, SPRITE_GENTLEMAN, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeladonPokecenter1FGentlemanScript, -1
+	object_event  0,  3, SPRITE_PHARMACIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeladonPokecenter1FPharmacistScript, -1
+	object_event  8,  6, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeladonPokecenter1FCooltrainerFScript, -1
+	object_event  4,  3, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeladonEusine, EVENT_SET_WHEN_FOUGHT_HO_OH

maps/CeladonPokecenter2FBeta.asm

@@ -0,0 +1,16 @@
+CeladonPokecenter2FBeta_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeladonPokecenter2FBeta_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  0,  7, CELADON_POKECENTER_1F, 3
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events

maps/CeruleanCity.asm

@@ -0,0 +1,306 @@
+	object_const_def
+	const CERULEANCITY_COOLTRAINER_M
+	const CERULEANCITY_SUPER_NERD
+	const CERULEANCITY_SLOWPOKE
+	const CERULEANCITY_COOLTRAINER_F
+	const CERULEANCITY_FISHER
+	const CERULEANCITY_YOUNGSTER
+
+CeruleanCity_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, CeruleanCityFlypointCallback
+
+CeruleanCityFlypointCallback:
+	setflag ENGINE_FLYPOINT_CERULEAN
+	endcallback
+
+CeruleanCityCooltrainerMScript:
+	faceplayer
+	opentext
+	checkevent EVENT_RETURNED_MACHINE_PART
+	iftrue .ReturnedMachinePart
+	writetext CeruleanCityCooltrainerMText1
+	waitbutton
+	closetext
+	end
+
+.ReturnedMachinePart:
+	writetext CeruleanCityCooltrainerMText2
+	waitbutton
+	closetext
+	end
+
+CeruleanCitySuperNerdScript:
+	jumptextfaceplayer CeruleanCitySuperNerdText
+
+CeruleanCitySlowbro:
+	opentext
+	writetext CeruleanCitySlowbroText
+	cry SLOWBRO
+	waitbutton
+	closetext
+	end
+
+CeruleanCityCooltrainerFScript:
+	faceplayer
+	opentext
+	writetext CeruleanCityCooltrainerFText1
+	waitbutton
+	closetext
+	turnobject CERULEANCITY_COOLTRAINER_F, LEFT
+	opentext
+	writetext CeruleanCityCooltrainerFText2
+	waitbutton
+	closetext
+	opentext
+	writetext CeruleanCitySlowbroText
+	cry SLOWBRO
+	waitbutton
+	closetext
+	opentext
+	writetext CeruleanCityCooltrainerFText3
+	waitbutton
+	closetext
+	end
+
+CeruleanCityFisherScript:
+	faceplayer
+	opentext
+	checkevent EVENT_RETURNED_MACHINE_PART
+	iftrue .ReturnedMachinePart
+	checkevent EVENT_MET_ROCKET_GRUNT_AT_CERULEAN_GYM
+	iftrue .MetCeruleanRocket
+.ReturnedMachinePart:
+	writetext CeruleanCityFisherText
+	waitbutton
+	closetext
+	end
+
+.MetCeruleanRocket:
+	writetext CeruleanCityFisherRocketTipText
+	waitbutton
+	closetext
+	end
+
+CeruleanCityYoungsterScript:
+	faceplayer
+	opentext
+	writetext CeruleanCityYoungsterText1
+	waitbutton
+	closetext
+	checkevent EVENT_FOUND_BERSERK_GENE_IN_CERULEAN_CITY
+	iffalse .BerserkGenePingsItemfinder
+	end
+
+.BerserkGenePingsItemfinder:
+	waitsfx
+	playsound SFX_SECOND_PART_OF_ITEMFINDER
+	waitsfx
+	playsound SFX_TRANSACTION
+	waitsfx
+	playsound SFX_SECOND_PART_OF_ITEMFINDER
+	waitsfx
+	playsound SFX_TRANSACTION
+	waitsfx
+	playsound SFX_SECOND_PART_OF_ITEMFINDER
+	waitsfx
+	playsound SFX_TRANSACTION
+	waitsfx
+	playsound SFX_SECOND_PART_OF_ITEMFINDER
+	waitsfx
+	playsound SFX_TRANSACTION
+	waitsfx
+	showemote EMOTE_SHOCK, CERULEANCITY_YOUNGSTER, 15
+	turnobject CERULEANCITY_YOUNGSTER, LEFT
+	opentext
+	writetext CeruleanCityYoungsterText2
+	waitbutton
+	closetext
+	end
+
+CeruleanCitySign:
+	jumptext CeruleanCitySignText
+
+CeruleanGymSign:
+	jumptext CeruleanGymSignText
+
+CeruleanBikeShopSign:
+	jumptext CeruleanBikeShopSignText
+
+CeruleanPoliceSign:
+	jumptext CeruleanPoliceSignText
+
+CeruleanCapeSign:
+	jumptext CeruleanCapeSignText
+
+CeruleanLockedDoor:
+	jumptext CeruleanLockedDoorText
+
+CeruleanCityPokecenterSign:
+	jumpstd PokecenterSignScript
+
+CeruleanCityMartSign:
+	jumpstd MartSignScript
+
+CeruleanCityHiddenBerserkGene:
+	hiddenitem BERSERK_GENE, EVENT_FOUND_BERSERK_GENE_IN_CERULEAN_CITY
+
+CeruleanCityCooltrainerMText1:
+	text "KANTO's POWER"
+	line "PLANT?"
+
+	para "It's near the end"
+	line "of ROUTE 9, the"
+
+	para "road that heads"
+	line "east from here."
+
+	para "I think there was"
+	line "an accident of"
+	cont "some sort there."
+	done
+
+CeruleanCityCooltrainerMText2:
+	text "You're collecting"
+	line "every single kind"
+	cont "of #MON?"
+
+	para "That must be quite"
+	line "a challenge, but"
+	cont "it sounds fun too."
+	done
+
+CeruleanCitySuperNerdText:
+	text "The CAPE in the"
+	line "north is a good"
+
+	para "place for dates."
+	line "Girls like it!"
+	done
+
+CeruleanCitySlowbroText:
+	text "SLOWBRO: Yarah?"
+	done
+
+CeruleanCityCooltrainerFText1:
+	text "My SLOWBRO and I"
+	line "make an awesome"
+	cont "combination!"
+	done
+
+CeruleanCityCooltrainerFText2:
+	text "SLOWBRO, show me"
+	line "your CONFUSION!"
+	done
+
+CeruleanCityCooltrainerFText3:
+	text "…"
+	done
+
+CeruleanCityFisherText:
+	text "I'm a huge fan of"
+	line "CERULEAN GYM's"
+	cont "MISTY."
+	done
+
+CeruleanCityFisherRocketTipText:
+	text "I saw this shady"
+	line "guy go off toward"
+	cont "CERULEAN's CAPE."
+	done
+
+CeruleanCityYoungsterText1:
+	text "There used to be a"
+	line "cave here that had"
+
+	para "horribly powerful"
+	line "#MON in it."
+	done
+
+CeruleanCityYoungsterText2:
+	text "Ayuh?"
+
+	para "My ITEMFINDER is"
+	line "responding…"
+	done
+
+CeruleanCitySignText:
+	text "CERULEAN CITY"
+
+	para "A Mysterious Blue"
+	line "Aura Surrounds It"
+	done
+
+CeruleanGymSignText:
+	text "CERULEAN CITY"
+	line "#MON GYM"
+	cont "LEADER: MISTY"
+
+	para "The Tomboyish"
+	line "Mermaid"
+	done
+
+CeruleanBikeShopSignText:
+	text "There's a notice"
+	line "here…"
+
+	para "The BIKE SHOP has"
+	line "moved to GOLDENROD"
+	cont "CITY in JOHTO…"
+	done
+
+CeruleanPoliceSignText:
+	text "There's a notice"
+	line "here…"
+
+	para "Stamp out thievery"
+	line "and make the city"
+
+	para "a friendlier, more"
+	line "cheerful place!"
+
+	para "CERULEAN POLICE"
+	done
+
+CeruleanCapeSignText:
+	text "CERULEAN CAPE"
+	line "AHEAD"
+	done
+
+CeruleanLockedDoorText:
+	text "It's locked…"
+	done
+
+CeruleanCity_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  7, 15, CERULEAN_GYM_BADGE_SPEECH_HOUSE, 1
+	warp_event 28, 17, CERULEAN_POLICE_STATION, 1
+	warp_event 13, 19, CERULEAN_TRADE_SPEECH_HOUSE, 1
+	warp_event 19, 21, CERULEAN_POKECENTER_1F, 1
+	warp_event 30, 23, CERULEAN_GYM, 1
+	warp_event 25, 29, CERULEAN_MART, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 23, 23, BGEVENT_READ, CeruleanCitySign
+	bg_event 27, 25, BGEVENT_READ, CeruleanGymSign
+	bg_event 11, 29, BGEVENT_READ, CeruleanBikeShopSign
+	bg_event 25, 17, BGEVENT_READ, CeruleanPoliceSign
+	bg_event 23,  7, BGEVENT_READ, CeruleanCapeSign
+	bg_event 14, 29, BGEVENT_READ, CeruleanLockedDoor
+	bg_event 20, 21, BGEVENT_READ, CeruleanCityPokecenterSign
+	bg_event 26, 29, BGEVENT_READ, CeruleanCityMartSign
+	bg_event  2, 12, BGEVENT_ITEM, CeruleanCityHiddenBerserkGene
+
+	def_object_events
+	object_event 15, 23, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_WANDER, 2, 2, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeruleanCityCooltrainerMScript, -1
+	object_event 23, 15, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeruleanCitySuperNerdScript, -1
+	object_event 20, 24, SPRITE_SLOWPOKE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanCitySlowbro, -1
+	object_event 21, 24, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeruleanCityCooltrainerFScript, -1
+	object_event 30, 26, SPRITE_FISHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeruleanCityFisherScript, -1
+	object_event  6, 12, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_SLOW, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeruleanCityYoungsterScript, -1

maps/CeruleanCity.blk

@@ -0,0 +1,30 @@
+,,,,,,,)CPCCCCCC,+WWWWW%CN
+CCCCCC,)CCCCCCC
+
+
+m,)11m,)t
+t
+
+
+n1

m0m+%
+t
+






tttm%Ct
+t
+
+
+n
+





mCC		0	
+
10tCC









+Ntkk\	 !





Ntwww

+
+
+
+
+|r


+
PRQQN







/\aRttN

+tttttt

11_
NtttN






 !tt_
NtttN

+Vf
0	|s0_
NtttP
a
NtttN














NtttQQQm]n
+
+
+
+N]MQQQ@t

maps/CeruleanGym.asm

@@ -0,0 +1,383 @@
+	object_const_def
+	const CERULEANGYM_ROCKET
+	const CERULEANGYM_MISTY
+	const CERULEANGYM_SWIMMER_GIRL1
+	const CERULEANGYM_SWIMMER_GIRL2
+	const CERULEANGYM_SWIMMER_GUY
+	const CERULEANGYM_GYM_GUIDE
+
+CeruleanGym_MapScripts:
+	def_scene_scripts
+	scene_script CeruleanGymNoopScene,         SCENE_CERULEANGYM_NOOP
+	scene_script CeruleanGymGruntRunsOutScene, SCENE_CERULEANGYM_GRUNT_RUNS_OUT
+
+	def_callbacks
+
+CeruleanGymNoopScene:
+	end
+
+CeruleanGymGruntRunsOutScene:
+	sdefer CeruleanGymGruntRunsOutScript
+	end
+
+CeruleanGymGruntRunsOutScript:
+	applymovement CERULEANGYM_ROCKET, CeruleanGymGruntRunsDownMovement
+	playsound SFX_TACKLE
+	applymovement CERULEANGYM_ROCKET, CeruleanGymGruntRunsIntoYouMovement
+	playmusic MUSIC_ROCKET_ENCOUNTER
+	opentext
+	writetext CeruleanGymGruntIntroText
+	waitbutton
+	closetext
+	showemote EMOTE_SHOCK, CERULEANGYM_ROCKET, 15
+	applymovement CERULEANGYM_ROCKET, CeruleanGymGruntBacksAwayMovement
+	opentext
+	writetext CeruleanGymGruntBigMistakeText
+	waitbutton
+	closetext
+	applymovement CERULEANGYM_ROCKET, CeruleanGymGruntMovesCloseMovement
+	opentext
+	writetext CeruleanGymGruntByeText
+	waitbutton
+	closetext
+	applymovement CERULEANGYM_ROCKET, CeruleanGymGruntRunsOutMovement
+	playsound SFX_EXIT_BUILDING
+	disappear CERULEANGYM_ROCKET
+	setevent EVENT_MET_ROCKET_GRUNT_AT_CERULEAN_GYM
+	clearevent EVENT_ROUTE_24_ROCKET
+	clearevent EVENT_ROUTE_25_MISTY_BOYFRIEND
+	setscene SCENE_CERULEANGYM_NOOP
+	setmapscene ROUTE_25, SCENE_ROUTE25_MISTYS_DATE
+	setmapscene POWER_PLANT, SCENE_POWERPLANT_NOOP
+	waitsfx
+	special RestartMapMusic
+	pause 15
+	turnobject PLAYER, DOWN
+	pause 15
+	end
+
+CeruleanGymMistyScript:
+	faceplayer
+	opentext
+	checkflag ENGINE_CASCADEBADGE
+	iftrue .FightDone
+	writetext MistyIntroText
+	waitbutton
+	closetext
+	winlosstext MistyWinLossText, 0
+	loadtrainer MISTY, MISTY1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_MISTY
+	setevent EVENT_BEAT_SWIMMERF_DIANA
+	setevent EVENT_BEAT_SWIMMERF_BRIANA
+	setevent EVENT_BEAT_SWIMMERM_PARKER
+	opentext
+	writetext ReceivedCascadeBadgeText
+	playsound SFX_GET_BADGE
+	waitsfx
+	setflag ENGINE_CASCADEBADGE
+.FightDone:
+	writetext MistyFightDoneText
+	waitbutton
+	closetext
+	end
+
+TrainerSwimmerfDiana:
+	trainer SWIMMERF, DIANA, EVENT_BEAT_SWIMMERF_DIANA, SwimmerfDianaSeenText, SwimmerfDianaBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext SwimmerfDianaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerSwimmerfBriana:
+	trainer SWIMMERF, BRIANA, EVENT_BEAT_SWIMMERF_BRIANA, SwimmerfBrianaSeenText, SwimmerfBrianaBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext SwimmerfBrianaAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerSwimmermParker:
+	trainer SWIMMERM, PARKER, EVENT_BEAT_SWIMMERM_PARKER, SwimmermParkerSeenText, SwimmermParkerBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext SwimmermParkerAfterBattleText
+	waitbutton
+	closetext
+	end
+
+CeruleanGymGuideScript:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_MISTY
+	iftrue .CeruleanGymGuideWinScript
+	writetext CeruleanGymGuideText
+	waitbutton
+	closetext
+	end
+
+.CeruleanGymGuideWinScript:
+	writetext CeruleanGymGuideWinText
+	waitbutton
+	closetext
+	end
+
+CeruleanGymHiddenMachinePart:
+	hiddenitem MACHINE_PART, EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM
+
+CeruleanGymStatue1:
+	checkevent EVENT_TRAINERS_IN_CERULEAN_GYM
+	iffalse CeruleanGymStatue
+	opentext
+	writetext CeruleanGymNote1Text
+	waitbutton
+	closetext
+	end
+
+CeruleanGymStatue2:
+	checkevent EVENT_TRAINERS_IN_CERULEAN_GYM
+	iffalse CeruleanGymStatue
+	opentext
+	writetext CeruleanGymNote2Text
+	waitbutton
+	closetext
+	end
+
+CeruleanGymStatue:
+	checkflag ENGINE_CASCADEBADGE
+	iftrue .Beaten
+	jumpstd GymStatue1Script
+.Beaten:
+	gettrainername STRING_BUFFER_4, MISTY, MISTY1
+	jumpstd GymStatue2Script
+
+CeruleanGymGruntRunsDownMovement:
+	big_step DOWN
+	big_step DOWN
+	big_step DOWN
+	big_step DOWN
+	step_end
+
+CeruleanGymGruntRunsOutMovement:
+	big_step RIGHT
+	big_step DOWN
+	step_end
+
+CeruleanGymGruntRunsIntoYouMovement:
+	fix_facing
+	set_sliding
+	jump_step UP
+	remove_sliding
+	remove_fixed_facing
+	step_sleep 8
+	step_sleep 8
+	step DOWN
+	step DOWN
+	step_end
+
+CeruleanGymGruntMovesCloseMovement:
+	big_step DOWN
+	step_end
+
+CeruleanGymGruntBacksAwayMovement:
+	fix_facing
+	slow_step UP
+	remove_fixed_facing
+	step_end
+
+CeruleanGymGruntIntroText:
+	text "Oops! I so sorry!"
+	line "You not hurt,"
+	cont "okay?"
+
+	para "I very busy."
+	line "No time for talk-"
+	cont "ing with you. Not"
+	cont "good for me if"
+	cont "seen by somebody."
+	done
+
+CeruleanGymGruntBigMistakeText:
+	text "Oh no! You seen"
+	line "me already! I make"
+	cont "big mistake!"
+	done
+
+CeruleanGymGruntByeText:
+	text "Hey, you! Forget"
+	line "you see me, okay?"
+
+	para "You see, hear,"
+	line "know nothing,"
+
+	para "okay?"
+	line "Bye, kid! Nothing!"
+
+	para "Bye-bye a go-go!"
+	done
+
+CeruleanGymNote1Text:
+	text "Sorry, I'll be out"
+	line "for a while."
+	cont "MISTY, GYM LEADER"
+	done
+
+CeruleanGymNote2Text:
+	text "Since MISTY's out,"
+	line "we'll be away too."
+	cont "GYM TRAINERS"
+	done
+
+MistyIntroText:
+	text "MISTY: I was ex-"
+	line "pecting you, you"
+	cont "pest!"
+
+	para "You may have a"
+	line "lot of JOHTO GYM"
+
+	para "BADGES, but you'd"
+	line "better not take me"
+	cont "too lightly."
+
+	para "My water-type"
+	line "#MON are tough!"
+	done
+
+MistyWinLossText:
+	text "MISTY: You really"
+	line "are good…"
+
+	para "I'll admit that"
+	line "you are skilled…"
+
+	para "Here you go. It's"
+	line "CASCADEBADGE."
+	done
+
+ReceivedCascadeBadgeText:
+	text "<PLAYER> received"
+	line "CASCADEBADGE."
+	done
+
+MistyFightDoneText:
+	text "MISTY: Are there"
+	line "many strong train-"
+	cont "ers in JOHTO? Like"
+	cont "you, I mean."
+
+	para "I'm going to"
+	line "travel one day, so"
+
+	para "I can battle some"
+	line "skilled trainers."
+	done
+
+SwimmerfDianaSeenText:
+	text "Sorry about being"
+	line "away. Let's get on"
+	cont "with it!"
+	done
+
+SwimmerfDianaBeatenText:
+	text "I give up! You're"
+	line "the winner!"
+	done
+
+SwimmerfDianaAfterBattleText:
+	text "I'll be swimming"
+	line "quietly."
+	done
+
+SwimmerfBrianaSeenText:
+	text "Don't let my ele-"
+	line "gant swimming un-"
+	cont "nerve you."
+	done
+
+SwimmerfBrianaBeatenText:
+	text "Ooh, you calmly"
+	line "disposed of me…"
+	done
+
+SwimmerfBrianaAfterBattleText:
+	text "Don't be too smug"
+	line "about beating me."
+
+	para "MISTY will destroy"
+	line "you if you get"
+	cont "complacent."
+	done
+
+SwimmermParkerSeenText:
+	text "Glub…"
+
+	para "I'm first! Come"
+	line "and get me!"
+	done
+
+SwimmermParkerBeatenText:
+	text "This can't be…"
+	done
+
+SwimmermParkerAfterBattleText:
+	text "MISTY has gotten"
+	line "much better in the"
+	cont "past few years."
+
+	para "Don't let your"
+	line "guard down, or"
+	cont "you'll be crushed!"
+	done
+
+CeruleanGymGuideText:
+	text "Yo! CHAMP in"
+	line "making!"
+
+	para "Since MISTY was"
+	line "away, I went out"
+
+	para "for some fun too."
+	line "He-he-he."
+	done
+
+CeruleanGymGuideWinText:
+	text "Hoo, you showed me"
+	line "how tough you are."
+
+	para "As always, that"
+	line "was one heck of a"
+	cont "great battle!"
+	done
+
+CeruleanGym_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 15, CERULEAN_CITY, 5
+	warp_event  5, 15, CERULEAN_CITY, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3,  8, BGEVENT_ITEM, CeruleanGymHiddenMachinePart
+	bg_event  2, 13, BGEVENT_READ, CeruleanGymStatue1
+	bg_event  6, 13, BGEVENT_READ, CeruleanGymStatue2
+
+	def_object_events
+	object_event  4, 10, SPRITE_ROCKET, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_CERULEAN_GYM_ROCKET
+	object_event  5,  3, SPRITE_MISTY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeruleanGymMistyScript, EVENT_TRAINERS_IN_CERULEAN_GYM
+	object_event  4,  6, SPRITE_SWIMMER_GIRL, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 3, TrainerSwimmerfDiana, EVENT_TRAINERS_IN_CERULEAN_GYM
+	object_event  1,  9, SPRITE_SWIMMER_GIRL, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 1, TrainerSwimmerfBriana, EVENT_TRAINERS_IN_CERULEAN_GYM
+	object_event  8,  9, SPRITE_SWIMMER_GUY, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 3, TrainerSwimmermParker, EVENT_TRAINERS_IN_CERULEAN_GYM
+	object_event  7, 13, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeruleanGymGuideScript, EVENT_TRAINERS_IN_CERULEAN_GYM

maps/CeruleanGym.blk

@@ -0,0 +1,2 @@
++++++76968.'')/.-/.4/.'&
+/.2&2/11311

maps/CeruleanGymBadgeSpeechHouse.asm

@@ -0,0 +1,29 @@
+	object_const_def
+	const CERULEANGYMBADGESPEECHHOUSE_POKEFAN_M
+
+CeruleanGymBadgeSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanGymBadgeSpeechHousePokefanMScript:
+	jumptextfaceplayer CeruleanGymBadgeSpeechHousePokefanMText
+
+CeruleanGymBadgeSpeechHousePokefanMText:
+	text "Are you collecting"
+	line "KANTO GYM BADGES?"
+	done
+
+CeruleanGymBadgeSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CERULEAN_CITY, 1
+	warp_event  3,  7, CERULEAN_CITY, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanGymBadgeSpeechHousePokefanMScript, -1

maps/CeruleanMart.asm

@@ -0,0 +1,60 @@
+	object_const_def
+	const CERULEANMART_CLERK
+	const CERULEANMART_COOLTRAINER_M
+	const CERULEANMART_COOLTRAINER_F
+
+CeruleanMart_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanMart_Clerk:
+	opentext
+	pokemart MARTTYPE_STANDARD, MART_CERULEAN
+	closetext
+	end
+
+CeruleanMart_CooltrainerM:
+	jumptextfaceplayer CeruleanMart_CooltrainerMText
+
+CeruleanMart_CooltrainerF:
+	jumptextfaceplayer CeruleanMart_CooltrainerFText
+
+CeruleanMart_CooltrainerMText:
+	text "You'll run into"
+	line "many trainers on"
+
+	para "the way to CERU-"
+	line "LEAN's CAPE."
+
+	para "They want to see"
+	line "how they stack"
+
+	para "up against other"
+	line "trainers."
+	done
+
+CeruleanMart_CooltrainerFText:
+	text "MISTY is about the"
+	line "only person in"
+
+	para "town who can beat"
+	line "the trainers at"
+	cont "CERULEAN's CAPE."
+	done
+
+CeruleanMart_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CERULEAN_CITY, 6
+	warp_event  3,  7, CERULEAN_CITY, 6
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  1,  3, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanMart_Clerk, -1
+	object_event  1,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeruleanMart_CooltrainerM, -1
+	object_event  7,  2, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CeruleanMart_CooltrainerF, -1

maps/CeruleanPokecenter1F.asm

@@ -0,0 +1,78 @@
+	object_const_def
+	const CERULEANPOKECENTER1F_NURSE
+	const CERULEANPOKECENTER1F_SUPER_NERD
+	const CERULEANPOKECENTER1F_GYM_GUIDE
+
+CeruleanPokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+CeruleanPokecenter1FSuperNerdScript:
+	special Mobile_DummyReturnFalse
+	iftrue .mobile
+	jumptextfaceplayer CeruleanPokecenter1FSuperNerdText
+
+.mobile
+	jumptextfaceplayer CeruleanPokecenter1FSuperNerdText_Mobile
+
+CeruleanPokecenter1FGymGuideScript:
+	jumptextfaceplayer CeruleanPokecenter1FGymGuideText
+
+CeruleanPokecenter1FSuperNerdText:
+	text "For battles, I'd"
+	line "much rather use"
+
+	para "#MON I've been"
+	line "raising, even if"
+
+	para "they're weaker"
+	line "than some newly"
+	cont "caught #MON."
+	done
+
+CeruleanPokecenter1FSuperNerdText_Mobile:
+	text "Do you battle by"
+	line "mobile phone?"
+
+	para "If time runs out"
+	line "during a battle,"
+
+	para "waiting to see who"
+	line "won is really"
+	cont "nerve wracking."
+	done
+
+CeruleanPokecenter1FGymGuideText:
+	text "The MAGNET TRAIN"
+	line "travels at over"
+
+	para "340 mph. It goes"
+	line "between KANTO and"
+
+	para "JOHTO in almost no"
+	line "time at all."
+
+	para "It really makes"
+	line "JOHTO accessible."
+	done
+
+CeruleanPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, CERULEAN_CITY, 4
+	warp_event  4,  7, CERULEAN_CITY, 4
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanPokecenter1FNurseScript, -1
+	object_event  8,  4, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanPokecenter1FSuperNerdScript, -1
+	object_event  1,  5, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeruleanPokecenter1FGymGuideScript, -1

maps/CeruleanPokecenter2FBeta.asm

@@ -0,0 +1,16 @@
+CeruleanPokecenter2FBeta_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanPokecenter2FBeta_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  0,  7, CERULEAN_POKECENTER_1F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events

maps/CeruleanPoliceStation.asm

@@ -0,0 +1,58 @@
+	object_const_def
+	const CERULEANPOLICESTATION_FISHING_GURU
+	const CERULEANPOLICESTATION_POKEFAN_F
+	const CERULEANPOLICESTATION_DIGLETT
+
+CeruleanPoliceStation_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanPoliceStationFishingGuruScript:
+	jumptextfaceplayer CeruleanPoliceStationFishingGuruText
+
+CeruleanPoliceStationPokefanFScript:
+	jumptextfaceplayer CeruleanPoliceStationPokefanFText
+
+CeruleanDiglett:
+	opentext
+	writetext CeruleanDiglettText
+	cry DIGLETT
+	waitbutton
+	closetext
+	end
+
+CeruleanPoliceStationFishingGuruText:
+	text "I heard that some"
+	line "shady character is"
+	cont "skulking about."
+
+	para "I won't stand for"
+	line "it if he turns out"
+	cont "to be a thief."
+	done
+
+CeruleanPoliceStationPokefanFText:
+	text "We were held up by"
+	line "robbers before."
+	done
+
+CeruleanDiglettText:
+	text "DIGLETT: Dug dug."
+	done
+
+CeruleanPoliceStation_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CERULEAN_CITY, 2
+	warp_event  3,  7, CERULEAN_CITY, 2
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  5,  1, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeruleanPoliceStationFishingGuruScript, -1
+	object_event  5,  4, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeruleanPoliceStationPokefanFScript, -1
+	object_event  3,  5, SPRITE_DIGLETT, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CeruleanDiglett, -1

maps/CeruleanTradeSpeechHouse.asm

@@ -0,0 +1,69 @@
+	object_const_def
+	const CERULEANTRADESPEECHHOUSE_GRANNY
+	const CERULEANTRADESPEECHHOUSE_GRAMPS
+	const CERULEANTRADESPEECHHOUSE_RHYDON
+	const CERULEANTRADESPEECHHOUSE_ZUBAT
+
+CeruleanTradeSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CeruleanTradeSpeechHouseGrannyScript:
+	jumptextfaceplayer CeruleanTradeSpeechHouseGrannyText
+
+CeruleanTradeSpeechHouseGrampsScript:
+	jumptextfaceplayer CeruleanTradeSpeechHouseGrampsText
+
+CeruleanTradeSpeechHouseRhydonScript:
+	opentext
+	writetext CeruleanTradeSpeechHouseRhydonText
+	cry KANGASKHAN
+	waitbutton
+	closetext
+	end
+
+CeruleanTradeSpeechHouseZubatScript:
+	opentext
+	writetext CeruleanTradeSpeechHouseZubatText
+	cry ZUBAT
+	waitbutton
+	closetext
+	end
+
+CeruleanTradeSpeechHouseGrannyText:
+	text "My husband lives"
+	line "happily with #-"
+	cont "MON he got through"
+	cont "trades."
+	done
+
+CeruleanTradeSpeechHouseGrampsText:
+	text "Ah… I'm so happy…"
+	done
+
+CeruleanTradeSpeechHouseRhydonText:
+	text "KANGASKHAN: Garu"
+	line "garuu."
+	done
+
+CeruleanTradeSpeechHouseZubatText:
+	text "ZUBAT: Zuba zubaa."
+	done
+
+CeruleanTradeSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CERULEAN_CITY, 3
+	warp_event  3,  7, CERULEAN_CITY, 3
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  4, SPRITE_GRANNY, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CeruleanTradeSpeechHouseGrannyScript, -1
+	object_event  1,  2, SPRITE_GRAMPS, SPRITEMOVEDATA_WANDER, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CeruleanTradeSpeechHouseGrampsScript, -1
+	object_event  5,  2, SPRITE_RHYDON, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CeruleanTradeSpeechHouseRhydonScript, -1
+	object_event  5,  6, SPRITE_ZUBAT, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CeruleanTradeSpeechHouseZubatScript, -1

maps/CharcoalKiln.asm

@@ -0,0 +1,166 @@
+	object_const_def
+	const CHARCOALKILN_BLACK_BELT
+	const CHARCOALKILN_YOUNGSTER
+	const CHARCOALKILN_MOLTRES
+
+CharcoalKiln_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CharcoalKilnBoss:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_HM01_CUT
+	iftrue .GotCut
+	checkevent EVENT_CLEARED_SLOWPOKE_WELL
+	iftrue .SavedSlowpoke
+	writetext CharcoalKilnBossText1
+	waitbutton
+	closetext
+	end
+
+.SavedSlowpoke:
+	writetext CharcoalKilnBossText2
+	waitbutton
+	closetext
+	end
+
+.GotCut:
+	writetext CharcoalKilnBossText3
+	waitbutton
+	closetext
+	end
+
+CharcoalKilnApprentice:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_CHARCOAL_IN_CHARCOAL_KILN
+	iftrue .YoureTheCoolest
+	checkevent EVENT_GOT_HM01_CUT
+	iftrue .Thanks
+	writetext CharcoalKilnApprenticeText1
+	waitbutton
+	closetext
+	end
+
+.Thanks:
+	writetext CharcoalKilnApprenticeText2
+	promptbutton
+	verbosegiveitem CHARCOAL
+	iffalse .Done
+	setevent EVENT_GOT_CHARCOAL_IN_CHARCOAL_KILN
+	closetext
+	end
+
+.YoureTheCoolest:
+	writetext CharcoalKilnApprenticeText3
+	waitbutton
+.Done:
+	closetext
+	end
+
+CharcoalKilnFarfetchd:
+	faceplayer
+	opentext
+	writetext FarfetchdText
+	cry FARFETCH_D
+	waitbutton
+	closetext
+	end
+
+CharcoalKilnBookshelf:
+	jumpstd MagazineBookshelfScript
+
+CharcoalKilnRadio:
+	jumpstd Radio2Script
+
+CharcoalKilnBossText1:
+	text "All the SLOWPOKE"
+	line "have disappeared"
+	cont "from the town."
+
+	para "The forest's pro-"
+	line "tector may be"
+	cont "angry with us…"
+
+	para "It may be a bad"
+	line "omen. We should"
+	cont "stay in."
+	done
+
+CharcoalKilnBossText2:
+	text "The SLOWPOKE have"
+	line "returned…"
+
+	para "But my APPRENTICE"
+	line "hasn't come back"
+	cont "from ILEX FOREST."
+
+	para "Where in the world"
+	line "is that lazy guy?"
+	done
+
+CharcoalKilnBossText3:
+	text "You chased off"
+	line "TEAM ROCKET and"
+
+	para "went to ILEX"
+	line "FOREST alone?"
+
+	para "That takes guts!"
+	line "I like that. Come"
+	cont "train with us."
+	done
+
+CharcoalKilnApprenticeText1:
+	text "Where have all the"
+	line "SLOWPOKE gone?"
+
+	para "Are they out play-"
+	line "ing somewhere?"
+	done
+
+CharcoalKilnApprenticeText2:
+	text "I'm sorry--I for-"
+	line "got to thank you."
+
+	para "This is CHARCOAL"
+	line "that I made."
+
+	para "Fire-type #MON"
+	line "would be happy to"
+	cont "hold that."
+	done
+
+CharcoalKilnApprenticeText3:
+	text "The SLOWPOKE came"
+	line "back, and you even"
+	cont "found FARFETCH'D."
+
+	para "You're the cool-"
+	line "est, man!"
+	done
+
+FarfetchdText:
+	text "FARFETCH'D: Kwaa!"
+	done
+
+CharcoalKiln_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, AZALEA_TOWN, 2
+	warp_event  3,  7, AZALEA_TOWN, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CharcoalKilnBookshelf
+	bg_event  1,  1, BGEVENT_READ, CharcoalKilnBookshelf
+	bg_event  7,  1, BGEVENT_READ, CharcoalKilnRadio
+
+	def_object_events
+	object_event  2,  3, SPRITE_BLACK_BELT, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CharcoalKilnBoss, EVENT_CHARCOAL_KILN_BOSS
+	object_event  5,  3, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CharcoalKilnApprentice, EVENT_CHARCOAL_KILN_APPRENTICE
+	object_event  5,  6, SPRITE_MOLTRES, SPRITEMOVEDATA_POKEMON, 2, 2, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CharcoalKilnFarfetchd, EVENT_CHARCOAL_KILN_FARFETCH_D

maps/CherrygroveCity.asm

@@ -0,0 +1,572 @@
+	object_const_def
+	const CHERRYGROVECITY_GRAMPS
+	const CHERRYGROVECITY_RIVAL
+	const CHERRYGROVECITY_TEACHER
+	const CHERRYGROVECITY_YOUNGSTER
+	const CHERRYGROVECITY_FISHER
+
+CherrygroveCity_MapScripts:
+	def_scene_scripts
+	scene_script CherrygroveCityNoop1Scene, SCENE_CHERRYGROVECITY_NOOP
+	scene_script CherrygroveCityNoop2Scene, SCENE_CHERRYGROVECITY_MEET_RIVAL
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, CherrygroveCityFlypointCallback
+
+CherrygroveCityNoop1Scene:
+	end
+
+CherrygroveCityNoop2Scene:
+	end
+
+CherrygroveCityFlypointCallback:
+	setflag ENGINE_FLYPOINT_CHERRYGROVE
+	endcallback
+
+CherrygroveCityGuideGent:
+	faceplayer
+	opentext
+	writetext GuideGentIntroText
+	yesorno
+	iffalse .No
+	sjump .Yes
+.Yes:
+	writetext GuideGentTourText1
+	waitbutton
+	closetext
+	playmusic MUSIC_SHOW_ME_AROUND
+	follow CHERRYGROVECITY_GRAMPS, PLAYER
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement1
+	opentext
+	writetext GuideGentPokecenterText
+	waitbutton
+	closetext
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement2
+	turnobject PLAYER, UP
+	opentext
+	writetext GuideGentMartText
+	waitbutton
+	closetext
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement3
+	turnobject PLAYER, UP
+	opentext
+	writetext GuideGentRoute30Text
+	waitbutton
+	closetext
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement4
+	turnobject PLAYER, LEFT
+	opentext
+	writetext GuideGentSeaText
+	waitbutton
+	closetext
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement5
+	turnobject PLAYER, UP
+	pause 60
+	turnobject CHERRYGROVECITY_GRAMPS, LEFT
+	turnobject PLAYER, RIGHT
+	opentext
+	writetext GuideGentGiftText
+	promptbutton
+	getstring STRING_BUFFER_4, .mapcardname
+	scall .JumpstdReceiveItem
+	setflag ENGINE_MAP_CARD
+	writetext GotMapCardText
+	promptbutton
+	writetext GuideGentPokegearText
+	waitbutton
+	closetext
+	stopfollow
+	special RestartMapMusic
+	turnobject PLAYER, UP
+	applymovement CHERRYGROVECITY_GRAMPS, GuideGentMovement6
+	playsound SFX_ENTER_DOOR
+	disappear CHERRYGROVECITY_GRAMPS
+	clearevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE
+	waitsfx
+	end
+
+.JumpstdReceiveItem:
+	jumpstd ReceiveItemScript
+	end
+
+.mapcardname
+	db "MAP CARD@"
+
+.No:
+	writetext GuideGentNoText
+	waitbutton
+	closetext
+	end
+
+CherrygroveRivalSceneSouth:
+	moveobject CHERRYGROVECITY_RIVAL, 39, 7
+CherrygroveRivalSceneNorth:
+	turnobject PLAYER, RIGHT
+	showemote EMOTE_SHOCK, PLAYER, 15
+	special FadeOutMusic
+	pause 15
+	appear CHERRYGROVECITY_RIVAL
+	applymovement CHERRYGROVECITY_RIVAL, CherrygroveCity_RivalWalksToYou
+	turnobject PLAYER, RIGHT
+	playmusic MUSIC_RIVAL_ENCOUNTER
+	opentext
+	writetext CherrygroveRivalText_Seen
+	waitbutton
+	closetext
+	checkevent EVENT_GOT_TOTODILE_FROM_ELM
+	iftrue .Totodile
+	checkevent EVENT_GOT_CHIKORITA_FROM_ELM
+	iftrue .Chikorita
+	winlosstext RivalCherrygroveWinText, RivalCherrygroveLossText
+	setlasttalked CHERRYGROVECITY_RIVAL
+	loadtrainer RIVAL1, RIVAL1_1_TOTODILE
+	loadvar VAR_BATTLETYPE, BATTLETYPE_CANLOSE
+	startbattle
+	dontrestartmapmusic
+	reloadmap
+	iftrue .AfterVictorious
+	sjump .AfterYourDefeat
+
+.Totodile:
+	winlosstext RivalCherrygroveWinText, RivalCherrygroveLossText
+	setlasttalked CHERRYGROVECITY_RIVAL
+	loadtrainer RIVAL1, RIVAL1_1_CHIKORITA
+	loadvar VAR_BATTLETYPE, BATTLETYPE_CANLOSE
+	startbattle
+	dontrestartmapmusic
+	reloadmap
+	iftrue .AfterVictorious
+	sjump .AfterYourDefeat
+
+.Chikorita:
+	winlosstext RivalCherrygroveWinText, RivalCherrygroveLossText
+	setlasttalked CHERRYGROVECITY_RIVAL
+	loadtrainer RIVAL1, RIVAL1_1_CYNDAQUIL
+	loadvar VAR_BATTLETYPE, BATTLETYPE_CANLOSE
+	startbattle
+	dontrestartmapmusic
+	reloadmap
+	iftrue .AfterVictorious
+	sjump .AfterYourDefeat
+
+.AfterVictorious:
+	playmusic MUSIC_RIVAL_AFTER
+	opentext
+	writetext CherrygroveRivalText_YouWon
+	waitbutton
+	closetext
+	sjump .FinishRival
+
+.AfterYourDefeat:
+	playmusic MUSIC_RIVAL_AFTER
+	opentext
+	writetext CherrygroveRivalText_YouLost
+	waitbutton
+	closetext
+.FinishRival:
+	playsound SFX_TACKLE
+	applymovement PLAYER, CherrygroveCity_RivalPushesYouOutOfTheWay
+	turnobject PLAYER, LEFT
+	applymovement CHERRYGROVECITY_RIVAL, CherrygroveCity_RivalExitsStageLeft
+	disappear CHERRYGROVECITY_RIVAL
+	setscene SCENE_CHERRYGROVECITY_NOOP
+	special HealParty
+	playmapmusic
+	end
+
+CherrygroveTeacherScript:
+	faceplayer
+	opentext
+	checkflag ENGINE_MAP_CARD
+	iftrue .HaveMapCard
+	writetext CherrygroveTeacherText_NoMapCard
+	waitbutton
+	closetext
+	end
+
+.HaveMapCard:
+	writetext CherrygroveTeacherText_HaveMapCard
+	waitbutton
+	closetext
+	end
+
+CherrygroveYoungsterScript:
+	faceplayer
+	opentext
+	checkflag ENGINE_POKEDEX
+	iftrue .HavePokedex
+	writetext CherrygroveYoungsterText_NoPokedex
+	waitbutton
+	closetext
+	end
+
+.HavePokedex:
+	writetext CherrygroveYoungsterText_HavePokedex
+	waitbutton
+	closetext
+	end
+
+MysticWaterGuy:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_MYSTIC_WATER_IN_CHERRYGROVE
+	iftrue .After
+	writetext MysticWaterGuyTextBefore
+	promptbutton
+	verbosegiveitem MYSTIC_WATER
+	iffalse .Exit
+	setevent EVENT_GOT_MYSTIC_WATER_IN_CHERRYGROVE
+.After:
+	writetext MysticWaterGuyTextAfter
+	waitbutton
+.Exit:
+	closetext
+	end
+
+CherrygroveCitySign:
+	jumptext CherrygroveCitySignText
+
+GuideGentsHouseSign:
+	jumptext GuideGentsHouseSignText
+
+CherrygroveCityPokecenterSign:
+	jumpstd PokecenterSignScript
+
+CherrygroveCityMartSign:
+	jumpstd MartSignScript
+
+GuideGentMovement1:
+	step LEFT
+	step LEFT
+	step UP
+	step LEFT
+	turn_head UP
+	step_end
+
+GuideGentMovement2:
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	turn_head UP
+	step_end
+
+GuideGentMovement3:
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	turn_head UP
+	step_end
+
+GuideGentMovement4:
+	step LEFT
+	step LEFT
+	step LEFT
+	step DOWN
+	step LEFT
+	step LEFT
+	step LEFT
+	step DOWN
+	turn_head LEFT
+	step_end
+
+GuideGentMovement5:
+	step DOWN
+	step DOWN
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step DOWN
+	step DOWN
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	step RIGHT
+	turn_head UP
+	step_end
+
+GuideGentMovement6:
+	step UP
+	step UP
+	step_end
+
+CherrygroveCity_RivalWalksToYou:
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step LEFT
+	step_end
+
+CherrygroveCity_RivalPushesYouOutOfTheWay:
+	big_step DOWN
+	turn_head UP
+	step_end
+
+CherrygroveCity_UnusedMovementData: ; unreferenced
+	step LEFT
+	turn_head DOWN
+	step_end
+
+CherrygroveCity_RivalExitsStageLeft:
+	big_step LEFT
+	big_step LEFT
+	big_step LEFT
+	big_step LEFT
+	big_step UP
+	big_step UP
+	big_step LEFT
+	big_step LEFT
+	step_end
+
+GuideGentIntroText:
+	text "You're a rookie"
+	line "trainer, aren't"
+	cont "you? I can tell!"
+
+	para "That's OK! Every-"
+	line "one is a rookie"
+	cont "at some point!"
+
+	para "If you'd like, I"
+	line "can teach you a"
+	cont "few things."
+	done
+
+GuideGentTourText1:
+	text "OK, then!"
+	line "Follow me!"
+	done
+
+GuideGentPokecenterText:
+	text "This is a #MON"
+	line "CENTER. They heal"
+
+	para "your #MON in no"
+	line "time at all."
+
+	para "You'll be relying"
+	line "on them a lot, so"
+
+	para "you better learn"
+	line "about them."
+	done
+
+GuideGentMartText:
+	text "This is a #MON"
+	line "MART."
+
+	para "They sell BALLS"
+	line "for catching wild"
+
+	para "#MON and other"
+	line "useful items."
+	done
+
+GuideGentRoute30Text:
+	text "ROUTE 30 is out"
+	line "this way."
+
+	para "Trainers will be"
+	line "battling their"
+
+	para "prized #MON"
+	line "there."
+	done
+
+GuideGentSeaText:
+	text "This is the sea,"
+	line "as you can see."
+
+	para "Some #MON are"
+	line "found only in"
+	cont "water."
+	done
+
+GuideGentGiftText:
+	text "Here…"
+
+	para "It's my house!"
+	line "Thanks for your"
+	cont "company."
+
+	para "Let me give you a"
+	line "small gift."
+	done
+
+GotMapCardText:
+	text "<PLAYER>'s #GEAR"
+	line "now has a MAP!"
+	done
+
+GuideGentPokegearText:
+	text "#GEAR becomes"
+	line "more useful as you"
+	cont "add CARDS."
+
+	para "I wish you luck on"
+	line "your journey!"
+	done
+
+GuideGentNoText:
+	text "Oh… It's something"
+	line "I enjoy doing…"
+
+	para "Fine. Come see me"
+	line "when you like."
+	done
+
+CherrygroveRivalText_Seen:
+	text "<……> <……> <……>"
+
+	para "You got a #MON"
+	line "at the LAB."
+
+	para "What a waste."
+	line "A wimp like you."
+
+	para "<……> <……> <……>"
+
+	para "Don't you get what"
+	line "I'm saying?"
+
+	para "Well, I too, have"
+	line "a good #MON."
+
+	para "I'll show you"
+	line "what I mean!"
+	done
+
+RivalCherrygroveWinText:
+	text "Humph. Are you"
+	line "happy you won?"
+	done
+
+CherrygroveRivalText_YouLost:
+	text "<……> <……> <……>"
+
+	para "My name's ???."
+
+	para "I'm going to be"
+	line "the world's great-"
+	cont "est #MON"
+	cont "trainer."
+	done
+
+RivalCherrygroveLossText:
+	text "Humph. That was a"
+	line "waste of time."
+	done
+
+CherrygroveRivalText_YouWon:
+	text "<……> <……> <……>"
+
+	para "My name's ???."
+
+	para "I'm going to be"
+	line "the world's great-"
+	cont "est #MON"
+	cont "trainer."
+	done
+
+CherrygroveTeacherText_NoMapCard:
+	text "Did you talk to"
+	line "the old man by the"
+	cont "#MON CENTER?"
+
+	para "He'll put a MAP of"
+	line "JOHTO on your"
+	cont "#GEAR."
+	done
+
+CherrygroveTeacherText_HaveMapCard:
+	text "When you're with"
+	line "#MON, going"
+	cont "anywhere is fun."
+	done
+
+CherrygroveYoungsterText_NoPokedex:
+	text "MR.#MON's house"
+	line "is still farther"
+	cont "up ahead."
+	done
+
+CherrygroveYoungsterText_HavePokedex:
+	text "I battled the"
+	line "trainers on the"
+	cont "road."
+
+	para "My #MON lost."
+	line "They're a mess! I"
+
+	para "must take them to"
+	line "a #MON CENTER."
+	done
+
+MysticWaterGuyTextBefore:
+	text "A #MON I caught"
+	line "had an item."
+
+	para "I think it's"
+	line "MYSTIC WATER."
+
+	para "I don't need it,"
+	line "so do you want it?"
+	done
+
+MysticWaterGuyTextAfter:
+	text "Back to fishing"
+	line "for me, then."
+	done
+
+CherrygroveCitySignText:
+	text "CHERRYGROVE CITY"
+
+	para "The City of Cute,"
+	line "Fragrant Flowers"
+	done
+
+GuideGentsHouseSignText:
+	text "GUIDE GENT'S HOUSE"
+	done
+
+CherrygroveCity_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 23,  3, CHERRYGROVE_MART, 2
+	warp_event 29,  3, CHERRYGROVE_POKECENTER_1F, 1
+	warp_event 17,  7, CHERRYGROVE_GYM_SPEECH_HOUSE, 1
+	warp_event 25,  9, GUIDE_GENTS_HOUSE, 1
+	warp_event 31, 11, CHERRYGROVE_EVOLUTION_SPEECH_HOUSE, 1
+
+	def_coord_events
+	coord_event 33,  6, SCENE_CHERRYGROVECITY_MEET_RIVAL, CherrygroveRivalSceneNorth
+	coord_event 33,  7, SCENE_CHERRYGROVECITY_MEET_RIVAL, CherrygroveRivalSceneSouth
+
+	def_bg_events
+	bg_event 30,  8, BGEVENT_READ, CherrygroveCitySign
+	bg_event 23,  9, BGEVENT_READ, GuideGentsHouseSign
+	bg_event 24,  3, BGEVENT_READ, CherrygroveCityMartSign
+	bg_event 30,  3, BGEVENT_READ, CherrygroveCityPokecenterSign
+
+	def_object_events
+	object_event 32,  6, SPRITE_GRAMPS, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygroveCityGuideGent, EVENT_GUIDE_GENT_IN_HIS_HOUSE
+	object_event 39,  6, SPRITE_RIVAL, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_RIVAL_CHERRYGROVE_CITY
+	object_event 27, 12, SPRITE_TEACHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CherrygroveTeacherScript, -1
+	object_event 23,  7, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CherrygroveYoungsterScript, -1
+	object_event  7, 12, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, MysticWaterGuy, -1

maps/CherrygroveCity.blk

@@ -0,0 +1,8 @@
+
XY
dv
+vv
+
+









56555










+1555





G
E
4Y
+X555







4YqqX555
+


4zvvy50
+Y29029945Y

maps/CherrygroveEvolutionSpeechHouse.asm

@@ -0,0 +1,57 @@
+	object_const_def
+	const CHERRYGROVEEVOLUTIONSPEECHHOUSE_LASS
+	const CHERRYGROVEEVOLUTIONSPEECHHOUSE_YOUNGSTER
+
+CherrygroveEvolutionSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CherrygroveEvolutionSpeechHouseYoungsterScript:
+	opentext
+	writetext CherrygroveEvolutionSpeechHouseYoungsterText
+	waitbutton
+	closetext
+	end
+
+CherrygroveEvolutionSpeechHouseLassScript:
+	opentext
+	writetext CherrygroveEvolutionSpeechHouseLassText
+	waitbutton
+	closetext
+	end
+
+CherrygroveEvolutionSpeechHouseBookshelf:
+	jumpstd MagazineBookshelfScript
+
+CherrygroveEvolutionSpeechHouseYoungsterText:
+	text "#MON gain expe-"
+	line "rience in battle"
+
+	para "and change their"
+	line "form."
+	done
+
+CherrygroveEvolutionSpeechHouseLassText:
+	text "#MON change?"
+
+	para "I would be shocked"
+	line "if one did that!"
+	done
+
+CherrygroveEvolutionSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CHERRYGROVE_CITY, 5
+	warp_event  3,  7, CHERRYGROVE_CITY, 5
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CherrygroveEvolutionSpeechHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, CherrygroveEvolutionSpeechHouseBookshelf
+
+	def_object_events
+	object_event  3,  5, SPRITE_LASS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CherrygroveEvolutionSpeechHouseLassScript, -1
+	object_event  2,  5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CherrygroveEvolutionSpeechHouseYoungsterScript, -1

maps/CherrygroveGymSpeechHouse.asm

@@ -0,0 +1,60 @@
+	object_const_def
+	const CHERRYGROVEGYMSPEECHHOUSE_POKEFAN_M
+	const CHERRYGROVEGYMSPEECHHOUSE_BUG_CATCHER
+
+CherrygroveGymSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CherrygroveGymSpeechHousePokefanMScript:
+	jumptextfaceplayer CherrygroveGymSpeechHousePokefanMText
+
+CherrygroveGymSpeechHouseBugCatcherScript:
+	jumptextfaceplayer CherrygroveGymSpeechHouseBugCatcherText
+
+CherrygroveGymSpeechHouseBookshelf:
+	jumpstd PictureBookshelfScript
+
+CherrygroveGymSpeechHousePokefanMText:
+	text "You're trying to"
+	line "see how good you"
+
+	para "are as a #MON"
+	line "trainer?"
+
+	para "You better visit"
+	line "the #MON GYMS"
+
+	para "all over JOHTO and"
+	line "collect BADGES."
+	done
+
+CherrygroveGymSpeechHouseBugCatcherText:
+	text "When I get older,"
+	line "I'm going to be a"
+	cont "GYM LEADER!"
+
+	para "I make my #MON"
+	line "battle with my"
+
+	para "friend's to make"
+	line "them tougher!"
+	done
+
+CherrygroveGymSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CHERRYGROVE_CITY, 3
+	warp_event  3,  7, CHERRYGROVE_CITY, 3
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CherrygroveGymSpeechHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, CherrygroveGymSpeechHouseBookshelf
+
+	def_object_events
+	object_event  2,  3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygroveGymSpeechHousePokefanMScript, -1
+	object_event  5,  5, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CherrygroveGymSpeechHouseBugCatcherScript, -1

maps/CherrygroveMart.asm

@@ -0,0 +1,86 @@
+	object_const_def
+	const CHERRYGROVEMART_CLERK
+	const CHERRYGROVEMART_COOLTRAINER_M
+	const CHERRYGROVEMART_YOUNGSTER
+
+CherrygroveMart_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CherrygroveMartClerkScript:
+	opentext
+	checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
+	iftrue .PokeBallsInStock
+	pokemart MARTTYPE_STANDARD, MART_CHERRYGROVE
+	closetext
+	end
+
+.PokeBallsInStock:
+	pokemart MARTTYPE_STANDARD, MART_CHERRYGROVE_DEX
+	closetext
+	end
+
+CherrygroveMartCooltrainerMScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
+	iftrue .PokeBallsInStock
+	writetext CherrygroveMartCooltrainerMText
+	waitbutton
+	closetext
+	end
+
+.PokeBallsInStock:
+	writetext CherrygroveMartCooltrainerMText_PokeBallsInStock
+	waitbutton
+	closetext
+	end
+
+CherrygroveMartYoungsterScript:
+	jumptextfaceplayer CherrygroveMartYoungsterText
+
+CherrygroveMartCooltrainerMText:
+	text "They're fresh out"
+	line "of # BALLS!"
+
+	para "When will they get"
+	line "more of them?"
+	done
+
+CherrygroveMartCooltrainerMText_PokeBallsInStock:
+	text "# BALLS are in"
+	line "stock! Now I can"
+	cont "catch #MON!"
+	done
+
+CherrygroveMartYoungsterText:
+	text "When I was walking"
+	line "in the grass, a"
+
+	para "bug #MON poi-"
+	line "soned my #MON!"
+
+	para "I just kept going,"
+	line "but then my"
+	cont "#MON fainted."
+
+	para "You should keep an"
+	line "ANTIDOTE with you."
+	done
+
+CherrygroveMart_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CHERRYGROVE_CITY, 1
+	warp_event  3,  7, CHERRYGROVE_CITY, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  1,  3, SPRITE_CLERK, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygroveMartClerkScript, -1
+	object_event  7,  6, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygroveMartCooltrainerMScript, -1
+	object_event  2,  5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CherrygroveMartYoungsterScript, -1

maps/CherrygrovePokecenter1F.asm

@@ -0,0 +1,85 @@
+	object_const_def
+	const CHERRYGROVEPOKECENTER1F_NURSE
+	const CHERRYGROVEPOKECENTER1F_FISHER
+	const CHERRYGROVEPOKECENTER1F_GENTLEMAN
+	const CHERRYGROVEPOKECENTER1F_TEACHER
+
+CherrygrovePokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CherrygrovePokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+CherrygrovePokecenter1FFisherScript:
+	jumptextfaceplayer CherrygrovePokecenter1FFisherText
+
+CherrygrovePokecenter1FGentlemanScript:
+	jumptextfaceplayer CherrygrovePokecenter1FGentlemanText
+
+CherrygrovePokecenter1FTeacherScript:
+	faceplayer
+	opentext
+	checkevent EVENT_GAVE_MYSTERY_EGG_TO_ELM
+	iftrue .CommCenterOpen
+	writetext CherrygrovePokecenter1FTeacherText
+	waitbutton
+	closetext
+	end
+
+.CommCenterOpen:
+	writetext CherrygrovePokecenter1FTeacherText_CommCenterOpen
+	waitbutton
+	closetext
+	end
+
+CherrygrovePokecenter1FFisherText:
+	text "It's great. I can"
+	line "store any number"
+
+	para "of #MON, and"
+	line "it's all free."
+	done
+
+CherrygrovePokecenter1FGentlemanText:
+	text "That PC is free"
+	line "for any trainer"
+	cont "to use."
+	done
+
+CherrygrovePokecenter1FTeacherText:
+	text "The COMMUNICATION"
+	line "CENTER upstairs"
+	cont "was just built."
+
+	para "But they're still"
+	line "finishing it up."
+	done
+
+CherrygrovePokecenter1FTeacherText_CommCenterOpen:
+	text "The COMMUNICATION"
+	line "CENTER upstairs"
+	cont "was just built."
+
+	para "I traded #MON"
+	line "there already!"
+	done
+
+CherrygrovePokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, CHERRYGROVE_CITY, 2
+	warp_event  4,  7, CHERRYGROVE_CITY, 2
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygrovePokecenter1FNurseScript, -1
+	object_event  2,  3, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CherrygrovePokecenter1FFisherScript, -1
+	object_event  8,  6, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CherrygrovePokecenter1FGentlemanScript, -1
+	object_event  1,  6, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CherrygrovePokecenter1FTeacherScript, -1

maps/CianwoodCity.asm

@@ -0,0 +1,417 @@
+	object_const_def
+	const CIANWOODCITY_STANDING_YOUNGSTER
+	const CIANWOODCITY_POKEFAN_M
+	const CIANWOODCITY_LASS
+	const CIANWOODCITY_ROCK1
+	const CIANWOODCITY_ROCK2
+	const CIANWOODCITY_ROCK3
+	const CIANWOODCITY_ROCK4
+	const CIANWOODCITY_ROCK5
+	const CIANWOODCITY_ROCK6
+	const CIANWOODCITY_POKEFAN_F
+	const CIANWOODCITY_EUSINE
+	const CIANWOODCITY_SUICUNE
+
+CianwoodCity_MapScripts:
+	def_scene_scripts
+	scene_script CianwoodCityNoop1Scene, SCENE_CIANWOODCITY_NOOP
+	scene_script CianwoodCityNoop2Scene, SCENE_CIANWOODCITY_SUICUNE_AND_EUSINE
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, CianwoodCityFlypointAndSuicuneCallback
+
+CianwoodCityNoop1Scene:
+	end
+
+CianwoodCityNoop2Scene:
+	end
+
+CianwoodCityFlypointAndSuicuneCallback:
+	setflag ENGINE_FLYPOINT_CIANWOOD
+	setevent EVENT_EUSINE_IN_BURNED_TOWER
+	checkevent EVENT_FOUGHT_EUSINE
+	iffalse .Done
+	disappear CIANWOODCITY_EUSINE
+.Done:
+	endcallback
+
+CianwoodCitySuicuneAndEusine:
+	turnobject PLAYER, UP
+	showemote EMOTE_SHOCK, PLAYER, 15
+	pause 15
+	playsound SFX_WARP_FROM
+	applymovement CIANWOODCITY_SUICUNE, CianwoodCitySuicuneApproachMovement
+	turnobject PLAYER, DOWN
+	pause 15
+	playsound SFX_WARP_FROM
+	applymovement CIANWOODCITY_SUICUNE, CianwoodCitySuicuneDepartMovement
+	disappear CIANWOODCITY_SUICUNE
+	pause 10
+	setscene SCENE_CIANWOODCITY_NOOP
+	clearevent EVENT_SAW_SUICUNE_ON_ROUTE_42
+	setmapscene ROUTE_42, SCENE_ROUTE42_SUICUNE
+	checkevent EVENT_FOUGHT_EUSINE
+	iftrue .Done
+	setevent EVENT_FOUGHT_EUSINE
+	playmusic MUSIC_MYSTICALMAN_ENCOUNTER
+	appear CIANWOODCITY_EUSINE
+	applymovement CIANWOODCITY_EUSINE, CianwoodCityEusineApproachMovement
+	opentext
+	writetext EusineSuicuneText
+	waitbutton
+	closetext
+	winlosstext EusineBeatenText, 0
+	setlasttalked CIANWOODCITY_EUSINE
+	loadtrainer MYSTICALMAN, EUSINE
+	startbattle
+	dontrestartmapmusic
+	reloadmapafterbattle
+	playmusic MUSIC_MYSTICALMAN_ENCOUNTER
+	opentext
+	writetext EusineAfterText
+	waitbutton
+	closetext
+	applymovement CIANWOODCITY_EUSINE, CianwoodCityEusineDepartMovement
+	disappear CIANWOODCITY_EUSINE
+	pause 20
+	special FadeOutMusic
+	playmapmusic
+	pause 10
+.Done:
+	end
+
+CianwoodCityChucksWife:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_HM02_FLY
+	iftrue .GotFly
+	writetext ChucksWifeEasierToFlyText
+	promptbutton
+	checkevent EVENT_BEAT_CHUCK
+	iftrue .BeatChuck
+	writetext ChucksWifeBeatChuckText
+	waitbutton
+	closetext
+	end
+
+.BeatChuck:
+	writetext ChucksWifeGiveHMText
+	promptbutton
+	verbosegiveitem HM_FLY
+	iffalse .Done
+	setevent EVENT_GOT_HM02_FLY
+	writetext ChucksWifeFlySpeechText
+	promptbutton
+.GotFly:
+	writetext ChucksWifeChubbyText
+	waitbutton
+.Done:
+	closetext
+	end
+
+CianwoodCityYoungster:
+	jumptextfaceplayer CianwoodCityYoungsterText
+
+CianwoodCityPokefanM:
+	jumptextfaceplayer CianwoodCityPokefanMText
+
+CianwoodCityLass:
+	jumptextfaceplayer CianwoodCityLassText
+
+CianwoodCityUnusedScript: ; unreferenced
+	jumptextfaceplayer CianwoodCityUnusedText
+
+CianwoodCitySign:
+	jumptext CianwoodCitySignText
+
+CianwoodGymSign:
+	jumptext CianwoodGymSignText
+
+CianwoodPharmacySign:
+	jumptext CianwoodPharmacySignText
+
+CianwoodPhotoStudioSign:
+	jumptext CianwoodPhotoStudioSignText
+
+CianwoodPokeSeerSign:
+	jumptext CianwoodPokeSeerSignText
+
+CianwoodPokecenterSign:
+	jumpstd PokecenterSignScript
+
+CianwoodCityRock:
+	jumpstd SmashRockScript
+
+CianwoodCityHiddenRevive:
+	hiddenitem REVIVE, EVENT_CIANWOOD_CITY_HIDDEN_REVIVE
+
+CianwoodCityHiddenMaxEther:
+	hiddenitem MAX_ETHER, EVENT_CIANWOOD_CITY_HIDDEN_MAX_ETHER
+
+CianwoodCitySuicuneApproachMovement:
+	set_sliding
+	fast_jump_step DOWN
+	fast_jump_step DOWN
+	fast_jump_step RIGHT
+	remove_sliding
+	step_end
+
+CianwoodCitySuicuneDepartMovement:
+	set_sliding
+	fast_jump_step RIGHT
+	fast_jump_step UP
+	fast_jump_step RIGHT
+	fast_jump_step RIGHT
+	remove_sliding
+	step_end
+
+CianwoodCityEusineApproachMovement:
+	step UP
+	step UP
+	step UP
+	step UP
+	step_end
+
+CianwoodCityEusineDepartMovement:
+	step DOWN
+	step DOWN
+	step DOWN
+	step DOWN
+	step_end
+
+ChucksWifeEasierToFlyText:
+	text "You crossed the"
+	line "sea to get here?"
+
+	para "That must have"
+	line "been hard."
+
+	para "It would be much"
+	line "easier if your"
+
+	para "#MON knew how"
+	line "to FLY…"
+	done
+
+ChucksWifeBeatChuckText:
+	text "But you can't use"
+	line "FLY without this"
+	cont "city's GYM BADGE."
+
+	para "If you beat the"
+	line "GYM LEADER here,"
+	cont "come see me."
+
+	para "I'll have a nice"
+	line "gift for you."
+	done
+
+ChucksWifeGiveHMText:
+	text "That's CIANWOOD's"
+	line "GYM BADGE!"
+
+	para "Then you should"
+	line "take this HM."
+	done
+
+ChucksWifeFlySpeechText:
+	text "Teach FLY to your"
+	line "#MON."
+
+	para "You will be able"
+	line "to FLY instantly"
+
+	para "to anywhere you "
+	line "have visited."
+	done
+
+ChucksWifeChubbyText:
+	text "My husband lost to"
+	line "you, so he needs"
+	cont "to train harder."
+
+	para "That's good, since"
+	line "he was getting a"
+	cont "little chubby."
+	done
+
+CianwoodCityYoungsterText:
+	text "If you use FLY,"
+	line "you can get back"
+
+	para "to OLIVINE in-"
+	line "stantly."
+	done
+
+CianwoodCityPokefanMText:
+	text "Boulders to the"
+	line "north of town can"
+	cont "be crushed."
+
+	para "They may be hiding"
+	line "something."
+
+	para "Your #MON could"
+	line "use ROCK SMASH to"
+	cont "break them."
+	done
+
+CianwoodCityLassText:
+	text "CHUCK, the GYM"
+	line "LEADER, spars with"
+
+	para "his fighting #-"
+	line "MON."
+	done
+
+CianwoodCityUnusedText:
+	text "There are several"
+	line "islands between"
+	cont "here and OLIVINE."
+
+	para "A mythical sea"
+	line "creature supposed-"
+	cont "ly lives there."
+	done
+
+EusineSuicuneText:
+	text "EUSINE: Yo,"
+	line "<PLAYER>."
+
+	para "Wasn't that"
+	line "SUICUNE just now?"
+
+	para "I only caught a"
+	line "quick glimpse, but"
+
+	para "I thought I saw"
+	line "SUICUNE running on"
+	cont "the waves."
+
+	para "SUICUNE is beau-"
+	line "tiful and grand."
+
+	para "And it races"
+	line "through towns and"
+
+	para "roads at simply"
+	line "awesome speeds."
+
+	para "It's wonderful…"
+
+	para "I want to see"
+	line "SUICUNE up close…"
+
+	para "I've decided."
+
+	para "I'll battle you as"
+	line "a trainer to earn"
+	cont "SUICUNE's respect!"
+
+	para "Come on, <PLAYER>."
+	line "Let's battle now!"
+	done
+
+EusineBeatenText:
+	text "I hate to admit"
+	line "it, but you win."
+	done
+
+EusineAfterText:
+	text "You're amazing,"
+	line "<PLAYER>!"
+
+	para "No wonder #MON"
+	line "gravitate to you."
+
+	para "I get it now."
+
+	para "I'm going to keep"
+	line "searching for"
+	cont "SUICUNE."
+
+	para "I'm sure we'll see"
+	line "each other again."
+
+	para "See you around!"
+	done
+
+CianwoodCitySignText:
+	text "CIANWOOD CITY"
+
+	para "A Port Surrounded"
+	line "by Rough Seas"
+	done
+
+CianwoodGymSignText:
+	text "CIANWOOD CITY"
+	line "#MON GYM"
+
+	para "LEADER: CHUCK"
+
+	para "His Roaring Fists"
+	line "Do the Talking"
+	done
+
+CianwoodPharmacySignText:
+	text "500 Years of"
+	line "Tradition"
+
+	para "CIANWOOD CITY"
+	line "PHARMACY"
+
+	para "We Await Your"
+	line "Medicinal Queries"
+	done
+
+CianwoodPhotoStudioSignText:
+	text "CIANWOOD CITY"
+	line "PHOTO STUDIO"
+
+	para "Take a Snapshot as"
+	line "a Keepsake!"
+	done
+
+CianwoodPokeSeerSignText:
+	text "THE # SEER"
+	line "AHEAD"
+	done
+
+CianwoodCity_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 17, 41, MANIAS_HOUSE, 1
+	warp_event  8, 43, CIANWOOD_GYM, 1
+	warp_event 23, 43, CIANWOOD_POKECENTER_1F, 1
+	warp_event 15, 47, CIANWOOD_PHARMACY, 1
+	warp_event  9, 31, CIANWOOD_PHOTO_STUDIO, 1
+	warp_event 15, 37, CIANWOOD_LUGIA_SPEECH_HOUSE, 1
+	warp_event  5, 17, POKE_SEERS_HOUSE, 1
+
+	def_coord_events
+	coord_event 11, 16, SCENE_CIANWOODCITY_SUICUNE_AND_EUSINE, CianwoodCitySuicuneAndEusine
+
+	def_bg_events
+	bg_event 20, 34, BGEVENT_READ, CianwoodCitySign
+	bg_event  7, 45, BGEVENT_READ, CianwoodGymSign
+	bg_event 24, 43, BGEVENT_READ, CianwoodPokecenterSign
+	bg_event 19, 47, BGEVENT_READ, CianwoodPharmacySign
+	bg_event  8, 32, BGEVENT_READ, CianwoodPhotoStudioSign
+	bg_event  8, 24, BGEVENT_READ, CianwoodPokeSeerSign
+	bg_event  4, 19, BGEVENT_ITEM, CianwoodCityHiddenRevive
+	bg_event  5, 29, BGEVENT_ITEM, CianwoodCityHiddenMaxEther
+
+	def_object_events
+	object_event 21, 37, SPRITE_STANDING_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CianwoodCityYoungster, -1
+	object_event 17, 33, SPRITE_POKEFAN_M, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityPokefanM, -1
+	object_event 14, 42, SPRITE_LASS, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 2, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityLass, -1
+	object_event  8, 16, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event  9, 17, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event  4, 25, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event  5, 29, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event 10, 27, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event  4, 19, SPRITE_ROCK, SPRITEMOVEDATA_SMASHABLE_ROCK, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityRock, -1
+	object_event 10, 46, SPRITE_POKEFAN_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodCityChucksWife, -1
+	object_event 11, 21, SPRITE_SUPER_NERD, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_CIANWOOD_CITY_EUSINE
+	object_event 10, 14, SPRITE_SUICUNE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, ObjectEvent, EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY

maps/CianwoodCity.blk

@@ -0,0 +1 @@
+qqqqqqqi5555501qqqqqqqi5555545qqqqqqqi5555545qqqqqqqi5555545qqqqqqqi5559945qqqqqqqqk554555qqqqornqi554555qorrmZlrm994555qi


55655555qi




55655555qqk


555055555qom

5555455555qi

E5559455555qi



554555555qi





4555555qqk




55555qqi
E






555qqqpk




E

55qqqqi





55qqorm








5qqi



5qqi





5qqix









5qqqk


xjpppkqqqqpk



hqqqiqqqqqqppppqqqqiqqqqqqqqqqqorrm

maps/CianwoodGym.asm

@@ -0,0 +1,328 @@
+	object_const_def
+	const CIANWOODGYM_CHUCK
+	const CIANWOODGYM_BLACK_BELT1
+	const CIANWOODGYM_BLACK_BELT2
+	const CIANWOODGYM_BLACK_BELT3
+	const CIANWOODGYM_BLACK_BELT4
+	const CIANWOODGYM_BOULDER1
+	const CIANWOODGYM_BOULDER2
+	const CIANWOODGYM_BOULDER3
+	const CIANWOODGYM_BOULDER4
+
+CianwoodGym_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CianwoodGymChuckScript:
+	faceplayer
+	opentext
+	checkevent EVENT_BEAT_CHUCK
+	iftrue .FightDone
+	writetext ChuckIntroText1
+	waitbutton
+	closetext
+	turnobject CIANWOODGYM_CHUCK, RIGHT
+	opentext
+	writetext ChuckIntroText2
+	waitbutton
+	closetext
+	applymovement CIANWOODGYM_BOULDER1, CianwoodGymMovement_ChuckChucksBoulder
+	playsound SFX_STRENGTH
+	earthquake 80
+	disappear CIANWOODGYM_BOULDER1
+	pause 30
+	faceplayer
+	opentext
+	writetext ChuckIntroText3
+	waitbutton
+	closetext
+	winlosstext ChuckLossText, 0
+	loadtrainer CHUCK, CHUCK1
+	startbattle
+	reloadmapafterbattle
+	setevent EVENT_BEAT_CHUCK
+	opentext
+	writetext GetStormBadgeText
+	playsound SFX_GET_BADGE
+	waitsfx
+	setflag ENGINE_STORMBADGE
+	readvar VAR_BADGES
+	scall CianwoodGymActivateRockets
+.FightDone:
+	checkevent EVENT_GOT_TM01_DYNAMICPUNCH
+	iftrue .AlreadyGotTM
+	setevent EVENT_BEAT_BLACKBELT_YOSHI
+	setevent EVENT_BEAT_BLACKBELT_LAO
+	setevent EVENT_BEAT_BLACKBELT_NOB
+	setevent EVENT_BEAT_BLACKBELT_LUNG
+	writetext ChuckExplainBadgeText
+	promptbutton
+	verbosegiveitem TM_DYNAMICPUNCH
+	iffalse .BagFull
+	setevent EVENT_GOT_TM01_DYNAMICPUNCH
+	writetext ChuckExplainTMText
+	waitbutton
+	closetext
+	end
+
+.AlreadyGotTM:
+	writetext ChuckAfterText
+	waitbutton
+.BagFull:
+	closetext
+	end
+
+CianwoodGymActivateRockets:
+	ifequal 7, .RadioTowerRockets
+	ifequal 6, .GoldenrodRockets
+	end
+
+.GoldenrodRockets:
+	jumpstd GoldenrodRocketsScript
+
+.RadioTowerRockets:
+	jumpstd RadioTowerRocketsScript
+
+TrainerBlackbeltYoshi:
+	trainer BLACKBELT_T, YOSHI, EVENT_BEAT_BLACKBELT_YOSHI, BlackbeltYoshiSeenText, BlackbeltYoshiBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext BlackbeltYoshiAfterText
+	waitbutton
+	closetext
+	end
+
+TrainerBlackbeltLao:
+	trainer BLACKBELT_T, LAO, EVENT_BEAT_BLACKBELT_LAO, BlackbeltLaoSeenText, BlackbeltLaoBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext BlackbeltLaoAfterText
+	waitbutton
+	closetext
+	end
+
+TrainerBlackbeltNob:
+	trainer BLACKBELT_T, NOB, EVENT_BEAT_BLACKBELT_NOB, BlackbeltNobSeenText, BlackbeltNobBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext BlackbeltNobAfterText
+	waitbutton
+	closetext
+	end
+
+TrainerBlackbeltLung:
+	trainer BLACKBELT_T, LUNG, EVENT_BEAT_BLACKBELT_LUNG, BlackbeltLungSeenText, BlackbeltLungBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext BlackbeltLungAfterText
+	waitbutton
+	closetext
+	end
+
+CianwoodGymBoulder:
+	jumpstd StrengthBoulderScript
+
+CianwoodGymStatue:
+	checkflag ENGINE_STORMBADGE
+	iftrue .Beaten
+	jumpstd GymStatue1Script
+.Beaten:
+	gettrainername STRING_BUFFER_4, CHUCK, CHUCK1
+	jumpstd GymStatue2Script
+
+CianwoodGymMovement_ChuckChucksBoulder:
+	set_sliding
+	big_step LEFT
+	big_step UP
+	fast_jump_step RIGHT
+	remove_sliding
+	step_end
+
+ChuckIntroText1:
+	text "WAHAHAH!"
+
+	para "So you've come"
+	line "this far!"
+
+	para "Let me tell you,"
+	line "I'm tough!"
+
+	para "My #MON will"
+	line "crush stones and"
+	cont "shatter bones!"
+
+	para "Watch this!"
+	done
+
+ChuckIntroText2:
+	text "CHUCK: Urggh!"
+	line "…"
+
+	para "Oooarrgh!"
+	done
+
+ChuckIntroText3:
+	text "There! Scared now,"
+	line "are you?"
+
+	para "What?"
+	line "It has nothing to"
+
+	para "do with #MON?"
+	line "That's true!"
+
+	para "Come on. We shall"
+	line "do battle!"
+	done
+
+ChuckLossText:
+	text "Wha? Huh?"
+	line "I lost?"
+
+	para "How about that!"
+	line "You're worthy of"
+	cont "STORMBADGE!"
+	done
+
+GetStormBadgeText:
+	text "<PLAYER> received"
+	line "STORMBADGE."
+	done
+
+ChuckExplainBadgeText:
+	text "STORMBADGE makes"
+	line "all #MON up to"
+
+	para "L70 obey, even"
+	line "traded ones."
+
+	para "It also lets your"
+	line "#MON use FLY"
+
+	para "when you're not in"
+	line "a battle."
+
+	para "Here, take this"
+	line "too!"
+	done
+
+ChuckExplainTMText:
+	text "That is DYNAMIC-"
+	line "PUNCH."
+
+	para "It doesn't always"
+	line "hit, but when it"
+
+	para "does, it causes"
+	line "confusion!"
+	done
+
+ChuckAfterText:
+	text "WAHAHAH! I enjoyed"
+	line "battling you!"
+
+	para "But a loss is a"
+	line "loss!"
+
+	para "From now on, I'm"
+	line "going to train 24"
+	cont "hours a day!"
+	done
+
+BlackbeltYoshiSeenText:
+	text "My #MON and I"
+	line "are bound togeth-"
+	cont "er by friendship."
+
+	para "Our bond will"
+	line "never be broken!"
+	done
+
+BlackbeltYoshiBeatenText:
+	text "This isn't real!"
+	done
+
+BlackbeltYoshiAfterText:
+	text "You seem to have a"
+	line "strong bond with"
+	cont "your #MON too!"
+	done
+
+BlackbeltLaoSeenText:
+	text "We martial artists"
+	line "fear nothing!"
+	done
+
+BlackbeltLaoBeatenText:
+	text "That's shocking!"
+	done
+
+BlackbeltLaoAfterText:
+	text "Fighting #MON"
+	line "are afraid of psy-"
+	cont "chics…"
+	done
+
+BlackbeltNobSeenText:
+	text "Words are useless."
+	line "Let your fists do"
+	cont "the talking!"
+	done
+
+BlackbeltNobBeatenText:
+	text "…"
+	done
+
+BlackbeltNobAfterText:
+	text "I lost! "
+	line "I'm speechless!"
+	done
+
+BlackbeltLungSeenText:
+	text "My raging fists"
+	line "will shatter your"
+	cont "#MON!"
+	done
+
+BlackbeltLungBeatenText:
+	text "I got shattered!"
+	done
+
+BlackbeltLungAfterText:
+	text "My #MON lost…"
+	line "My… my pride is"
+	cont "shattered…"
+	done
+
+CianwoodGym_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4, 17, CIANWOOD_CITY, 2
+	warp_event  5, 17, CIANWOOD_CITY, 2
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  3, 15, BGEVENT_READ, CianwoodGymStatue
+	bg_event  6, 15, BGEVENT_READ, CianwoodGymStatue
+
+	def_object_events
+	object_event  4,  1, SPRITE_CHUCK, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CianwoodGymChuckScript, -1
+	object_event  2, 12, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBlackbeltYoshi, -1
+	object_event  7, 12, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 3, TrainerBlackbeltLao, -1
+	object_event  3,  9, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 2, TrainerBlackbeltNob, -1
+	object_event  5,  5, SPRITE_BLACK_BELT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_TRAINER, 1, TrainerBlackbeltLung, -1
+	object_event  5,  1, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
+	object_event  3,  7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
+	object_event  4,  7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1
+	object_event  5,  7, SPRITE_BOULDER, SPRITEMOVEDATA_STRENGTH_BOULDER, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodGymBoulder, -1

maps/CianwoodGym.blk

@@ -0,0 +1,4 @@
+"!	
	
+
	
5	5
+				
	
	
+
&


maps/CianwoodLugiaSpeechHouse.asm

@@ -0,0 +1,78 @@
+	object_const_def
+	const CIANWOODLUGIASPEECHHOUSE_TEACHER
+	const CIANWOODLUGIASPEECHHOUSE_LASS
+	const CIANWOODLUGIASPEECHHOUSE_TWIN
+
+CianwoodLugiaSpeechHouse_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CianwoodLugiaSpeechHouseTeacherScript:
+	jumptextfaceplayer CianwoodLugiaSpeechHouseTeacherText
+
+CianwoodLugiaSpeechHouseLassScript:
+	jumptextfaceplayer CianwoodLugiaSpeechHouseLassText
+
+CianwoodLugiaSpeechHouseTwinScript:
+	jumptextfaceplayer CianwoodLugiaSpeechHouseTwinText
+
+CianwoodLugiaSpeechHouseBookshelf:
+	jumpstd PictureBookshelfScript
+
+CianwoodLugiaSpeechHouseTeacherText:
+	text "You came from"
+	line "OLIVINE?"
+
+	para "Do you remember"
+	line "the four islands"
+	cont "along the way?"
+
+	para "I heard that a "
+	line "mythical sea crea-"
+	cont "ture is hiding in"
+	cont "them."
+	done
+
+CianwoodLugiaSpeechHouseLassText:
+	text "I heard that you"
+	line "can only see it if"
+
+	para "you have a SILVER"
+	line "WING."
+
+	para "It must have the"
+	line "same scent as the"
+	cont "creature."
+	done
+
+CianwoodLugiaSpeechHouseTwinText:
+	text "I've heard that"
+	line "the whirlpools"
+
+	para "around the islands"
+	line "are caused by the"
+	cont "sea creature."
+
+	para "You might need a"
+	line "special move to"
+	cont "get past them."
+	done
+
+CianwoodLugiaSpeechHouse_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CIANWOOD_CITY, 6
+	warp_event  3,  7, CIANWOOD_CITY, 6
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CianwoodLugiaSpeechHouseBookshelf
+	bg_event  1,  1, BGEVENT_READ, CianwoodLugiaSpeechHouseBookshelf
+
+	def_object_events
+	object_event  2,  4, SPRITE_TEACHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodLugiaSpeechHouseTeacherScript, -1
+	object_event  6,  5, SPRITE_LASS, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CianwoodLugiaSpeechHouseLassScript, -1
+	object_event  0,  2, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CianwoodLugiaSpeechHouseTwinScript, -1

maps/CianwoodPharmacy.asm

@@ -0,0 +1,87 @@
+	object_const_def
+	const CIANWOODPHARMACY_PHARMACIST
+
+CianwoodPharmacy_MapScripts:
+	def_scene_scripts
+	scene_script CianwoodPharmacyNoopScene ; unusable
+
+	def_callbacks
+
+CianwoodPharmacyNoopScene:
+	end
+
+CianwoodPharmacist:
+	faceplayer
+	opentext
+	checkevent EVENT_GOT_SECRETPOTION_FROM_PHARMACY
+	iftrue .Mart
+	checkevent EVENT_JASMINE_EXPLAINED_AMPHYS_SICKNESS
+	iffalse .Mart
+	writetext PharmacistGiveSecretpotionText
+	promptbutton
+	giveitem SECRETPOTION
+	writetext ReceivedSecretpotionText
+	playsound SFX_KEY_ITEM
+	waitsfx
+	itemnotify
+	setevent EVENT_GOT_SECRETPOTION_FROM_PHARMACY
+	writetext PharmacistDescribeSecretpotionText
+	waitbutton
+	closetext
+	end
+
+.Mart:
+	pokemart MARTTYPE_PHARMACY, MART_CIANWOOD
+	closetext
+	end
+
+CianwoodPharmacyBookshelf:
+	jumpstd DifficultBookshelfScript
+
+PharmacistGiveSecretpotionText:
+	text "Your #MON ap-"
+	line "pear to be fine."
+
+	para "Is something wor- "
+	line "rying you?"
+
+	para "…"
+
+	para "The LIGHTHOUSE"
+	line "#MON is in"
+	cont "trouble?"
+
+	para "I got it!"
+
+	para "This ought to do"
+	line "the trick."
+	done
+
+ReceivedSecretpotionText:
+	text "<PLAYER> received"
+	line "SECRETPOTION."
+	done
+
+PharmacistDescribeSecretpotionText:
+	text "My SECRETPOTION is"
+	line "a tad too strong."
+
+	para "I only offer it in"
+	line "an emergency."
+	done
+
+CianwoodPharmacy_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CIANWOOD_CITY, 4
+	warp_event  3,  7, CIANWOOD_CITY, 4
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CianwoodPharmacyBookshelf
+	bg_event  1,  1, BGEVENT_READ, CianwoodPharmacyBookshelf
+
+	def_object_events
+	object_event  2,  3, SPRITE_PHARMACIST, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CianwoodPharmacist, -1

maps/CianwoodPhotoStudio.asm

@@ -0,0 +1,61 @@
+	object_const_def
+	const CIANWOODPHOTOSTUDIO_FISHING_GURU
+
+CianwoodPhotoStudio_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CianwoodPhotoStudioFishingGuruScript:
+	faceplayer
+	opentext
+	writetext CianwoodPhotoStudioFishingGuruText_Question
+	yesorno
+	iffalse .Refused
+	writetext CianwoodPhotoStudioFishingGuruText_Yes
+	waitbutton
+	special PhotoStudio
+	waitbutton
+	closetext
+	end
+
+.Refused:
+	writetext CianwoodPhotoStudioFishingGuruText_No
+	waitbutton
+	closetext
+	end
+
+CianwoodPhotoStudioFishingGuruText_Question:
+	text "You have magnifi-"
+	line "cent #MON with"
+	cont "you."
+
+	para "How about a photo"
+	line "for a souvenir?"
+	done
+
+CianwoodPhotoStudioFishingGuruText_Yes:
+	text "OK! Big smile now!"
+	done
+
+CianwoodPhotoStudioFishingGuruText_No:
+	text "Oh, that's too"
+	line "bad. I thought it"
+
+	para "would be a great"
+	line "memento…"
+	done
+
+CianwoodPhotoStudio_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, CIANWOOD_CITY, 5
+	warp_event  3,  7, CIANWOOD_CITY, 5
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_FISHING_GURU, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CianwoodPhotoStudioFishingGuruScript, -1

maps/CianwoodPokecenter1F.asm

@@ -0,0 +1,148 @@
+	object_const_def
+	const CIANWOODPOKECENTER1F_NURSE
+	const CIANWOODPOKECENTER1F_LASS
+	const CIANWOODPOKECENTER1F_GYM_GUIDE
+	const CIANWOODPOKECENTER1F_SUPER_NERD
+
+CianwoodPokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CianwoodPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+CianwoodPokecenter1FLassScript:
+	jumptextfaceplayer CianwoodPokecenter1FLassText
+
+CianwoodGymGuideScript:
+	faceplayer
+	checkevent EVENT_BEAT_CHUCK
+	iftrue .CianwoodGymGuideWinScript
+	opentext
+	writetext CianwoodGymGuideText
+	waitbutton
+	closetext
+	end
+
+.CianwoodGymGuideWinScript:
+	opentext
+	writetext CianwoodGymGuideWinText
+	waitbutton
+	closetext
+	end
+
+CianwoodPokecenter1FSuperNerdScript:
+	jumptextfaceplayer CianwoodPokecenter1FSuperNerdText
+
+CianwoodPokecenter1FLassText:
+	text "Did you meet the"
+	line "#MANIAC?"
+
+	para "He's always brag-"
+	line "ging about his"
+	cont "rare #MON."
+	done
+
+CianwoodGymGuideText:
+	text "The #MON GYM"
+	line "trainers here are"
+	cont "macho bullies."
+
+	para "If I stick around,"
+	line "they might come"
+	cont "after me."
+
+	para "Here's some ad-"
+	line "vice: the GYM"
+
+	para "LEADER uses the"
+	line "fighting-type."
+
+	para "So you should"
+	line "confound him with"
+	cont "psychic #MON."
+
+	para "Wipe out his #-"
+	line "MON before they"
+
+	para "can use their"
+	line "physical strength."
+
+	para "And those boulders"
+	line "in the middle of"
+	cont "the GYM?"
+
+	para "If you don't move"
+	line "them correctly,"
+
+	para "you won't reach"
+	line "the GYM LEADER."
+
+	para "If you get stuck,"
+	line "go outside."
+	done
+
+CianwoodGymGuideWinText:
+	text "<PLAYER>! You won!"
+	line "I could tell by"
+	cont "looking at you!"
+	done
+
+CianwoodPokecenter1FUnusedText1: ; unreferenced
+	text "Don't you get the"
+	line "urge to show off"
+
+	para "your #MON to"
+	line "friends?"
+
+	para "I wish I could"
+	line "show the #MON I"
+
+	para "raised to my pal"
+	line "in VIOLET."
+	done
+
+CianwoodPokecenter1FUnusedText2: ; unreferenced
+	text "I've been battling"
+	line "my pal in VIOLET"
+
+	para "using a MOBILE"
+	line "ADAPTER link."
+
+	para "I'm down 5-7"
+	line "against him. I've"
+	cont "gotta crank it up!"
+	done
+
+CianwoodPokecenter1FSuperNerdText:
+	text "I love showing off"
+	line "the #MON that"
+
+	para "I've raised."
+	line "Don't you?"
+
+	para "I'm going to get"
+	line "into a bunch of"
+
+	para "battles, and show"
+	line "off my #MON!"
+	done
+
+CianwoodPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, CIANWOOD_CITY, 3
+	warp_event  4,  7, CIANWOOD_CITY, 3
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CianwoodPokecenter1FNurseScript, -1
+	object_event  1,  5, SPRITE_LASS, SPRITEMOVEDATA_WALK_UP_DOWN, 0, 1, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CianwoodPokecenter1FLassScript, -1
+	object_event  5,  3, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CianwoodGymGuideScript, -1
+	object_event  8,  6, SPRITE_SUPER_NERD, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 1, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CianwoodPokecenter1FSuperNerdScript, -1

maps/CinnabarIsland.asm

@@ -0,0 +1,143 @@
+	object_const_def
+	const CINNABARISLAND_BLUE
+
+CinnabarIsland_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_NEWMAP, CinnabarIslandFlypointCallback
+
+CinnabarIslandFlypointCallback:
+	setflag ENGINE_FLYPOINT_CINNABAR
+	endcallback
+
+CinnabarIslandBlue:
+	faceplayer
+	opentext
+	writetext CinnabarIslandBlueText
+	waitbutton
+	closetext
+	playsound SFX_WARP_TO
+	applymovement CINNABARISLAND_BLUE, CinnabarIslandBlueTeleport
+	disappear CINNABARISLAND_BLUE
+	clearevent EVENT_VIRIDIAN_GYM_BLUE
+	end
+
+CinnabarIslandGymSign:
+	jumptext CinnabarIslandGymSignText
+
+CinnabarIslandSign:
+	jumptext CinnabarIslandSignText
+
+CinnabarIslandPokecenterSign:
+	jumpstd PokecenterSignScript
+
+CinnabarIslandHiddenRareCandy:
+	hiddenitem RARE_CANDY, EVENT_CINNABAR_ISLAND_HIDDEN_RARE_CANDY
+
+CinnabarIslandBlueTeleport:
+	teleport_from
+	step_end
+
+CinnabarIslandBlueText:
+	text "Who are you?"
+
+	para "Well, it's plain"
+	line "to see that you're"
+	cont "a trainer…"
+
+	para "My name's BLUE."
+
+	para "I was once the"
+	line "CHAMPION, although"
+
+	para "it was for only a"
+	line "short time…"
+
+	para "That meddling RED"
+	line "did me in…"
+
+	para "Anyway, what do"
+	line "you want? You want"
+
+	para "to challenge me or"
+	line "something?"
+
+	para "…I hate to say"
+	line "it, but I'm not in"
+
+	para "the mood for a"
+	line "battle now."
+
+	para "Take a good look"
+	line "around you…"
+
+	para "A volcano erupts,"
+	line "and just like"
+
+	para "that, a whole town"
+	line "disappears."
+
+	para "We can go on win-"
+	line "ning and losing in"
+
+	para "#MON. But if"
+	line "nature so much as"
+
+	para "twitches, we can"
+	line "lose in a second."
+
+	para "…"
+
+	para "That's the way it"
+	line "is…"
+
+	para "But, anyway, I'm"
+	line "still a trainer."
+
+	para "If I see a strong"
+	line "opponent, it makes"
+	cont "me want to battle."
+
+	para "If you want to"
+	line "battle me, come to"
+	cont "the VIRIDIAN GYM."
+
+	para "I'll take you on"
+	line "then."
+	done
+
+CinnabarIslandGymSignText:
+	text "There's a notice"
+	line "here…"
+
+	para "CINNABAR GYM has"
+	line "relocated to SEA-"
+	cont "FOAM ISLANDS."
+
+	para "BLAINE"
+	done
+
+CinnabarIslandSignText:
+	text "CINNABAR ISLAND"
+
+	para "The Fiery Town of"
+	line "Burning Desire"
+	done
+
+CinnabarIsland_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event 11, 11, CINNABAR_POKECENTER_1F, 1
+
+	def_coord_events
+
+	def_bg_events
+	bg_event 12, 11, BGEVENT_READ, CinnabarIslandPokecenterSign
+	bg_event  9, 11, BGEVENT_READ, CinnabarIslandGymSign
+	bg_event  7,  7, BGEVENT_READ, CinnabarIslandSign
+	bg_event  9,  1, BGEVENT_ITEM, CinnabarIslandHiddenRareCandy
+
+	def_object_events
+	object_event  9,  6, SPRITE_BLUE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CinnabarIslandBlue, EVENT_BLUE_IN_CINNABAR

maps/CinnabarIsland.blk

@@ -0,0 +1,2 @@
+dbQQ>???;dN>?,,)dN$W*,ed)dN1(,,,)dP\ !*,)d{{y|r(,)-{
+{t(,)C-$W%kkkkkkkkk

maps/CinnabarPokecenter1F.asm

@@ -0,0 +1,50 @@
+	object_const_def
+	const CINNABARPOKECENTER1F_NURSE
+	const CINNABARPOKECENTER1F_COOLTRAINER_F
+	const CINNABARPOKECENTER1F_FISHER
+
+CinnabarPokecenter1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CinnabarPokecenter1FNurseScript:
+	jumpstd PokecenterNurseScript
+
+CinnabarPokecenter1FCooltrainerFScript:
+	jumptextfaceplayer CinnabarPokecenter1FCooltrainerFText
+
+CinnabarPokecenter1FFisherScript:
+	jumptextfaceplayer CinnabarPokecenter1FFisherText
+
+CinnabarPokecenter1FCooltrainerFText:
+	text "CINNABAR GYM's"
+	line "BLAINE apparently"
+
+	para "lives alone in the"
+	line "SEAFOAM ISLANDS"
+	cont "cave…"
+	done
+
+CinnabarPokecenter1FFisherText:
+	text "It's been a year"
+	line "since the volcano"
+	cont "erupted."
+	done
+
+CinnabarPokecenter1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  7, CINNABAR_ISLAND, 1
+	warp_event  4,  7, CINNABAR_ISLAND, 1
+	warp_event  0,  7, POKECENTER_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  3,  1, SPRITE_NURSE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CinnabarPokecenter1FNurseScript, -1
+	object_event  7,  6, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_WALK_LEFT_RIGHT, 2, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CinnabarPokecenter1FCooltrainerFScript, -1
+	object_event  2,  4, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CinnabarPokecenter1FFisherScript, -1

maps/CinnabarPokecenter2FBeta.asm

@@ -0,0 +1,16 @@
+CinnabarPokecenter2FBeta_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CinnabarPokecenter2FBeta_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  0,  7, CINNABAR_POKECENTER_1F, 3
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events

maps/Colosseum.asm

@@ -0,0 +1,78 @@
+	object_const_def
+	const COLOSSEUM_CHRIS1
+	const COLOSSEUM_CHRIS2
+
+Colosseum_MapScripts:
+	def_scene_scripts
+	scene_script ColosseumInitializeScene, SCENE_COLOSSEUM_INITIALIZE
+	scene_script ColosseumNoop1Scene,      SCENE_COLOSSEUM_NOOP
+	scene_script ColosseumNoop2Scene ; unused
+
+	def_callbacks
+	callback MAPCALLBACK_OBJECTS, ColosseumSetWhichChrisCallback
+	callback MAPCALLBACK_NEWMAP, ColosseumPreparePokecenter2FCallback
+
+ColosseumInitializeScene:
+	sdefer ColosseumInitializeAndPreparePokecenter2FScript
+	end
+
+ColosseumNoop1Scene:
+	end
+
+ColosseumNoop2Scene:
+	end
+
+ColosseumSetWhichChrisCallback:
+	special CableClubCheckWhichChris
+	iffalse .Chris2
+	disappear COLOSSEUM_CHRIS2
+	appear COLOSSEUM_CHRIS1
+	endcallback
+
+.Chris2:
+	disappear COLOSSEUM_CHRIS1
+	appear COLOSSEUM_CHRIS2
+	endcallback
+
+ColosseumPreparePokecenter2FCallback:
+	setmapscene POKECENTER_2F, SCENE_POKECENTER2F_LEAVE_COLOSSEUM
+	endcallback
+
+ColosseumInitializeAndPreparePokecenter2FScript:
+	setscene SCENE_COLOSSEUM_NOOP
+	setmapscene POKECENTER_2F, SCENE_POKECENTER2F_LEAVE_COLOSSEUM
+	end
+
+ColosseumConsoleScript:
+	special Colosseum
+	newloadmap MAPSETUP_LINKRETURN
+	end
+
+CableClubFriendScript:
+	opentext
+	writetext .FriendReadyText
+	waitbutton
+	closetext
+	end
+
+.FriendReadyText:
+	text "Your friend is"
+	line "ready."
+	done
+
+Colosseum_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  4,  7, POKECENTER_2F, 3
+	warp_event  5,  7, POKECENTER_2F, 3
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  4,  4, BGEVENT_RIGHT, ColosseumConsoleScript
+	bg_event  5,  4, BGEVENT_LEFT, ColosseumConsoleScript
+
+	def_object_events
+	object_event  3,  4, SPRITE_CHRIS, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CableClubFriendScript, EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1
+	object_event  6,  4, SPRITE_CHRIS, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CableClubFriendScript, EVENT_TEMPORARY_UNTIL_MAP_RELOAD_2

maps/Colosseum.blk

@@ -0,0 +1 @@
+ 

maps/CopycatsHouse1F.asm

@@ -0,0 +1,88 @@
+	object_const_def
+	const COPYCATSHOUSE1F_POKEFAN_M
+	const COPYCATSHOUSE1F_POKEFAN_F
+	const COPYCATSHOUSE1F_CLEFAIRY
+
+CopycatsHouse1F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+CopycatsHouse1FPokefanMScript:
+	jumptextfaceplayer CopycatsHouse1FPokefanMText
+
+CopycatsHouse1FPokefanFScript:
+	faceplayer
+	opentext
+	checkevent EVENT_RETURNED_MACHINE_PART
+	iftrue .ReturnedMachinePart
+	writetext CopycatsHouse1FPokefanFText
+	waitbutton
+	closetext
+	end
+
+.ReturnedMachinePart:
+	writetext CopycatsHouse1FPokefanFText_ReturnedMachinePart
+	waitbutton
+	closetext
+	end
+
+CopycatsHouse1FBlisseyScript:
+	opentext
+	writetext CopycatsHouse1FBlisseyText
+	cry BLISSEY
+	waitbutton
+	closetext
+	end
+
+CopycatsHouse1FPokefanMText:
+	text "My daughter likes"
+	line "to mimic people."
+
+	para "Her mimicry has"
+	line "earned her the"
+
+	para "nickname COPYCAT"
+	line "around here."
+	done
+
+CopycatsHouse1FPokefanFText:
+	text "My daughter is so"
+	line "self-centered…"
+
+	para "She only has a few"
+	line "friends."
+	done
+
+CopycatsHouse1FPokefanFText_ReturnedMachinePart:
+	text "She recently lost"
+	line "the # DOLL that"
+
+	para "a boy gave her"
+	line "three years ago."
+
+	para "Ever since then,"
+	line "she's gotten even"
+	cont "better at mimicry…"
+	done
+
+CopycatsHouse1FBlisseyText:
+	text "BLISSEY: Bliisii!"
+	done
+
+CopycatsHouse1F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  2,  7, SAFFRON_CITY, 8
+	warp_event  3,  7, SAFFRON_CITY, 8
+	warp_event  2,  0, COPYCATS_HOUSE_2F, 1
+
+	def_coord_events
+
+	def_bg_events
+
+	def_object_events
+	object_event  2,  3, SPRITE_POKEFAN_M, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CopycatsHouse1FPokefanMScript, -1
+	object_event  5,  4, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CopycatsHouse1FPokefanFScript, -1
+	object_event  6,  6, SPRITE_CLEFAIRY, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CopycatsHouse1FBlisseyScript, -1

maps/CopycatsHouse1F.blk

@@ -0,0 +1 @@
+#
	


maps/CopycatsHouse2F.asm

@@ -0,0 +1,379 @@
+	object_const_def
+	const COPYCATSHOUSE2F_COPYCAT1 ; if player is male
+	const COPYCATSHOUSE2F_DODRIO
+	const COPYCATSHOUSE2F_FAIRYDOLL ; lost item
+	const COPYCATSHOUSE2F_MONSTERDOLL
+	const COPYCATSHOUSE2F_BIRDDOLL
+	const COPYCATSHOUSE2F_COPYCAT2 ; if player is female
+
+CopycatsHouse2F_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+	callback MAPCALLBACK_OBJECTS, CopycatsHouse2FWhichGenderCallback
+
+CopycatsHouse2FWhichGenderCallback:
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Female
+	disappear COPYCATSHOUSE2F_COPYCAT2
+	appear COPYCATSHOUSE2F_COPYCAT1
+	sjump .Done
+.Female:
+	disappear COPYCATSHOUSE2F_COPYCAT1
+	appear COPYCATSHOUSE2F_COPYCAT2
+.Done:
+	endcallback
+
+Copycat:
+	faceplayer
+	checkevent EVENT_GOT_PASS_FROM_COPYCAT
+	iftrue .GotPass
+	checkevent EVENT_RETURNED_LOST_ITEM_TO_COPYCAT
+	iftrue .TryGivePassAgain
+	checkitem LOST_ITEM
+	iftrue .ReturnLostItem
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Default_Female_1
+	applymovement COPYCATSHOUSE2F_COPYCAT1, CopycatSpinAroundMovementData
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_CHRIS
+	sjump .Default_Merge_1
+
+.Default_Female_1:
+	applymovement COPYCATSHOUSE2F_COPYCAT2, CopycatSpinAroundMovementData
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_KRIS
+.Default_Merge_1:
+	special LoadUsedSpritesGFX
+	checkevent EVENT_RETURNED_MACHINE_PART
+	iftrue .TalkAboutLostItem
+	opentext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Default_Female_2a
+	writetext CopycatText_Male_1
+	sjump .Default_Merge_2a
+
+.Default_Female_2a:
+	writetext CopycatText_Female_1
+.Default_Merge_2a:
+	waitbutton
+	closetext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Default_Female_3a
+	applymovement COPYCATSHOUSE2F_COPYCAT1, CopycatSpinAroundMovementData
+	sjump .Default_Merge_3a
+
+.Default_Female_3a:
+	applymovement COPYCATSHOUSE2F_COPYCAT2, CopycatSpinAroundMovementData
+.Default_Merge_3a:
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_LASS
+	special LoadUsedSpritesGFX
+	opentext
+	writetext CopycatText_QuickMimicking
+	waitbutton
+	closetext
+	end
+
+.TalkAboutLostItem:
+	opentext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Default_Female_2b
+	writetext CopycatText_Male_2
+	sjump .Default_Merge_2b
+
+.Default_Female_2b:
+	writetext CopycatText_Female_2
+.Default_Merge_2b:
+	waitbutton
+	closetext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .Default_Female_3b
+	applymovement COPYCATSHOUSE2F_COPYCAT1, CopycatSpinAroundMovementData
+	sjump .Default_Merge_3b
+
+.Default_Female_3b:
+	applymovement COPYCATSHOUSE2F_COPYCAT2, CopycatSpinAroundMovementData
+.Default_Merge_3b:
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_LASS
+	special LoadUsedSpritesGFX
+	opentext
+	writetext CopycatText_Worried
+	waitbutton
+	closetext
+	setevent EVENT_MET_COPYCAT_FOUND_OUT_ABOUT_LOST_ITEM
+	end
+
+.ReturnLostItem:
+	opentext
+	writetext CopycatText_GiveDoll
+	promptbutton
+	takeitem LOST_ITEM
+	setevent EVENT_RETURNED_LOST_ITEM_TO_COPYCAT
+	clearevent EVENT_COPYCATS_HOUSE_2F_DOLL
+	sjump .GivePass
+
+.TryGivePassAgain:
+	opentext
+.GivePass:
+	writetext CopycatText_GivePass
+	promptbutton
+	verbosegiveitem PASS
+	iffalse .Cancel
+	setevent EVENT_GOT_PASS_FROM_COPYCAT
+	writetext CopycatText_ExplainPass
+	waitbutton
+	closetext
+	end
+
+.GotPass:
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .GotPass_Female_1
+	applymovement COPYCATSHOUSE2F_COPYCAT1, CopycatSpinAroundMovementData
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_CHRIS
+	sjump .GotPass_Merge_1
+
+.GotPass_Female_1:
+	applymovement COPYCATSHOUSE2F_COPYCAT2, CopycatSpinAroundMovementData
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_KRIS
+.GotPass_Merge_1:
+	special LoadUsedSpritesGFX
+	opentext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .GotPass_Female_2
+	writetext CopycatText_Male_3
+	sjump .GotPass_Merge_2
+
+.GotPass_Female_2:
+	writetext CopycatText_Female_3
+.GotPass_Merge_2:
+	waitbutton
+	closetext
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .GotPass_Female_3
+	applymovement COPYCATSHOUSE2F_COPYCAT1, CopycatSpinAroundMovementData
+	sjump .GotPass_Merge_3
+
+.GotPass_Female_3:
+	applymovement COPYCATSHOUSE2F_COPYCAT2, CopycatSpinAroundMovementData
+.GotPass_Merge_3:
+	faceplayer
+	variablesprite SPRITE_COPYCAT, SPRITE_LASS
+	special LoadUsedSpritesGFX
+	opentext
+	writetext CopycatText_ItsAScream
+	waitbutton
+.Cancel:
+	closetext
+	end
+
+CopycatsDodrio:
+	opentext
+	writetext CopycatsDodrioText1
+	cry DODRIO
+	promptbutton
+	writetext CopycatsDodrioText2
+	waitbutton
+	closetext
+	end
+
+CopycatsHouse2FDoll:
+	jumptext CopycatsHouse2FDollText
+
+CopycatsHouse2FBookshelf:
+	jumpstd PictureBookshelfScript
+
+CopycatSpinAroundMovementData:
+	turn_head DOWN
+	turn_head LEFT
+	turn_head UP
+	turn_head RIGHT
+	turn_head DOWN
+	turn_head LEFT
+	turn_head UP
+	turn_head RIGHT
+	turn_head DOWN
+	step_end
+
+CopycatText_Male_1:
+	text "<PLAYER>: Hi! Do"
+	line "you like #MON?"
+
+	para "<PLAYER>: Uh, no, I"
+	line "just asked you."
+
+	para "<PLAYER>: Huh?"
+	line "You're strange!"
+	done
+
+CopycatText_QuickMimicking:
+	text "COPYCAT: Hmm?"
+	line "Quit mimicking?"
+
+	para "But that's my"
+	line "favorite hobby!"
+	done
+
+CopycatText_Male_2:
+	text "<PLAYER>: Hi!"
+	line "I heard that you"
+
+	para "lost your favorite"
+	line "# DOLL."
+
+	para "<PLAYER>: If I find"
+	line "it, you'll give me"
+	cont "a rail PASS?"
+
+	para "<PLAYER>: I'll go"
+	line "find it for you."
+
+	para "You think you lost"
+	line "it when you went"
+	cont "to VERMILION CITY?"
+	done
+
+CopycatText_Worried:
+	text "COPYCAT: Pardon?"
+
+	para "I shouldn't decide"
+	line "what you should"
+	cont "do?"
+
+	para "But I'm really"
+	line "worried… What if"
+	cont "someone finds it?"
+	done
+
+CopycatText_GiveDoll:
+	text "COPYCAT: Yay!"
+	line "That's my CLEFAIRY"
+	cont "# DOLL!"
+
+	para "See the tear where"
+	line "the right leg is"
+
+	para "sewn on? That's"
+	line "proof!"
+	done
+
+CopycatText_GivePass:
+	text "OK. Here's the"
+	line "MAGNET TRAIN PASS"
+	cont "like I promised!"
+	done
+
+CopycatText_ExplainPass:
+	text "COPYCAT: That's"
+	line "the PASS for the"
+	cont "MAGNET TRAIN."
+
+	para "The rail company"
+	line "man gave me that"
+
+	para "when they tore"
+	line "down our old house"
+	cont "for the STATION."
+	done
+
+CopycatText_Male_3:
+	text "<PLAYER>: Hi!"
+	line "Thanks a lot for"
+	cont "the rail PASS!"
+
+	para "<PLAYER>: Pardon?"
+
+	para "<PLAYER>: Is it"
+	line "that fun to mimic"
+	cont "my every move?"
+	done
+
+CopycatText_ItsAScream:
+	text "COPYCAT: You bet!"
+	line "It's a scream!"
+	done
+
+CopycatText_Female_1:
+	text "<PLAYER>: Hi. You"
+	line "must like #MON."
+
+	para "<PLAYER>: No, not"
+	line "me. I asked you."
+
+	para "<PLAYER>: Pardon?"
+	line "You're weird!"
+	done
+
+CopycatText_Female_2:
+	text "<PLAYER>: Hi. Did"
+	line "you really lose"
+	cont "your # DOLL?"
+
+	para "<PLAYER>: You'll"
+	line "really give me a"
+
+	para "rail PASS if I"
+	line "find it for you?"
+
+	para "<PLAYER>: Sure,"
+	line "I'll look for it!"
+
+	para "You think you lost"
+	line "it when you were"
+	cont "in VERMILION?"
+	done
+
+CopycatText_Female_3:
+	text "<PLAYER>: Thank you"
+	line "for the rail PASS!"
+
+	para "<PLAYER>: …Pardon?"
+
+	para "<PLAYER>: Is it"
+	line "really that fun to"
+
+	para "copy what I say"
+	line "and do?"
+	done
+
+CopycatsDodrioText1:
+	text "DODRIO: Gii giii!"
+	done
+
+CopycatsDodrioText2:
+	text "MIRROR, MIRROR ON"
+	line "THE WALL, WHO'S"
+
+	para "THE FAIREST ONE OF"
+	line "ALL?"
+	done
+
+CopycatsHouse2FDollText:
+	text "This is a rare"
+	line "#MON! Huh?"
+
+	para "It's only a doll…"
+	done
+
+CopycatsHouse2F_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  3,  0, COPYCATS_HOUSE_1F, 3
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  0,  1, BGEVENT_READ, CopycatsHouse2FBookshelf
+	bg_event  1,  1, BGEVENT_READ, CopycatsHouse2FBookshelf
+
+	def_object_events
+	object_event  4,  3, SPRITE_COPYCAT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, Copycat, EVENT_COPYCAT_1
+	object_event  6,  4, SPRITE_MOLTRES, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CopycatsDodrio, -1
+	object_event  6,  1, SPRITE_FAIRY, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CopycatsHouse2FDoll, EVENT_COPYCATS_HOUSE_2F_DOLL
+	object_event  2,  1, SPRITE_MONSTER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, CopycatsHouse2FDoll, -1
+	object_event  7,  1, SPRITE_BIRD, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, CopycatsHouse2FDoll, -1
+	object_event  4,  3, SPRITE_COPYCAT, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, Copycat, EVENT_COPYCAT_2

maps/CopycatsHouse2F.blk

@@ -0,0 +1 @@
+ %&'(

maps/DanceTheater.asm

@@ -0,0 +1,360 @@
+	object_const_def
+	const DANCETHEATER_KIMONO_GIRL1
+	const DANCETHEATER_KIMONO_GIRL2
+	const DANCETHEATER_KIMONO_GIRL3
+	const DANCETHEATER_KIMONO_GIRL4
+	const DANCETHEATER_KIMONO_GIRL5
+	const DANCETHEATER_GENTLEMAN
+	const DANCETHEATER_RHYDON
+	const DANCETHEATER_COOLTRAINER_M
+	const DANCETHEATER_GRANNY
+
+DanceTheater_MapScripts:
+	def_scene_scripts
+
+	def_callbacks
+
+TrainerKimonoGirlNaoko:
+	trainer KIMONO_GIRL, NAOKO, EVENT_BEAT_KIMONO_GIRL_NAOKO, KimonoGirlNaokoSeenText, KimonoGirlNaokoBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext KimonoGirlNaokoAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerKimonoGirlSayo:
+	trainer KIMONO_GIRL, SAYO, EVENT_BEAT_KIMONO_GIRL_SAYO, KimonoGirlSayoSeenText, KimonoGirlSayoBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext KimonoGirlSayoAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerKimonoGirlZuki:
+	trainer KIMONO_GIRL, ZUKI, EVENT_BEAT_KIMONO_GIRL_ZUKI, KimonoGirlZukiSeenText, KimonoGirlZukiBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext KimonoGirlZukiAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerKimonoGirlKuni:
+	trainer KIMONO_GIRL, KUNI, EVENT_BEAT_KIMONO_GIRL_KUNI, KimonoGirlKuniSeenText, KimonoGirlKuniBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext KimonoGirlKuniAfterBattleText
+	waitbutton
+	closetext
+	end
+
+TrainerKimonoGirlMiki:
+	trainer KIMONO_GIRL, MIKI, EVENT_BEAT_KIMONO_GIRL_MIKI, KimonoGirlMikiSeenText, KimonoGirlMikiBeatenText, 0, .Script
+
+.Script:
+	endifjustbattled
+	opentext
+	writetext KimonoGirlMikiAfterBattleText
+	waitbutton
+	closetext
+	end
+
+DanceTheaterSurfGuy:
+	faceplayer
+	opentext
+	writetext SurfGuyNeverLeftAScratchText
+	promptbutton
+	checkevent EVENT_GOT_HM03_SURF
+	iftrue SurfGuyAlreadyGaveSurf
+	checkevent EVENT_BEAT_KIMONO_GIRL_NAOKO
+	iffalse .KimonoGirlsUndefeated
+	checkevent EVENT_BEAT_KIMONO_GIRL_SAYO
+	iffalse .KimonoGirlsUndefeated
+	checkevent EVENT_BEAT_KIMONO_GIRL_ZUKI
+	iffalse .KimonoGirlsUndefeated
+	checkevent EVENT_BEAT_KIMONO_GIRL_KUNI
+	iffalse .KimonoGirlsUndefeated
+	checkevent EVENT_BEAT_KIMONO_GIRL_MIKI
+	iffalse .KimonoGirlsUndefeated
+	sjump .GetSurf
+
+.KimonoGirlsUndefeated:
+	checkflag ENGINE_PLAYER_IS_FEMALE
+	iftrue .PlayerIsFemale
+	writetext SurfGuyLadGiftText
+	waitbutton
+	closetext
+	end
+
+.PlayerIsFemale:
+	writetext SurfGuyLassieGiftText
+	waitbutton
+	closetext
+	end
+
+.GetSurf:
+	writetext SurfGuyLikeADanceText
+	promptbutton
+	verbosegiveitem HM_SURF
+	setevent EVENT_GOT_HM03_SURF
+	writetext SurfGuySurfExplanationText
+	waitbutton
+	closetext
+	end
+
+SurfGuyAlreadyGaveSurf:
+	writetext SurfGuyElegantKimonoGirlsText
+	waitbutton
+	closetext
+	end
+
+DanceTheaterRhydon:
+	opentext
+	writetext RhydonText
+	cry RHYDON
+	waitbutton
+	closetext
+	end
+
+DanceTheaterCooltrainerMScript:
+	jumptextfaceplayer DanceTheaterCooltrainerMText
+
+DanceTheaterGrannyScript:
+	jumptextfaceplayer DanceTheaterGrannyText
+
+DanceTheaterFancyPanel:
+	jumptext DanceTheaterFancyPanelText
+
+KimonoGirlNaokoSeenText:
+	text "You have lovely"
+	line "#MON. May I see"
+	cont "them in battle?"
+	done
+
+KimonoGirlNaokoBeatenText:
+	text "Oh, you are very"
+	line "strong."
+	done
+
+KimonoGirlNaokoAfterBattleText:
+	text "I enjoyed that"
+	line "bout. I would like"
+	cont "to see you again."
+	done
+
+KimonoGirlSayoSeenText:
+	text "I always dance"
+	line "with my #MON."
+
+	para "Of course, I also"
+	line "train them."
+	done
+
+KimonoGirlSayoBeatenText:
+	text "Oh, so close!"
+	line "I almost had you."
+	done
+
+KimonoGirlSayoAfterBattleText:
+	text "Rhythm is impor-"
+	line "tant for both"
+
+	para "dancing and #-"
+	line "MON."
+	done
+
+KimonoGirlZukiSeenText:
+	text "Isn't my barrette"
+	line "pretty?"
+
+	para "Oh. A #MON"
+	line "battle?"
+	done
+
+KimonoGirlZukiBeatenText:
+	text "I don't have any"
+	line "#MON left…"
+	done
+
+KimonoGirlZukiAfterBattleText:
+	text "I put a different"
+	line "flower in my bar-"
+	cont "rette every month."
+	done
+
+KimonoGirlKuniSeenText:
+	text "Oh, you're a cute"
+	line "trainer. Would you"
+	cont "like to battle?"
+	done
+
+KimonoGirlKuniBeatenText:
+	text "You're stronger"
+	line "than you look."
+	done
+
+KimonoGirlKuniAfterBattleText:
+	text "I trained a lot,"
+	line "so I thought I was"
+
+	para "a capable trainer."
+	line "I guess I'm not."
+	done
+
+KimonoGirlMikiSeenText:
+	text "Do you like my"
+	line "dancing? I'm good"
+	cont "at #MON too."
+	done
+
+KimonoGirlMikiBeatenText:
+	text "Ooh, you're good"
+	line "at #MON too."
+	done
+
+KimonoGirlMikiAfterBattleText:
+	text "I can keep dancing"
+	line "because there are"
+
+	para "people who enjoy"
+	line "what I do."
+
+	para "My #MON keep my"
+	line "spirits up too."
+	done
+
+SurfGuyNeverLeftAScratchText:
+	text "Not only are the"
+	line "KIMONO GIRLS great"
+
+	para "dancers, they're"
+	line "also skilled at"
+	cont "#MON."
+
+	para "I always challenge"
+	line "them, but I've"
+
+	para "never even left a"
+	line "scratch…"
+	done
+
+SurfGuyLadGiftText:
+	text "Lad! If you can"
+	line "defeat all the"
+
+	para "KIMONO GIRLS, I'll"
+	line "give you a gift."
+	done
+
+SurfGuyLassieGiftText:
+	text "Lassie, if you can"
+	line "defeat all the"
+
+	para "KIMONO GIRLS, I'll"
+	line "give you a gift."
+	done
+
+SurfGuyLikeADanceText:
+	text "The way you bat-"
+	line "tled, it was like"
+	cont "watching a dance."
+
+	para "It was a rare"
+	line "treat to see!"
+
+	para "I want you to have"
+	line "this. Don't worry"
+	cont "--take it!"
+	done
+
+SurfGuySurfExplanationText:
+	text "That's SURF."
+
+	para "It's a move that"
+	line "lets #MON swim"
+	cont "across water."
+	done
+
+SurfGuyElegantKimonoGirlsText:
+	text "I wish my #MON"
+	line "were as elegant as"
+	cont "the KIMONO GIRLS…"
+	done
+
+RhydonText:
+	text "RHYDON: Gugooh"
+	line "gugogooh!"
+	done
+
+DanceTheaterCooltrainerMText:
+	text "That man's always"
+	line "with his RHYDON."
+
+	para "Says he wants a"
+	line "#MON that can"
+	cont "SURF and dance."
+
+	para "Is he trying to"
+	line "make a synchro-"
+	cont "nized swimming"
+	cont "#MON?"
+	done
+
+DanceTheaterGrannyText:
+	text "The KIMONO GIRLS"
+	line "are so beautiful…"
+
+	para "But they have to"
+	line "go through rigor-"
+	cont "ous training."
+
+	para "And they have to"
+	line "learn to follow"
+
+	para "customs before ap-"
+	line "pearing in public."
+
+	para "But if you love"
+	line "something, any-"
+	cont "thing is possible."
+	done
+
+DanceTheaterFancyPanelText:
+	text "It's a fancy panel"
+	line "that's decorated"
+	cont "with flowers."
+	done
+
+DanceTheater_MapEvents:
+	db 0, 0 ; filler
+
+	def_warp_events
+	warp_event  5, 13, ECRUTEAK_CITY, 8
+	warp_event  6, 13, ECRUTEAK_CITY, 8
+
+	def_coord_events
+
+	def_bg_events
+	bg_event  5,  6, BGEVENT_UP, DanceTheaterFancyPanel
+	bg_event  6,  6, BGEVENT_UP, DanceTheaterFancyPanel
+
+	def_object_events
+	object_event  0,  2, SPRITE_KIMONO_GIRL, SPRITEMOVEDATA_SPINCOUNTERCLOCKWISE, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 0, TrainerKimonoGirlNaoko, -1
+	object_event  2,  1, SPRITE_KIMONO_GIRL, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 0, TrainerKimonoGirlSayo, -1
+	object_event  6,  2, SPRITE_KIMONO_GIRL, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 0, TrainerKimonoGirlZuki, -1
+	object_event  9,  1, SPRITE_KIMONO_GIRL, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 0, TrainerKimonoGirlKuni, -1
+	object_event 11,  2, SPRITE_KIMONO_GIRL, SPRITEMOVEDATA_SPINCLOCKWISE, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_TRAINER, 0, TrainerKimonoGirlMiki, -1
+	object_event  7, 10, SPRITE_GENTLEMAN, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DanceTheaterSurfGuy, -1
+	object_event  6,  8, SPRITE_RHYDON, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, DanceTheaterRhydon, -1
+	object_event 10, 10, SPRITE_COOLTRAINER_M, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, DanceTheaterCooltrainerMScript, -1
+	object_event  3,  6, SPRITE_GRANNY, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DanceTheaterGrannyScript, -1