commit a2f826121d2b2e4921ae8b08145af3b3b51561fd
parent 1bf6eaeec0caec98f8263c1c6f5f9ebf6336183b
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 2 Nov 2021 14:04:26 -0700
Added game reset
Diffstat:
1 file changed, 93 insertions(+), 51 deletions(-)
diff --git a/projects/examples/demos/snake.tal b/projects/examples/demos/snake.tal
@@ -10,10 +10,10 @@
%RTN { JMP2r }
%TOS { #00 SWP }
%SWP? { #01 JCN SWP }
+%RTN? { #01 JCN RTN }
%BRK? { #01 JCN BRK }
-%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
-%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
+%DIFFICULTY { #06 }
( devices )
@@ -35,72 +35,89 @@
@apple
&x $1 &y $1
@snake
- &direction $1 &length $1
+ &direction $1 &length $1 &dead $1
&x $1 &y $1
&tail
|0100 ( -> )
( theme )
- #0f2f .System/r DEO2
- #0ff2 .System/g DEO2
- #0022 .System/b DEO2
+ #0f7e .System/r DEO2
+ #0fe6 .System/g DEO2
+ #0f62 .System/b DEO2
( vectors )
;on-frame .Screen/vector DEO2
;on-button .Controller/vector DEO2
( resize )
- #00c0 .Screen/width DEO2
+ #00c8 .Screen/width DEO2
#0100 .Screen/height DEO2
+ ( set arena )
.Screen/width DEI2 8// NIP .arena/w STZ
.Screen/height DEI2 8// NIP .arena/h STZ
- ( put snake )
- .arena/w LDZ 2/ #01 - .snake/x STZ
- .arena/h LDZ 2/ #01 - .snake/y STZ
-
- ;add-apple JSR2
+ ;reset JSR2
BRK
@on-frame ( -> )
.arena/timer LDZ INC DUP .arena/timer STZ
- #06 = BRK?
-
- #00 ;draw-snake JSR2
- ;move JSR2
- #02 ;draw-snake JSR2
+ DIFFICULTY = BRK?
+ ( clear ) #00 ;draw-snake JSR2
+ ( update ) ;move JSR2
+ ( draw ) #02 .snake/dead LDZ + ;draw-snake JSR2
+ ( score ) .snake/length LDZ #01 ;draw-score JSR2
( reset ) #00 .arena/timer STZ
BRK
@on-button ( -> )
- .Controller/button DEI #04 SFT
- DUP #00 = ,&skip JCN
+ .Controller/button DEI
+ DUP #08 ! ,&no-escape JCN
+ ;reset JSR2
+ &no-escape
+ #04 SFT DUP #00 = ,&skip JCN
DUP .snake/direction STZ
&skip
POP
BRK
+@reset ( -- )
+
+ #00 ;draw-snake JSR2
+ #00 ;draw-apple JSR2
+
+ .arena/w LDZ 2/ #01 - .snake/x STZ
+ .arena/h LDZ 2/ #01 - .snake/y STZ
+ #00 .snake/dead STZ
+ #00 .snake/length STZ
+ #00 .snake/direction STZ
+
+ #03 ;draw-snake JSR2
+ ;add-apple JSR2
+
+RTN
+
@move ( -- )
( tail )
.snake/x LDZ2 STH2
.snake/length LDZ #00
&loop
- DUP 2* .snake/tail + LDZ2 STH2
- SWP2r
- DUP 2* .snake/tail + STH2r ROT STZ2
+ ( pop ) DUP 2* .snake/tail + LDZ2 STH2 SWP2r
+ ( push ) DUP 2* .snake/tail + STH2r ROT STZ2
INC GTHk ,&loop JCN
POP2
POP2r
+ .snake/dead LDZ #00 = RTN?
+
.snake/direction LDZ
DUP #01 ! ,&no-up JCN
.snake/y LDZ #01 -
@@ -124,37 +141,42 @@ BRK
&no-right
POP
- ( detect collision )
- .snake/x LDZ .apple/x LDZ ! ,&no-collision JCN
- .snake/y LDZ .apple/y LDZ ! ,&no-collision JCN
+ ( detect collision with apple )
+ .snake/x LDZ2 .apple/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-apple JCN
#00 ;draw-apple JSR2
- .snake/length LDZ INC DUP DEBUG .snake/length STZ
+ .snake/length LDZ INC .snake/length STZ
;add-apple JSR2
;move JSR2
- &no-collision
+ &no-collision-apple
+
+ .snake/length LDZ #01
+ &loop-body
+ ( pop ) DUP 2* .snake/tail + LDZ2
+ .snake/x LDZ2 [ ROT = ROT ROT = #0101 !! ] ,&no-collision-body JCN
+ #01 .snake/dead STZ
+ #03 ;draw-snake JSR2
+ &no-collision-body
+ INC GTHk ,&loop-body JCN
+ POP2
+
RTN
@add-apple ( -- )
- ( seed )
.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2 #1234 MUL2 +
.arena/w LDZ MOD .apple/x STZ
.DateTime/hour DEI2 .DateTime/minute DEI2 MUL2 #abcd MUL2 +
.arena/h LDZ MOD .apple/y STZ
-
- #03 ;draw-apple JSR2
+ #83 ;draw-apple JSR2
RTN
@draw-snake ( color -- )
- .snake/x LDZ TOS 8** .Screen/x DEO2
- .snake/y LDZ TOS 8** .Screen/y DEO2
- ;snake-icns .Screen/addr DEO2
- STHk .Screen/sprite DEO
-
+ STH
( draw tail )
+ ;snake-icns .Screen/addr DEO2
.snake/length LDZ #00
&loop
DUP 2* .snake/tail + LDZ TOS 8** .Screen/x DEO2
@@ -162,33 +184,53 @@ RTN
STHkr .Screen/sprite DEO
INC GTHk ,&loop JCN
POP2
- POPr
+ ( draw head )
+ .snake/x LDZ TOS 8** .Screen/x DEO2
+ .snake/y LDZ TOS 8** .Screen/y DEO2
+ ;snake-icns/face .Screen/addr DEO2
+ STHr .Screen/sprite DEO
RTN
@draw-apple ( color -- )
- .apple/x LDZ TOS 8** .Screen/x DEO2
- .apple/y LDZ TOS 8** .Screen/y DEO2
- ;apple-icn .Screen/addr DEO2
- .Screen/sprite DEO
- RTN
+
+ .apple/x LDZ TOS 8** .Screen/x DEO2
+ .apple/y LDZ TOS 8** .Screen/y DEO2
+ ;apple-chr .Screen/addr DEO2
+ .Screen/sprite DEO
RTN
-@print-hex ( value -- )
-
- STHk #04 SFT ,&parse JSR .Console/write DEO
- STHr #0f AND ,&parse JSR .Console/write DEO
- RTN
- &parse ( value -- char )
- DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
+@draw-score ( score color -- )
+
+ STH
+ #0010 .Screen/x DEO2
+ #0010 .Screen/y DEO2
+ DUP #04 SFT TOS 8** ;font-hex ++ .Screen/addr DEO2
+ .Screen/x DEI2 #0008 ++ .Screen/x DEO2
+ ( draw ) STHkr .Screen/sprite DEO
+ #0f AND TOS 8** ;font-hex ++ .Screen/addr DEO2
+ .Screen/x DEI2 #0008 ++ .Screen/x DEO2
+ ( draw ) STHr .Screen/sprite DEO
RTN
( assets )
@snake-icns
- ffff ffff ffff ffff
-@apple-icn
- ffff ffff ffff ffff
+ 7eff ffff ffff ff7e
+ &face
+ 7eff ffdb ffe7 ff7e
+@apple-chr
+ 0000 76ff ffff 7e3c
+ 1008 0000 0000 0000
+@font-hex ( 0-F )
+ 007c 8282 8282 827c 0030 1010 1010 1010
+ 007c 8202 7c80 80fe 007c 8202 1c02 827c
+ 000c 1424 4484 fe04 00fe 8080 7c02 827c
+ 007c 8280 fc82 827c 007c 8202 1e02 0202
+ 007c 8282 7c82 827c 007c 8282 7e02 827c
+ 007c 8202 7e82 827e 00fc 8282 fc82 82fc
+ 007c 8280 8080 827c 00fc 8282 8282 82fc
+ 007c 8280 f080 827c 007c 8280 f080 8080
