Added game over notification
parent
daae81a751
commit
7a9712061d
|
@ -50,7 +50,7 @@ body {
|
||||||
<span style="float: left; vertical-align: top;">Gravity
|
<span style="float: left; vertical-align: top;">Gravity
|
||||||
<input id="gravity" type="range" min="1" max="10" value="1" step="1" />
|
<input id="gravity" type="range" min="1" max="10" value="1" step="1" />
|
||||||
</span>
|
</span>
|
||||||
<span style="float: right; font-size: small">
|
<span style="float: right; font-size: smaller">
|
||||||
<span id="state">press <space> to start</span>
|
<span id="state">press <space> to start</span>
|
||||||
</span>
|
</span>
|
||||||
</div>
|
</div>
|
||||||
|
|
|
@ -311,9 +311,11 @@
|
||||||
score-el (dom/by-id "score")
|
score-el (dom/by-id "score")
|
||||||
lpaddle-el (dom/by-id "lpaddle")
|
lpaddle-el (dom/by-id "lpaddle")
|
||||||
rpaddle-el (dom/by-id "rpaddle")
|
rpaddle-el (dom/by-id "rpaddle")
|
||||||
fps-el (dom/by-id "fps")]
|
fps-el (dom/by-id "fps")
|
||||||
|
title-el (dom/by-id "title")]
|
||||||
(dom/set-style! ball-el "fill" "orange")
|
(dom/set-style! ball-el "fill" "orange")
|
||||||
(dom/set-text! state-el "")
|
(dom/set-text! state-el "")
|
||||||
|
(dom/set-text! title-el "Gravity Pong!")
|
||||||
(go (loop [fps-p nil score-p nil]
|
(go (loop [fps-p nil score-p nil]
|
||||||
(let [fps (int (/ 1000 (<! ticks)))
|
(let [fps (int (/ 1000 (<! ticks)))
|
||||||
[x y] (<! pos)
|
[x y] (<! pos)
|
||||||
|
@ -331,6 +333,7 @@
|
||||||
(when (= state :gameover)
|
(when (= state :gameover)
|
||||||
(do (dom/set-style! ball-el "fill" "red")
|
(do (dom/set-style! ball-el "fill" "red")
|
||||||
(dom/set-text! state-el "press <space> to restart")
|
(dom/set-text! state-el "press <space> to restart")
|
||||||
|
(dom/set-text! title-el "GAME OVER")
|
||||||
(start-on-space)))
|
(start-on-space)))
|
||||||
(recur fps score))))))
|
(recur fps score))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue