gameServer/Actions.hs
changeset 4917 8ff92bdc9f98
parent 4914 5c33bb53c1e5
child 4918 c6d3aec73f93
equal deleted inserted replaced
4916:33c1e9bc68ad 4917:8ff92bdc9f98
   260 processAction (UnreadyRoomClients) = do
   260 processAction (UnreadyRoomClients) = do
   261     rnc <- gets roomsClients
   261     rnc <- gets roomsClients
   262     ri <- clientRoomA
   262     ri <- clientRoomA
   263     roomPlayers <- roomClientsS ri
   263     roomPlayers <- roomClientsS ri
   264     roomClIDs <- io $ roomClientsIndicesM rnc ri
   264     roomClIDs <- io $ roomClientsIndicesM rnc ri
   265     processAction $ AnswerClients (map sendChan roomPlayers) ("NOT_READY" : map nick roomPlayers)
   265     processAction $ AnswerClients (map sendChan roomPlayers) ("CLIENT_FLAGS" : "-r" : map nick roomPlayers)
   266     io $ mapM_ (modifyClient rnc (\cl -> cl{isReady = False})) roomClIDs
   266     io $ mapM_ (modifyClient rnc (\cl -> cl{isReady = False})) roomClIDs
   267     processAction $ ModifyRoom (\r -> r{readyPlayers = 0})
   267     processAction $ ModifyRoom (\r -> r{readyPlayers = 0})
   268 
   268 
   269 
   269 
   270 processAction (RemoveTeam teamName) = do
   270 processAction (RemoveTeam teamName) = do