TakeV/lisp-game-jam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix some bindings in level-manager.scm

Browse source
This commit is contained in:
TakeV 2024-05-25 04:19:08 -04:00
parent 47abe2da10
commit b8185fee2c
Signed by: TakeV
GPG key ID: A64F41345C7400AF
1 changed files with 16 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
modules/game/level-manager.scm
View file

@ -7,6 +7,7 @@
#:use-module (ces component sprite)
#:use-module (ces entity)
#:use-module (ces entity-manager)
#:use-module (dom image)
#:use-module (game-core)
#:use-module (game game-objects)
#:export ())
@ -37,7 +38,8 @@
(define (add-room-components entity background x y width height)
(let* ((room-entity-id (game-entity-id entity))
(entity (add-background entity room-entity-id sprite width height))
(entity (add-bounding-box entity room-entity-id x y width height)))))
(entity (add-bounding-box entity room-entity-id x y width height)))
entity))
(define (create-room! background x y width height)
(let* ((e-manager (get-entity-manager))