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
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
|
.include "constants/gba_constants.s"
.include "constants/species_constants.s"
.include "asm/macros.s"
.syntax unified
.text
thumb_func_start CheckMonIsValid
CheckMonIsValid: @ 80C5684
push {lr}
movs r1, 0x41
bl GetMonData
lsls r0, 16
lsrs r1, r0, 16
cmp r1, 0
beq _080C569C
movs r0, 0xCE
lsls r0, 1
cmp r1, r0
bne _080C56A0
_080C569C:
movs r0, 0
b _080C56A2
_080C56A0:
movs r0, 0x1
_080C56A2:
pop {r1}
bx r1
thumb_func_end CheckMonIsValid
thumb_func_start CheckMonFainted
CheckMonFainted: @ 80C56A8
push {r4,r5,lr}
ldr r4, _080C56C8 @ =gPlayerParty
movs r5, 0
_080C56AE:
adds r0, r4, 0
bl CheckMonIsValid
cmp r0, 0
beq _080C56CC
adds r0, r4, 0
movs r1, 0x39
bl GetMonData
cmp r0, 0
beq _080C56CC
movs r0, 0
b _080C56D6
.align 2, 0
_080C56C8: .4byte gPlayerParty
_080C56CC:
adds r5, 0x1
adds r4, 0x64
cmp r5, 0x5
ble _080C56AE
movs r0, 0x1
_080C56D6:
pop {r4,r5}
pop {r1}
bx r1
thumb_func_end CheckMonFainted
thumb_func_start MonFaintFromPoisonOnField
MonFaintFromPoisonOnField: @ 80C56DC
push {r4,r5,lr}
sub sp, 0x4
lsls r0, 24
lsrs r0, 24
movs r1, 0x64
adds r4, r0, 0
muls r4, r1
ldr r0, _080C5720 @ =gPlayerParty
adds r4, r0
movs r0, 0
str r0, [sp]
adds r0, r4, 0
movs r1, 0x7
bl AdjustFriendship
adds r0, r4, 0
movs r1, 0x37
mov r2, sp
bl SetMonData
ldr r5, _080C5724 @ =gStringVar1
adds r0, r4, 0
movs r1, 0x2
adds r2, r5, 0
bl GetMonData
adds r0, r5, 0
bl StringGetEnd10
add sp, 0x4
pop {r4,r5}
pop {r0}
bx r0
.align 2, 0
_080C5720: .4byte gPlayerParty
_080C5724: .4byte gStringVar1
thumb_func_end MonFaintFromPoisonOnField
thumb_func_start CheckMonFaintedFromPoison
CheckMonFaintedFromPoison: @ 80C5728
push {r4,lr}
lsls r0, 24
lsrs r0, 24
movs r1, 0x64
muls r1, r0
ldr r0, _080C5764 @ =gPlayerParty
adds r4, r1, r0
adds r0, r4, 0
bl CheckMonIsValid
cmp r0, 0
beq _080C5768
adds r0, r4, 0
movs r1, 0x39
bl GetMonData
cmp r0, 0
bne _080C5768
adds r0, r4, 0
movs r1, 0x37
bl GetMonData
bl pokemon_ailments_get_primary
lsls r0, 24
lsrs r0, 24
cmp r0, 0x1
bne _080C5768
movs r0, 0x1
b _080C576A
.align 2, 0
_080C5764: .4byte gPlayerParty
_080C5768:
movs r0, 0
_080C576A:
pop {r4}
pop {r1}
bx r1
thumb_func_end CheckMonFaintedFromPoison
thumb_func_start Task_WhiteOut
Task_WhiteOut: @ 80C5770
push {r4,r5,lr}
lsls r0, 24
lsrs r5, r0, 24
lsls r0, r5, 2
adds r0, r5
lsls r0, 3
ldr r1, _080C5794 @ =gTasks + 0x8
adds r4, r0, r1
movs r1, 0
ldrsh r0, [r4, r1]
cmp r0, 0x1
beq _080C57CA
cmp r0, 0x1
bgt _080C5798
cmp r0, 0
beq _080C579E
b _080C581A
.align 2, 0
_080C5794: .4byte gTasks + 0x8
_080C5798:
cmp r0, 0x2
beq _080C57DC
b _080C581A
_080C579E:
ldrh r1, [r4, 0x2]
movs r2, 0x2
ldrsh r0, [r4, r2]
cmp r0, 0x5
bgt _080C57C4
_080C57A8:
lsls r0, r1, 24
lsrs r0, 24
bl CheckMonFaintedFromPoison
cmp r0, 0
bne _080C57F4
ldrh r0, [r4, 0x2]
adds r0, 0x1
strh r0, [r4, 0x2]
adds r1, r0, 0
lsls r0, 16
asrs r0, 16
cmp r0, 0x5
ble _080C57A8
_080C57C4:
movs r0, 0x2
strh r0, [r4]
b _080C581A
_080C57CA:
bl IsFieldMessageBoxHidden
lsls r0, 24
cmp r0, 0
beq _080C581A
ldrh r0, [r4]
subs r0, 0x1
strh r0, [r4]
b _080C581A
_080C57DC:
bl CheckMonFainted
adds r1, r0, 0
cmp r1, 0
beq _080C580C
ldr r1, _080C57F0 @ =gScriptResult
movs r0, 0x1
strh r0, [r1]
b _080C5810
.align 2, 0
_080C57F0: .4byte gScriptResult
_080C57F4:
ldrb r0, [r4, 0x2]
bl MonFaintFromPoisonOnField
ldr r0, _080C5808 @ =UnknownString_81A1132
bl ShowFieldMessage
ldrh r0, [r4]
adds r0, 0x1
strh r0, [r4]
b _080C581A
.align 2, 0
_080C5808: .4byte UnknownString_81A1132
_080C580C:
ldr r0, _080C5820 @ =gScriptResult
strh r1, [r0]
_080C5810:
bl EnableBothScriptContexts
adds r0, r5, 0
bl DestroyTask
_080C581A:
pop {r4,r5}
pop {r0}
bx r0
.align 2, 0
_080C5820: .4byte gScriptResult
thumb_func_end Task_WhiteOut
thumb_func_start DoWhiteOut
DoWhiteOut: @ 80C5824
push {lr}
ldr r0, _080C5838 @ =sub_80C5770
movs r1, 0x50
bl CreateTask
bl ScriptContext1_Stop
pop {r0}
bx r0
.align 2, 0
_080C5838: .4byte Task_WhiteOut
thumb_func_end DoWhiteOut
thumb_func_start overworld_poison
overworld_poison: @ 80C583C
push {r4-r7,lr}
sub sp, 0x4
ldr r4, _080C58A8 @ =gPlayerParty
movs r7, 0
movs r6, 0
movs r5, 0x5
_080C5848:
adds r0, r4, 0
movs r1, 0x5
bl GetMonData
cmp r0, 0
beq _080C588C
adds r0, r4, 0
movs r1, 0x37
bl GetMonData
bl pokemon_ailments_get_primary
lsls r0, 24
lsrs r0, 24
cmp r0, 0x1
bne _080C588C
adds r0, r4, 0
movs r1, 0x39
bl GetMonData
str r0, [sp]
cmp r0, 0
beq _080C587E
subs r0, 0x1
str r0, [sp]
cmp r0, 0
bne _080C5880
_080C587E:
adds r6, 0x1
_080C5880:
adds r0, r4, 0
movs r1, 0x39
mov r2, sp
bl SetMonData
adds r7, 0x1
_080C588C:
adds r4, 0x64
subs r5, 0x1
cmp r5, 0
bge _080C5848
cmp r6, 0
bne _080C589C
cmp r7, 0
beq _080C58A0
_080C589C:
bl DoFieldPoisonEffect
_080C58A0:
cmp r6, 0
beq _080C58AC
movs r0, 0x2
b _080C58B6
.align 2, 0
_080C58A8: .4byte gPlayerParty
_080C58AC:
cmp r7, 0
bne _080C58B4
movs r0, 0
b _080C58B6
_080C58B4:
movs r0, 0x1
_080C58B6:
add sp, 0x4
pop {r4-r7}
pop {r1}
bx r1
thumb_func_end overworld_poison
.align 2, 0 @ Don't pad with nop.
|
