equal
deleted
inserted
replaced
181 isRestrictedJoins :: Bool, |
181 isRestrictedJoins :: Bool, |
182 isRestrictedTeams :: Bool, |
182 isRestrictedTeams :: Bool, |
183 isRegisteredOnly :: Bool, |
183 isRegisteredOnly :: Bool, |
184 isSpecial :: Bool, |
184 isSpecial :: Bool, |
185 greeting :: B.ByteString, |
185 greeting :: B.ByteString, |
|
186 voting :: Maybe Voting, |
186 roomBansList :: ![B.ByteString], |
187 roomBansList :: ![B.ByteString], |
187 mapParams :: Map.Map B.ByteString B.ByteString, |
188 mapParams :: Map.Map B.ByteString B.ByteString, |
188 params :: Map.Map B.ByteString [B.ByteString] |
189 params :: Map.Map B.ByteString [B.ByteString] |
189 } |
190 } |
190 |
191 |
202 False |
203 False |
203 False |
204 False |
204 False |
205 False |
205 False |
206 False |
206 "" |
207 "" |
|
208 Nothing |
207 [] |
209 [] |
208 ( |
210 ( |
209 Map.fromList $ Prelude.zip |
211 Map.fromList $ Prelude.zip |
210 ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"] |
212 ["MAP", "MAPGEN", "MAZE_SIZE", "SEED", "TEMPLATE"] |
211 ["+rnd+", "0", "0", "seed", "0"] |
213 ["+rnd+", "0", "0", "seed", "0"] |
212 ) |
214 ) |
213 ( |
215 ( |
214 Map.fromList $ Prelude.zip |
216 Map.fromList $ Prelude.zip |
215 ["SCHEME", "SCRIPT", "Theme"] |
217 ["SCHEME", "SCRIPT", "THEME", "MAZE_SIZE", "DRAWNMAP"] |
216 [["Default"], ["Normal"], ["Theme"]] |
218 [["Default"], ["Normal"], ["Theme"], ["0"], ["-"]] |
217 ) |
219 ) |
218 |
220 |
219 |
221 |
220 data StatisticsInfo = |
222 data StatisticsInfo = |
221 StatisticsInfo |
223 StatisticsInfo |
262 "" |
264 "" |
263 [] |
265 [] |
264 False |
266 False |
265 [] |
267 [] |
266 |
268 |
|
269 data Voting = Voting { |
|
270 voteTTL :: Int, |
|
271 entitledToVote :: [Unique], |
|
272 votes :: [(Unique, Bool)], |
|
273 voteType :: VoteType |
|
274 } |
|
275 |
|
276 |
|
277 data VoteType = VoteKick B.ByteString |
|
278 |
|
279 |
|
280 newVote :: VoteType -> Voting |
|
281 newVote = Voting 2 [] [] |
|
282 |
|
283 |
267 data AccountInfo = |
284 data AccountInfo = |
268 HasAccount B.ByteString Bool Bool |
285 HasAccount B.ByteString Bool Bool |
269 | Guest |
286 | Guest |
270 | Admin |
287 | Admin |
271 | ReplayName B.ByteString |
288 | ReplayName B.ByteString |