pokecrystal/maps/KarensRoom.asm

	object_const_def ; object_event constants
	const KARENSROOM_KAREN

KarensRoom_MapScripts:
	db 2 ; scene scripts
	scene_script .LockDoor ; SCENE_DEFAULT
	scene_script .DummyScene ; SCENE_FINISHED

	db 1 ; callbacks
	callback MAPCALLBACK_TILES, .KarensRoomDoors

.LockDoor:
	prioritysjump .KarensDoorLocksBehindYou
	end

.DummyScene:
	end

.KarensRoomDoors:
	checkevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
	iffalse .KeepEntranceOpen
	changeblock 4, 14, $2a ; wall
.KeepEntranceOpen:
	checkevent EVENT_KARENS_ROOM_EXIT_OPEN
	iffalse .KeepExitClosed
	changeblock 4, 2, $16 ; open door
.KeepExitClosed:
	endcallback

.KarensDoorLocksBehindYou:
	applymovement PLAYER, KarensRoom_EnterMovement
	refreshscreen $86
	playsound SFX_STRENGTH
	earthquake 80
	changeblock 4, 14, $2a ; wall
	reloadmappart
	closetext
	setscene SCENE_FINISHED
	setevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED
	waitsfx
	end

KarenScript_Battle:
	faceplayer
	opentext
	checkevent EVENT_BEAT_ELITE_4_KAREN
	iftrue KarenScript_AfterBattle
	writetext KarenScript_KarenBeforeText
	waitbutton
	closetext
	winlosstext KarenScript_KarenBeatenText, 0
	loadtrainer KAREN, KAREN1
	startbattle
	reloadmapafterbattle
	setevent EVENT_BEAT_ELITE_4_KAREN
	opentext
	writetext KarenScript_KarenDefeatText
	waitbutton
	closetext
	playsound SFX_ENTER_DOOR
	changeblock 4, 2, $16 ; open door
	reloadmappart
	closetext
	setevent EVENT_KARENS_ROOM_EXIT_OPEN
	waitsfx
	end

KarenScript_AfterBattle:
	writetext KarenScript_KarenDefeatText
	waitbutton
	closetext
	end

KarensRoom_EnterMovement:
	step UP
	step UP
	step UP
	step UP
	step_end

KarenScript_KarenBeforeText:
	text "I am KAREN of the"
	line "ELITE FOUR."

	para "You're <PLAYER>?"
	line "How amusing."

	para "I love dark-type"
	line "#MON."

	para "I find their wild,"
	line "tough image to be"

	para "so appealing. And"
	line "they're so strong."

	para "Think you can take"
	line "them? Just try to"
	cont "entertain me."

	para "Let's go."
	done

KarenScript_KarenBeatenText:
	text "Well, aren't you"
	line "good. I like that"
	cont "in a trainer."
	done

KarenScript_KarenDefeatText:
	text "Strong #MON."

	para "Weak #MON."

	para "That is only the"
	line "selfish perception"
	cont "of people."

	para "Truly skilled"
	line "trainers should"

	para "try to win with"
	line "their favorites."

	para "I like your style."
	line "You understand"
	cont "what's important."

	para "Go on--the CHAM-"
	line "PION is waiting."
	done

KarensRoom_MapEvents:
	db 0, 0 ; filler

	db 4 ; warp events
	warp_event  4, 17, BRUNOS_ROOM, 3
	warp_event  5, 17, BRUNOS_ROOM, 4
	warp_event  4,  2, LANCES_ROOM, 1
	warp_event  5,  2, LANCES_ROOM, 2

	db 0 ; coord events

	db 0 ; bg events

	db 1 ; object events
	object_event  5,  7, SPRITE_KAREN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, KarenScript_Battle, -1
"object_const_def" instead of "const_def 2" 2019-04-21 21:42:25 +00:00			`object_const_def ; object_event constants`
Person event constants for each map 2015-11-27 05:22:14 +00:00			`const KARENSROOM_KAREN`

