From 1cb5889cdf4245b3e627979434e0f61743d1621e Mon Sep 17 00:00:00 2001 From: christoph Date: Wed, 19 Aug 2009 03:03:05 +0200 Subject: [PATCH] added new starting-functions to make it a little easier. --- game.lisp | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- 2.20.1