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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
object_const_def
const KARENSROOM_KAREN
KarensRoom_MapScripts:
def_scene_scripts
scene_script .LockDoor ; SCENE_DEFAULT
scene_script .DummyScene ; SCENE_FINISHED
def_callbacks
callback MAPCALLBACK_TILES, .KarensRoomDoors
.LockDoor:
sdefer .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 $85
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
def_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
def_coord_events
def_bg_events
def_object_events
object_event 5, 7, SPRITE_KAREN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, KarenScript_Battle, -1
|
