99 | RegisterEvent Event |
99 | RegisterEvent Event |
100 | SaveRoom B.ByteString |
100 | SaveRoom B.ByteString |
101 | LoadRoom B.ByteString |
101 | LoadRoom B.ByteString |
102 | ReactCmd [B.ByteString] |
102 | ReactCmd [B.ByteString] |
103 | CheckVotes |
103 | CheckVotes |
|
104 | SetRandomSeed |
104 |
105 |
105 |
106 |
106 data Event = LobbyChatMessage |
107 data Event = LobbyChatMessage |
107 | EngineMessage |
108 | EngineMessage |
108 | RoomJoin |
109 | RoomJoin |
109 |
110 |
110 type EventsInfo = [(Int, UTCTime)] |
111 type EventsInfo = [(Int, UTCTime)] |
111 |
112 |
112 newEventsInfo :: EventsInfo |
113 newEventsInfo :: EventsInfo |
113 newEventsInfo = [] |
114 newEventsInfo = [] |
114 |
115 |
115 type ClientChan = Chan [B.ByteString] |
116 type ClientChan = Chan [B.ByteString] |
116 |
117 |
117 data CheckInfo = |
118 data CheckInfo = |
118 CheckInfo |
119 CheckInfo |
220 readyPlayers :: !Int, |
221 readyPlayers :: !Int, |
221 isRestrictedJoins :: Bool, |
222 isRestrictedJoins :: Bool, |
222 isRestrictedTeams :: Bool, |
223 isRestrictedTeams :: Bool, |
223 isRegisteredOnly :: Bool, |
224 isRegisteredOnly :: Bool, |
224 isSpecial :: Bool, |
225 isSpecial :: Bool, |
|
226 defaultHedgehogsNumber :: Int, |
225 greeting :: B.ByteString, |
227 greeting :: B.ByteString, |
226 voting :: Maybe Voting, |
228 voting :: Maybe Voting, |
227 roomBansList :: ![B.ByteString], |
229 roomBansList :: ![B.ByteString], |
228 mapParams :: Map.Map B.ByteString B.ByteString, |
230 mapParams :: Map.Map B.ByteString B.ByteString, |
229 params :: Map.Map B.ByteString [B.ByteString], |
231 params :: Map.Map B.ByteString [B.ByteString], |