southfox/is-you
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[feat] add collide-gelement! func

Browse source
This commit is contained in:
SouthFox 2024-05-26 10:46:37 +08:00
parent 73e180df88
commit 33bd32b338
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
game.scm
View file

@ -76,3 +76,12 @@
(vector apple wall wall wall wall) (vector apple wall wall wall wall)
(vector wall wall wall wall wall) (vector wall 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"))))