diff options
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
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) |