Add sound effects for switched emitters.
This commit is contained in:
parent
ade893c45a
commit
65076c40f3
4 changed files with 11 additions and 2 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue