1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
.set LOCALID_STEVEN, 1
GraniteCave_StevensRoom_MapScripts:: @ 822DC7A
.byte 0
GraniteCave_StevensRoom_EventScript_Steven:: @ 822DC7B
lock
faceplayer
msgbox GraniteCave_StevensRoom_Text_ImStevenLetterForMe, MSGBOX_DEFAULT
setvar VAR_0x8004, ITEM_LETTER
call Common_EventScript_PlayerHandedOverTheItem
setflag FLAG_DELIVERED_STEVEN_LETTER
msgbox GraniteCave_StevensRoom_Text_ThankYouTakeThis, MSGBOX_DEFAULT
giveitem ITEM_TM47
compare VAR_RESULT, FALSE
call_if_eq GraniteCave_StevensRoom_EventScript_BagFull
msgbox GraniteCave_StevensRoom_Text_CouldBecomeChampionLetsRegister, MSGBOX_DEFAULT
closemessage
delay 30
playfanfare MUS_REGISTER_MATCH_CALL
msgbox GraniteCave_StevensRoom_Text_RegisteredSteven, MSGBOX_DEFAULT
waitfanfare
closemessage
delay 30
setflag FLAG_REGISTERED_STEVEN_POKENAV
msgbox GraniteCave_StevensRoom_Text_IveGotToHurryAlong, MSGBOX_DEFAULT
closemessage
compare VAR_FACING, DIR_NORTH
call_if_eq GraniteCave_StevensRoom_EventScript_StevenExitNorth
compare VAR_FACING, DIR_SOUTH
call_if_eq GraniteCave_StevensRoom_EventScript_StevenExitSouth
compare VAR_FACING, DIR_WEST
call_if_eq GraniteCave_StevensRoom_EventScript_StevenExitWestEast
compare VAR_FACING, DIR_EAST
call_if_eq GraniteCave_StevensRoom_EventScript_StevenExitWestEast
playse SE_EXIT
removeobject LOCALID_STEVEN
release
end
GraniteCave_StevensRoom_EventScript_StevenExitNorth:: @ 822DD0D
applymovement LOCALID_STEVEN, GraniteCave_StevensRoom_Movement_StevenExit
waitmovement 0
return
GraniteCave_StevensRoom_EventScript_StevenExitWestEast:: @ 822DD18
applymovement OBJ_EVENT_ID_PLAYER, GraniteCave_StevensRoom_Movement_PlayerTurnTowardExit
applymovement LOCALID_STEVEN, GraniteCave_StevensRoom_Movement_StevenExit
waitmovement 0
return
GraniteCave_StevensRoom_EventScript_StevenExitSouth:: @ 822DD2A
applymovement OBJ_EVENT_ID_PLAYER, GraniteCave_StevensRoom_Movement_PlayerTurnTowardExit
applymovement LOCALID_STEVEN, GraniteCave_StevensRoom_Movement_StevenExitSouth
waitmovement 0
return
GraniteCave_StevensRoom_EventScript_BagFull:: @ 822DD3C
msgbox GraniteCave_StevensRoom_Text_OhBagIsFull, MSGBOX_DEFAULT
return
GraniteCave_StevensRoom_Movement_StevenExit: @ 822DD45
walk_up
walk_up
walk_up
walk_up
walk_up
delay_8
step_end
GraniteCave_StevensRoom_Movement_PlayerTurnTowardExit: @ 822DD4C
delay_16
delay_16
delay_16
walk_in_place_fastest_up
step_end
GraniteCave_StevensRoom_Movement_StevenExitSouth: @ 822DD51
walk_left
walk_up
walk_up
walk_up
walk_right
walk_up
walk_up
delay_8
step_end
GraniteCave_StevensRoom_Text_ImStevenLetterForMe: @ 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_ThankYouTakeThis: @ 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_CouldBecomeChampionLetsRegister: @ 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_RegisteredSteven: @ 822DF6A
.string "Registered STEVEN\n"
.string "in the POKéNAV.$"
GraniteCave_StevensRoom_Text_IveGotToHurryAlong: @ 822DF8C
.string "Now, I've got to hurry along.$"
GraniteCave_StevensRoom_Text_OhBagIsFull: @ 822DFAA
.string "Oh, your BAG is full…\n"
.string "That's too bad, then.$"
|
