netserver/HWProto.hs
changeset 1582 262245ba6ea6
parent 1581 2dfa315b4bb2
child 1584 90f6a5abad17
--- a/netserver/HWProto.hs	Mon Jan 05 19:44:43 2009 +0000
+++ b/netserver/HWProto.hs	Mon Jan 05 19:51:24 2009 +0000
@@ -45,7 +45,9 @@
 answerConnected         = answerClientOnly ["CONNECTED", "Hedgewars server http://www.hedgewars.org/"]
 answerNotOwner          = answerClientOnly ["ERROR", "You do not own this team"]
 answerCannotCreateRoom  = answerClientOnly ["WARNING", "Cannot create more rooms"]
-answerInfo client       = answerClientOnly ["INFO", nick client, host client, proto2ver $ protocol client]
+answerInfo client       = answerClientOnly ["INFO", nick client, host client, proto2ver $ protocol client, roomInfo]
+	where
+	roomInfo = if not $ null $ room client then "room " ++ (room client) else "lobby"
 
 answerAbandoned           = answerOthersRoom ["BYE", "Room abandoned"]
 answerChatString nick msg = answerOthersRoom ["CHAT_STRING", nick, msg]