diff -r c5dd41e77a12 -r 712283ed86e0 gameServer/CoreTypes.hs
--- 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