1 files changed, 115 insertions, 0 deletions
diff --git a/maps/PlayersNeighborsHouse.asm b/maps/PlayersNeighborsHouse.asm
new file mode 100644
index 000000000..84400b09e
--- /dev/null
+++ b/maps/PlayersNeighborsHouse.asm
@@ -0,0 +1,115 @@
+	const_def 2 ; object constants
+	const PLAYERSNEIGHBORSHOUSE_COOLTRAINER_F
+	const PLAYERSNEIGHBORSHOUSE_POKEFAN_F
+
+PlayersNeighborsHouse_MapScripts:
+	db 0 ; scene scripts
+
+	db 0 ; callbacks
+
+PlayersNeighborsDaughterScript:
+	jumptextfaceplayer PlayersNeighborsDaughterText
+
+PlayersNeighborScript:
+	jumptextfaceplayer PlayersNeighborText
+
+PlayersNeighborsHouseBookshelfScript:
+	jumpstd magazinebookshelf
+
+PlayersNeighborsHouseRadioScript:
+	checkevent EVENT_GOT_A_POKEMON_FROM_ELM
+	iftrue .NormalRadio
+	checkevent EVENT_LISTENED_TO_INITIAL_RADIO
+	iftrue .AbbreviatedRadio
+	playmusic MUSIC_POKEMON_TALK
+	opentext
+	writetext PlayerNeighborRadioText1
+	pause 45
+	writetext PlayerNeighborRadioText2
+	pause 45
+	writetext PlayerNeighborRadioText3
+	pause 45
+	musicfadeout MUSIC_NEW_BARK_TOWN, 16
+	writetext PlayerNeighborRadioText4
+	pause 45
+	closetext
+	setevent EVENT_LISTENED_TO_INITIAL_RADIO
+	end
+.NormalRadio:
+	jumpstd radio1
+.AbbreviatedRadio:
+	opentext
+	writetext PlayerNeighborRadioText4
+	pause 45
+	closetext
+	end
+
+PlayersNeighborsDaughterText:
+	text "PIKACHU is an"
+	line "evolved #MON."
+
+	para "I was amazed by"
+	line "PROF.ELM's find-"
+	cont "ings."
+
+	para "He's so famous for"
+	line "his research on"
+	cont "#MON evolution."
+
+	para "…sigh…"
+
+	para "I wish I could be"
+	line "a researcher like"
+	cont "him…"
+	done
+
+PlayersNeighborText:
+	text "My daughter is"
+	line "adamant about"
+
+	para "becoming PROF."
+	line "ELM's assistant."
+
+	para "She really loves"
+	line "#MON!"
+
+	para "But then, so do I!"
+	done
+
+PlayerNeighborRadioText1:
+	text "PROF.OAK'S #MON"
+	line "TALK! Please tune"
+	cont "in next time!"
+	done
+
+PlayerNeighborRadioText2:
+	text "#MON CHANNEL!"
+	done
+
+PlayerNeighborRadioText3:
+	text "This is DJ MARY,"
+	line "your co-host!"
+	done
+
+PlayerNeighborRadioText4:
+	text "#MON!"
+	line "#MON CHANNEL…"
+	done
+
+PlayersNeighborsHouse_MapEvents:
+	db 0, 0 ; filler
+
+	db 2 ; warp events
+	warp_event  2,  7, NEW_BARK_TOWN, 3
+	warp_event  3,  7, NEW_BARK_TOWN, 3
+
+	db 0 ; coord events
+
+	db 3 ; bg events
+	bg_event  0,  1, BGEVENT_READ, PlayersNeighborsHouseBookshelfScript
+	bg_event  1,  1, BGEVENT_READ, PlayersNeighborsHouseBookshelfScript
+	bg_event  7,  1, BGEVENT_READ, PlayersNeighborsHouseRadioScript
+
+	db 2 ; object events
+	object_event  2,  3, SPRITE_COOLTRAINER_F, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PlayersNeighborsDaughterScript, -1
+	object_event  5,  3, SPRITE_POKEFAN_F, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, PlayersNeighborScript, EVENT_PLAYERS_NEIGHBORS_HOUSE_NEIGHBOR