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

Hook up game and game-manager

Browse source
This commit is contained in:
TakeV 2024-05-25 17:52:39 -04:00
parent 098b64dfc2
commit 355f41a2cc
Signed by: TakeV
GPG key ID: A64F41345C7400AF
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
game.scm
View file

@ -56,26 +56,23 @@
(define game-width 640.0)
(define game-height 480.0)
(define game-images `(('player . ,(make-image "assets/sprites/player.png"))
('barrel . ,(make-image "assets/sprites/barrel.png"))
('bricks . ,(make-image "assets/sprites/bricks.png"))
('stones . ,(make-image "assets/sprites/stones.png"))
('card-back . ,(make-image "assets/sprites/bricks.png"))))
(parameterize ((*logger* pk))
(parameterize ((*media-library* (create-media-library)))
(define game-images `(('player . ,(make-image "assets/sprites/player.png"))
('barrel . ,(make-image "assets/sprites/barrel.png"))
('bricks . ,(make-image "assets/sprites/bricks.png"))
('stones . ,(make-image "assets/sprites/stones.png"))
('card-back . ,(make-image "assets/sprites/bricks.png"))))
(add-images! (get-media-library) game-images)
(write-log! "Creating entity manager")
(define e-manager
(create-entity-manager #;(init-game-entities)
))
(create-entity-manager (init-game-entities)))
(write-log! "Creating system manager")
(define s-manager
(create-system-manager #;(init-game-systems context)
))
(create-system-manager (init-game-systems draw-image context)))
(write-log! "Creating game")
(define game (make-game e-manager s-manager 0))