From ea0d3009fa7020d75c1657cb532570305de699a6 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 22 Sep 2023 08:24:42 -0400 Subject: Allow game to be properly installable. --- super-bloom/common.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'super-bloom/common.scm') diff --git a/super-bloom/common.scm b/super-bloom/common.scm index 0e55b90..7dd50a1 100644 --- a/super-bloom/common.scm +++ b/super-bloom/common.scm @@ -20,6 +20,7 @@ #:use-module (chickadee audio) #:use-module (chickadee graphics text) #:use-module (oop goops) + #:use-module (super-bloom config) #:export (%default-width %default-height %game-width @@ -45,22 +46,22 @@ (define %game-height:float (exact->inexact %game-height)) (define (scope-datadir file-name) - (let ((prefix (or (getenv "SUPERBLOOM_DATADIR") (getcwd)))) + (let ((prefix (or (getenv "SUPERBLOOM_DATADIR") %datadir))) (string-append prefix "/" file-name))) -(define-asset (monogram-font (file (scope-datadir "assets/fonts/monogram_extended.ttf"))) +(define-asset (monogram-font (file (scope-datadir "fonts/monogram_extended.ttf"))) (load-font file 12 #:smooth? #f)) -(define-asset (explosion-sound (file (scope-datadir "assets/audio/explosion.wav"))) +(define-asset (explosion-sound (file (scope-datadir "audio/explosion.wav"))) (load-audio file)) -(define-asset (absorb-sound (file (scope-datadir "assets/audio/absorb.wav"))) +(define-asset (absorb-sound (file (scope-datadir "audio/absorb.wav"))) (load-audio file)) -(define-asset (watered-sound (file (scope-datadir "assets/audio/watered.wav"))) +(define-asset (watered-sound (file (scope-datadir "audio/watered.wav"))) (load-audio file)) -(define-asset (spray-sound (file (scope-datadir "assets/audio/spray.wav"))) +(define-asset (spray-sound (file (scope-datadir "audio/spray.wav"))) (load-audio file)) (define (random:float n) -- cgit v1.2.3