(defpackage player
  (:use :cl)
  (:export :init-player
		   :name))

(in-package :player)


(defclass player ()
  ((name :initarg :name
		 :reader name)
   (cash  :initarg :cash
		  :accessor cash)
   (debt  :initarg :debt
		  :accessor debt)
   (hp   :initform 100
		 :accessor hp)
   (clout :initform 0
		  :accessor clout)
   (stash :initform 0
		  :accessor stash)
   (stock :initform  (make-instance 'inventory :size 100)
		  :accessor stock)))

(defun init-player (name &optional (cash 2000) (debt 5000))
  (make-instance 'player
				 :name name
				 :cash cash
				 :debt debt))