diff options
| author | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-26 09:21:14 +0200 |
|---|---|---|
| committer | El-BG-1970 <elouan.gros.fr@gmail.com> | 2022-08-26 09:21:14 +0200 |
| commit | 4198d1ae1d53b87ad0dfcc489b0e90b7f69c6b23 (patch) | |
| tree | 195aab75d3e10a65b07444de2dd63210e9eeeff4 /src/game.lisp | |
| parent | 2a8076782ac7786c26e18493fe407c7916b49254 (diff) | |
| download | transacc-4198d1ae1d53b87ad0dfcc489b0e90b7f69c6b23.tar.gz | |
added multipurpose panel (currently only displays player stats)
Diffstat (limited to 'src/game.lisp')
| -rw-r--r-- | src/game.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/game.lisp b/src/game.lisp index 24f5581..40e201c 100644 --- a/src/game.lisp +++ b/src/game.lisp @@ -7,7 +7,8 @@ :get-profit :get-profit-in-zone :get-cur-zone - :commodities-panel)) + :commodities-panel + :player-stats)) (in-package :game) @@ -75,3 +76,9 @@ :qty quantity :profit profit))) (zone:get-commodities cur-zone)))) + +(defmethod player-stats ((g game)) + (with-slots (player) g + (list :cash (player:get-cash player) + :debt (player:get-debt player) + :inv (player:inventory-stats player)))) |