From d6ff28e518c4dec62d8520f74a8f4d1a527a47bc Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Thu, 25 Aug 2022 15:05:08 +0200 Subject: begginings of a gui --- src/game.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'src/game.lisp') 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)))) -- cgit v1.2.3