From 66b0401d153cfc90d5e4b1b574abb0cccde47c31 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 15:07:11 -0500 Subject: get stressed --- the-price-of-a-cup-of-coffee.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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 () -- cgit v1.2.3