etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-23 06:15:10 +00:00
Code Issues Projects Releases Wiki Activity

(snake.rom) Minor optimizations

Browse source
This commit is contained in:
Devine Lu Linvega 2021-11-11 09:22:07 -05:00
parent 912afb678f
commit c63a8fa882
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
projects/examples/demos/snake.tal
View file

@ -143,7 +143,7 @@ RTN
POP
( detect collision with apple )
.snake/x LDZ2 .apple/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-apple JCN
.snake/x LDZ2 .apple/x LDZ2 NEQ2 ,&no-collision-apple JCN
#00 ;draw-apple JSR2
.snake/length LDZ INC .snake/length STZ
;add-apple JSR2
@ -153,7 +153,7 @@ RTN
.snake/length LDZ #01
&loop-body
( pop ) DUP 2* .snake/tail + LDZ2
.snake/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-body JCN
.snake/x LDZ2 NEQ2 ,&no-collision-body JCN
#01 .snake/dead STZ
#03 ;draw-snake JSR2
&no-collision-body