From: christoph <christoph@christoph-PC.lan>
Date: Wed, 19 Aug 2009 01:03:05 +0000 (+0200)
Subject: added new starting-functions to make it a little easier.
X-Git-Url: http://uxul.de/gitweb/?a=commitdiff_plain;h=1cb5889cdf4245b3e627979434e0f61743d1621e;p=uxul-world.git

added new starting-functions to make it a little easier.
---

diff --git a/game.lisp b/game.lisp
index 711dc78..8051f9f 100755
--- a/game.lisp
+++ b/game.lisp
@@ -4,6 +4,13 @@
 
 (defparameter *cfont* nil)
 
+(defun run-testing-room ()
+  (start-game :room-function #'make-testing-room))
+
+(defun run-room (item-list)
+  (start-game :room-function
+	      #'(lambda () (create-room-from-item-list item-list))))
+
 (defun start-game (&key (music nil) room-function (15-fps nil))
   "Start the Game: Call room-function for getting the room-object to
 run. Music is ignored so far. 15-fps makes only every second frame be