diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:07:11 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:07:11 -0500 |
| commit | 66b0401d153cfc90d5e4b1b574abb0cccde47c31 (patch) | |
| tree | aeaa8e5a51e090865d994bfec66cc51fcff84103 | |
| parent | 555d4366e1d9b8ffd05d704231a6e00d17837b6e (diff) | |
get stressed
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 2e954d3..06aed0f 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -105,6 +105,10 @@ :source-rect (get-expression "coffee") :dest-rect *status-meter-decoration-rect*))) +(defmethod (setf percent) :after (new-val (meter (eql *stress-meter*))) + (when (<= 1.0 new-val) + (stressed-out-sequence))) + ;; TODO - REIMPLEMENT TO WORK WITH *TWEENS* ;; (defun drink-coffee () |