diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/game.lisp | 1 | ||||
| -rw-r--r-- | src/zone.lisp | 7 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/game.lisp b/src/game.lisp index f0efd14..b1774d5 100644 --- a/src/game.lisp +++ b/src/game.lisp @@ -46,6 +46,7 @@ (zone:name z))) zones))) (when z + (zone:update-zone cur-zone) (setq cur-zone z))))) (defmethod get-profit-in-zone ((g game) name zone) 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)))))) |