X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=on-collision.lisp;fp=on-collision.lisp;h=8647884d7dd4439d7e2982168ed2d92199c921cf;hp=68e284ef122bc2197961435231f6f2ebc3477cee;hb=a1b8d36904d4152a102637bdd61cbf064a247a72;hpb=ab302d9ac8adefaf2bfe630e29c0847b0d372e16

diff --git a/on-collision.lisp b/on-collision.lisp
index 68e284e..8647884 100755
--- a/on-collision.lisp
+++ b/on-collision.lisp
@@ -77,7 +77,11 @@
   (setf (autojump moving-rectangle) 5)
   (player-hits-enemy moving-rectangle
 		     standing-rectangle
-		     collision))
+		     collision)
+  (setf (colliding standing-rectangle) nil)
+  (move-about moving-rectangle (desired-movement collision))
+  (setf (colliding standing-rectangle) t)
+)
 
 (defmethod on-collision
     ((moving-rectangle player)
@@ -225,4 +229,8 @@
 		  collision)
   (enemy-hits-player moving-rectangle
 		     standing-rectangle
-		     collision))
+		     collision)
+  (setf (colliding standing-rectangle) nil)
+  (move-about moving-rectangle (desired-movement collision))
+  (setf (colliding standing-rectangle) t)
+)