# HG changeset patch # User unc0rr # Date 1267899665 0 # Node ID b467a681c5e02783c6089423f17cb62a9e0a7409 # Parent 258218a50df8535416a1840f315cfc5c803733e0 - Fix spectators team chat - Remove deprecated TEAM_CHAT command support diff -r 258218a50df8 -r b467a681c5e0 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Sat Mar 06 13:56:33 2010 +0000 +++ b/gameServer/HWProtoInRoomState.hs Sat Mar 06 18:21:05 2010 +0000 @@ -19,13 +19,6 @@ where clientNick = nick $ clients IntMap.! clID - -handleCmd_inRoom clID clients _ ["TEAM_CHAT", msg] = - [AnswerOthersInRoom ["TEAM_CHAT", clientNick, msg]] - where - clientNick = nick $ clients IntMap.! clID - - handleCmd_inRoom clID clients rooms ["PART"] = [RoomRemoveThisClient "part"] where @@ -195,10 +188,7 @@ handleCmd_inRoom clID clients _ ["TEAMCHAT", msg] = - if (teamsInGame client > 0) then - [AnswerSameClan ["EM", engineMsg]] - else - [] + [AnswerSameClan ["EM", engineMsg]] where client = clients IntMap.! clID engineMsg = toEngineMsg $ 'b' : ((nick client) ++ "(team): " ++ msg ++ "\x20\x20")