Add ally tombs spawning

NOTES.org

@@ -8,6 +8,7 @@ CLOSED: [2016-01-01 Fri 22:52]
 ** High Priority
 *** TODO Randomly place ally tombs
 - [ ] Player can wake up allies by entering room
+*** TODO Base random placement off center of room, not edges.
 *** TODO Create enemy AI
 - [ ] Detect whether player can be seen
 - [ ] Move to player

src/crypts-and-corpses.lisp

@@ -77,6 +77,10 @@
    (health-regen :initarg :health-regen :initform 1 :type fixnum)
    (color :initarg :color :initform (color-from-name "#1919ff"))))
 
+(defclass tomb (tile-entity)
+  ((codepoint :initform #x2616)
+   (color :initform (color-from-name "yellow"))))
+
 (defclass minion (mobile)
   ((color :initarg :color :initform (color-from-name "yellow"))))
 
@@ -448,10 +452,20 @@
                 (when location
                   (setf (gethash location (game-map-mobiles map)) enemy)))))))
 
+(defun spawn-tombs (map)
+  (loop for room in (crawler::rooms (game-map-dungeon map)) do
+    (with-slots ((x1 crawler::x1) (x2 crawler::x2) (y1 crawler::y1) (y2 crawler::y2)) room
+      (when (= 2 (random 5))
+        (let* ((location (nearest-open-tile (gethash (calc-location x2 y2 map) (game-map-terrain map)) map))
+               (tomb (make-instance 'tomb :location location)))
+                (when location
+                  (setf (gethash location (game-map-terrain map)) tomb)))))))
+
 (defun initialize-map (map player)
   (fill-map-from-crawler map player)
   (setf (gethash (slot-value player 'location) (game-map-mobiles map)) player)
   (spawn-enemies map player)
+  (spawn-tombs map)
   map)
 
 (defun get-neighbors (tile map layer &key (filter-fun #'identity))