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

Update level-manager

Browse source
This commit is contained in:
nephryte 2024-05-25 04:26:06 -04:00
parent b8185fee2c
commit d9806b2f8b
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -8,14 +8,14 @@
#:use-module (ces entity)
#:use-module (ces entity-manager)
#:use-module (dom image)
#:use-module (game-core)
#:use-module (game game-objects)
#:export ())
#:export (create-player!
create-room!))
;; Player
(define (player? entity)
(and (game-object? entity)
(has-components? entity 'keyboard-input)))
;;(define (player? entity)
;; (and (game-object? entity)
;; (has-components? entity 'keyboard-input)))
(define player-sprite (make-image "assets/sprites/player.png"))
(define (create-player!)
@ -24,8 +24,8 @@
(make-inputs '() '() '()))))
;; Room
(define (room? entity)
(has-components? entity 'hitbox 'sprite)) ;; + 'room-objects ?
;;(define (room? entity)
;; (has-components? entity 'hitbox 'sprite)) ;; + 'room-objects ?
;; As it stands a game object is technically also a room.
;; This will not be the case in the future -- especially once tilemaps work.