diff options
| author | colin <colin@cicadas.surf> | 2023-03-06 19:44:53 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-03-06 19:44:53 -0800 |
| commit | 187fce76197031dba1112bd6023b41166f039f3e (patch) | |
| tree | 673514a59d4225b7773c6fc0edcd1e31a406de08 /src/queries.lisp | |
| parent | 36df81a7e3bb23d4cc347cc335fbd9b949a6af91 (diff) | |
Add: adventure creation
Diffstat (limited to 'src/queries.lisp')
| -rw-r--r-- | src/queries.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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)))) |