gameServer/Actions.hs
changeset 7945 4006d77e1a28
parent 7926 550083f61a0e
child 7947 0cf5277fef1a
equal deleted inserted replaced
7943:0b03ac28212d 7945:4006d77e1a28
   297     processAction $ MoveToRoom rId
   297     processAction $ MoveToRoom rId
   298 
   298 
   299     chans <- liftM (map sendChan) $! sameProtoClientsS proto
   299     chans <- liftM (map sendChan) $! sameProtoClientsS proto
   300 
   300 
   301     mapM_ processAction [
   301     mapM_ processAction [
   302         AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm)
   302       AnswerClients chans ("ROOM" : "ADD" : roomInfo n rm{playersIn = 1})
   303         ]
   303         ]
   304 
   304 
   305 
   305 
   306 processAction RemoveRoom = do
   306 processAction RemoveRoom = do
   307     Just clId <- gets clientIndex
   307     Just clId <- gets clientIndex