diff options
| author | El-BG-1970 <elouangros@hotmail.com> | 2022-08-07 13:45:02 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouangros@hotmail.com> | 2022-08-07 13:45:02 +0200 |
| commit | 3a9bb4886317e82aee1a45e4b643b5973c5215f9 (patch) | |
| tree | 9fb2893a48baa2468c152e4fdf351e01ab03ff61 /src/player.lisp | |
| parent | 62d2646d4dbe4a3a35bd9b4449e5c5b67d36f233 (diff) | |
| download | transacc-3a9bb4886317e82aee1a45e4b643b5973c5215f9.tar.gz | |
implemented game;commodities-panel
Diffstat (limited to 'src/player.lisp')
| -rw-r--r-- | src/player.lisp | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/player.lisp b/src/player.lisp index 32757d0..b5c8651 100644 --- a/src/player.lisp +++ b/src/player.lisp @@ -16,9 +16,11 @@ ((name :initarg :name :reader name) (cash :initarg :cash - :accessor cash) + :accessor cash + :reader get-cash) (debt :initarg :debt - :accessor debt) + :accessor debt + :reader get-debt) (hp :initform 100 :accessor hp) (clout :initform 0 @@ -34,14 +36,6 @@ :cash cash :debt debt)) -(defmethod get-debt ((p player)) - (with-slots (debt) p - debt)) - -(defmethod get-cash ((p player)) - (with-slots (cash) p - cash)) - (defmethod buy-item ((p player) item quantity) (with-slots (stock cash) p (let ((cost (* quantity |