Reduce lichen growth rate.
| 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))]