uxn

commit 5cf69a26591cdbe754c0448b128a34e77388d181
parent 852e34c3047c2b3b5c8f25a30940d67116357c7b
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Sun, 24 Mar 2024 11:09:33 -0700

(snake) Improved movement

Diffstat:
M
projects/examples/demos/snake.tal
 | 
20
++++++++++----------

1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/projects/examples/demos/snake.tal b/projects/examples/demos/snake.tal
@@ -63,17 +63,17 @@
 	!<add-apple>
 
 @<move> ( -- )
-	( | tail )
-	.snake/pos LDZ2 STH2
+	( | copy tail )
+	[ LITr -snake/pos ] LDZ2r
 	.snake/length LDZ #00
 	&>loop ( -- )
-		( pop ) DUPk ADD .snake/tail ADD LDZ2 STH2
-		SWP2r
-		( push ) DUPk ADD .snake/tail ADD STH2r ROT STZ2
+		DUPk ADD .snake/tail ADD LDZ2k STH2
+		SWP2r STH2r ROT STZ2
 		INC GTHk ?&>loop
 	POP2 POP2r
-	( ) .snake/dead LDZ #00 [ EQU JMP JMP2r ]
-	( ) .snake/direction LDZ DUP #01 NEQ ?{
+	( ) .snake/dead LDZ ?&end
+	.snake/direction LDZ
+	( ) DUP #01 NEQ ?{
 		.snake/y LDZ #01 SUB .arena/h LDZ [ LTHk JMP SWP POP ] .snake/y STZ }
 	DUP #02 NEQ ?{
 		.snake/y LDZ INC .arena/h LDZ DIVk MUL SUB .snake/y STZ }
@@ -85,9 +85,9 @@
 	( | detect collision with apple )
 	.snake/pos LDZ2 .apple/pos LDZ2 NEQ2 ?{
 		#00 <draw-apple>
-		.snake/length LDZ INC .snake/length STZ
+		.snake/length LDZk INC SWP STZ
 		<add-apple>
-		<move> }
+		!<move> }
 	( | detect collision with body )
 	.snake/length LDZ #01
 	&>loop-body ( -- )
@@ -95,7 +95,7 @@
 			[ LIT2 01 -snake/dead ] STZ
 			#03 <draw-snake> }
 		INC GTHk ?&>loop-body
-	POP2 JMP2r
+	POP2 &end JMP2r
 
 @<add-apple> ( -- )
 	.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2