1 files changed, 124 insertions, 0 deletions
diff --git a/data/scripts/maps/GraniteCave_StevensRoom.inc b/data/scripts/maps/GraniteCave_StevensRoom.inc
new file mode 100644
index 000000000..318b80c78
--- /dev/null
+++ b/data/scripts/maps/GraniteCave_StevensRoom.inc
@@ -0,0 +1,124 @@
+GraniteCave_StevensRoom_MapScripts:: @ 822DC7A
+	.byte 0
+
+GraniteCave_StevensRoom_EventScript_22DC7B:: @ 822DC7B
+	lock
+	faceplayer
+	msgbox GraniteCave_StevensRoom_Text_22DD5A, 4
+	setvar VAR_0x8004, 274
+	call GraniteCave_StevensRoom_EventScript_2723E4
+	setflag FLAG_0x0BD
+	msgbox GraniteCave_StevensRoom_Text_22DDBD, 4
+	giveitem_std ITEM_TM47
+	compare_var_to_value VAR_RESULT, 0
+	call_if 1, GraniteCave_StevensRoom_EventScript_22DD3C
+	msgbox GraniteCave_StevensRoom_Text_22DE6B, 4
+	closemessage
+	delay 30
+	playfanfare BGM_ME_MATCH_CALL
+	msgbox GraniteCave_StevensRoom_Text_22DF6A, 4
+	waitfanfare
+	closemessage
+	delay 30
+	setflag FLAG_0x131
+	msgbox GraniteCave_StevensRoom_Text_22DF8C, 4
+	closemessage
+	compare_var_to_value VAR_FACING, 2
+	call_if 1, GraniteCave_StevensRoom_EventScript_22DD0D
+	compare_var_to_value VAR_FACING, 1
+	call_if 1, GraniteCave_StevensRoom_EventScript_22DD2A
+	compare_var_to_value VAR_FACING, 3
+	call_if 1, GraniteCave_StevensRoom_EventScript_22DD18
+	compare_var_to_value VAR_FACING, 4
+	call_if 1, GraniteCave_StevensRoom_EventScript_22DD18
+	playse SE_KAIDAN
+	removeobject 1
+	release
+	end
+
+GraniteCave_StevensRoom_EventScript_22DD0D:: @ 822DD0D
+	applymovement 1, GraniteCave_StevensRoom_Movement_22DD45
+	waitmovement 0
+	return
+
+GraniteCave_StevensRoom_EventScript_22DD18:: @ 822DD18
+	applymovement 255, GraniteCave_StevensRoom_Movement_22DD4C
+	applymovement 1, GraniteCave_StevensRoom_Movement_22DD45
+	waitmovement 0
+	return
+
+GraniteCave_StevensRoom_EventScript_22DD2A:: @ 822DD2A
+	applymovement 255, GraniteCave_StevensRoom_Movement_22DD4C
+	applymovement 1, GraniteCave_StevensRoom_Movement_22DD51
+	waitmovement 0
+	return
+
+GraniteCave_StevensRoom_EventScript_22DD3C:: @ 822DD3C
+	msgbox GraniteCave_StevensRoom_Text_22DFAA, 4
+	return
+
+GraniteCave_StevensRoom_Movement_22DD45: @ 822DD45
+	step_up
+	step_up
+	step_up
+	step_up
+	step_up
+	step_13
+	step_end
+
+GraniteCave_StevensRoom_Movement_22DD4C: @ 822DD4C
+	step_14
+	step_14
+	step_14
+	step_26
+	step_end
+
+GraniteCave_StevensRoom_Movement_22DD51: @ 822DD51
+	step_left
+	step_up
+	step_up
+	step_up
+	step_right
+	step_up
+	step_up
+	step_13
+	step_end
+
+GraniteCave_StevensRoom_Text_22DD5A: @ 822DD5A
+	.string "My name is STEVEN.\p"
+	.string "I’m interested in rare stones,\n"
+	.string "so I travel here and there.\p"
+	.string "Oh?\n"
+	.string "A LETTER for me?$"
+
+GraniteCave_StevensRoom_Text_22DDBD: @ 822DDBD
+	.string "STEVEN: Okay, thank you.\p"
+	.string "You went through all this trouble to\n"
+	.string "deliver that. I need to thank you.\p"
+	.string "Let me see…\n"
+	.string "I’ll give you this TM.\p"
+	.string "It contains my favorite move,\n"
+	.string "STEEL WING.$"
+
+GraniteCave_StevensRoom_Text_22DE6B: @ 822DE6B
+	.string "STEVEN: Your POKéMON appear quite\n"
+	.string "capable.\p"
+	.string "If you keep training, you could even\n"
+	.string "become the CHAMPION of the POKéMON\l"
+	.string "LEAGUE one day. That’s what I think.\p"
+	.string "I know, since we’ve gotten to know each\n"
+	.string "other, let’s register one another in\l"
+	.string "our POKéNAVS.\p"
+	.string "… … … … … …$"
+
+GraniteCave_StevensRoom_Text_22DF6A: @ 822DF6A
+	.string "Registered STEVEN\n"
+	.string "in the POKéNAV.$"
+
+GraniteCave_StevensRoom_Text_22DF8C: @ 822DF8C
+	.string "Now, I’ve got to hurry along.$"
+
+GraniteCave_StevensRoom_Text_22DFAA: @ 822DFAA
+	.string "Oh, your BAG is full…\n"
+	.string "That’s too bad, then.$"
+