From efa771e3cc363dae68b57dfcc5c67c511a1d3331 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 19:15:12 -0800
Subject: Add: reporting rumors

---
 src/queries.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/queries.lisp')

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))
+
-- 
cgit v1.2.3