26 

    27 -- Maximum hedgehogs per team

    28 cHogsPerTeam :: Int

    29 cHogsPerTeam = 8

    30 

    31 -- Maximum teams count

    32 cMaxTeams :: Int

    33 cMaxTeams = 8

    34 

    35 -- Maximum total number of hedgehogs

    36 cMaxHHs :: Int

    37 cMaxHHs = cHogsPerTeam * cMaxTeams

    38 

    39 {- "Fake" nick names used for special server messages in chat.

    40 They are enclosed in brackets; these characters not allowed in real nick names.

    41 The brackets are required as they are parsed by the frontend.

    42 Names enclosed in square brackets send messages that are supposed to be translated by the frontend.

    43 Names enclosed in parenthesis send messages that are not supposed to be translated. -}

    44 

    45 -- For most server messages, usually response to a command

    46 nickServer :: B.ByteString

    47 nickServer = "[server]"

    48 

    49 -- For /rnd command

    50 nickRandomCoin :: B.ByteString

    51 nickRandomCoin = "[random]"

    52 

    53 nickRandomCustom :: B.ByteString

    54 nickRandomCustom = "(random)"

    55 

    56 -- For /global command

    57 nickGlobal :: B.ByteString

    58 nickGlobal = "(global notice)"

    59 

    60 -- For greeting message added with /greeting command

    61 nickGreeting :: B.ByteString

    62 nickGreeting = "(greeting)"