From 50ed39b0133f03224039735f5af6dab0e1fa2456 Mon Sep 17 00:00:00 2001 From: Boutade Date: Tue, 15 Oct 2019 11:14:19 -0500 Subject: illness --- the-price-of-a-cup-of-coffee.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index bdb5bd7..d99c326 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -80,6 +80,18 @@ :ease ease))))) +(defun get-sick () + (unless (sick-p *nance*) + (setf (sick-p *nance*) t) + (setf (walk-speed *nance*) + (round (* 0.5 (walk-speed *nance*)))))) + +(defun get-better () + (when (sick-p *nance*) + (setf (sick-p *nance*) nil) + (setf (walk-speed *nance*) + (round (* 2 (walk-speed *nance*)))))) + (def-normal-class human () (walk-vec (cons 0 0)) (walk-speed 6) -- cgit v1.2.3