diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:08:41 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 15:08:41 -0500 |
| commit | d07255239d1d3b202183ec94779a3fd2c5589121 (patch) | |
| tree | c12428c9cf5386a5504863665d091b3fdae29c4f /the-price-of-a-cup-of-coffee.lisp | |
| parent | 66b0401d153cfc90d5e4b1b574abb0cccde47c31 (diff) | |
tweak
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 06aed0f..5d2de34 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -265,7 +265,7 @@ (defun stressed-out-sequence () (setf *collision-on-p* nil) (setf *input-mode* nil) - (emote *nance* "incapacitated") + (emote *nance* "breakdown") (with-slots (pos face) *nance* (let ((move-to-home-base (sequencing (:at (sdl2:get-ticks) :targeting pos) @@ -273,13 +273,11 @@ (animating :the 'sdl2:rect-x :to +home-base-x+) (animating :the 'sdl2:rect-y :to +home-base-y+)) (take-action (lambda () - (print "calling first callback") (setf face 'facing-down) - (emote *nance* "breakdown"))) + (emote *nance* "incapacitated"))) (animate *stress-meter* 'percent 0.25 :rounding nil :duration 4000 :ease #'quad-in-out :on-complete (lambda () - (print "calling second callback") (emote *nance* nil) (setf *collision-on-p* t) (setf *input-mode* :normal)))))) |