Add sound effects for switched emitters.

This commit is contained in:
David Thompson 2024-05-23 15:07:48 -04:00
parent ade893c45a
commit 65076c40f3
4 changed files with 11 additions and 2 deletions

View file

@ -161,8 +161,11 @@
(('exit obj grid-info) #f)
(('activate grid-info)
($ on? #t)
($ timer 0))
(('deactivate grid-info) ($ on? #f))
($ timer 0)
($ grid-info 'append-event `(emitter-on ,x ,y)))
(('deactivate grid-info)
($ on? #f)
($ grid-info 'append-event `(emitter-off ,x ,y)))
(('wire-state grid-info)
(when ($ on?)
(let ((t ($ timer)))