projects
/
uxul-world.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Major Changes. Windows Compatibility.
[uxul-world.git]
/
game.lisp
diff --git
a/game.lisp
b/game.lisp
index
5b98d6a
..
c026d4d
100755
(executable)
--- 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)"
"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"
(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))
(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)
(T
(on-key-down *current-room* key))))
(:key-up-event (:key key)