equal
deleted
inserted
replaced
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 |
26 |
|
27 -- Maximum hedgehogs per team |
27 cHogsPerTeam :: Int |
28 cHogsPerTeam :: Int |
28 cHogsPerTeam = 8 |
29 cHogsPerTeam = 8 |
29 |
30 |
|
31 -- Maximum teams count |
30 cMaxTeams :: Int |
32 cMaxTeams :: Int |
31 cMaxTeams = 8 |
33 cMaxTeams = 8 |
32 |
34 |
|
35 -- Maximum total number of hedgehogs |
33 cMaxHHs :: Int |
36 cMaxHHs :: Int |
34 cMaxHHs = cHogsPerTeam * cMaxTeams |
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 nickRandom :: B.ByteString |
|
51 nickRandom = "[random]" |
|
52 |
|
53 -- For /global command |
|
54 nickGlobal :: B.ByteString |
|
55 nickGlobal = "(global notice)" |