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

Add emitter sound effect.

Browse source
This commit is contained in:
David Thompson 2024-05-23 09:10:25 -04:00
parent 0aa32798ae
commit 2b6afada4d
3 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
assets/sounds/emit.wav Normal file
View file

Binary file not shown.

3
game.scm
View file

@ -66,6 +66,7 @@
(define audio:no (load-sound-effect "no")) (define audio:no (load-sound-effect "no"))
(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: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"))
@ -229,6 +230,8 @@
;; TODO: Maybe show a little achievement popup when all gems ;; TODO: Maybe show a little achievement popup when all gems
;; are collected? ;; are collected?
(set! *gems* (cons *level-idx* *gems*))) (set! *gems* (cons *level-idx* *gems*)))
(('emit x y)
(play-sound-effect audio:emit))
((or ('gate-open x y) ('gate-close x y)) ((or ('gate-open x y) ('gate-close x y))
(play-sound-effect audio:gate)) (play-sound-effect audio:gate))
((or ('floor-switch-on x y) ('floor-switch-off x y)) ((or ('floor-switch-on x y) ('floor-switch-off x y))

1
modules/game/actors.scm
View file

@ -134,6 +134,7 @@
(let ((t ($ timer))) (let ((t ($ timer)))
(cond (cond
((= (modulo t interval) 0) ((= (modulo t interval) 0)
($ grid-info 'append-event `(emit ,x ,y))
'electron-head) 'electron-head)
((= (modulo t interval) 1) ((= (modulo t interval) 1)
'electron-tail) 'electron-tail)