diff options
Diffstat (limited to 'src/game.lisp')
| -rw-r--r-- | src/game.lisp | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/game.lisp b/src/game.lisp index b55224a..08184fc 100644 --- a/src/game.lisp +++ b/src/game.lisp @@ -5,7 +5,8 @@ :sell-item :change-zone :get-profit - :get-profit-in-zone)) + :get-profit-in-zone + :commodities-panel)) (in-package :game) @@ -65,10 +66,10 @@ (player-item (player:find-item player name)) (quantity (if player-item (cdr player-item) 0)) (profit (if player-item - (- price - (commodities:price (car player-item)))))) - (list name - price - quantity - profit))) + (- price (commodities:price (car player-item))) + 0))) + (list :name name + :price price + :qty quantity + :profit profit))) (zone:get-commodities cur-zone)))) |