Lower music volume a bit.
This commit is contained in:
parent
9027df5f20
commit
c9336f2273
1 changed files with 1 additions and 1 deletions
2
game.scm
2
game.scm
|
@ -99,7 +99,7 @@
|
||||||
(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"))
|
(define audio:explosion (load-sound-effect "explosion"))
|
||||||
|
|
||||||
(define* (load-music name #:key (volume 0.5))
|
(define* (load-music name #:key (volume 0.3))
|
||||||
(let ((music (make-audio (string-append "assets/music/" name ".ogg"))))
|
(let ((music (make-audio (string-append "assets/music/" name ".ogg"))))
|
||||||
(set-media-loop! music 1)
|
(set-media-loop! music 1)
|
||||||
(set-media-volume! music volume)
|
(set-media-volume! music volume)
|
||||||
|
|
Loading…
Add table
Reference in a new issue