Quak.

[uxul-world.git] / on-collision.lisp

diff --git a/on-collision.lisp b/on-collision.lisp
index d9e47f7..9f9f329 100755 (executable)
--- a/on-collision.lisp
+++ b/on-collision.lisp
@@ -54,6 +54,7 @@
   (collide-blocks moving-rectangle
                  standing-rectangle
                  collision)
+  (setf (bounced moving-rectangle) T)
   (setf (mayjump moving-rectangle) T)
   (setf (autojump moving-rectangle) 5)
   (player-hits-enemy moving-rectangle