From 78f5f0496da67c9321f7de5854512002c677057d Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 09:59:37 -0500 Subject: added punker --- the-price-of-a-cup-of-coffee.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'the-price-of-a-cup-of-coffee.lisp') 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) -- cgit v1.2.3