TakeV/lisp-game-jam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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)
#:use-module (ces entity-manager) #:use-module (ces entity-manager)
#:use-module (dom image) #:use-module (dom image)
#:use-module (game-core)
#:use-module (game game-objects) #:use-module (game game-objects)
#:export ()) #:export (create-player!
create-room!))
;; Player ;; Player
(define (player? entity) ;;(define (player? entity)
(and (game-object? entity) ;; (and (game-object? entity)
(has-components? entity 'keyboard-input))) ;; (has-components? entity 'keyboard-input)))
(define player-sprite (make-image "assets/sprites/player.png")) (define player-sprite (make-image "assets/sprites/player.png"))
(define (create-player!) (define (create-player!)
@ -24,8 +24,8 @@
(make-inputs '() '() '())))) (make-inputs '() '() '()))))
;; Room ;; Room
(define (room? entity) ;;(define (room? entity)
(has-components? entity 'hitbox 'sprite)) ;; + 'room-objects ? ;; (has-components? entity 'hitbox 'sprite)) ;; + 'room-objects ?
;; As it stands a game object is technically also a room. ;; As it stands a game object is technically also a room.
;; This will not be the case in the future -- especially once tilemaps work. ;; This will not be the case in the future -- especially once tilemaps work.