diff options
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 9444427..2e954d3 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -255,7 +255,31 @@ (sickness-check) (pause-then 1000 #'check-sickness-loop)) - +(defvar *collision-on-p* t) +(defvar *input-mode* :normal) ;; (or :normal :start nil) + +(defun stressed-out-sequence () + (setf *collision-on-p* nil) + (setf *input-mode* nil) + (emote *nance* "incapacitated") + (with-slots (pos face) *nance* + (let ((move-to-home-base + (sequencing (:at (sdl2:get-ticks) :targeting pos) + (grouping (:for 2000) + (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"))) + (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)))))) + (push move-to-home-base *tweens*)))) (defun in-front-of-door-p () (with-slots (pos) *nance* @@ -320,6 +344,8 @@ (setf (sdl2:rect-y (pos suit)) (random-y-pos)) suit)) +(defparameter +home-base-y+ 38) +(defparameter +home-base-x+ 292) (defun boot-up (renderer) ;; cleanup from previous calls to start - used while testing |