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
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
|
GainExperience: ; 5524f (15:524f)
ld a, [W_ISLINKBATTLE]
cp $4
ret z
call Func_5546c
ld hl, wPartyMons
xor a
ld [wWhichPokemon], a
Func_5525f: ; 5525f (15:525f)
inc hl
ld a, [hli]
or [hl]
jp z, Func_55436
push hl
ld hl, wPartyAliveFlags
ld a, [wWhichPokemon]
ld c, a
ld b, $2
predef FlagActionPredef
ld a, c
and a
pop hl
jp z, Func_55436
ld de, $10
add hl, de
ld d, h
ld e, l
ld hl, wd002
ld c, $5
.asm_55285
ld a, [hli]
ld b, a
ld a, [de]
add b
ld [de], a
jr nc, .asm_5529a
dec de
ld a, [de]
inc a
jr z, .asm_55295
ld [de], a
inc de
jr .asm_5529a
.asm_55295
ld a, $ff
ld [de], a
inc de
ld [de], a
.asm_5529a
dec c
jr z, .asm_552a1
inc de
inc de
jr .asm_55285
.asm_552a1
xor a
ld [H_MULTIPLICAND], a
ld [H_MULTIPLICAND + 1], a
ld a, [wd008]
ld [H_MULTIPLICAND + 2], a
ld a, [wEnemyMonLevel]
ld [H_MULTIPLIER], a
call Multiply
ld a, 7
ld [H_DIVISOR], a
ld b, 4
call Divide
ld hl, $fff2
add hl, de
ld b, [hl]
inc hl
ld a, [wPlayerID]
cp b
jr nz, .asm_552d1
ld b, [hl]
ld a, [wPlayerID + 1]
cp b
ld a, $0
jr z, .asm_552d6
.asm_552d1
call Func_5549f
ld a, $1
.asm_552d6
ld [wcf4d], a
ld a, [W_ISINBATTLE]
dec a
call nz, Func_5549f
inc hl
inc hl
inc hl
ld b, [hl]
ld a, [$ff98]
ld [wcf4c], a
add b
ld [hld], a
ld b, [hl]
ld a, [$ff97]
ld [wcf4b], a
adc b
ld [hl], a
jr nc, .asm_552f8
dec hl
inc [hl]
inc hl
.asm_552f8
inc hl
push hl
ld a, [wWhichPokemon]
ld c, a
ld b, 0
ld hl, wPartySpecies
add hl, bc
ld a, [hl]
ld [wd0b5], a
call GetMonHeader
ld d, MAX_LEVEL
callab CalcExperience
ld a, [$ff96]
ld b, a
ld a, [$ff97]
ld c, a
ld a, [$ff98]
ld d, a
pop hl
ld a, [hld]
sub d
ld a, [hld]
sbc c
ld a, [hl]
sbc b
jr c, .asm_5532e
ld a, b
ld [hli], a
ld a, c
ld [hli], a
ld a, d
ld [hld], a
dec hl
.asm_5532e
push hl
ld a, [wWhichPokemon]
ld hl, wPartyMonNicks
call GetPartyMonName
ld hl, GainedText
call PrintText
xor a
ld [wcc49], a
call LoadMonData
pop hl
ld bc, $13
add hl, bc
push hl
callba Func_58f43
pop hl
ld a, [hl]
cp d
jp z, Func_55436
ld a, [W_CURENEMYLVL]
push af
push hl
ld a, d
ld [W_CURENEMYLVL], a
ld [hl], a
ld bc, $ffdf
add hl, bc
ld a, [hl]
ld [wd0b5], a
ld [wd11e], a
call GetMonHeader
ld bc, $23
add hl, bc
push hl
ld a, [hld]
ld c, a
ld b, [hl]
push bc
ld d, h
ld e, l
ld bc, $ffee
add hl, bc
ld b, $1
call CalcStats
pop bc
pop hl
ld a, [hld]
sub c
ld c, a
ld a, [hl]
sbc b
ld b, a
ld de, $ffe0
add hl, de
ld a, [hl]
add c
ld [hld], a
ld a, [hl]
adc b
ld [hl], a
ld a, [wPlayerMonNumber]
ld b, a
ld a, [wWhichPokemon]
cp b
jr nz, .asm_553f7
ld de, wBattleMonHP
ld a, [hli]
ld [de], a
inc de
ld a, [hl]
ld [de], a
ld bc, $1f
add hl, bc
push hl
ld de, wBattleMonLevel ; wBattleMonLevel
ld bc, $b
call CopyData
pop hl
ld a, [W_PLAYERBATTSTATUS3] ; W_PLAYERBATTSTATUS3
bit 3, a
jr nz, .asm_553c8
ld de, wcd0f
ld bc, $b
call CopyData
.asm_553c8
xor a
ld [wd11e], a
callab Func_3ed99
callab Func_3ed1a
callab Func_3ee19
callab Func_3cd60
callab Func_3ee94
call SaveScreenTilesToBuffer1
.asm_553f7
ld hl, GrewLevelText
call PrintText
xor a
ld [wcc49], a
call LoadMonData
ld d, $1
callab PrintStatsBox
call WaitForTextScrollButtonPress
call LoadScreenTilesFromBuffer1
xor a
ld [wcc49], a
ld a, [wd0b5]
ld [wd11e], a
predef Func_3af5b
ld hl, wccd3
ld a, [wWhichPokemon] ; wWhichPokemon
ld c, a
ld b, $1
predef FlagActionPredef
pop hl
pop af
ld [W_CURENEMYLVL], a ; W_CURENEMYLVL
Func_55436: ; 55436 (15:5436)
ld a, [wPartyCount] ; wPartyCount
ld b, a
ld a, [wWhichPokemon] ; wWhichPokemon
inc a
cp b
jr z, .asm_55450
ld [wWhichPokemon], a ; wWhichPokemon
ld bc, $2c
ld hl, wPartyMon1Species ; wPartyMon1Species (aliases: wPartyMon1)
call AddNTimes
jp Func_5525f
.asm_55450
ld hl, wPartyAliveFlags
xor a
ld [hl], a
ld a, [wPlayerMonNumber] ; wPlayerMonNumber
ld c, a
ld b, $1
push bc
predef FlagActionPredef
ld hl, wccf5
xor a
ld [hl], a
pop bc
predef_jump FlagActionPredef
Func_5546c: ; 5546c (15:546c)
ld a, [wPartyAliveFlags]
ld b, a
xor a
ld c, $8
ld d, $0
.asm_55475
xor a
srl b
adc d
ld d, a
dec c
jr nz, .asm_55475
cp $2
ret c
ld [wd11e], a
ld hl, wd002
ld c, $7
.asm_55488
xor a
ld [H_DIVIDEND], a ; $ff95 (aliases: H_PRODUCT, H_PASTLEADINGZEROES, H_QUOTIENT)
ld a, [hl]
ld [H_NUMTOPRINT], a ; $ff96 (aliases: H_MULTIPLICAND)
ld a, [wd11e]
ld [H_REMAINDER], a ; $ff99 (aliases: H_DIVISOR, H_MULTIPLIER, H_POWEROFTEN)
ld b, $2
call Divide
ld a, [$ff98]
ld [hli], a
dec c
jr nz, .asm_55488
ret
Func_5549f: ; 5549f (15:549f)
ld a, [$ff97]
ld b, a
ld a, [$ff98]
ld c, a
srl b
rr c
add c
ld [$ff98], a
ld a, [$ff97]
adc b
ld [$ff97], a
ret
GainedText: ; 554b2 (15:54b2)
TX_FAR _GainedText
db $08 ; asm
ld a, [wcc5b]
ld hl, WithExpAllText
and a
ret nz
ld hl, ExpPointsText
ld a, [wcf4d]
and a
ret z
ld hl, BoostedText
ret
WithExpAllText: ; 554cb (15:54cb)
TX_FAR _WithExpAllText
db $08 ; asm
ld hl, ExpPointsText
ret
BoostedText: ; 554d4 (15:54d4)
TX_FAR _BoostedText
ExpPointsText: ; 554d8 (15:54d8)
TX_FAR _ExpPointsText
db "@"
GrewLevelText: ; 554dd (15:54dd)
TX_FAR _GrewLevelText
db $0b
db "@"
|
