# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1470776575 0
# Node ID d792f112d546aedb7f0c9d1019274826036a37b7
# Parent  23b82c42805f5afa0bc1d309d751fb2f91282c35
Spread out the mysteries

diff -r 23b82c42805f -r d792f112d546 silt.lisp
--- a/silt.lisp	Tue Aug 09 20:57:44 2016 +0000
+++ b/silt.lisp	Tue Aug 09 21:02:55 2016 +0000
@@ -853,26 +853,30 @@
                    "Who placed it?")))
 
 (defun make-fountain ()
-  (create-entity 'fountain
-                 :coords/x 0
-                 :coords/y 10
+  (let ((loc (random-coordinate :grass)))
+    (when loc
+      (create-entity 'fountain
+                 :coords/x (car loc)
+                 :coords/y (cdr loc)
                  :visible/glyph "ƒ"
                  :visible/color +color-white-blue+
                  :sentient/function 'fountain-act
                  :inspectable/slots '(recent)
                  :flavor/text
-                 '("A marble fountain burbles peacefully here.")))
+                 '("A marble fountain burbles peacefully here.")))))
 
 (defun make-colossus ()
-  (create-entity 'colossus
-                 :coords/x 10
-                 :coords/y 0
-                 :visible/glyph "@"
-                 :visible/color +color-white-red+
-                 :sentient/function 'colossus-act
-                 :inspectable/slots '(counter next)
-                 :flavor/text
-                 '("A massive granite statue of an alien being.")))
+  (let ((loc (random-coordinate :snow)))
+    (when loc
+      (create-entity 'colossus
+                     :coords/x (car loc)
+                     :coords/y (cdr loc)
+                     :visible/glyph "@"
+                     :visible/color +color-white-red+
+                     :sentient/function 'colossus-act
+                     :inspectable/slots '(counter next)
+                     :flavor/text
+                     '("A massive granite statue of an alien being.")))))
 
 
 (defun generate-mysteries ()