Add random enemy spawns

NOTES.org

@@ -6,7 +6,6 @@ http://www.utf8-chartable.de/unicode-utf8-table.pl?utf8=0x
 ** DONE Get bearlibterminal autowrapped and basic window working.
 CLOSED: [2016-01-01 Fri 22:52]
 ** High Priority
-*** TODO Randomly place enemies
 *** TODO Randomly place ally tombs
 - [ ] Player can wake up allies by entering room
 *** TODO Create enemy AI
@@ -18,6 +17,8 @@ CLOSED: [2016-01-01 Fri 22:52]
 - [ ] Detect whether enemies can be seen
 - [ ] If enemies, move to them and attack.
 - [ ] If not enemies, move toward player.
+*** DONE Randomly place enemies
+CLOSED: [2016-01-11 Mon 00:32]
 *** DONE Create player character
 CLOSED: [2016-01-10 Sun 21:00]
 - [X] Health (no regeneration)

src/crypts-and-corpses.lisp

@@ -438,12 +438,20 @@
                (set-location floor x y map)
                (setf (gethash (calc-location x y map) terrain) floor)))))))))
 
+(defun spawn-enemies (map player)
+  (loop for room in (crawler::rooms (game-map-dungeon map))
+        when (not (equal room (find-room (get-location player) map))) do
+          (with-slots ((x1 crawler::x1) (x2 crawler::x2) (y1 crawler::y1) (y2 crawler::y2)) room
+            (dotimes (times (random 3))
+              (let* ((location (nearest-open-tile (gethash (calc-location x1 y1 map) (game-map-terrain map)) map))
+                     (enemy (make-instance 'enemy :location location)))
+                (when location
+                  (setf (gethash location (game-map-mobiles map)) enemy)))))))
+
 (defun initialize-map (map player)
   (fill-map-from-crawler map player)
   (setf (gethash (slot-value player 'location) (game-map-mobiles map)) player)
-  (let* ((location (nearest-open-tile player map))
-         (enemy (make-instance 'enemy :location location)))
-    (setf (gethash location (game-map-mobiles map)) enemy))
+  (spawn-enemies map player)
   map)
 
 (defun get-neighbors (tile map layer &key (filter-fun #'identity))