diff options
| -rw-r--r-- | net/ricketyspace/ror/fourteen/server.rkt | 4 |
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 |