--- 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]