diff options
Diffstat (limited to 'src/game.lisp')
| -rw-r--r-- | src/game.lisp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/game.lisp b/src/game.lisp new file mode 100644 index 0000000..7c2cbbb --- /dev/null +++ b/src/game.lisp @@ -0,0 +1,19 @@ +(defpackage game + (:use :cl) + (:export :new-game)) + +(in-package :game) + +(defclass game () + ((player :initarg player + :accessor player) + (zones :initarg zones + :accessor zones) + (curzone :initarg start-zone + :accessor cur-zone))) + +(defun new-game (player zones start-zone) + (make-instance 'game + :player player + :zones zones + :start-zone start-zone)) |