From d07255239d1d3b202183ec94779a3fd2c5589121 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 15:08:41 -0500 Subject: tweak --- the-price-of-a-cup-of-coffee.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'the-price-of-a-cup-of-coffee.lisp') 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)))))) -- cgit v1.2.3