diff options
author | David Thompson <dthompson2@worcester.edu> | 2016-05-15 21:36:42 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2016-05-15 21:36:42 -0400 |
commit | 9b027d789078ac4b0050910455d407eac700a932 (patch) | |
tree | eb44371a30c80b03f4c0d75ea92739d5fc4b554f | |
parent | 2e56bb6a0c7210c8103eb43895b180c1125291ac (diff) |
-rw-r--r-- | lisparuga/audio.scm | 5 |
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) |