pokecrystal-board/maps/EcruteakHouse.asm

EcruteakHouse_MapScriptHeader:
	; trigger count
	db 2

	; triggers
	dw UnknownScript_0x9800d, $0000
	dw UnknownScript_0x9800e, $0000

	; callback count
	db 1

	; callbacks

	dbw 2, UnknownScript_0x9800f

UnknownScript_0x9800d:
	end

UnknownScript_0x9800e:
	end

UnknownScript_0x9800f:
	checkevent EVENT_FOUGHT_SUICUNE
	iftrue UnknownScript_0x98033
	checkevent EVENT_KOJI_ALLOWS_YOU_PASSAGE_TO_TIN_TOWER
	iftrue UnknownScript_0x98033
	checkevent EVENT_CLEARED_RADIO_TOWER
	iftrue UnknownScript_0x98022
	return

UnknownScript_0x98022:
	clearevent EVENT_766
	setevent EVENT_RANG_CLEAR_BELL
	setevent EVENT_7B1
	checkitem CLEAR_BELL
	iftrue UnknownScript_0x98032
	dotrigger $0
UnknownScript_0x98032:
	return

UnknownScript_0x98033:
	clearevent EVENT_7B1
	return

UnknownScript_0x98037:
	checkevent EVENT_RANG_CLEAR_BELL
	iftrue UnknownScript_0x98061
	applymovement $3, MovementData_0x980c7
	moveperson $2, $4, $6
	appear $2
	pause 5
	disappear $3
	end

UnknownScript_0x9804c:
	checkevent EVENT_766
	iftrue UnknownScript_0x98061
	applymovement $2, MovementData_0x980cc
	moveperson $3, $5, $6
	appear $3
	pause 5
	disappear $2
	end

UnknownScript_0x98061:
	end

SageScript_0x98062:
	faceplayer
	loadfont
	checkevent EVENT_CLEARED_RADIO_TOWER
	iftrue UnknownScript_0x9807c
	checkflag ENGINE_FOGBADGE
	iftrue UnknownScript_0x98076
	writetext UnknownText_0x980d1
	closetext
	loadmovesprites
	end

UnknownScript_0x98076:
	writetext UnknownText_0x98131
	closetext
	loadmovesprites
	end

UnknownScript_0x9807c:
	checkevent EVENT_KOJI_ALLOWS_YOU_PASSAGE_TO_TIN_TOWER
	iftrue UnknownScript_0x980a4
	checkevent EVENT_000
	iftrue UnknownScript_0x980aa
	checkitem CLEAR_BELL
	iftrue UnknownScript_0x98093
	writetext UnknownText_0x981a4
	closetext
	loadmovesprites
	end

UnknownScript_0x98093:
	writetext UnknownText_0x98250
	closetext
	loadmovesprites
	dotrigger $1
	setevent EVENT_RANG_CLEAR_BELL
	clearevent EVENT_766
	setevent EVENT_000
	end

UnknownScript_0x980a4:
	writetext UnknownText_0x9837e
	closetext
	loadmovesprites
	end

UnknownScript_0x980aa:
	writetext UnknownText_0x98391
	closetext
	loadmovesprites
	end

SageScript_0x980b0:
	faceplayer
	loadfont
	checkevent EVENT_GOT_CLEAR_BELL
	iftrue UnknownScript_0x980be
	writetext UnknownText_0x9840b
	closetext
	loadmovesprites
	end

UnknownScript_0x980be:
	writetext UnknownText_0x9846f
	closetext
	loadmovesprites
	end

GrampsScript_0x980c4:
	jumptextfaceplayer UnknownText_0x984ab

MovementData_0x980c7:
	fix_facing
	big_step_left
	remove_fixed_facing
	turn_head_down
	step_end

MovementData_0x980cc:
	fix_facing
	big_step_right
	remove_fixed_facing
	turn_head_down
	step_end

