SuperKamiGuru/foss-mmo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add sound effects for switched emitters.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
assets/sounds/emitter-off.wav Normal file
View file

Binary file not shown.

BIN
assets/sounds/emitter-on.wav Normal file
View file

Binary file not shown.

6
game.scm
View file

@ -70,6 +70,8 @@
(define audio:exit (load-sound-effect "exit")) (define audio:exit (load-sound-effect "exit"))
(define audio:pickup (load-sound-effect "pickup")) (define audio:pickup (load-sound-effect "pickup"))
(define audio:emit (load-sound-effect "emit")) (define audio:emit (load-sound-effect "emit"))
(define audio:emitter-on (load-sound-effect "emitter-on"))
(define audio:emitter-off (load-sound-effect "emitter-off"))
(define audio:die (load-sound-effect "die")) (define audio:die (load-sound-effect "die"))
(define audio:gate (load-sound-effect "gate")) (define audio:gate (load-sound-effect "gate"))
(define audio:warp (load-sound-effect "warp")) (define audio:warp (load-sound-effect "warp"))
@ -258,6 +260,10 @@
(set! *gems* (cons *level-idx* *gems*))) (set! *gems* (cons *level-idx* *gems*)))
(('emit x y) (('emit x y)
(play-sound-effect audio:emit)) (play-sound-effect audio:emit))
(('emitter-on x y)
(play-sound-effect audio:emitter-on))
(('emitter-off x y)
(play-sound-effect audio:emitter-off))
(('gate-open x y) (('gate-open x y)
(play-sound-effect audio:gate)) (play-sound-effect audio:gate))
(('gate-close x y) (('gate-close x y)

7
modules/game/actors.scm
View file

@ -161,8 +161,11 @@
(('exit obj grid-info) #f) (('exit obj grid-info) #f)
(('activate grid-info) (('activate grid-info)
($ on? #t) ($ on? #t)
($ timer 0)) ($ timer 0)
(('deactivate grid-info) ($ on? #f)) ($ 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) (('wire-state grid-info)
(when ($ on?) (when ($ on?)
(let ((t ($ timer))) (let ((t ($ timer)))