From 8e31de079306b288ff159c4e364a1716d8e47d25 Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Sun, 12 May 2019 14:01:05 +0200 Subject: Add admin interface --- server/game/game.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'server/game/game.lisp') 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 -- cgit v1.2.3