d792f112d546

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