gameServer/Actions.hs
changeset 2346 f07fd1ac2c48
parent 2345 daf1785f2337
child 2352 7eaf82cf0890
equal deleted inserted replaced
2345:daf1785f2337 2346:f07fd1ac2c48
   194 		if roomID client /= 0 then
   194 		if roomID client /= 0 then
   195 			if isMaster client then
   195 			if isMaster client then
   196 				if (gameinprogress room) && (playersIn room > 1) then
   196 				if (gameinprogress room) && (playersIn room > 1) then
   197 					(changeMaster >>= (\state -> foldM processAction state
   197 					(changeMaster >>= (\state -> foldM processAction state
   198 						[AnswerOthersInRoom ["LEFT", nick client, msg],
   198 						[AnswerOthersInRoom ["LEFT", nick client, msg],
       
   199 						AnswerOthersInRoom ["WARNING", "Admin left the room"],
   199 						RemoveClientTeams clID]))
   200 						RemoveClientTeams clID]))
   200 				else -- not in game
   201 				else -- not in game
   201 					processAction (clID, serverInfo, clients, rooms) RemoveRoom
   202 					processAction (clID, serverInfo, clients, rooms) RemoveRoom
   202 			else -- not master
   203 			else -- not master
   203 				foldM
   204 				foldM