equal
deleted
inserted
replaced
35 client = clients IntMap.! clID |
35 client = clients IntMap.! clID |
36 |
36 |
37 handleCmd_inRoom clID clients rooms ("ADD_TEAM" : name : color : grave : fort : voicepack : flag : difStr : hhsInfo) |
37 handleCmd_inRoom clID clients rooms ("ADD_TEAM" : name : color : grave : fort : voicepack : flag : difStr : hhsInfo) |
38 | length hhsInfo == 15 && clientProto client < 30 = handleCmd_inRoom clID clients rooms ("ADD_TEAM" : name : color : grave : fort : voicepack : " " : flag : difStr : hhsInfo) |
38 | length hhsInfo == 15 && clientProto client < 30 = handleCmd_inRoom clID clients rooms ("ADD_TEAM" : name : color : grave : fort : voicepack : " " : flag : difStr : hhsInfo) |
39 | length hhsInfo /= 16 = [ProtocolError "Corrupted hedgehogs info"] |
39 | length hhsInfo /= 16 = [ProtocolError "Corrupted hedgehogs info"] |
40 | length (teams room) == 6 = [Warning "too many teams"] |
40 | length (teams room) == 8 = [Warning "too many teams"] |
41 | canAddNumber <= 0 = [Warning "too many hedgehogs"] |
41 | canAddNumber <= 0 = [Warning "too many hedgehogs"] |
42 | isJust findTeam = [Warning "There's already a team with same name in the list"] |
42 | isJust findTeam = [Warning "There's already a team with same name in the list"] |
43 | gameinprogress room = [Warning "round in progress"] |
43 | gameinprogress room = [Warning "round in progress"] |
44 | isRestrictedTeams room = [Warning "restricted"] |
44 | isRestrictedTeams room = [Warning "restricted"] |
45 | otherwise = |
45 | otherwise = |