gameServer/HWProtoInRoomState.hs
changeset 1813 cfe1481e0247
parent 1811 1b9e33623b7e
child 1814 e5391d901cff
--- a/gameServer/HWProtoInRoomState.hs	Fri Feb 20 14:12:16 2009 +0000
+++ b/gameServer/HWProtoInRoomState.hs	Fri Feb 20 19:40:55 2009 +0000
@@ -75,26 +75,13 @@
 		if not $ nick client == teamowner team then
 			[ProtocolError "Not team owner!"]
 		else
-			if not $ gameinprogress room then
-				[ModifyRoom (\r -> r{teams = filter (\t -> teamName /= teamname t) $ teams r}),
-				AnswerOthersInRoom ["REMOVE_TEAM", teamName]]
-			else
-				[]
-{-			else
-				(noChangeClients,
-				modifyRoom clRoom{
-					teams = filter (\t -> teamName /= teamname t) $ teams clRoom,
-					leftTeams = teamName : leftTeams clRoom,
-					roundMsgs = roundMsgs clRoom |> rmTeamMsg
-					},
-				answerOthersRoom ["GAMEMSG", rmTeamMsg]) -}
+			[RemoveTeam teamName]
 	where
 		client = clients IntMap.! clID
 		room = rooms IntMap.! (roomID client)
 		noSuchTeam = isNothing findTeam
 		team = fromJust findTeam
 		findTeam = find (\t -> teamName == teamname t) $ teams room
-		rmTeamMsg = toEngineMsg $ 'F' : teamName
 
 
 handleCmd_inRoom clID clients rooms ["HH_NUM", teamName, numberStr] =