From c9ba8b1931e5675e0911ca17a3f16c95d73e8381 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 22 Oct 2023 21:42:52 -0400 Subject: Add some more placeholder level. --- game.scm | 32 ++++++++++++++++++++++++++++++-- 1 file changed, 30 insertions(+), 2 deletions(-) (limited to 'game.scm') diff --git a/game.scm b/game.scm index cd9ff7f..106e9cc 100644 --- a/game.scm +++ b/game.scm @@ -389,7 +389,7 @@ ;; Scrolling level: (define *scroll* 0.0) - (define *scroll-speed* 1.0) + (define *scroll-speed* 0.5) (define (update-scroll!) (set! *scroll* (+ *scroll* *scroll-speed*))) ;; sprite sheet offset, x, y @@ -429,6 +429,34 @@ (define-syntax-rule (define-level name tile ...) (define name (make-level '(tile ...)))) (define-level level + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X _ _ _ _ _ _ _ _ _ _ _ _ _ X + X X _ _ _ _ _ _ _ _ _ _ _ X X + X X X _ _ _ _ _ _ _ _ _ X X X + X X _ _ _ _ _ _ _ _ _ _ _ X X X _ _ _ _ _ _ _ _ _ _ _ _ _ X X X _ _ _ _ _ _ _ _ _ _ _ X X X X X _ _ _ _ _ _ _ _ _ X X X @@ -692,7 +720,7 @@ (set! *player-fire-counter* (modulo (+ *player-fire-counter* 1) player-fire-interval)) (when (= *player-fire-counter* 0) - (sound-effect-play sound:player-shoot) + (sound-effect-play sound:player-shoot 0.5) (bullet-pool-add! player-bullets 0 (- (vec2-x player-position) 6.0) (vec2-y player-position) -- cgit v1.2.3