From 7e88640744f06025d431a50a9d0f4c7fabe90d42 Mon Sep 17 00:00:00 2001
From: Ari Johnson <ari@theari.com>
Date: Thu, 19 Feb 2015 15:12:50 -0500
Subject: [PATCH] Allow ps(all)

---
 game/txt/hlp/cobra_func.hlp |  3 ++-
 src/cque.c                  | 29 +++++++++++++++++------------
 2 files changed, 19 insertions(+), 13 deletions(-)

diff --git a/game/txt/hlp/cobra_func.hlp b/game/txt/hlp/cobra_func.hlp
index e5f9404..01415f3 100644
--- a/game/txt/hlp/cobra_func.hlp
+++ b/game/txt/hlp/cobra_func.hlp
@@ -4732,7 +4732,8 @@ wait(<object>/<time>,<functions>)
   ps([<object>[,<type]])
 
   Lists currently pending QIDs. If <object> is not specified, then the
-  executor's queue is listed. <type> is one of:
+  executor's queue is listed. If <object> is ALL, then all players' queues
+  are listed. <type> is one of:
     player    - list the player queue
     object    - list the object queue
     wait      - list the wait queue
diff --git a/src/cque.c b/src/cque.c
index 7b880ff..9bc9986 100644
--- a/src/cque.c
+++ b/src/cque.c
@@ -1822,7 +1822,8 @@ fun_ps_helper(dbref executor, dbref thing, BQUE *qptr, char *buff, char **bp,
 
   for (tmp = qptr; tmp; tmp = tmp->next) {
     if (GoodObject(tmp->player)) {
-      if (Owner(tmp->player) == thing) {
+      if ((thing == NOTHING && CanSeeQ(executor, Owner(tmp->player)))
+	  || (Owner(tmp->player) == thing)) {
         if (count)
           safe_chr(' ', buff, bp);
         safe_integer(tmp->qid, buff, bp);
@@ -1843,17 +1844,21 @@ FUNCTION(fun_ps) {
       safe_str(T("INVALID ARGUMENT"), buff, bp);
       return;
     }
-    thing = match_result(executor, args[0], NOTYPE, MAT_EVERYTHING);
-    if (thing == NOTHING) {
-      safe_str(T(e_match), buff, bp);
-      return;
-    } else if (thing == AMBIGUOUS) {
-      safe_str(T("#-1 AMBIGUOUS MATCH"), buff, bp);
-      return;
-    }
-    if (!CanSeeQ(executor, thing)) {
-      safe_str(T(e_perm), buff, bp);
-      return;
+    if (!strcasecmp(args[0], "all")) {
+      thing = NOTHING;
+    } else {
+      thing = match_result(executor, args[0], NOTYPE, MAT_EVERYTHING);
+      if (thing == NOTHING) {
+        safe_str(T(e_match), buff, bp);
+        return;
+      } else if (thing == AMBIGUOUS) {
+        safe_str(T("#-1 AMBIGUOUS MATCH"), buff, bp);
+        return;
+      }
+      if (!CanSeeQ(executor, thing)) {
+        safe_str(T(e_perm), buff, bp);
+        return;
+      }
     }
   }
 
-- 
2.30.2