From b90d133377c259d00477491d9a58319fece77f14 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 26 May 2024 12:09:48 +0100 Subject: Reorganise game files --- turbo.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'turbo.scm') diff --git a/turbo.scm b/turbo.scm index 7419a54..f2b5b07 100644 --- a/turbo.scm +++ b/turbo.scm @@ -9,27 +9,27 @@ ;;;; Constants and variables -(define the-font (load-bitmap-font "thick_8x8.xml")) -(define font-7-segments (load-font "DSEG7Classic-Regular.ttf" 24)) +(define the-font (load-bitmap-font "fonts/thick_8x8.xml")) +(define font-7-segments (load-font "fonts/DSEG7Classic-Regular.ttf" 24)) (define lane-height 65) (define lane-length 192) (define road-start-y 80) (define road-section-position 0) -(define road (load-tileset "road.png" lane-length lane-height)) +(define road (load-tileset "sprites/road.png" lane-length lane-height)) (define road-num-lanes 5) (define road-end-y (+ road-start-y (* road-num-lanes lane-height))) (define road-top (texture-atlas-ref road 2)) (define road-bottom (texture-atlas-ref road 0)) (define road-lane (texture-atlas-ref road 1)) -(define grass (load-image "grass.png")) -(define dashboard-set (load-tileset "dash-background.png" 64 64)) +(define grass (load-image "sprites/grass.png")) +(define dashboard-set (load-tileset "sprites/dash-background.png" 64 64)) (define dash-background (texture-atlas-ref dashboard-set 0)) (define dash-7seg-background (texture-atlas-ref dashboard-set 1)) (define grass-height 96) -(define vehicles-sprites (load-tileset "vehicles.png" vehicle-length vehicle-height)) +(define vehicles-sprites (load-tileset "sprites/vehicles.png" vehicle-length vehicle-height)) (define player-velocity (vec2 0 0)) (define player-min-speed 250) @@ -51,9 +51,9 @@ (define level-difficulty 1) (define max-level 20) -(define music-res (load-audio "music.ogg")) +(define music-res (load-audio "sound/music.ogg")) (define music (make-source #:audio music-res #:loop? #t)) -(define engine-res (load-audio "engine-loop-1.ogg")) +(define engine-res (load-audio "sound/engine-loop-1.ogg")) (define engine-sound (make-source #:audio engine-res #:loop? #t)) (define (calculate-vehicle-position lane) -- cgit v1.2.3