equal
deleted
inserted
replaced
471 startVote $ VoteHedgehogsPerTeam h |
471 startVote $ VoteHedgehogsPerTeam h |
472 else |
472 else |
473 return [AnswerClients [sendChan cl] ["CHAT", "[server]", loc "callvote hedgehogs: specify number from 1 to 8"]] |
473 return [AnswerClients [sendChan cl] ["CHAT", "[server]", loc "callvote hedgehogs: specify number from 1 to 8"]] |
474 |
474 |
475 |
475 |
476 handleCmd_inRoom ["VOTE", m] = do |
476 handleCmd_inRoom ("VOTE" : m : p) = do |
477 cl <- thisClient |
477 cl <- thisClient |
478 let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing |
478 let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing |
479 if isJust b then |
479 if isJust b then |
480 voted (fromJust b) |
480 voted (p == ["FORCE"]) (fromJust b) |
481 else |
481 else |
482 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
482 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
483 |
483 |
484 |
484 |
485 handleCmd_inRoom ["SAVE", stateName] = serverAdminOnly $ do |
485 handleCmd_inRoom ["SAVE", stateName] = serverAdminOnly $ do |