; Text in this area uses translations from Minamitoku.
; https://www.youtube.com/watch?v=Pe1vsKRl7_M&ab_channel=Minamitoku

; Because there's no player here, we're taking the opportunity to expand on Cal.
; While usually a Trainer House stand-in in Viridian, he is characterised in some ways.
; For example, he says he's a traveling trainer in GSC.
; In Stadium 2, he is further characterised and even given a unique design.
; Everything just kind of falls into place, no?

	object_const_def
	const CALSHOUSE_KEN

CalsHouse2F_MapScripts:
	def_scene_scripts

	def_callbacks

CalsHouseKen:
	jumptextfaceplayer CalsHouseKenText

CalsHouseKenText:
	text "CAL? He's my"
	line "brother!"
	
	para "He'd always go"
	line "out to places"
	cont "where strong"
	cont "TRAINERs are."
	
	para "WHITE CITY..."
	line "VIRIDIAN CITY..."
	
	para "Places like that!"
	line "He's so cool!"
	done

; Usually, there's a thing about Skarmory here, but Silver's House details it, so let's use this unused quote instead.
CalsHousePCText:
	jumpstd SilphPokegearScript

CalsHouse2FAnimeTV:
	jumpstd AnimeTVScript3

CalsHouseBookshelf1:
	jumpstd PictureBookshelfScript

CalsHouseBookshelf2:
	jumpstd MagazineBookshelfScript
	
CalsHouseN64:
	jumpstd Nintendo64Script

CalsHouseRadio:
	jumptext CalsHouseRadioText

; Using this translation
; https://tcrf.net/Proto:Pok%C3%A9mon_Gold_and_Silver/Spaceworld_1997_Demo/Text
; Could be a jumpstd but I don't see it being used in many places...
CalsHouseRadioText:
	text "You're listening"
	line "to JOPM, NIHON's"
	cont "best-rated radio"
	cont "station!"
	
	para "Now presenting the"
	line "#MON News."
	
	para "...world-renowned"
	line "PROFESSOR reported"
	cont "missing in KANTO!"
	
	para "It's suspected"
	line "that PROF. OAK"
	cont "could have left"
	cont "for a new LAB, but"
	cont "we cannot disprove"
	cont "that foul play"
	cont "could be afoot."
	
	para "Even AIDEs are"
	line "concerned."
	
	para "...that concludes"
	line "today's news."
	
	para "Coming up, music"
	line "with MARY!"
	done
	

CalsHouse2F_MapEvents:
	db 0, 0 ; filler

	def_warp_events
	warp_event  9,  0, CALS_HOUSE_1F, 3

	def_coord_events

	def_bg_events
	bg_event  7,  1, BGEVENT_READ, CalsHouse2FAnimeTV
	bg_event  5,  1, BGEVENT_READ, CalsHouseBookshelf1
	bg_event  1,  1, BGEVENT_READ, CalsHouseBookshelf1
	bg_event  3,  1, BGEVENT_READ, CalsHousePCText
	bg_event  7,  2, BGEVENT_READ, CalsHouseN64
	bg_event  2,  1, BGEVENT_READ, CalsHouseRadio

	def_object_events
	object_event  8,  1, SPRITE_ROCKER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, CalsHouseKen, -1