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
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
object_const_def
const ROUTE39BARN_TWIN1
const ROUTE39BARN_TWIN2
const ROUTE39BARN_MOOMOO
Route39Barn_MapScripts:
def_scene_scripts
def_callbacks
Route39BarnTwin1Script:
faceplayer
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .FeedingMooMoo
writetext Route39BarnTwinMoomooIsSickText
waitbutton
closetext
turnobject ROUTE39BARN_TWIN1, RIGHT
end
.FeedingMooMoo:
writetext Route39BarnTwinWereFeedingMoomooText
waitbutton
closetext
turnobject ROUTE39BARN_TWIN1, RIGHT
end
Route39BarnTwin2Script:
faceplayer
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .FeedingMooMoo
writetext Route39BarnTwinMoomooIsSickText
waitbutton
closetext
turnobject ROUTE39BARN_TWIN2, LEFT
end
.FeedingMooMoo:
writetext Route39BarnTwinWereFeedingMoomooText
waitbutton
closetext
turnobject ROUTE39BARN_TWIN2, LEFT
end
MoomooScript:
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .HappyCow
writetext MoomooWeakMooText
setval MILTANK
special PlaySlowCry
promptbutton
writetext Route39BarnItsCryIsWeakText
checkevent EVENT_TALKED_TO_FARMER_ABOUT_MOOMOO
iftrue .GiveBerry
waitbutton
closetext
end
.GiveBerry:
promptbutton
writetext Route39BarnAskGiveBerryText
yesorno
iffalse .Refused
checkitem BERRY
iffalse .NoBerriesInBag
takeitem BERRY
readmem wMooMooBerries
addval 1
writemem wMooMooBerries
ifequal 3, .ThreeBerries
ifequal 5, .FiveBerries
ifequal 7, .SevenBerries
writetext Route39BarnGaveBerryText
waitbutton
closetext
end
.ThreeBerries:
writetext Route39BarnGaveBerryText
promptbutton
writetext Route39BarnLittleHealthierText
waitbutton
closetext
end
.FiveBerries:
writetext Route39BarnGaveBerryText
promptbutton
writetext Route39BarnQuiteHealthyText
waitbutton
closetext
end
.SevenBerries:
playmusic MUSIC_HEAL
writetext Route39BarnGaveBerryText
pause 60
promptbutton
special RestartMapMusic
writetext Route39BarnTotallyHealthyText
waitbutton
closetext
setevent EVENT_HEALED_MOOMOO
end
.NoBerriesInBag:
writetext Route39BarnNoBerriesText
waitbutton
closetext
end
.Refused:
writetext Route39BarnRefusedBerryText
waitbutton
closetext
end
.HappyCow:
writetext MoomooHappyMooText
cry MILTANK
waitbutton
closetext
end
Route39BarnTwinMoomooIsSickText:
text "MOOMOO is sick…"
para "She needs lots of"
line "BERRIES."
done
Route39BarnTwinWereFeedingMoomooText:
text "We're feeding"
line "MOOMOO!"
done
MoomooWeakMooText:
text "MILTANK: …Moo…"
done
Route39BarnItsCryIsWeakText:
text "Its cry is weak…"
done
MoomooHappyMooText:
text "MILTANK: Mooo!"
done
Route39BarnAskGiveBerryText:
text "Give a BERRY to"
line "MILTANK?"
done
Route39BarnGaveBerryText:
text "<PLAYER> gave a"
line "BERRY to MILTANK."
done
Route39BarnLittleHealthierText:
text "MILTANK became a"
line "little healthier!"
done
Route39BarnQuiteHealthyText:
text "MILTANK became"
line "quite healthy!"
done
Route39BarnTotallyHealthyText:
text "MILTANK became"
line "totally healthy!"
done
Route39BarnNoBerriesText:
text "<PLAYER> has no"
line "BERRIES…"
done
Route39BarnRefusedBerryText:
text "<PLAYER> wouldn't"
line "give a BERRY."
para "MILTANK looks sad."
done
Route39Barn_MapEvents:
db 0, 0 ; filler
def_warp_events
warp_event 3, 7, ROUTE_39, 1
warp_event 4, 7, ROUTE_39, 1
def_coord_events
def_bg_events
def_object_events
object_event 2, 3, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, Route39BarnTwin1Script, -1
object_event 4, 3, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, Route39BarnTwin2Script, -1
object_event 3, 3, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MoomooScript, -1
|
