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
|
INCLUDE "constants.asm"
SECTION "engine/sprites/sprites.asm@RefreshSprites", ROMX
RefreshSprites:
call GetPlayerSprite
call CheckInteriorMap
jr c, .outdoor
call AddIndoorSprites
call LoadUsedSpritesGfx
ret
.outdoor
call AddOutdoorSprites
call LoadUsedSpritesGfx
ret
CheckInteriorMap:
call GetMapEnvironment
cp TOWN
jr z, .got_outdoor
cp ROUTE
jr z, .got_outdoor
xor a
ret
.got_outdoor
scf
ret
AddIndoorSprites:
ld hl, wUsedNPCSprites
ld bc, SPRITE_SET_LENGTH
xor a
call ByteFill
ld a, [wPlayerObjectSprite]
ld [wUsedSprites], a
ld hl, wMap2ObjectSprite
ld a, 2
.asm_14070
push af
ld a, [hl]
and a
jr z, .asm_1408d
ld c, a
call IsAnimatedSprite
jr nc, .static_sprite
ld de, wUsedStaticSprites
ld b, 2
call Function14099
jr .asm_1408d
.static_sprite
ld de, wUsedNPCSprites
ld b, 8
call Function14099
.asm_1408d
ld de, $10
add hl, de
pop af
inc a
cp $10
jp nz, .asm_14070
ret
Function14099:
.loop
ld a, [de]
and a
jr z, .asm_140a5
cp c
ret z
dec b
jr z, .asm_140a8
inc de
jr .loop
.asm_140a5
ld a, c
ld [de], a
ret
.asm_140a8
scf
ret
AddOutdoorSprites:
ld a, [wPlayerObjectSprite]
ld [wUsedSprites], a
ld a, [wMapGroup]
dec a
ld c, a
ld b, 0
ld hl, MapGroupSpriteSets
add hl, bc
ld a, [hl]
push af
dec a
ld hl, SpriteSets
ld bc, SPRITE_SET_LENGTH
call AddNTimes
ld de, wUsedNPCSprites
ld bc, SPRITE_SET_LENGTH
call CopyBytes
ld a, [wd642]
ld c, a
pop af
ld [wd642], a
ret
Function140d9:
ld hl, wcdaf
ld a, [hl]
push af
res 7, [hl]
set 6, [hl]
call LoadUsedSpritesGfx
pop af
ld [wcdaf], a
ret
Function140ea:
ld hl, wcdaf
ld a, [hl]
push af
set 7, [hl]
res 6, [hl]
call LoadUsedSpritesGfx
pop af
ld [wcdaf], a
ret
LoadUsedSpritesGfx:
ld hl, vNPCSprites
ld de, wUsedSprites
ld b, SPRITE_SET_LENGTH
ld c, 0
.asm_14105
push bc
push de
push hl
ld a, [de]
and a
jr z, .asm_1410f
call LoadOverworldSprite
.asm_1410f
pop hl
ld bc, $c0
add hl, bc
pop de
inc de
pop bc
inc c
dec b
jr nz, .asm_14105
ld a, [de]
and a
jr z, .asm_14127
push de
ld hl, vNPCSprites + $780
call LoadOverworldSprite
pop de
.asm_14127
inc de
ld a, [de]
and a
jr z, .asm_14132
ld hl, vNPCSprites + $7c0
call LoadOverworldSprite
.asm_14132
ret
Function14133:
swap b
ld a, b
and $f0
ld e, a
ld a, b
and $f
ld d, a
ld hl, vNPCSprites
add hl, de
ld a, c
jr LoadOverworldSprite
Function14144:
ld a, c
ld hl, vNPCSprites
jr LoadOverworldSprite
Function1414a:
ld a, c
ld hl, vNPCSprites + $c0
jr LoadOverworldSprite
LoadOverworldSprite:
push af
call GetOverworldSpriteData
push bc
push hl
push de
ld a, [wcdaf]
bit 7, a
jr nz, .dont_copy
call Get2bpp
.dont_copy
pop de
ld hl, SPRITE_TILE_SIZE * 3
add hl, de
ld d, h
ld e, l
pop hl
ld bc, vChars1 - vChars0
add hl, bc
pop bc
pop af
call IsAnimatedSprite
ret c
ld a, [wcdaf]
bit 6, a
ret nz
call Get2bpp
ret
; get the data for overworld sprite in a
; returns: gfx ptr in hl, length in c, bank in b
GetOverworldSpriteData:
push hl
dec a
ld l, a
ld h, 0
add hl, hl
add hl, hl
ld bc, OverworldSprites
add hl, bc
ld e, [hl]
inc hl
ld d, [hl]
inc hl
ld c, [hl]
swap c
inc hl
ld b, [hl]
pop hl
ret
|
