-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathsprite.inc
237 lines (206 loc) · 5.26 KB
/
sprite.inc
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
; hello-sprite.inc
; definitions used in hello-sprite.asm
; updates:
; 2008-03-23: added conditional so it is not interpreted by the assembler 2x
include "syntax.inc"
IF !DEF(HELLO_SPRITE_INC)
HELLO_SPRITE_INC SET 1
OAMDATALOC EQU _RAM ; must be multiple of $100
OAMDATALOCBANK EQU OAMDATALOC/$100
OAMDATALENGTH EQU $A0
printt "From Sprite.inc\n"
printv OAMDATALOCBANK
printt "\n"
RSSET OAMDATALOC
sprite_RS SET OAMDATALOC
; RSSET and RB are macros / compiler stuff that increments a value called _RS
; so let's talk about _RS. It's a compiler-tracked byte. (max value of 255)
; RSSET 100 ; sets the _RS value to 100
; X RB 25 ; sets X to 100 (current value of _RS) then adds 25 to _RS
; Y RB 14 ; sets Y to 125 (current value of _RS) then adds 14 to _RS
; since SpriteAttr is called right after __RS is set to OAMDATALOC,
; then RB 1 is assigning an OAMDATA location to each value and then
; incrementing __RS, Thus giving Y, X Addr, Tilenum, & Flags a unique OAM data
; location.
SpriteAttr: MACRO
RSSET sprite_RS
\1_YAddr RB 1
\1_XAddr RB 1
\1_TileNum RB 1
\1_Flags RB 1
sprite_RS SET _RS ; keep backup of _RS, because _RS will change
ENDM
; change tile. This will swap the graphic with which the sprite is drawn
sprite_PutTile: MACRO
load a, \2
ld [\1_TileNum], a
ENDM
; get current tile of sprite
sprite_GetTile: MACRO
ld a, [\1_TileNum]
ENDM
; change flags. This will set the full flags-byte. Flags include properties:
; palette#, Xflip, Yflip, priority, etc...
sprite_PutFlags: MACRO
load a, \2
ld [\1_Flags], a
ENDM
sprite_GetFlags: MACRO
ld a, [\1_Flags]
ENDM
;set XAddr of sprite.
;format:
; PutSpriteXAddr SpriteName,r8
; PutSpriteXAddr SpriteName,n8
PutSpriteXAddr: MACRO
push af
ld a,\2
add 8
ld [\1_XAddr], a
pop af
ENDM
;set YAddr of sprite.
;format:
; PutSpriteYAddr SpriteName,r8
; PutSpriteYAddr SpriteName,n8
PutSpriteYAddr: MACRO
push af
ld a,\2
add 16
ld [\1_YAddr], a
pop af
ENDM
GetSpriteXAddr: MACRO
ld a,[\1_XAddr]
sub 8
ENDM
GetSpriteYAddr: MACRO
ld a,[\1_YAddr]
sub 16
ENDM
MoveLeft: MACRO
; move sprite (\1) to the left by x (\2)
GetSpriteXAddr \1 ; loads x into a
sub \2
PutSpriteXAddr \1, a
ENDM
MoveRight: MACRO
; move sprite (\1) to the right by x (\2)
GetSpriteXAddr \1 ; loads x into a
add \2
PutSpriteXAddr \1, a
ENDM
MoveUp: MACRO
; move sprite (\1) upwards by y (\2)
GetSpriteYAddr \1 ; loads y into a
sub \2
PutSpriteYAddr \1, a
ENDM
MoveDown: MACRO
; move sprite (\1) downwards by y (\2)
GetSpriteYAddr \1 ; loads y into a
add \2
PutSpriteYAddr \1, a
ENDM
MoveIfLeft: MACRO
; load keys in a, and pass spriteName as argument
; IF Left key was pressed, will move left by second argument
push af
and PADF_LEFT
jr z, .skipLeft\@ ; return (do nothing) if left was not pressed
MoveLeft \1, \2
.skipLeft\@
pop af
ENDM
MoveOnceIfLeft: MACRO
; only moves once per depressed key. Waits for key to be released
; and then re-pressed to move again
if_not jpad_EdgeLeft, jr .skipOnceLeft\@
MoveLeft \1, \2
.skipOnceLeft\@
ENDM
MoveOnceIfRight: MACRO
; only moves once per depressed key. Waits for key to be released
; and then re-pressed to move again
if_not jpad_EdgeRight, jr .skipOnceRight\@
MoveRight \1, \2
.skipOnceRight\@
ENDM
MoveOnceIfUp: MACRO
; only moves once per depressed key. Waits for key to be released
; and then re-pressed to move again
if_not jpad_EdgeUp, jr .skipOnceUp\@
MoveUp \1, \2
.skipOnceUp\@
ENDM
MoveOnceIfDown: MACRO
; only moves once per depressed key. Waits for key to be released
; and then re-pressed to move again
if_not jpad_EdgeDown, jr .skipOnceDown\@
MoveDown \1, \2
.skipOnceDown\@
ENDM
MoveRepeatIfLeft: MACRO
; moves every ~1/3rd of a second while left is pressed
push af
and PADF_LEFT
jr nz, .leftHeld\@
.resetOnceLeft\@
ld a, 0
ld [var_LEFT], a
jr .skipOnceLeft\@
.leftHeld\@
ld a, [var_LEFT]
add $10
ld [var_LEFT], a ; store var_LEFT
cp $10
jr nz, .skipOnceLeft\@ ; if [var_LEFT] != $10, then we already pressed LEFT
MoveLeft \1, \2
.skipOnceLeft\@
pop af
ENDM
MoveIfRight: MACRO
; load keys in a, and pass spriteName as argument
; IF Right key was pressed, will move right by second argument
push af
and PADF_RIGHT
jr z, .skipRight\@ ; return (do nothing) if key was not pressed
GetSpriteXAddr \1
add \2
PutSpriteXAddr \1, a
.skipRight\@
pop af
ENDM
MoveIfUp: MACRO
; load keys in a, and pass spriteName as argument
; IF Up key was pressed, will move right by second argument
push af
and PADF_UP
jr z, .skipUp\@ ;do nothing if key was not pressed
GetSpriteYAddr \1
sub \2
PutSpriteYAddr \1, a
.skipUp\@
pop af
ENDM
MoveIfDown: MACRO
; load keys in a, and pass spriteName as argument
; IF Down key was pressed, will move right by second argument
push af
and PADF_DOWN
jr z, .skipDown\@ ; return (do nothing) if key was not pressed
GetSpriteYAddr \1
add \2
PutSpriteYAddr \1, a
.skipDown\@
pop af
ENDM
IfLeft: MACRO
push af
AND PADF_LEFT
jr z, .skipIfLeft\@
run_2nd_arg_cmd
@.skipIfLeft\@
pop af
ENDM
ENDC ; HELLO_SPRITE_INC