implemented game:get profit

1 files changed, 16 insertions, 1 deletions

diff --git a/src/game.lisp b/src/game.lisp
index 51c3a4d..979e4e2 100644
--- a/src/game.lisp
+++ b/src/game.lisp
@@ -3,7 +3,9 @@
   (:export :new-game
 		   :buy-item
 		   :sell-item
-		   :change-zone))
+		   :change-zone
+		   :get-profit
+		   :get-profit-in-zone))
 
 (in-package :game)
 
@@ -40,3 +42,16 @@
 					  zones)))
 	  (when z
 		(setq cur-zone z)))))
+
+(defmethod get-profit-in-zone ((g game) name zone)
+  (with-slots (player) g
+	  (let ((player-item (car (player:find-item player name)))
+			(zone-item (zone:get-commodity zone name)))
+		(if (and player-item zone-item)
+			(- (commodities:price zone-item)
+			   (commodities:price player-item))
+			0))))
+
+(defmethod get-profit ((g game) name)
+  (with-slots (cur-zone) g
+	  (get-profit-in-zone g name cur-zone)))