From 5731684cca287633b7589c12ca1372eec5dc0f0a Mon Sep 17 00:00:00 2001
From: El-BG-1970 <elouangros@hotmail.com>
Date: Thu, 4 Aug 2022 16:41:30 +0200
Subject: implemented game:change-zone

---
 src/game.lisp | 37 +++++++++++++++++++++++--------------
 src/zone.lisp |  4 ++--
 2 files changed, 25 insertions(+), 16 deletions(-)

(limited to 'src')

diff --git a/src/game.lisp b/src/game.lisp
index 2f7ce88..51c3a4d 100644
--- a/src/game.lisp
+++ b/src/game.lisp
@@ -2,32 +2,41 @@
   (:use :cl)
   (:export :new-game
 		   :buy-item
-		   :sell-item))
+		   :sell-item
+		   :change-zone))
 
 (in-package :game)
 
 (defclass game ()
-  ((player :initarg player
+  ((player :initarg :player
 		   :accessor player)
-   (zones  :initarg zones
+   (zones  :initarg :zones
 		   :accessor zones)
-   (curzone :initarg start-zone
-			:accessor cur-zone)))
+   (cur-zone :initarg :start-zone
+			 :accessor cur-zone)))
 
-(defun new-game (player zones start-zone)
+(defun new-game (player start-zone zones)
   (make-instance 'game
 				 :player player
 				 :zones zones
 				 :start-zone start-zone))
 
 (defmethod buy-item ((g game) name amount)
-  (with-slots (player curzone) g
-	  (let ((item (zone:get-commodity curzone name)))
-		(when item
-		  (player:buy-item player name amount)))))
+  (with-slots (player cur-zone) g
+	(let ((item (zone:get-commodity cur-zone name)))
+	  (when item
+		(player:buy-item player item amount)))))
 
 (defmethod sell-item ((g game) name amount)
-  (with-slots (player curzone) g
-	  (let ((item (zone:get-commodity curzone name)))
-		(when item
-		  (player:sell-item player name amount)))))
+  (with-slots (player cur-zone) g
+	(let ((item (zone:get-commodity cur-zone name)))
+	  (when item
+		(player:sell-item player item amount)))))
+
+(defmethod change-zone ((g game) name)
+  (with-slots (cur-zone zones) g
+	(let ((z (find-if (lambda (z) (string= name
+										   (zone:name z)))
+					  zones)))
+	  (when z
+		(setq cur-zone z)))))
diff --git a/src/zone.lisp b/src/zone.lisp
index 9a27f17..ee2fad5 100644
--- a/src/zone.lisp
+++ b/src/zone.lisp
@@ -18,6 +18,6 @@
 				 :commodities commodities))
 
 (defmethod get-commodity ((z zone) commodity-name)
-  (find-if (lambda (c) (equal (commodities:name c)
-							  commodity-name))
+  (find-if (lambda (c) (string= (commodities:name c)
+								commodity-name))
 		   (commodities z)))
-- 
cgit v1.2.3