Commits

Steve Losh committed 2a66811

Reduce lichen growth rate.

Comments (0)

Files changed (1)

src/caves/entities/lichen.clj

   (->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))]