9 |
9 |
10 teamToNet team = ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
10 teamToNet team = ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
11 where |
11 where |
12 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
12 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
13 |
13 |
14 answerServerMessage = [(clientOnly, ["SERVER_MESSAGE", "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>"])] |
14 answerServerMessage = [(clientOnly, ["SERVER_MESSAGE", ""])] |
15 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
15 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] |
16 answerNotMaster = [(clientOnly, ["ERROR", "You cannot configure room parameters"])] |
16 answerNotMaster = [(clientOnly, ["ERROR", "You cannot configure room parameters"])] |
17 answerBadParam = [(clientOnly, ["ERROR", "Bad parameter"])] |
17 answerBadParam = [(clientOnly, ["ERROR", "Bad parameter"])] |
18 answerQuit = [(clientOnly, ["BYE"])] |
18 answerQuit = [(clientOnly, ["BYE"])] |
19 answerAbandoned = [(othersInRoom, ["BYE"])] |
19 answerAbandoned = [(othersInRoom, ["BYE"])] |