Add explosion sound effect
This commit is contained in:
parent
c8705eca18
commit
a674988bc6
2 changed files with 2 additions and 0 deletions
BIN
assets/sounds/explosion.wav
Normal file
BIN
assets/sounds/explosion.wav
Normal file
Binary file not shown.
2
game.scm
2
game.scm
|
@ -94,6 +94,7 @@
|
||||||
(define audio:floor-switch (load-sound-effect "floor-switch"))
|
(define audio:floor-switch (load-sound-effect "floor-switch"))
|
||||||
(define audio:electric-switch-on (load-sound-effect "electric-switch-on"))
|
(define audio:electric-switch-on (load-sound-effect "electric-switch-on"))
|
||||||
(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
|
(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
|
||||||
|
(define audio:explosion (load-sound-effect "explosion"))
|
||||||
|
|
||||||
;; Game state
|
;; Game state
|
||||||
(define *state* #f)
|
(define *state* #f)
|
||||||
|
@ -316,6 +317,7 @@
|
||||||
(('receive-electron x y)
|
(('receive-electron x y)
|
||||||
(play-sound-effect audio:warp 0.25))
|
(play-sound-effect audio:warp 0.25))
|
||||||
(('explosion x y)
|
(('explosion x y)
|
||||||
|
(play-sound-effect audio:explosion)
|
||||||
(pk 'BOOM!))
|
(pk 'BOOM!))
|
||||||
(_ (values)))
|
(_ (values)))
|
||||||
(lp rest))))
|
(lp rest))))
|
||||||
|
|
Loading…
Add table
Reference in a new issue