[feat] add collide-gelement! func

2024-05-26 10:46:37 +08:00 · 2024-05-26 10:46:37 +08:00 · 33bd32b338
commit 33bd32b338
parent 73e180df88
1 changed files with 9 additions and 0 deletions
--- a/game.scm
+++ b/game.scm
@ -76,3 +76,12 @@
                    (vector apple wall wall wall wall)
                    (vector wall wall wall wall wall)
                    (vector wall wall wall wall wall)))
+
+(define (collide-gelement! x y)
+  (let ((e (vector-ref (vector-ref ppp x) y)))
+    (if (gelement-interact? (gelement-type e))
+        (begin (display "True")
+               (newline)
+               (display (gelement-type-iamge (gelement-type e))))
+        (display "False"))))
+