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

refine text and restart controls

Browse source
This commit is contained in:
Peter Tillemans 2024-05-01 15:39:34 +02:00
parent 23cdd912cf
commit 52b6640c99
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
flappy-ball.lisp
View file

@ -134,7 +134,7 @@
(ball-pen (make-pen :stroke (gray 0.5) :fill sketch:+yellow+ :weight 1))
(collision-pen (make-pen :stroke (gray 0.5) :fill sketch:+red+ :weight 1))
(pipe-pen (make-pen :stroke (gray 0.5) :fill sketch:+green+ :weight 1))
(pipes-amount 1)
(pipes-amount 10)
(pipes-spacing 200)
(pipes-width 20)
(pipes (random-pipes pipes-amount pipes-spacing ground-level 100 pipes-width))
@ -155,20 +155,23 @@
collision-pen)
ball-pen))
(if (>= scroll-x target-x)
(let ((pic (load-resource "assets/level1/prize.png")))
(draw pic :x (- (+ 960 target-x) scroll-x) :y 0 )))
(when (eq state 'new)
(setf scroll-x 0.0)
(text "Click to Start" 350 250 200 40))
(when (eq state 'won)
(text "You Won" 400 100 120 40))
(text "You Won" 380 100 160 60)
(text "Return to Restart" 300 150 320 40)
)
(when (eq state 'died)
(text "You Died" 400 250 120 40))
(text "You Died" 380 100 160 60)
(text "Return to Restart" 300 150 320 40))
(text (format nil "~3,'0d" (floor score)) 820 20 100 40)
(if (>= scroll-x target-x)
(let ((pic (load-resource "assets/level1/prize.png")))
(draw pic :x (- (+ 960 target-x) scroll-x) :y 0 )))
(when (eq state 'running)
(setf score (1+ (/ (- scroll-x pipes-width (/ width 10)) pipes-spacing)))
(setf scroll-x (+ scroll-x scroll-speed))
@ -182,20 +185,17 @@
(setf ball (ball-flap ball flap-speed))
(when (eq state 'new)
(setf state 'running))
(when (eq state 'died)
(setf state 'new))
(when (eq state 'won)
(setf state 'new))
))
(defmethod on-key ((instance flappy-ball) key state)
(with-slots (ball flap-speed state) instance
(setf ball (ball-flap ball flap-speed))
(when (eq state 'new)
(setf state 'running))
(when (eq state 'died)
(print key)
(when (and (eq state 'new) (not (eq key :RETURN))
(setf state 'running))
(when (and (eq state 'died) (eq key :RETURN))
(setf state 'new))
(when (eq state 'won)
(when (and (eq state 'won) (eq key :RETURN))
(setf state 'new))
))