# HG changeset patch # User Steve Losh # Date 1483835505 0 # Node ID b1c0b37e9c86bbdd01eec1bb5cbfd758f3303a19 # Parent 083f3f90f80572dc8602d1ce61a4928d7442bdfa Tweak diff -r 083f3f90f805 -r b1c0b37e9c86 src/main.lisp --- 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)