diff options
author | colin <colin@cicadas.surf> | 2023-03-07 19:15:12 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-03-07 19:15:12 -0800 |
commit | efa771e3cc363dae68b57dfcc5c67c511a1d3331 (patch) | |
tree | 99dc6c2b8770a6e0ae87fedf2ba99ac21bf83b7d /src/queries.lisp | |
parent | e2a60e8d2b8e41bcd2c9a39d8e2210f701b92353 (diff) |
Add: reporting rumors
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)) + |