--- a/netserver/Miscutils.hs Fri Oct 24 17:34:20 2008 +0000
+++ b/netserver/Miscutils.hs Fri Oct 24 17:53:14 2008 +0000
@@ -51,9 +51,11 @@
gameinprogress :: Bool,
playersIn :: Int,
readyPlayers :: Int,
+ isRestrictedJoins :: Bool,
+ isRestrictedTeams :: Bool,
params :: Map.Map String [String]
}
-createRoom = (RoomInfo "" "" 0 [] "+rnd+" False 1 0 Map.empty)
+createRoom = (RoomInfo "" "" 0 [] "+rnd+" False 1 0 False False Map.empty)
type ClientsTransform = [ClientInfo] -> [ClientInfo]
type RoomsTransform = [RoomInfo] -> [RoomInfo]