Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HWProtoCore.hs
changeset 9035 e84d42a4311c
parent 9034 279168729cc3
child 9061 38e8787483db 
--- a/gameServer/HWProtoCore.hs	Wed May 22 00:12:15 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Wed May 22 00:49:37 2013 +0400
@@ -45,10 +45,12 @@
         h ["STATS"] = handleCmd ["STATS"]
         h ("PART":m:ms) = handleCmd ["PART", B.unwords $ m:ms]
         h ("QUIT":m:ms) = handleCmd ["QUIT", B.unwords $ m:ms]
+        h ("RND":rs) = handleCmd ("RND":rs)
         h ("GLOBAL":m:ms) = do
+            cl <- thisClient
             rnc <- liftM snd ask
             let chans = map (sendChan . client rnc) $ allClients rnc
-            return [AnswerClients chans ["CHAT", "[global notice]", B.unwords $ m:ms]]
+            return [AnswerClients chans ["CHAT", "[global notice]", B.unwords $ m:ms] | isAdministrator cl]
         h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c]
 
 handleCmd cmd = do
hedgewars