equal
deleted
inserted
replaced
52 } |
52 } |
53 ) |
53 ) |
54 , AnswerClients chans ["RUN_GAME"] |
54 , AnswerClients chans ["RUN_GAME"] |
55 , SendUpdateOnThisRoom |
55 , SendUpdateOnThisRoom |
56 , AnswerClients chans $ "CLIENT_FLAGS" : "+g" : nicks |
56 , AnswerClients chans $ "CLIENT_FLAGS" : "+g" : nicks |
57 , ModifyRoomClients (\c -> c{isInGame = True, teamIndexes = map snd . filter (\(t, _) -> teamowner t == nick cl) $ zip (teams rm) [0..]}) |
57 , ModifyRoomClients (\c -> c{isInGame = True, teamIndexes = map snd . filter (\(t, _) -> teamowner t == nick c) $ zip (teams rm) [0..]}) |
58 ] |
58 ] |
59 else |
59 else |
60 return [Warning $ loc "Less than two clans!"] |
60 return [Warning $ loc "Less than two clans!"] |
61 else |
61 else |
62 return [] |
62 return [] |