Reduce lichen growth rate.

sjl · Jul 13, 2012 · 0fb12cc · 0fb12cc
1 parent 7f75147
commit 0fb12cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/caves/entities/lichen.clj b/src/caves/entities/lichen.clj
@@ -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))]