Pause during mouse-down

This commit is contained in:
Devine Lu Linvega 2023-06-07 18:48:25 -07:00
parent a9d4e30a0d
commit cfc7c0f928
1 changed files with 5 additions and 5 deletions

View File

@ -14,7 +14,7 @@
@color $1 @color $1
@pointer &x $2 &y $2 @pointer &x $2 &y $2
@timer &frame $1 &play $1 @timer &play $1
( (
@|vectors ) @|vectors )
@ -44,13 +44,13 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
.Mouse/state DEI #00 EQU [ JMP BRK ]
.timer/play LDZ [ JMP BRK ] .timer/play LDZ [ JMP BRK ]
( every 4th ) ( every 4th )
.timer/frame LDZk [ LIT &f $1 ] INCk ,&f STR
#03 AND ?&no-run #03 AND ?&no-run
run run &no-run
&no-run
LDZk INC SWP STZ
BRK BRK