(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)
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)
+)