mirror of https://git.sr.ht/~rabbits/uxn-utils
Play bell
This commit is contained in:
parent
5a514844ff
commit
cab3279ddd
|
@ -39,7 +39,8 @@
|
|||
[ LIT2 40 &f $1 ] INCk ,&f STR
|
||||
NEQ ?{
|
||||
[ LIT2 00 _&f ] STR
|
||||
DUP2 #0001 SUB2 <set-seconds> }
|
||||
#0001 SUB2 DUP2 <set-seconds>
|
||||
ORAk ?{ <ring> } }
|
||||
POP2 BRK
|
||||
|
||||
@on-mouse ( -> )
|
||||
|
@ -60,6 +61,10 @@
|
|||
(
|
||||
@|core )
|
||||
|
||||
@<ring> ( -- )
|
||||
( bell ) #0718 DEO
|
||||
JMP2r
|
||||
|
||||
@<freeze-timer> ( -- )
|
||||
;on-frame-freeze .Screen/vector DEO2
|
||||
#c0 ;on-frame-freeze/lock STA
|
||||
|
|
Loading…
Reference in New Issue