Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Actions.hs
changeset 1953 fd9c8e3c734d
parent 1931 ffe420e9e61a
child 1972 e7a7c5eb5d86 
--- a/gameServer/Actions.hs	Fri Apr 10 19:51:44 2009 +0000
+++ b/gameServer/Actions.hs	Fri Apr 10 19:56:42 2009 +0000
@@ -96,8 +96,14 @@
 
 
 processAction (clID, serverInfo, clients, rooms) SendServerMessage = do
-	writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", serverMessage serverInfo]
+	writeChan (sendChan $ clients ! clID) $ ["SERVER_MESSAGE", message serverInfo]
 	return (clID, serverInfo, clients, rooms)
+	where
+		client = clients ! clID
+		message = if clientProto client < 25 then
+			serverMessageForOldVersions
+			else
+			serverMessageForOldVersions
 
 
 processAction (clID, serverInfo, clients, rooms) (ProtocolError msg) = do
hedgewars