diff -r aed76eabb846 -r fd9c8e3c734d gameServer/Actions.hs --- 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