X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=game.lisp;fp=game.lisp;h=c026d4d38b0a83d475ff0693126f575506e9c13c;hp=5b98d6a54889ad4474d47c9a98b74a174bb2dbdd;hb=3a5b6fe5b066ace9e3d03ec20c96c224cdbeb0b8;hpb=bf3029cdab22e72b60b26e1fa23c1568dc78041d

diff --git a/game.lisp b/game.lisp
index 5b98d6a..c026d4d 100755
--- a/game.lisp
+++ b/game.lisp
@@ -17,6 +17,7 @@
   "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
 drawn (for very slow computers)"
+  (sdl:set-video-driver "directx")
      (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
        (sdl:window +screen-width+ +screen-height+
 		   :title-caption "Uxul World"
@@ -49,6 +50,12 @@ drawn (for very slow computers)"
 			    (cond
 			      ((sdl:key= key :SDL-KEY-ESCAPE)
 			       (sdl:push-quit-event))
+			      ((sdl:key= key :SDL-KEY-O)
+			       (setf *zoom-ash*
+				     (max -3 (1- *zoom-ash*))))
+			      ((sdl:key= key :SDL-KEY-I)
+			       (setf *zoom-ash*
+				     (min 0 (1+ *zoom-ash*))))
 			      (T
 			       (on-key-down *current-room* key))))
 	   (:key-up-event (:key key)