diff options
| author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-04-01 09:59:16 -0500 |
|---|---|---|
| committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2023-04-01 09:59:16 -0500 |
| commit | 56a584ab1b13ff9510dd5145a778000169901a76 (patch) | |
| tree | 87bc66e865da64f641152b64539bf6bbfc900218 /src/queries.lisp | |
| parent | 20e0bb168032e2e2aa95b08e2dbc9bedced62df3 (diff) | |
Add: aventure seers form
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 07a8d5f..13c1d26 100644 --- a/src/queries.lisp +++ b/src/queries.lisp @@ -8,6 +8,9 @@ (defun all-players () (db:store-objects-with-class 'player)) +(defun all-other-players (player) + (remove-if (lambda (p) (eq player p)) (all-players))) + (defun player-quests (player) "Return all quests in which one of player's heroes is engaged." (remove nil (mapcar #'quest (player-heroes player)))) |