# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1342155430 14400
# Node ID 2a668110bcf811ea1f580e641d95bbfbdd44dd85
# Parent  ebd62e00a793ea4e0f2290d140073c23a520ab07
Reduce lichen growth rate.

diff -r ebd62e00a793 -r 2a668110bcf8 src/caves/entities/lichen.clj
--- 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))]