;;;; queries.lisp -- query the database

(in-package :dnd)

(defun all-heroes ()
  (db:store-objects-with-class 'hero))

(defun all-players ()
  (db:store-objects-with-class 'player))

(defun player-quests (player)
  "Return all quests in which one of player's heroes is engaged."
  (remove nil (mapcar #'quest (player-heroes player))))

(defun player-adventures (player)
  "Return a list of adventures one of the players' heroes is involved in."
  (mapcar #'adventure (player-quests player) ))

(defun adventure-heros (adventure &key (activep t))
  "All the heros actively involved in this ADVENTURE. If ACTIVEP, then
only the active quest(s) are considered, otherwise all quests are considered."
  (remove-duplicates
   (mapcan #'heroes-on-quest
           (if activep
               (remove-if-not #'quest-startedp (quests-in-adventure adventure))
               (quests-in-adventure adventure)))))

(defun fetch-comrades (player &key (activep t))
  "Returns all the heroes in any one of the player's adventures. If
ACTIVEP, then only heroes involved in active quests are returned."
  (remove-duplicates
   (loop :for adventure :in (player-adventures player)
         :nconc (adventure-heros adventure :activep activep))))

(defun all-adventures ()
  (db:store-objects-with-class 'adventure))

(defun adventures-visible-by (player)
  (declare (ignore player))
  (all-adventures))