From 9adc42fcaec89c77df8e4a22a33fd323a62efa89 Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 19:30:25 -0500 Subject: tweaks --- the-price-of-a-cup-of-coffee.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index a3cd1fd..0af2ede 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -260,11 +260,11 @@ (unless *on-coffee-break* (if (walking-p *nance*) (unless (sick-p *nance*) - (decf (percent *cold-meter*) 0.0004)) + (decf (percent *cold-meter*) 0.0002)) (progn - (incf (percent *cold-meter*) 0.0003) + (incf (percent *cold-meter*) 0.0005) (unless (sick-p *nance*) - (decf (percent *stress-meter*) 0.0003)))))) + (decf (percent *stress-meter*) 0.0001)))))) ;;; ACCESSORS @@ -484,6 +484,7 @@ (defun stressed-out-sequence () (setf *collision-on-p* nil) (setf *input-mode* nil) + (setf (walk-vec *nance*) (cons 0 0)) (clear-keys-down) (emote *nance* "breakdown") (with-slots (pos face) *nance* @@ -524,9 +525,10 @@ ((cointoss kindness) (emote pedestrian (choose-one "relaxed" "heart1" "heart2" "heart3" "angry") 2500) (emote *nance* (choose-one "relaxed" "heart1" "heart2" "heart3") 2000) - (incf (percent *money-meter*) (random generosity))) - (t (incf (percent *stress-meter*) vulnerability) + (incf (percent *money-meter*) (+ 0.05 (random generosity)))) + (t + (incf (percent *stress-meter*) (* 1.7 vulnerability)) (emote pedestrian (choose-one "sorry-no" "neutral") 2500))) (resume-walking pedestrian old-vec 800))))))) -- cgit v1.2.3