12 where |
12 where |
13 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
13 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
14 |
14 |
15 answerServerMessage = [(clientOnly, "SERVER_MESSAGE" : [body])] |
15 answerServerMessage = [(clientOnly, "SERVER_MESSAGE" : [body])] |
16 where |
16 where |
17 body = serverMessage globalOptions ++ if isDedicated globalOptions then "" else "<p align=center>Private server</p>" |
17 body = serverMessage globalOptions ++ if isDedicated globalOptions then "<p align=center>Dedicated server</p>" else "<p align=center>Private server</p>" |
18 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
18 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
19 answerNotMaster = [(clientOnly, ["ERROR", "You cannot configure room parameters"])] |
19 answerNotMaster = [(clientOnly, ["ERROR", "You cannot configure room parameters"])] |
20 answerBadParam = [(clientOnly, ["ERROR", "Bad parameter"])] |
20 answerBadParam = [(clientOnly, ["ERROR", "Bad parameter"])] |
21 answerQuit = [(clientOnly, ["BYE"])] |
21 answerQuit = [(clientOnly, ["BYE"])] |
22 answerAbandoned = [(othersInRoom, ["BYE"])] |
22 answerAbandoned = [(othersInRoom, ["BYE"])] |