;; basic-classes.lisp --- Part of srd-tools

;; Copyright (C) 2008 Clinton Ebadi <clinton@unknownlamer.org>

;; Author: Clinton Ebadi <clinton@unknownlamer.org>

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.


(in-package :org.unknownlamer.dnd-tools)

(defgeneric player-level (instance))

(defclass player-class ()
  ((name :initarg :name :accessor player-class-name :index t))
  (:metaclass persistent-metaclass))

(defclass player-level ()
  ((player-class :initarg :level-class :accessor level-class :index t)
   (level :initarg :level :accessor player-level :index t))
  (:metaclass persistent-metaclass))

(defgeneric player-class-levels (player-class))

(defmethod player-class-levels ((player-class player-class))
  (get-instances-by-value 'player-level 'player-class player-class))