From bf191a6f96f19adc74879bc543da3a7027c498da Mon Sep 17 00:00:00 2001
From: El-BG-1970 <elouan.gros.fr@gmail.com>
Date: Wed, 27 Jul 2022 17:50:07 +0200
Subject: first commit

---
 src/player.lisp | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 src/player.lisp

(limited to 'src/player.lisp')

diff --git a/src/player.lisp b/src/player.lisp
new file mode 100644
index 0000000..f6ee371
--- /dev/null
+++ b/src/player.lisp
@@ -0,0 +1,36 @@
+(defpackage player
+  (:use :cl)
+  (:export :init-player
+		   :name))
+
+(in-package :player)
+
+(defclass inventory ()
+  ((size :initarg :size
+		 :reader size)
+   (filled :initform 0
+		   :accessor filled)
+   (items :initform '()
+    	  :accessor items)))
+
+(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))
-- 
cgit v1.2.3