--- a/gameServer/CoreTypes.hs Mon Jan 12 08:20:20 2015 -0500
+++ b/gameServer/CoreTypes.hs Tue Jan 13 23:37:07 2015 +0300
@@ -101,6 +101,7 @@
| LoadRoom B.ByteString
| ReactCmd [B.ByteString]
| CheckVotes
+ | SetRandomSeed
data Event = LobbyChatMessage
@@ -110,7 +111,7 @@
type EventsInfo = [(Int, UTCTime)]
newEventsInfo :: EventsInfo
-newEventsInfo = []
+newEventsInfo = []
type ClientChan = Chan [B.ByteString]
@@ -222,6 +223,7 @@
isRestrictedTeams :: Bool,
isRegisteredOnly :: Bool,
isSpecial :: Bool,
+ defaultHedgehogsNumber :: Int,
greeting :: B.ByteString,
voting :: Maybe Voting,
roomBansList :: ![B.ByteString],
@@ -245,6 +247,7 @@
False
False
False
+ 4
""
Nothing
[]
@@ -319,6 +322,8 @@
data VoteType = VoteKick B.ByteString
| VoteMap B.ByteString
| VotePause
+ | VoteNewSeed
+ | VoteHedgehogsPerTeam Int
newVoting :: VoteType -> Voting