equal
deleted
inserted
replaced
105 [Warning "REMOVE_TEAM: no such team"] |
105 [Warning "REMOVE_TEAM: no such team"] |
106 else if clNick /= teamowner team then |
106 else if clNick /= teamowner team then |
107 [ProtocolError "Not team owner!"] |
107 [ProtocolError "Not team owner!"] |
108 else |
108 else |
109 [RemoveTeam tName, |
109 [RemoveTeam tName, |
110 SendUpdateOnThisRoom, |
|
111 ModifyClient |
110 ModifyClient |
112 (\c -> c{ |
111 (\c -> c{ |
113 teamsInGame = teamsInGame c - 1, |
112 teamsInGame = teamsInGame c - 1, |
114 clientClan = if teamsInGame c == 1 then Nothing else Just $ anotherTeamClan ci r |
113 clientClan = if teamsInGame c == 1 then Nothing else Just $ anotherTeamClan ci r |
115 }) |
114 }) |