summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--net/ricketyspace/ror/fourteen/server.rkt4
1 files changed, 3 insertions, 1 deletions
diff --git a/net/ricketyspace/ror/fourteen/server.rkt b/net/ricketyspace/ror/fourteen/server.rkt
index c1d1e92..e551b2f 100644
--- a/net/ricketyspace/ror/fourteen/server.rkt
+++ b/net/ricketyspace/ror/fourteen/server.rkt
@@ -279,11 +279,13 @@ The server is responsible for:
;; determine left-over foods
(define (eat-all-the-things player foods)
(define b (ip-body player))
+ (define (new-cupcake)
+ (create-a-body CUPCAKE))
(for/fold ([foods '()]) ([f foods])
(cond
[(body-collide? f b)
(set-body-size! b (+ PLAYER-FATTEN-DELTA (body-size b)))
- foods]
+ (cons (new-cupcake) foods)]
[else (cons f foods)])))
;; body body -> Boolean