diff options
| -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 () |