+ (push mob mobs-to-quit))
+
+ (defun refresh-running-mobs ()
+ (do ((mob (pop mobs-to-add) (pop mobs-to-add))) ((null mob))
+ (push mob running-mobs)
+ (funcall mob :init))
+ (setq running-mobs (reverse (set-difference running-mobs mobs-to-quit :test #'equal))))
+
+ (defun quit-all-mobs ()
+ (setq running-mobs nil mobs-to-add nil mobs-to-quit nil)))