From 164b961cdd97c4ef324bbb0ae5f46b394201183b Mon Sep 17 00:00:00 2001 From: El-BG-1970 Date: Thu, 4 Aug 2022 11:13:32 +0200 Subject: implemented game:buy-item and game:sell-item --- src/zone.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/zone.lisp') diff --git a/src/zone.lisp b/src/zone.lisp index 3121a5c..9a27f17 100644 --- a/src/zone.lisp +++ b/src/zone.lisp @@ -1,7 +1,8 @@ (defpackage zone (:use :cl) (:export :new-zone - :name)) + :name + :get-commodity)) (in-package :zone) @@ -15,3 +16,8 @@ (make-instance 'zone :name name :commodities commodities)) + +(defmethod get-commodity ((z zone) commodity-name) + (find-if (lambda (c) (equal (commodities:name c) + commodity-name)) + (commodities z))) -- cgit v1.2.3