pokecrystal/maps/KrissNeighborsHouse.asm

KrissNeighborsHouse_MapScriptHeader: ; 0x7acec
	; trigger count
	db 0

	; callback count
	db 0
; 0x7acee

CooltrainerFScript_0x7acee: ; 0x7acee
	jumptextfaceplayer UnknownText_0x7ad2f
; 0x7acf1

PokefanFScript_0x7acf1: ; 0x7acf1
	jumptextfaceplayer UnknownText_0x7add4
; 0x7acf4

MapKrissNeighborsHouseSignpost1Script: ; 0x7acf4
	jumpstd $0003
; 0x7acf7

MapKrissNeighborsHouseSignpost2Script: ; 0x7acf7
	checkevent EVENT_GOT_A_POKEMON_FROM_ELM
	iftrue UnknownScript_0x7ad24
	checkevent EVENT_LISTENED_TO_RADIO_IN_NEIGHBORS_HOUSE
	iftrue UnknownScript_0x7ad27
	playmusic MUSIC_POKEMON_TALK
	loadfont
	2writetext UnknownText_0x7ae3b
	pause 45
	2writetext UnknownText_0x7ae6c
	pause 45
	2writetext UnknownText_0x7ae7b
	pause 45
	musicfadeout $003c, $10
	2writetext UnknownText_0x7ae9b
	pause 45
	loadmovesprites
	setevent EVENT_LISTENED_TO_RADIO_IN_NEIGHBORS_HOUSE
	end
; 0x7ad24

UnknownScript_0x7ad24: ; 0x7ad24
	jumpstd $000b
; 0x7ad27

UnknownScript_0x7ad27: ; 0x7ad27
	loadfont
	2writetext UnknownText_0x7ae9b
	pause 45
	loadmovesprites
	end
; 0x7ad2f

UnknownText_0x7ad2f: ; 0x7ad2f
	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
; 0x7add4

UnknownText_0x7add4: ; 0x7add4
	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
; 0x7ae3b

UnknownText_0x7ae3b: ; 0x7ae3b
	text "PROF.OAK'S #MON"
	line "TALK! Please tune"
	cont "in next time!"
	done
; 0x7ae6c

UnknownText_0x7ae6c: ; 0x7ae6c
	text "#MON CHANNEL!"
	done
; 0x7ae7b

UnknownText_0x7ae7b: ; 0x7ae7b
	text "This is DJ MARY,"
	line "your co-host!"
	done
; 0x7ae9b

UnknownText_0x7ae9b: ; 0x7ae9b
	text "#MON!"
	line "#MON CHANNEL…"
	done
; 0x7aeb0

KrissNeighborsHouse_MapEventHeader: ; 0x7aeb0
	; filler
	db 0, 0

	; warps
	db 2
	warp_def $7, $2, 3, GROUP_NEW_BARK_TOWN, MAP_NEW_BARK_TOWN
	warp_def $7, $3, 3, GROUP_NEW_BARK_TOWN, MAP_NEW_BARK_TOWN

	; xy triggers
	db 0

	; signposts
	db 3
	signpost 1, 0, $0, MapKrissNeighborsHouseSignpost1Script
	signpost 1, 1, $0, MapKrissNeighborsHouseSignpost1Script
	signpost 1, 7, $0, MapKrissNeighborsHouseSignpost2Script

	; people-events
	db 2
	person_event SPRITE_COOLTRAINER_F, 7, 6, $9, $0, 255, 255, $80, 0, CooltrainerFScript_0x7acee, $ffff
	person_event SPRITE_POKEFAN_F, 7, 9, $8, $0, 255, 255, $80, 0, PokefanFScript_0x7acf1, $0793
; 0x7aee9