diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-19 09:59:37 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-19 09:59:37 -0500 |
| commit | 78f5f0496da67c9321f7de5854512002c677057d (patch) | |
| tree | 1ec843fcca13c07c63a8bf931effc28ca2053fd2 /the-price-of-a-cup-of-coffee.lisp | |
| parent | 4c68f1131a55c39c4bcb940ef8429f322d859170 (diff) | |
added punker
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) |