pti/flappy-ball
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

introduce play level

Browse source
This commit is contained in:
Peter Tillemans 2024-05-09 22:47:13 +02:00
parent bed4eee1e9
commit e10f22ceb1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flappy-ball.lisp
View file

@ -235,11 +235,11 @@ Hash-table with level name => file name => resource.")
(score 0) (score 0)
(high-scores (load-high-scores "highscores")) (high-scores (load-high-scores "highscores"))
(on-exit (lambda () ())) (on-exit (lambda () ()))
(level "level1") (play-level 0)
) )
(let ((ball-collides (some (lambda (pipe) (pipe-collides pipe ball scroll-x)) pipes)) (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-background level scroll-x)
(draw-foreground level pipes scroll-x pipe-pen height) (draw-foreground level pipes scroll-x pipe-pen height)