b1c0b37e9c86

Tweak
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 08 Jan 2017 00:31:45 +0000
parents 083f3f90f805
children f377744f622c
branches/tags (none)
files src/main.lisp

Changes

--- a/src/main.lisp	Sun Jan 08 00:18:52 2017 +0000
+++ b/src/main.lisp	Sun Jan 08 00:31:45 2017 +0000
@@ -136,7 +136,7 @@
         (y (clamp 0 (- *map-size* 50) (random-coord)))
         (width (max 5 (truncate (random-gaussian *ruin-size-mean* *ruin-size-dev*))))
         (height (max 5 (truncate (random-gaussian *ruin-size-mean* *ruin-size-dev*))))
-        (condition (random-range 0.1 0.8)))
+        (condition (random-range 0.1 1.0)))
     (add-intact-ruin width height x y)
     (add-ruin-door width height x y)
     (decay-ruin width height x y condition)