spook

commit 9b7857ca4b01e42a1e14015690537863295fb2b1
parent a6ed7f807b8142ec38b054eb3a762af4a5d006f1
Author: Yuval Langer <yuvallangerontheroad@gmail.com>
Date:   Fri, 27 Oct 2023 18:25:46 +0000

Fix collision bug.

Diffstat:
M
main.scm
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/main.scm b/main.scm
@@ -91,10 +91,10 @@
                  brick-width)
               (assq-ref player 'x))
            (< (+ (assq-ref player 'y)
-                 player-width)
+                 player-height)
               (assq-ref brick 'y))
            (< (+ (assq-ref brick 'y)
-                 brick-width)
+                 brick-height)
               (assq-ref player 'y)))))
 
 (define falling-bricks '())