Pause during mouse-down
This commit is contained in:
parent
a9d4e30a0d
commit
cfc7c0f928
|
@ -14,7 +14,7 @@
|
|||
|
||||
@color $1
|
||||
@pointer &x $2 &y $2
|
||||
@timer &frame $1 &play $1
|
||||
@timer &play $1
|
||||
|
||||
(
|
||||
@|vectors )
|
||||
|
@ -44,13 +44,13 @@ BRK
|
|||
|
||||
@on-frame ( -> )
|
||||
|
||||
.Mouse/state DEI #00 EQU [ JMP BRK ]
|
||||
.timer/play LDZ [ JMP BRK ]
|
||||
|
||||
( every 4th )
|
||||
.timer/frame LDZk
|
||||
[ LIT &f $1 ] INCk ,&f STR
|
||||
#03 AND ?&no-run
|
||||
run
|
||||
&no-run
|
||||
LDZk INC SWP STZ
|
||||
run &no-run
|
||||
|
||||
BRK
|
||||
|
||||
|
|
Loading…
Reference in New Issue