UnknownText_0x980d1:
	text "TIN TOWER is off"
	line "limits to anyone"

	para "without ECRUTEAK"
	line "GYM's BADGE."

	para "Sorry, but you'll"
	line "have to leave."
	done

UnknownText_0x98131:
	text "TIN TOWER is off"
	line "limits to anyone"

	para "without ECRUTEAK"
	line "GYM's BADGE."

	para "Ah!"

	para "ECRUTEAK's GYM"
	line "BADGE! Please, go"
	cont "right through."
	done

UnknownText_0x981a4:
	text "A momentous event"
	line "has occurred."

	para "I beg your pardon,"
	line "but I must ask you"
	cont "to leave."

	para "…What soothes the"
	line "soul…"

	para "The WISE TRIO say"
	line "things that are so"

	para "very difficult to"
	line "understand…"
	done

UnknownText_0x98250:
	text "A momentous event"
	line "has occurred."

	para "I beg your pardon,"
	line "but I must ask you"
	cont "to leave."

	para $56, $56, $56

	para "Ah!"

	para "The sound of that"
	line "CLEAR BELL!"

	para "It… It's sublime!"

	para "I've never heard"
	line "so beautiful a"
	cont "sound before!"

	para "That bell's chime"
	line "is indicative of"
	cont "the bearer's soul."

	para "You…"

	para "You may be able to"
	line "make it through"
	cont "TIN TOWER."

	para "Please, do go on."
	done

UnknownText_0x9837e:
	text "Please, do go on."
	done

UnknownText_0x98391:
	text "That bell's chime"
	line "is indicative of"
	cont "the bearer's soul."

	para "You…"

	para "You may be able to"
	line "make it through"
	cont "TIN TOWER."

	para "Please, do go on."
	done

UnknownText_0x9840b:
	text "The TIN TOWER"
	line "ahead is a nine-"

	para "tier tower of"
	line "divine beauty."

	para "It soothes the"
	line "soul of all who"
	cont "see it."
	done

UnknownText_0x9846f:
	text "The TIN TOWER"
	line "shook! A #MON"

	para "must have returned"
	line "to the top!"
	done

UnknownText_0x984ab:
	text "Two towers…"
	line "Two #MON…"

	para "But when one"
	line "burned down, both"

	para "#MON flew away,"
	line "never to return."
	done

EcruteakHouse_MapEventHeader:
	; filler
	db 0, 0

	; warps
	db 5
	warp_def $11, $4, 3, GROUP_ECRUTEAK_CITY, MAP_ECRUTEAK_CITY
	warp_def $11, $5, 3, GROUP_ECRUTEAK_CITY, MAP_ECRUTEAK_CITY
	warp_def $3, $5, 4, GROUP_ECRUTEAK_HOUSE, MAP_ECRUTEAK_HOUSE
	warp_def $f, $11, 3, GROUP_ECRUTEAK_HOUSE, MAP_ECRUTEAK_HOUSE
	warp_def $3, $11, 3, GROUP_WISE_TRIOS_ROOM, MAP_WISE_TRIOS_ROOM

	; xy triggers
	db 2
	xy_trigger 0, $7, $4, $0, UnknownScript_0x98037, $0, $0
	xy_trigger 0, $7, $5, $0, UnknownScript_0x9804c, $0, $0

	; signposts
	db 0

	; people-events
	db 4
	person_event SPRITE_SAGE, 10, 8, $6, $0, 255, 255, $0, 0, SageScript_0x98062, EVENT_766
	person_event SPRITE_SAGE, 10, 9, $6, $0, 255, 255, $0, 0, SageScript_0x98062, EVENT_RANG_CLEAR_BELL
	person_event SPRITE_SAGE, 13, 10, $2, $11, 255, 255, $0, 0, SageScript_0x980b0, EVENT_7B1
	person_event SPRITE_GRAMPS, 15, 7, $2, $11, 255, 255, $0, 0, GrampsScript_0x980c4, EVENT_7B1