diff -r 3d4692e825e7 -r cfe1481e0247 gameServer/HWProtoInRoomState.hs --- 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] =