gameServer/Consts.hs
changeset 13531 282218ab1b28
parent 13510 69f0f437c75a
child 13696 d732ca5dcab9
equal deleted inserted replaced
13530:80db7232b4b5 13531:282218ab1b28
    21 
    21 
    22 import qualified Data.ByteString.Char8 as B
    22 import qualified Data.ByteString.Char8 as B
    23 
    23 
    24 serverVersion :: B.ByteString
    24 serverVersion :: B.ByteString
    25 serverVersion = "3"
    25 serverVersion = "3"
       
    26 
       
    27 cHogsPerTeam :: Int
       
    28 cHogsPerTeam = 8
       
    29 
       
    30 cMaxTeams :: Int
       
    31 cMaxTeams = 8
       
    32 
       
    33 cMaxHHs :: Int
       
    34 cMaxHHs = cHogsPerTeam * cMaxTeams