From 4bacc7c7fc9ea4435aeebf317f1ccd9470547b31 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Thu, 17 May 2018 01:37:08 +0000
Subject: 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.
---
net/ricketyspace/ror/six/snake.rkt | 17 +++++++++++------
1 file 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")]
--
cgit v1.2.3