From 187fce76197031dba1112bd6023b41166f039f3e Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 6 Mar 2023 19:44:53 -0800
Subject: Add: adventure creation

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

(limited to 'src/queries.lisp')

diff --git a/src/queries.lisp b/src/queries.lisp
index 9cd581c..de3f8c3 100644
--- a/src/queries.lisp
+++ b/src/queries.lisp
@@ -5,6 +5,9 @@
 (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))))
-- 
cgit v1.2.3