From: Christoph Senjak <christoph@christoph-senjaks-macbook-pro.local>
Date: Wed, 19 Aug 2009 15:12:03 +0000 (+0200)
Subject: Exported the start-functions. Removed the jumping-bug.
X-Git-Url: http://uxul.de/gitweb/?a=commitdiff_plain;h=78c8c529734b569c6476bab399378daa241dd11a;p=uxul-world.git

Exported the start-functions. Removed the jumping-bug.
---

diff --git a/BUGS b/BUGS
index 655148f..a3cbddf 100644
--- a/BUGS
+++ b/BUGS
@@ -6,3 +6,4 @@
    time clipping works correctly.
 
 2009/08/04 Jumping after falling down from a stone is possible
+- 2009/08/20 Fixed
diff --git a/player.lisp b/player.lisp
index a111e43..72090d6 100755
--- a/player.lisp
+++ b/player.lisp
@@ -28,6 +28,9 @@
 	      :initform  (make-animation 7
 					|uxul_small1|
 					|uxul_small2|))
+   (last-y :initarg :last-pos
+	     :accessor last-y
+	     :initform nil)
    (jump-accel :accessor jump-accel
 	       :initform -50)
    (mayjump :accessor mayjump
@@ -153,6 +156,13 @@
 (defmethod invoke ((obj player))
   "Do whatever a player does ^^"
 
+  (if (and
+       (last-y obj)
+       (< (last-y obj) (y obj)))
+      (setf (mayjump obj) nil))
+
+  (setf (last-y obj) (y obj))
+
   ;; SIMPLE GRAVITY HACK
   (setf (key-pressed-down obj) (not (key-pressed-up obj)))
 
diff --git a/uxul-world.lisp b/uxul-world.lisp
index 34a44bb..fd6efd1 100755
--- a/uxul-world.lisp
+++ b/uxul-world.lisp
@@ -8,4 +8,6 @@
 	 #:init-media
 	 #:level-editor
 	 #:create-room-from-item-list
-	 #:start-game))
+	 #:start-game
+	 #:run-room
+	 #:run-testing-room))