Add emitter sound effect.
This commit is contained in:
parent
0aa32798ae
commit
2b6afada4d
3 changed files with 4 additions and 0 deletions
BIN
assets/sounds/emit.wav
Normal file
BIN
assets/sounds/emit.wav
Normal file
Binary file not shown.
3
game.scm
3
game.scm
|
@ -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))
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Add table
Reference in a new issue