Add admin interfaceHEADmaster

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