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

Add gate and warp sound effects.

Browse source
This commit is contained in:
David Thompson 2024-05-23 07:48:53 -04:00
parent a24d737bc7
commit d4065aa2bf
4 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
game.scm
View file

@ -67,6 +67,8 @@
(define audio:exit (load-sound-effect "exit"))
(define audio:pickup (load-sound-effect "pickup"))
(define audio:die (load-sound-effect "die"))
(define audio:gate (load-sound-effect "gate"))
(define audio:warp (load-sound-effect "warp"))
(define audio:electric-switch-on (load-sound-effect "electric-switch-on"))
(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
@ -226,10 +228,14 @@
;; TODO: Maybe show a little achievement popup when all gems
;; are collected?
(set! *gems* (cons *level-idx* *gems*)))
((or ('gate-open x y) ('gate-close x y))
(play-sound-effect audio:gate))
(('electric-switch-on x y)
(play-sound-effect audio:electric-switch-on))
(('electric-switch-off x y)
(play-sound-effect audio:electric-switch-off))
(('receive-electron x y)
(play-sound-effect audio:warp 0.25))
(_ (values)))
(lp rest))))
(update-objects!)