From 110254a67072267ef4c03c49247ddf03c028277f Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 19:03:18 -0500 Subject: oh yeah --- assets/TitleCard.png | Bin 0 -> 32993 bytes the-price-of-a-cup-of-coffee.lisp | 11 ++++++++++- 2 files changed, 10 insertions(+), 1 deletion(-) create mode 100644 assets/TitleCard.png diff --git a/assets/TitleCard.png b/assets/TitleCard.png new file mode 100644 index 0000000..e3b5f99 Binary files /dev/null and b/assets/TitleCard.png differ diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index ffa8d34..75b2f0f 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -482,6 +482,7 @@ (defun stressed-out-sequence () (setf *collision-on-p* nil) (setf *input-mode* nil) + (clear-keys-down) (emote *nance* "breakdown") (with-slots (pos face) *nance* (let ((move-to-home-base @@ -503,7 +504,6 @@ (defun stop-and-consider (pedestrian) (setf *collision-on-p* nil) (with-slots (walk-vec already-asked expression anger kindness generosity vulnerability) pedestrian - (setf already-asked t) (when (walking-p pedestrian) (let ((old-vec (copy-list walk-vec))) @@ -1001,6 +1001,15 @@ (setf *input-mode* :start) (setf *pedestrians* nil) (setf *to-render-by-y* nil) + (setf *special-nance* t) + (setf *space-clamping-p* t) + (clear-keys-down) + (setf (percent *money-meter*) 0) + (setf (percent *stress-meter*) 0) + (setf (percent *cold-meter*) 0) + (setf *pedestrian-count* 4) + (setf *collision-count* 0) + (unwind-protect (sdl2:with-init (:everything) (sdl2:with-window (win :w 1024 :h 600 :title "The Price Of A Cup Of Coffee" :flags '(:shown)) -- cgit v1.2.3