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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
object_const_def
const SEAFOAMGYM_BLAINE
const SEAFOAMGYM_GYM_GUIDE
SeafoamGym_MapScripts:
def_scene_scripts
scene_script .DummyScene
def_callbacks
.DummyScene:
end
SeafoamGymBlaineScript:
faceplayer
opentext
checkflag ENGINE_VOLCANOBADGE
iftrue .FightDone
writetext BlaineIntroText
waitbutton
closetext
winlosstext BlaineWinLossText, 0
loadtrainer BLAINE, BLAINE1
startbattle
iftrue .ReturnAfterBattle
appear SEAFOAMGYM_GYM_GUIDE
.ReturnAfterBattle:
reloadmapafterbattle
setevent EVENT_BEAT_BLAINE
opentext
writetext ReceivedVolcanoBadgeText
playsound SFX_GET_BADGE
waitsfx
setflag ENGINE_VOLCANOBADGE
writetext BlaineAfterBattleText
waitbutton
closetext
end
.FightDone:
writetext BlaineFightDoneText
waitbutton
closetext
end
SeafoamGymGuideScript:
faceplayer
opentext
checkevent EVENT_TALKED_TO_SEAFOAM_GYM_GUIDE_ONCE
iftrue .TalkedToSeafoamGymGuideScript
writetext SeafoamGymGuideWinText
waitbutton
closetext
setevent EVENT_TALKED_TO_SEAFOAM_GYM_GUIDE_ONCE
end
.TalkedToSeafoamGymGuideScript:
writetext SeafoamGymGuideWinText2
waitbutton
closetext
end
BlaineIntroText:
text "BLAINE: Waaah!"
para "My GYM in CINNABAR"
line "burned down."
para "My fire-breathing"
line "#MON and I are"
para "homeless because"
line "of the volcano."
para "Waaah!"
para "But I'm back in"
line "business as a GYM"
para "LEADER here in"
line "this cave."
para "If you can beat"
line "me, I'll give you"
cont "a BADGE."
para "Ha! You'd better"
line "have BURN HEAL!"
done
BlaineWinLossText:
text "BLAINE: Awesome."
line "I've burned out…"
para "You've earned"
line "VOLCANOBADGE!"
done
ReceivedVolcanoBadgeText:
text "<PLAYER> received"
line "VOLCANOBADGE."
done
BlaineAfterBattleText:
text "BLAINE: I did lose"
line "this time, but I'm"
para "going to win the"
line "next time."
para "When I rebuild my"
line "CINNABAR GYM,"
para "we'll have to have"
line "a rematch."
done
BlaineFightDoneText:
text "BLAINE: My fire"
line "#MON will be"
para "even stronger."
line "Just you watch!"
done
SeafoamGymGuideWinText:
text "Yo!"
para "… Huh? It's over"
line "already?"
para "Sorry, dude!"
para "CINNABAR GYM was"
line "gone, so I didn't"
para "know where to find"
line "you."
para "But, hey, you're"
line "plenty strong even"
para "without my advice."
line "I knew you'd win!"
done
SeafoamGymGuideWinText2:
text "A #MON GYM can"
line "be anywhere as"
para "long as the GYM"
line "LEADER is there."
para "There's no need"
line "for a building."
done
SeafoamGym_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 5, 5, ROUTE_20, 1
def_coord_events
def_bg_events
def_object_events
object_event 5, 2, SPRITE_BLAINE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, SeafoamGymBlaineScript, -1
object_event 6, 5, SPRITE_GYM_GUIDE, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_SCRIPT, 0, SeafoamGymGuideScript, EVENT_SEAFOAM_GYM_GYM_GUIDE
|
