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

Fix game images alist

Browse source
This commit is contained in:
TakeV 2024-05-25 19:27:03 -04:00
parent 7888601c1e
commit 4fcc130c9c
Signed by: TakeV
GPG key ID: A64F41345C7400AF
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
game.scm
View file

@ -56,11 +56,11 @@
(define game-width 640.0) (define game-width 640.0)
(define game-height 480.0) (define game-height 480.0)
(define game-images `(('player . ,(make-image "assets/sprites/player.png")) (define game-images `((player . ,(make-image "assets/sprites/player.png"))
('barrel . ,(make-image "assets/sprites/barrel.png")) (barrel . ,(make-image "assets/sprites/barrel.png"))
('bricks . ,(make-image "assets/sprites/bricks.png")) (bricks . ,(make-image "assets/sprites/bricks.png"))
('stones . ,(make-image "assets/sprites/stones.png")) (stones . ,(make-image "assets/sprites/stones.png"))
('card-back . ,(make-image "assets/sprites/bricks.png")))) (card-back . ,(make-image "assets/sprites/bricks.png"))))
(parameterize ((*logger* pk)) (parameterize ((*logger* pk))
(parameterize ((*media-library* (create-media-library))) (parameterize ((*media-library* (create-media-library)))