1 files changed, 143 insertions, 0 deletions
diff --git a/maps/CinnabarIsland.asm b/maps/CinnabarIsland.asm
new file mode 100644
index 00000000..54656768
--- /dev/null
+++ b/maps/CinnabarIsland.asm
@@ -0,0 +1,143 @@
+	const_def 2 ; object constants
+	const CINNABARISLAND_BLUE
+
+CinnabarIsland_MapScripts:
+	db 0 ; scene scripts
+
+	db 1 ; callbacks
+	callback MAPCALLBACK_NEWMAP, .FlyPoint
+
+.FlyPoint:
+	setflag ENGINE_FLYPOINT_CINNABAR
+	return
+
+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 pokecentersign
+
+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
+
+	db 1 ; warp events
+	warp_event 11, 11, CINNABAR_POKECENTER_1F, 1
+
+	db 0 ; coord events
+
+	db 4 ; 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
+
+	db 1 ; object events
+	object_event  9,  6, SPRITE_BLUE, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CinnabarIslandBlue, EVENT_BLUE_IN_CINNABAR