2a668110bcf8

Reduce lichen growth rate.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 13 Jul 2012 00:57:10 -0400
parents ebd62e00a793
children f5fdc662f11f
branches/tags (none)
files src/caves/entities/lichen.clj

Changes

--- a/src/caves/entities/lichen.clj	Thu Jul 12 23:33:56 2012 -0400
+++ b/src/caves/entities/lichen.clj	Fri Jul 13 00:57:10 2012 -0400
@@ -10,7 +10,7 @@
   (->Lichen (get-id) "F" :green location 1))
 
 (defn should-grow []
-  (< (rand) 0.01))
+  (< (rand) (/ 1 500)))
 
 (defn grow [lichen world]
   (if-let [target (find-empty-neighbor world (:location lichen))]