collision working

1 files changed, 5 insertions, 0 deletions

diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp
index 8542283..182a8d8 100644
--- a/the-price-of-a-cup-of-coffee.lisp
+++ b/the-price-of-a-cup-of-coffee.lisp
@@ -469,6 +469,10 @@
            (apply 'all-p (cons arg (cdr preds))))
       t))
 
+(defun clear-keys-down ()
+  (setf *keys-down* (make-keys-down)))
+  
+
 (defun set-walk-vec-by-keysdown ()
   (with-slots (walk-vec walk-speed diag-walk-speed) *nance*
     (cond ((< 2 (number-of-dpad-keys-down))
@@ -670,6 +674,7 @@
 (defun run-collision (ped)
   (setf *collision-on-p* nil)
   (setf *input-mode* nil)
+  (clear-keys-down)
   (emote ped (choose-one "very-angry" "angry" "alarmed" "asshole" "death") 2000)
   (emote *nance* (choose-one "angry" "alarmed" "incapacitated" "stressed") 2000)
   (hopping-mad ped)