# HG changeset patch
# User unc0rr
# Date 1231185084 0
# Node ID 262245ba6ea6685d7d8857438b5e3327ce6d5685
# Parent  2dfa315b4bb2e90e23e0ef3ddc9d7759925aba8a
Show client's room in info

diff -r 2dfa315b4bb2 -r 262245ba6ea6 netserver/HWProto.hs
--- 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]