...
|
...
|
@@ -143,7 +143,7 @@ RTN
|
143
|
143
|
POP
|
144
|
144
|
|
145
|
145
|
( detect collision with apple )
|
146
|
|
- .snake/x LDZ2 .apple/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-apple JCN
|
|
146
|
+ .snake/x LDZ2 .apple/x LDZ2 NEQ2 ,&no-collision-apple JCN
|
147
|
147
|
#00 ;draw-apple JSR2
|
148
|
148
|
.snake/length LDZ INC .snake/length STZ
|
149
|
149
|
;add-apple JSR2
|
...
|
...
|
@@ -153,7 +153,7 @@ RTN
|
153
|
153
|
.snake/length LDZ #01
|
154
|
154
|
&loop-body
|
155
|
155
|
( pop ) DUP 2* .snake/tail + LDZ2
|
156
|
|
- .snake/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-body JCN
|
|
156
|
+ .snake/x LDZ2 NEQ2 ,&no-collision-body JCN
|
157
|
157
|
#01 .snake/dead STZ
|
158
|
158
|
#03 ;draw-snake JSR2
|
159
|
159
|
&no-collision-body
|