implemented game:change-zone

1 files changed, 23 insertions, 14 deletions

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)))))