Pause during mouse-down
This commit is contained in:
parent
a9d4e30a0d
commit
cfc7c0f928
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue