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
|
_CopyCardNameAndLevel: ; 18000 (6:4000)
push bc
push de
ld [wcd9b], a
ld hl, wLoadedCard1Name
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wDefaultText
push de
call CopyText ; copy card name to wDefaultText
pop hl
ld a, [hli]
cp TX_HALFWIDTH
jp z, Func_18086
ld a, [wcd9b]
ld c, a
ld a, [wLoadedCard1Type]
cp TYPE_ENERGY
jr nc, .level_done ; jump if energy or trainer
ld a, [wLoadedCard1Level]
or a
jr z, .level_done
inc c
inc c
ld a, [wLoadedCard1Level]
cp 10
jr c, .level_done
inc c ; second digit
.level_done
ld hl, wLoadedCard1Name
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wDefaultText
push de
call CopyText
pop hl
push de
ld e, c
call Func_23c1
add e
ld c, a
pop hl
push hl
.fill_loop
ld a, $70
ld [hli], a
dec c
jr nz, .fill_loop
ld [hl], TX_END
pop hl
ld a, [wLoadedCard1Type]
cp TYPE_ENERGY
jr nc, .done
ld a, [wLoadedCard1Level]
or a
jr z, .done
ld a, TX_SYMBOL
ld [hli], a
ld [hl], SYM_Lv
inc hl
ld a, [wLoadedCard1Level]
cp 10
jr c, .one_digit
ld [hl], TX_SYMBOL
inc hl
ld b, SYM_0 - 1
.first_digit_loop
inc b
sub 10
jr nc, .first_digit_loop
add 10
ld [hl], b ; first digit
inc hl
.one_digit
ld [hl], TX_SYMBOL
inc hl
add SYM_0
ld [hl], a ; last (or only) digit
inc hl
.done
pop de
pop bc
ret
; 0x18086
Func_18086: ; 18086 (6:4086)
ld a, [wcd9b]
inc a
add a
ld b, a
ld hl, wDefaultText
.find_end_text_loop
dec b
ld a, [hli]
or a ; TX_END
jr nz, .find_end_text_loop
dec hl
ld a, [wLoadedCard1Type]
cp TYPE_ENERGY
jr nc, .level_done
ld a, [wLoadedCard1Level]
or a
jr z, .level_done
ld c, a
ld a, " "
ld [hli], a
dec b
ld a, "L"
ld [hli], a
dec b
ld a, "v"
ld [hli], a
dec b
ld a, c
cp 10
jr c, .got_level
push bc
ld b, "0" - 1
.first_digit_loop
inc b
sub 10
jr nc, .first_digit_loop
add 10
ld [hl], b ; first digit
inc hl
pop bc
ld c, a
dec b
.got_level
ld a, c
add "0"
ld [hli], a ; last (or only) digit
dec b
.level_done
push hl
ld a, " "
.fill_spaces_loop
ld [hli], a
dec b
jr nz, .fill_spaces_loop
ld [hl], TX_END
pop hl
pop de
pop bc
ret
; 0x180d5
INCROM $180d5, $186f7
INCLUDE "data/effect_commands.asm"
INCROM $18f9c, $1996e
Func_1996e: ; 1996e (6:596e)
call EnableSRAM
ld a, PLAYER_TURN
ldh [hWhoseTurn], a
ld hl, sCardCollection
ld bc, $1607
.asm_1997b
xor a
ld [hli], a
dec bc
ld a, c
or b
jr nz, .asm_1997b
ld a, $5
ld hl, sa350
call Func_199e0
ld a, $7
ld hl, sa3a4
call Func_199e0
ld a, $9
ld hl, sa3f8
call Func_199e0
call EnableSRAM
ld hl, sCardCollection
ld a, CARD_NOT_OWNED
.asm_199a2
ld [hl], a
inc l
jr nz, .asm_199a2
ld hl, $bc00
xor a
ld [hli], a
ld [hli], a
ld [hl], a
ld hl, $bb00
ld c, $10
.asm_199b2
ld [hl], $0
ld de, $0010
add hl, de
dec c
jr nz, .asm_199b2
ld a, $2
ld [sa003], a
ld a, $2
ld [sa006], a
ld [wTextSpeed], a
xor a
ld [sa007], a
ld [sa009], a
ld [sa004], a
ld [sa005], a
ld [sa00a], a
farcall Func_8cf9
call DisableSRAM
ret
Func_199e0: ; 199e0 (6:59e0)
push de
push bc
push hl
call LoadDeck
jr c, .asm_19a0e
call Func_19a12
pop hl
call EnableSRAM
push hl
ld de, wDefaultText
.asm_199f3
ld a, [de]
inc de
ld [hli], a
or a
jr nz, .asm_199f3
pop hl
push hl
ld de, $0018
add hl, de
ld de, wPlayerDeck
ld c, $3c
.asm_19a04
ld a, [de]
inc de
ld [hli], a
dec c
jr nz, .asm_19a04
call DisableSRAM
or a
.asm_19a0e
pop hl
pop bc
pop de
ret
Func_19a12: ; 19a12 (6:5a12)
ld hl, wcce9
ld a, [hli]
ld h, [hl]
ld l, a
ld de, wDefaultText
call CopyText
ret
; 0x19a1f
INCROM $19a1f, $1a61f
Func_1a61f: ; 1a61f (6:661f)
push af
ld de, $389f
call Func_2275
pop af
or a
jr nz, .asm_1a640
ld a, $40
call $663b
ld a, $5f
call $663b
ld a, $76
call $663b
ld a, $c1
ldtx hl, ReceivedLegendaryCardText
jr .asm_1a660
.asm_1a640
ldtx hl, ReceivedCardText
cp $1e
jr z, .asm_1a660
cp $43
jr z, .asm_1a660
ldtx hl, ReceivedPromotionalFlyingPikachuText
cp $64
jr z, .asm_1a660
ldtx hl, ReceivedPromotionalSurfingPikachuText
cp $65
jr z, .asm_1a660
cp $66
jr z, .asm_1a660
ldtx hl, ReceivedPromotionalCardText
.asm_1a660
push hl
ld e, a
ld d, $0
call LoadCardDataToBuffer1_FromCardID
call PauseSong
ld a, MUSIC_MEDAL
call PlaySong
ld hl, wLoadedCard1Name
ld a, [hli]
ld h, [hl]
ld l, a
bank1call LoadTxRam2 ; switch to bank 1, but call a home func
ld a, PLAYER_TURN
ldh [hWhoseTurn], a
pop hl
bank1call $5e5f
.asm_1a680
call AssertSongFinished
or a
jr nz, .asm_1a680
call ResumeSong
bank1call $5773
ret
; 0x1a68d
INCROM $1a68d, $1a6cc
CommentedOut_1a6cc: ; 1a6cc (6:66cc)
ret
; 0x1a6cd
INCROM $1a6cd, $1ad89
Func_1ad89: ; 1ad89 (6:6d89)
INCROM $1ad89, $1c000
|
