# HG changeset patch
# User unc0rr
# Date 1385819038 -14400
# Node ID 6a3640c4f4b73ef2a5073a636fda507efda013d0
# Parent  320f89e0b28ceaf7b027d20776bed5d50bc010d7
Show "incompatible version" message instead of "no such room" on try to join room with another protocol version

diff -r 320f89e0b28c -r 6a3640c4f4b7 gameServer/HWProtoLobbyState.hs
--- a/gameServer/HWProtoLobbyState.hs	Sat Nov 30 14:36:41 2013 +0100
+++ b/gameServer/HWProtoLobbyState.hs	Sat Nov 30 17:43:58 2013 +0400
@@ -64,8 +64,10 @@
     let chans = map sendChan (cl : jRoomClients)
     let isBanned = host cl `elem` roomBansList jRoom
     return $
-        if isNothing maybeRI || not sameProto then
+        if isNothing maybeRI then
             [Warning $ loc "No such room"]
+            else if not sameProto then
+            [Warning $ loc "Room version incompatible to your hedgewars version"]
             else if isRestrictedJoins jRoom then
             [Warning $ loc "Joining restricted"]
             else if isRegisteredOnly jRoom && (B.null . webPassword $ cl) then