Quak.

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

diff --git a/player.lisp b/player.lisp
index 72090d6..bbfb7d1 100755 (executable)
--- a/player.lisp
+++ b/player.lisp
@@ -31,6 +31,9 @@
    (last-y :initarg :last-pos
             :accessor last-y
             :initform nil)
+   (bounced :initarg :bounced
+           :accessor bounced
+           :initform nil)
    (jump-accel :accessor jump-accel
               :initform -50)
    (mayjump :accessor mayjump
@@ -156,10 +159,13 @@
 (defmethod invoke ((obj player))
   "Do whatever a player does ^^"
 
-  (if (and
-       (last-y obj)
-       (< (last-y obj) (y obj)))
-      (setf (mayjump obj) nil))
+  (cond
+    ((bounced obj)
+     (setf (bounced obj) nil))
+    ((and
+      (last-y obj)
+      (< (last-y obj) (y obj)))
+     (setf (mayjump obj) nil)))
 
   (setf (last-y obj) (y obj))