diff options
Diffstat (limited to 'src/player.lisp')
| -rw-r--r-- | src/player.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/player.lisp b/src/player.lisp index 394cee9..32757d0 100644 --- a/src/player.lisp +++ b/src/player.lisp @@ -6,7 +6,8 @@ :get-debt :repay-debt :buy-item - :sell-item)) + :sell-item + :find-item)) (in-package :player) @@ -61,6 +62,10 @@ (+ cash (* (cdr stocked-item) (commodities:price item)))))))) +(defmethod find-item ((p player) name) + (with-slots (stock) p + (inventory:find-item stock name))) + (defmethod repay-debt ((p player) amount) (with-slots (debt cash) p (when (and (<= amount debt) |