diff options
Diffstat (limited to 'src/queries.lisp')
| -rw-r--r-- | src/queries.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/queries.lisp b/src/queries.lisp index de3f8c3..07a8d5f 100644 --- a/src/queries.lisp +++ b/src/queries.lisp @@ -31,3 +31,11 @@ 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)) + |