diff options
Diffstat (limited to 'src/zone.lisp')
| -rw-r--r-- | src/zone.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/zone.lisp b/src/zone.lisp index 8e733b1..b43f7a8 100644 --- a/src/zone.lisp +++ b/src/zone.lisp @@ -2,6 +2,7 @@ (:use :cl) (:export :new-zone :name + :update-zone :get-commodity :get-commodities)) @@ -23,3 +24,9 @@ (find-if (lambda (c) (string= (commodities:name c) commodity-name)) (commodities z))) + +(defmethod update-zone ((z zone)) + (loop for c in (commodities z) + do (setf (commodities:price c) + (* (commodities:price c) + (+ 0.5 (random 1.0)))))) |