summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-05-15 21:36:42 -0400
committerDavid Thompson <dthompson2@worcester.edu>2016-05-15 21:36:42 -0400
commit9b027d789078ac4b0050910455d407eac700a932 (patch)
treeeb44371a30c80b03f4c0d75ea92739d5fc4b554f
parent2e56bb6a0c7210c8103eb43895b180c1125291ac (diff)
Use asset load path for audio and music.HEADmaster
-rw-r--r--lisparuga/audio.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisparuga/audio.scm b/lisparuga/audio.scm
index 3ec04e6..8d04449 100644
--- a/lisparuga/audio.scm
+++ b/lisparuga/audio.scm
@@ -19,6 +19,7 @@
#:use-module (sly actor)
#:use-module (sly audio)
#:use-module (sly utils)
+ #:use-module (lisparuga config)
#:use-module (lisparuga enemies)
#:use-module (lisparuga explosions)
#:use-module (lisparuga player)
@@ -35,13 +36,13 @@
(define load-music*
(memoize
(lambda (file)
- (load-music (string-append "assets/music/" file)))))
+ (load-music (string-append %datadir "/music/" file)))))
(define (loop-music music)
(play-music music #:loop? #t))
(define (load-sample* file)
- (load-sample (string-append "assets/sounds/" file)))
+ (load-sample (string-append %datadir "/sounds/" file)))
(define (enemy-hit-sound world time)
(and (any (lambda (enemy)