src/game.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))