gameServer/HWProtoCore.hs
changeset 9061 38e8787483db
parent 9035 e84d42a4311c
child 9105 18ebb59c89fe
--- 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