summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace/ror/six/snake.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'net/ricketyspace/ror/six/snake.rkt')
-rw-r--r--net/ricketyspace/ror/six/snake.rkt7
1 files changed, 4 insertions, 3 deletions
diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt
index 30c4c24..2931375 100644
--- a/net/ricketyspace/ror/six/snake.rkt
+++ b/net/ricketyspace/ror/six/snake.rkt
@@ -4,7 +4,7 @@
;; data
(struct pit (snake goos dinged))
(struct snake (dir segs))
-(struct goo (loc expire))
+(struct goo (loc expire type))
(struct posn (x y))
;; constants
@@ -130,12 +130,13 @@
(zero? (goo-expire g)))
(define (decay g)
- (goo (goo-loc g) (sub1 (goo-expire g))))
+ (goo (goo-loc g) (sub1 (goo-expire g)) (goo-type g)))
(define (fresh-goo)
(goo (posn (add1 (random (sub1 SIZE)))
(add1 (random (sub1 SIZE))))
- EXPIRATION-TIME))
+ EXPIRATION-TIME
+ (random 1 3)))
(define (fresh-goos)
(define (gen-goos n)