diff options
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 182a8d8..f13e060 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -694,7 +694,8 @@ (pause-then 1200 (lambda () (setf *collision-on-p* t) - (setf *input-mode* :normal)))))) + (setf *input-mode* :normal) + (incf (percent *stress-meter*) (* 5 (vulnerability ped)))))))) (defun x-direction (person) |