d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(snake) Faster positions

This commit is contained in:
Devine Lu Linvega 2024-03-24 10:55:51 -07:00
parent c73f1e066a
commit 4d329e7e5f
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
projects/examples/demos/res.rom Normal file
View File

Binary file not shown.

21
projects/examples/demos/snake.tal
View File

@ -7,8 +7,8 @@
|000 |000
@arena &w $1 &h $1 @arena &w $1 &h $1
@apple &x $1 &y $1 @apple &pos &x $1 &y $1
@snake &direction $1 &length $1 &dead $1 &x $1 &y $1 &tail $40 @snake &pos &x $1 &y $1 &direction $1 &length $1 &dead $1 &tail $40
|100 |100
@ -64,7 +64,7 @@
@<move> ( -- ) @<move> ( -- )
( | tail ) ( | tail )
.snake/x LDZ2 STH2 .snake/pos LDZ2 STH2
.snake/length LDZ #00 .snake/length LDZ #00
&>loop ( -- ) &>loop ( -- )
( pop ) DUPk ADD .snake/tail ADD LDZ2 STH2 ( pop ) DUPk ADD .snake/tail ADD LDZ2 STH2
@ -83,14 +83,15 @@
.snake/x LDZ INC .arena/w LDZ DIVk MUL SUB .snake/x STZ } .snake/x LDZ INC .arena/w LDZ DIVk MUL SUB .snake/x STZ }
POP POP
( | detect collision with apple ) ( | detect collision with apple )
.snake/x LDZ2 .apple/x LDZ2 NEQ2 ?{ .snake/pos LDZ2 .apple/pos LDZ2 NEQ2 ?{
#00 <draw-apple> #00 <draw-apple>
.snake/length LDZ INC .snake/length STZ .snake/length LDZ INC .snake/length STZ
<add-apple> <add-apple>
<move> } <move> }
( | detect collision with body )
.snake/length LDZ #01 .snake/length LDZ #01
&>loop-body ( -- ) &>loop-body ( -- )
DUPk ADD .snake/tail ADD LDZ2 .snake/x LDZ2 NEQ2 ?{ DUPk ADD .snake/tail ADD LDZ2 .snake/pos LDZ2 NEQ2 ?{
[ LIT2 01 -snake/dead ] STZ [ LIT2 01 -snake/dead ] STZ
#03 <draw-snake> } #03 <draw-snake> }
INC GTHk ?&>loop-body INC GTHk ?&>loop-body
@ -111,14 +112,14 @@
;snake-icns .Screen/addr DEO2 ;snake-icns .Screen/addr DEO2
[ LIT2 -snake/tail -snake/length ] LDZ DUP ADD OVR ADD SWP [ LIT2 -snake/tail -snake/length ] LDZ DUP ADD OVR ADD SWP
&>loop ( -- ) &>loop ( -- )
LDZk #0005 SFT2 .Screen/x DEO2 LDZ2k #0005 SFT2 .Screen/y DEO2
INCk LDZ #0005 SFT2 .Screen/y DEO2 #0005 SFT2 .Screen/x DEO2
DUPr [ LITr -Screen/sprite ] DEOr DUPr [ LITr -Screen/sprite ] DEOr
INC INC GTHk ?&>loop INC INC GTHk ?&>loop
POP2 POP2
( | draw head ) ( | draw head )
.snake/x LDZ #0005 SFT2 .Screen/x DEO2 .snake/pos LDZ2 #0005 SFT2 .Screen/y DEO2
.snake/y LDZ #0005 SFT2 .Screen/y DEO2 #0005 SFT2 .Screen/x DEO2
;snake-icns/face .Screen/addr DEO2 ;snake-icns/face .Screen/addr DEO2
[ LITr -Screen/sprite ] DEOr [ LITr -Screen/sprite ] DEOr
JMP2r JMP2r
@ -126,7 +127,7 @@
@<draw-apple> ( color -- ) @<draw-apple> ( color -- )
.apple/x LDZ #0005 SFT2 .Screen/x DEO2 .apple/x LDZ #0005 SFT2 .Screen/x DEO2
.apple/y LDZ #0005 SFT2 .Screen/y DEO2 .apple/y LDZ #0005 SFT2 .Screen/y DEO2
STHk ;apple-chr ;fill-icn [ STHr ?{ SWP2 } POP2 ] .Screen/addr DEO2 STHk ;apple-chr ;fill-icn [ LITr 01 JCNr SWP2 POP2 ] .Screen/addr DEO2
.Screen/sprite DEO .Screen/sprite DEO
JMP2r JMP2r