gameServer/HWProtoCore.hs
changeset 2126 cb249fa8e3da
parent 1929 7e6cc8da1c58
child 2311 977ee15c3c1f
--- a/gameServer/HWProtoCore.hs	Wed May 27 03:56:17 2009 +0000
+++ b/gameServer/HWProtoCore.hs	Wed May 27 15:29:30 2009 +0000
@@ -48,13 +48,15 @@
 			nick client,
 			"[" ++ host client ++ "]",
 			protoNumber2ver $ clientProto client,
-			roomInfo]]
+			"[" ++ roomInfo ++ "]"]]
 	where
 		maybeClient = find (\cl -> asknick == nick cl) clients
 		noSuchClient = isNothing maybeClient
 		client = fromJust maybeClient
 		room = rooms IntMap.! roomID client
-		roomInfo = if roomID client /= 0 then "room " ++ (name room) else "lobby"
+		roomInfo = if roomID client /= 0 then roomMasterSign ++ "room " ++ (name room) else adminSign ++ "lobby"
+		roomMasterSign = if isMaster client then "@" else ""
+		adminSign = if isAdministrator client then "@" else ""
 
 
 handleCmd_loggedin clID clients rooms cmd =