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

Add explosion sound effect

Browse source
This commit is contained in:
Juliana Sims 2024-05-25 16:42:39 -04:00
parent c8705eca18
commit a674988bc6
No known key found for this signature in database
GPG key ID: 2A00BD4B0090029E
2 changed files with 2 additions and 0 deletions

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

Binary file not shown.

2
game.scm
View file

@ -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))))