equal
deleted
inserted
replaced
405 n <- clientNick |
405 n <- clientNick |
406 s <- roomClientsChans |
406 s <- roomClientsChans |
407 return [AnswerClients s ["CHAT", n, B.unwords $ "/rnd" : rs], Random s rs] |
407 return [AnswerClients s ["CHAT", n, B.unwords $ "/rnd" : rs], Random s rs] |
408 |
408 |
409 |
409 |
410 handleCmd_inRoom ["MAXTEAMS", n] = roomAdminOnly $ do |
410 handleCmd_inRoom ["MAXTEAMS", n] = do |
411 cl <- thisClient |
411 cl <- thisClient |
412 let m = readInt_ n |
412 let m = readInt_ n |
413 if m < 2 || m > cMaxTeams then |
413 if not $ isMaster cl then |
|
414 return [Warning $ loc "You're not the room master!"] |
|
415 else if m < 2 || m > cMaxTeams then |
414 return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "/maxteams: specify number from 2 to 8"]] |
416 return [AnswerClients [sendChan cl] ["CHAT", nickServer, loc "/maxteams: specify number from 2 to 8"]] |
415 else |
417 else |
416 return [ModifyRoom (\r -> r{teamsNumberLimit = m})] |
418 return [ModifyRoom (\r -> r{teamsNumberLimit = m})] |
417 |
419 |
418 handleCmd_inRoom ["FIX"] = serverAdminOnly $ |
420 handleCmd_inRoom ["FIX"] = serverAdminOnly $ |