diff options
| -rw-r--r-- | assets.lisp | 4 | ||||
| -rw-r--r-- | assets/Punker.png | bin | 0 -> 139134 bytes | |||
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 3 |
3 files changed, 6 insertions, 1 deletions
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 Binary files differnew file mode 100644 index 0000000..78d6315 --- /dev/null +++ b/assets/Punker.png 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) |
