diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-15 11:14:19 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-15 11:14:19 -0500 |
| commit | 50ed39b0133f03224039735f5af6dab0e1fa2456 (patch) | |
| tree | af8729a8de1b3e1b3b78157d4423ffca32e22fa2 /the-price-of-a-cup-of-coffee.lisp | |
| parent | eae5cac9275f79ddb725bc62e41fdf620fa8f412 (diff) | |
illness
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -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) |