diff options
author | Boutade <thegoofist@protonmail.com> | 2019-10-17 20:04:13 -0500 |
---|---|---|
committer | Boutade <thegoofist@protonmail.com> | 2019-10-17 20:04:13 -0500 |
commit | 5822af04183045d38a2a9245f74b5bd9af928ac0 (patch) | |
tree | a57a630c16b97f5ea360f363936ed9d4dd74349c | |
parent | cdb1599b9d63d0a7de662df7c745e40929241ee7 (diff) |
stop and consider
-rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 1c14a00..dcfa28e 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -269,9 +269,9 @@ (make-instance 'pedestrian :sheet *suit-texture* :comfort-rad 120 - :anger 0.1 - :kindness 0.015 - :generosity 0.5 + :anger 0.2 + :kindness 0.5 + :generosity 0.25 :vulnerability 0.07 ))) (setf (walk-speed suit) 5) @@ -318,9 +318,9 @@ (let ((old-vec (copy-list walk-vec))) (setf (car walk-vec) 0) (setf (cdr walk-vec) 0) - (emote pedestrian "alarmed-question" 1400) - (emote *nance* "alarmed-question" 1400) - (pause-then 1400 (lambda () + (emote pedestrian "alarmed-question" 800) + (emote *nance* "alarmed-question" 800) + (pause-then 1000 (lambda () (cond ((cointoss anger) (emote pedestrian (choose-one "asshole" "very-angry" "death") 2500) @@ -330,7 +330,7 @@ (emote pedestrian (choose-one "angry" "alarmed-question" "relaxed" "relaxed") 2500) (emote *nance* "relaxed" 2000) (incf (percent *money-meter*) (random generosity))) - (t (emote pedestrian "alarmed-question" 2500))) + (t (emote pedestrian (choose-one "sorry-no" "neutral") 2500))) (resume-walking pedestrian old-vec 800))))))) (defun resume-walking (person vec after) |