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
|
Function13a47: ; unreferenced
ld hl, PartyCount
ld a, [hl]
and a
ret z
cp PARTY_LENGTH + 1
jr c, .asm_13a54
ld a, PARTY_LENGTH
ld [hl], a
.asm_13a54
inc hl
ld b, a
ld c, 0
.asm_13a58
ld a, [hl]
and a
jr z, .asm_13a64
cp $fc
jr z, .asm_13a64
cp $fe
jr c, .asm_13a73
.asm_13a64
ld [hl], SMEARGLE
push hl
push bc
ld a, c
ld hl, PartyMon1Species
call GetPartyLocation
ld [hl], SMEARGLE
pop bc
pop hl
.asm_13a73
inc hl
inc c
dec b
jr nz, .asm_13a58
ld [hl], $ff
ld hl, PartyMon1
ld a, [PartyCount]
ld d, a
ld e, 0
.asm_13a83
push de
push hl
ld b, h
ld c, l
ld a, [hl]
and a
jr z, .asm_13a8f
cp NUM_POKEMON + 1
jr c, .asm_13a9c
.asm_13a8f
ld [hl], SMEARGLE
push de
ld d, 0
ld hl, PartySpecies
add hl, de
pop de
ld a, SMEARGLE
ld [hl], a
.asm_13a9c
ld [CurSpecies], a
call GetBaseData
ld hl, MON_LEVEL
add hl, bc
ld a, [hl]
cp MIN_LEVEL
ld a, MIN_LEVEL
jr c, .asm_13ab4
ld a, [hl]
cp MAX_LEVEL
jr c, .asm_13ab5
ld a, MAX_LEVEL
.asm_13ab4
ld [hl], a
.asm_13ab5
ld [CurPartyLevel], a
ld hl, MON_MAXHP
add hl, bc
ld d, h
ld e, l
ld hl, MON_EXP + 2
add hl, bc
ld b, $1
predef CalcPkmnStats
pop hl
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
pop de
inc e
dec d
jr nz, .asm_13a83
ld de, PartyMonNicknames
ld a, [PartyCount]
ld b, a
ld c, 0
.asm_13adc
push bc
call Function13b71
push de
callba CheckStringForErrors
pop hl
pop bc
jr nc, .asm_13b0e
push bc
push hl
ld hl, PartySpecies
push bc
ld b, 0
add hl, bc
pop bc
ld a, [hl]
cp EGG
ld hl, .TAMAGO
jr z, .asm_13b06
ld [wd265], a
call GetPokemonName
ld hl, StringBuffer1
.asm_13b06
pop de
ld bc, PKMN_NAME_LENGTH
call CopyBytes
pop bc
.asm_13b0e
inc c
dec b
jr nz, .asm_13adc
ld de, PartyMonOT
ld a, [PartyCount]
ld b, a
ld c, 0
.asm_13b1b
push bc
call Function13b71
push de
callba CheckStringForErrors
pop hl
jr nc, .asm_13b34
ld d, h
ld e, l
ld hl, PlayerName
ld bc, NAME_LENGTH
call CopyBytes
.asm_13b34
pop bc
inc c
dec b
jr nz, .asm_13b1b
ld hl, PartyMon1Moves
ld a, [PartyCount]
ld b, a
.asm_13b40
push hl
ld c, NUM_MOVES
ld a, [hl]
and a
jr z, .asm_13b4b
cp NUM_ATTACKS + 1
jr c, .asm_13b4d
.asm_13b4b
ld [hl], POUND
.asm_13b4d
ld a, [hl]
and a
jr z, .asm_13b55
cp NUM_ATTACKS + 1
jr c, .asm_13b5c
.asm_13b55
xor a
ld [hli], a
dec c
jr nz, .asm_13b55
jr .asm_13b60
.asm_13b5c
inc hl
dec c
jr nz, .asm_13b4d
.asm_13b60
pop hl
push bc
ld bc, PARTYMON_STRUCT_LENGTH
add hl, bc
pop bc
dec b
jr nz, .asm_13b40
ret
; 13b6b
.TAMAGO: ; 13b6b
db "タマゴ@@@"
; 13b71
Function13b71: ; 13b71
push de
ld c, 1
ld b, 6
.loop
ld a, [de]
cp "@"
jr z, .done
inc de
inc c
dec b
jr nz, .loop
dec c
dec de
ld a, "@"
ld [de], a
.done
pop de
ret
; 13b87
|
