introduce play level

This commit is contained in:
Peter Tillemans 2024-05-09 22:47:13 +02:00
parent bed4eee1e9
commit e10f22ceb1

View file

@ -235,11 +235,11 @@ Hash-table with level name => file name => resource.")
(score 0)
(high-scores (load-high-scores "highscores"))
(on-exit (lambda () ()))
(level "level1")
(play-level 0)
)
(let ((ball-collides (some (lambda (pipe) (pipe-collides pipe ball scroll-x)) pipes))
)
(level (format nil "level~a" (1+ play-level))))
(draw-background level scroll-x)
(draw-foreground level pipes scroll-x pipe-pen height)