|
|
|
|
58
|
(setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
|
58
|
(setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
|
59
|
(setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
|
59
|
(setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
|
60
|
(move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
|
60
|
(move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
|
61
|
- until (game-state-quit? state)))
|
|
|
62
|
- (print (game-state-history state)))
|
|
|
|
|
61
|
+ until (game-state-quit? state))))
|
63
|
|
62
|
|
64
|
(defun start-dev (state)
|
63
|
(defun start-dev (state)
|
65
|
(ql:quickload :slynk)
|
64
|
(ql:quickload :slynk)
|