diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 08:29:32 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 08:29:46 -0500 |
| commit | 54a7f4387ed5fb4eee3e3c51909d2c274b998473 (patch) | |
| tree | d40c38d67baf4f7c8f8c4618e1b1546cd0999f56 /the-price-of-a-cup-of-coffee.lisp | |
| parent | f6fd48c3366de86e45bcc323b8800c907beb9688 (diff) | |
hopping mad
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 18 |
1 files changed, 16 insertions, 2 deletions
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*)))) |