--- a/gameServer/Actions.hs	Sat Mar 07 17:42:54 2009 +0000
+++ b/gameServer/Actions.hs	Sat Mar 07 17:43:25 2009 +0000
@@ -28,6 +28,7 @@
 	| Warning String
 	| ByeClient String
 	| KickClient Int -- clID
+	| BanClient String -- nick
 	| ModifyClient (ClientInfo -> ClientInfo)
 	| ModifyRoom (RoomInfo -> RoomInfo)
 	| AddRoom String String
@@ -232,7 +233,7 @@
 				adjust (\r -> r{teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r}) rID rooms
 		else
 			do
-			processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["GAMEMSG", rmTeamMsg]
+			processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["EM", rmTeamMsg]
 			return $
 				adjust (\r -> r{
 				teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r,