diff options
| author | rsiddharth <s@ricketyspace.net> | 2018-05-17 01:37:08 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2018-05-17 01:37:08 +0000 |
| commit | 4bacc7c7fc9ea4435aeebf317f1ccd9470547b31 (patch) | |
| tree | 5dc046fed6daca94292b5429b86688f77805d647 /net | |
| parent | 7006bef6734d217780300c7c89333a138bc37569 (diff) | |
net: Update snake.rkt.
Do Chapter 6 challenge 01.
* net/ricketyspace/ror/six/snake.rkt (pit): Add field dinged.
(next-pit, render-end, world-change-dir): Update functions.
Diffstat (limited to 'net')
| -rw-r--r-- | net/ricketyspace/ror/six/snake.rkt | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt index 90d40d3..17555c0 100644 --- a/net/ricketyspace/ror/six/snake.rkt +++ b/net/ricketyspace/ror/six/snake.rkt @@ -2,7 +2,7 @@ (require 2htdp/universe 2htdp/image) ;; data -(struct pit (snake goos)) +(struct pit (snake goos dinged)) (struct snake (dir segs)) (struct goo (loc expire)) (struct posn (x y)) @@ -39,7 +39,7 @@ (fresh-goo) (fresh-goo) (fresh-goo) - (fresh-goo))) + (fresh-goo)) 0) (on-tick next-pit TICK-RATE) (on-key direct-snake) (to-draw render-pit) @@ -48,10 +48,11 @@ (define (next-pit w) (define snake (pit-snake w)) (define goos (pit-goos w)) + (define dinged (pit-dinged w)) (define goo-to-eat (can-eat snake goos)) (if goo-to-eat - (pit (grow snake) (age-goo (eat goos goo-to-eat))) - (pit (slither snake) (age-goo goos)))) + (pit (grow snake) (age-goo (eat goos goo-to-eat)) (+ 1 dinged)) + (pit (slither snake) (age-goo goos) dinged))) (define (direct-snake w ke) (cond [(dir? ke) (world-change-dir w ke)] @@ -66,7 +67,11 @@ (or (self-colliding? snake) (wall-colliding? snake))) (define (render-end w) - (overlay (text "Game Over" ENDGAME-TEXT-SIZE "black") + (overlay (above (text "Game Over" ENDGAME-TEXT-SIZE "black") + (text (string-append "You dinged " + (number->string (pit-dinged w)) + " goos.") + ENDGAME-TEXT-SIZE "black")) (render-pit w))) @@ -146,7 +151,7 @@ (cons? (rest (snake-segs the-snake)))) (stop-with w)] [else - (pit (snake-change-dir the-snake d) (pit-goos w))])) + (pit (snake-change-dir the-snake d) (pit-goos w) (pit-dinged w))])) (define (opposite-dir? d1 d2) (cond [(string=? d1 "up") (string=? d2 "down")] |