map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`KarensRoom_MapScripts:`
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 2 ; scene scripts`
Meaningful scene constant names (Two common patterns: 0=default event and 1=nothing; and 0=nothing and 1=some event) 2018-02-01 17:40:58 +00:00			`scene_script .LockDoor ; SCENE_DEFAULT`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 20:06:06 +00:00			`scene_script .DummyScene ; SCENE_FINISHED`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 1 ; callbacks`
Introduce callback, hiddenitem, conditional_event, and cmdqueue macros for map scripts 2018-01-13 05:47:38 +00:00			`callback MAPCALLBACK_TILES, .KarensRoomDoors`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
All map triggers use the `maptrigger` macro, not `dw` .MapTriggers and .MapCallbacks lists are formatted consistently with .Warps, .XYTriggers, .Signposts, and .PersonEvents 2017-12-10 22:53:21 +00:00			`.LockDoor:`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 20:39:31 +00:00			`prioritysjump .KarensDoorLocksBehindYou`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 18:46:34 +00:00			`.DummyScene:`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`.KarensRoomDoors:`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`checkevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`iffalse .KeepEntranceOpen`
			`changeblock 4, 14, $2a ; wall`
			`.KeepEntranceOpen:`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`checkevent EVENT_KARENS_ROOM_EXIT_OPEN`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`iffalse .KeepExitClosed`
			`changeblock 4, 2, $16 ; open door`
			`.KeepExitClosed:`
return → endcallback, reloadandreturn → reloadend 2020-07-17 12:37:03 +00:00			`endcallback`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`.KarensDoorLocksBehindYou:`
Label more map scripts 2018-02-28 21:50:43 +00:00			`applymovement PLAYER, KarensRoom_EnterMovement`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`refreshscreen $86`
Music and sound effect constants in map events. 2014-04-30 10:04:35 +00:00			`playsound SFX_STRENGTH`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`earthquake 80`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`changeblock 4, 14, $2a ; wall`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`reloadmappart`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
SCENE_DEFAULT=0 and SCENE_FINISHED=1 (generic constants for a common scene pattern) 2018-02-01 20:06:06 +00:00			`setscene SCENE_FINISHED`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`setevent EVENT_KARENS_ROOM_ENTRANCE_CLOSED`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitsfx`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`KarenScript_Battle:`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`faceplayer`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`checkevent EVENT_BEAT_ELITE_4_KAREN`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`iftrue KarenScript_AfterBattle`
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`writetext KarenScript_KarenBeforeText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`closetext`
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`winlosstext KarenScript_KarenBeatenText, 0`
Clean up some hex values in map scripts 2018-01-09 23:45:25 +00:00			`loadtrainer KAREN, KAREN1`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`startbattle`
Move effects; no more reloadmapmusic, returnafterbattle 2015-12-26 23:11:55 +00:00			`reloadmapafterbattle`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`setevent EVENT_BEAT_ELITE_4_KAREN`
opentext and breeding 2015-12-09 23:25:44 +00:00			`opentext`
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`writetext KarenScript_KarenDefeatText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`closetext`
Music and sound effect constants in map events. 2014-04-30 10:04:35 +00:00			`playsound SFX_ENTER_DOOR`
Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`changeblock 4, 2, $16 ; open door`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`reloadmappart`
Rename several script commands 2015-11-25 15:16:29 +00:00			`closetext`
rename bit1 script commands to event 2013-09-24 07:48:58 +00:00			`setevent EVENT_KARENS_ROOM_EXIT_OPEN`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitsfx`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`end`

Comment on changeblock ids 2018-01-17 18:23:43 +00:00			`KarenScript_AfterBattle:`
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`writetext KarenScript_KarenDefeatText`
Rename several script commands 2015-11-25 15:16:29 +00:00			`waitbutton`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`closetext`
			`end`

Label more map scripts 2018-02-28 21:50:43 +00:00			`KarensRoom_EnterMovement:`
Unify directional movement macros 2016-05-14 17:46:14 +00:00			`step UP`
			`step UP`
			`step UP`
			`step UP`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00			`step_end`

Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`KarenScript_KarenBeforeText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "I am KAREN of the"`
			`line "ELITE FOUR."`

Use charmaps for special string codepoints. Also fix all the text. Also fix some unreferenced scripts that were interpreted as text. 2015-06-28 04:59:17 +00:00			`para "You're <PLAYER>?"`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`line "How amusing."`

			`para "I love dark-type"`
			`line "#MON."`

			`para "I find their wild,"`
			`line "tough image to be"`

			`para "so appealing. And"`
			`line "they're so strong."`

			`para "Think you can take"`
			`line "them? Just try to"`
			`cont "entertain me."`

			`para "Let's go."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`KarenScript_KarenBeatenText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "Well, aren't you"`
			`line "good. I like that"`
			`cont "in a trainer."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Renaming labels for E4. 2017-09-28 16:33:26 +00:00			`KarenScript_KarenDefeatText:`
Text macros in maps/. Looks fine at a glance. 2014-03-06 05:29:44 +00:00			`text "Strong #MON."`

			`para "Weak #MON."`

			`para "That is only the"`
			`line "selfish perception"`
			`cont "of people."`

			`para "Truly skilled"`
			`line "trainers should"`

			`para "try to win with"`
			`line "their favorites."`

			`para "I like your style."`
			`line "You understand"`
			`cont "what's important."`

			`para "Go on--the CHAM-"`
			`line "PION is waiting."`
			`done`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
map_header → map_def; map_header_2 → map_data 2018-01-17 03:57:19 +00:00			`KarensRoom_MapEvents:`
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 0, 0 ; filler`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 4 ; warp events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`warp_event 4, 17, BRUNOS_ROOM, 3`
			`warp_event 5, 17, BRUNOS_ROOM, 4`
			`warp_event 4, 2, LANCES_ROOM, 1`
			`warp_event 5, 2, LANCES_ROOM, 2`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 0 ; coord events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 0 ; bg events`
Split map scripts, text, events from main.asm The commit we deserve 2013-02-17 06:54:07 +00:00
Remove unreferenced map script heading labels 2018-01-30 19:15:47 +00:00			`db 1 ; object events`
Align map event coordinate columns 2018-02-02 03:22:07 +00:00			`object_event 5, 7, SPRITE_KAREN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, KarenScript_Battle, -1`