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:electric-switch-on (load-sound-effect "electric-switch-on"))
|
||||
(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
|
||||
(define audio:explosion (load-sound-effect "explosion"))
|
||||
|
||||
;; Game state
|
||||
(define *state* #f)
|
||||
|
@ -316,6 +317,7 @@
|
|||
(('receive-electron x y)
|
||||
(play-sound-effect audio:warp 0.25))
|
||||
(('explosion x y)
|
||||
(play-sound-effect audio:explosion)
|
||||
(pk 'BOOM!))
|
||||
(_ (values)))
|
||||
(lp rest))))
|
||||
|
|
Loading…
Add table
Reference in a new issue