From 4c68f1131a55c39c4bcb940ef8429f322d859170 Mon Sep 17 00:00:00 2001 From: Boutade Date: Sat, 19 Oct 2019 09:40:31 -0500 Subject: collision working --- the-price-of-a-cup-of-coffee.lisp | 5 +++++ 1 file changed, 5 insertions(+) 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) -- cgit v1.2.3