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

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

@ -1,15 +1,16 @@
(define-module (game level-manager)
#:pure
#:use-module (scheme base)
#:use-module (ces component)
#:use-module (ces component hitbox)
#:use-module (ces component position)
#:use-module (ces component sprite)
#:use-module (ces entity)
#:use-module (ces entity-manager)
#:use-module (game-core)
#:use-module (game game-objects)
#:export ())
#:pure
#:use-module (scheme base)
#:use-module (ces component)
#:use-module (ces component hitbox)
#:use-module (ces component position)
#: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 ())
;; Player
(define (player? entity)
@ -35,9 +36,10 @@
(set-component entity 'hitbox (make-hitbox entity-id x y width height)))
(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)))))
(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))
(define (create-room! background x y width height)
(let* ((e-manager (get-entity-manager))