'@' for server admin status, '+' for room admins
authorunc0rr
Mon, 27 May 2013 23:24:35 +0400
changeset 9061 38e8787483db
parent 9060 1661c5ccb625
child 9062 a65492ca1587
'@' for server admin status, '+' for room admins
gameServer/HWProtoCore.hs
--- a/gameServer/HWProtoCore.hs	Mon May 27 23:20:39 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Mon May 27 23:24:35 2013 +0400
@@ -74,9 +74,9 @@
     let cl = rnc `client` fromJust maybeClientId
     let roomId = clientRoom rnc clientId
     let clRoom = room rnc roomId
-    let roomMasterSign = if isMaster cl then "@" else ""
+    let roomMasterSign = if isMaster cl then "+" else ""
     let adminSign = if isAdministrator cl then "@" else ""
-    let rInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
+    let rInfo = if roomId /= lobbyId then B.concat [adminSign, roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
     let roomStatus = if isJust $ gameInfo clRoom then
             if teamsInGame cl > 0 then "(playing)" else "(spectating)"
             else