diff -r 6e6a75de2fc9 -r 5218aa76939e netserver/HWProto.hs --- a/netserver/HWProto.hs Mon Nov 03 14:47:23 2008 +0000 +++ b/netserver/HWProto.hs Tue Nov 04 14:43:31 2008 +0000 @@ -63,6 +63,7 @@ answerTooFewClans = [(clientOnly, ["ERROR", "Too few clans in game"])] answerRestricted = [(clientOnly, ["WARNING", "Room joining restricted"])] answerPing = [(allClients, ["PING"])] +answerConnected = [(clientOnly, ["CONNECTED", "Hedgewars server http://www.hedgewars.org/"])] -- Main state-independent cmd handler handleCmd :: CmdHandler @@ -82,6 +83,9 @@ handleCmd _ _ _ ["PING"] = -- core requsted (noChangeClients, noChangeRooms, answerPing) +handleCmd _ _ _ ["ASKME"] = -- core requsted + (noChangeClients, noChangeRooms, answerConnected) + handleCmd _ _ _ ["PONG"] = (noChangeClients, noChangeRooms, [])