From 54a7f4387ed5fb4eee3e3c51909d2c274b998473 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 08:29:32 -0500 Subject: hopping mad --- assets/Speechbubble.png | Bin 0 -> 2902 bytes the-price-of-a-cup-of-coffee.lisp | 18 ++++++++++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) create mode 100644 assets/Speechbubble.png diff --git a/assets/Speechbubble.png b/assets/Speechbubble.png new file mode 100644 index 0000000..8400d30 Binary files /dev/null and b/assets/Speechbubble.png differ diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 487e3b9..012f656 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -325,6 +325,7 @@ (cond ((cointoss anger) (emote pedestrian (choose-one "asshole" "very-angry" "death") 2500) + (hopping-mad pedestrian) (emote *nance* (choose-one "stressed" "breakdown") 3000) (incf (percent *stress-meter*) (* 3 vulnerability))) ((cointoss kindness) @@ -657,5 +658,18 @@ :duration 500) *tweens*))) - - +;; TODO FIX STRANGE BUG IN FINITE LOOPING BEHAVIOR IN ANIMISE +(defun hopping-mad (who) + (with-slots (pos) who + (let* ((current-y (sdl2:rect-y pos)) + (dest-y (- current-y 56)) + (anim + (sequencing (:at (sdl2:get-ticks) :targeting pos) + (animating :the 'sdl2:rect-y :to dest-y :for 200 :by :quading-out) + (animating :the 'sdl2:rect-y :to current-y :for 200 :by :elastic-out) + (animating :the 'sdl2:rect-y :to dest-y :for 200 :by :quading-out) + (animating :the 'sdl2:rect-y :to current-y :for 200 :by :elastic-out) + (animating :the 'sdl2:rect-y :to dest-y :for 200 :by :quading-out) + (animating :the 'sdl2:rect-y :to current-y :for 200 :by :elastic-out) + ))) + (push anim *tweens*)))) -- cgit v1.2.3