From 78f5f0496da67c9321f7de5854512002c677057d Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 09:59:37 -0500 Subject: added punker --- assets.lisp | 4 ++++ assets/Punker.png | Bin 0 -> 139134 bytes the-price-of-a-cup-of-coffee.lisp | 3 ++- 3 files changed, 6 insertions(+), 1 deletion(-) create mode 100644 assets/Punker.png diff --git a/assets.lisp b/assets.lisp index b375c5b..53d0c91 100644 --- a/assets.lisp +++ b/assets.lisp @@ -97,6 +97,7 @@ (defparameter +suit-sheet-image+ #P"assets/Suit.png") (defparameter +nomry-sheet-image+ #P"assets/Normy.png") (defparameter +kid-sheet-image+ #P"assets/KidSheet.png") +(defparameter +punker-sheet-image+ #P"assets/Punker.png") (defparameter +things-look-up-track-path+ #P"assets/thingslookup.mp3") (defparameter +cold-day-track-path+ #P"assets/coldday.mp3") (defparameter +emoji-sheet-image+ #P"assets/emoji.png") @@ -109,6 +110,7 @@ (defvar *suit-texture*) (defvar *normy-texture*) (defvar *kid-texture*) +(defvar *punker-texture*) (defvar *expression-texture*) (defvar *backdrop-texture*) (defvar *sliding-door-texture*) @@ -137,6 +139,8 @@ (setf *kid-texture* (make-texture-from-file renderer +kid-sheet-image+)) + (setf *punker-texture* (make-texture-from-file renderer +punker-sheet-image+)) + (setf *expression-texture* (make-texture-from-file renderer +emoji-sheet-image+)) (setf *sliding-door-texture* (make-texture-from-file renderer +sliding-door-image+)) diff --git a/assets/Punker.png b/assets/Punker.png new file mode 100644 index 0000000..78d6315 Binary files /dev/null and b/assets/Punker.png differ diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 182a8d8..f13e060 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -694,7 +694,8 @@ (pause-then 1200 (lambda () (setf *collision-on-p* t) - (setf *input-mode* :normal)))))) + (setf *input-mode* :normal) + (incf (percent *stress-meter*) (* 5 (vulnerability ped)))))))) (defun x-direction (person) -- cgit v1.2.3