diff options
Diffstat (limited to 'server/game/game.lisp')
| -rw-r--r-- | server/game/game.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/server/game/game.lisp b/server/game/game.lisp index 9ea2029..4aff595 100644 --- a/server/game/game.lisp +++ b/server/game/game.lisp @@ -21,6 +21,12 @@ :initform nil :accessor game-over))) +;;; Admin function +(defmethod admin ((g game) &key (move nil move-supplied-p)) + (with-slots (snake) g + (when move-supplied-p (setf (nth 0 snake) move)))) + + ;;; Class constructor to initialize the snake (defmethod initialize-instance :after ((g game) &key) (with-slots (snake initial-size initial-position) g |