equal
deleted
inserted
replaced
12 import Maybe |
12 import Maybe |
13 import qualified Data.Map as Map |
13 import qualified Data.Map as Map |
14 import Opts |
14 import Opts |
15 |
15 |
16 teamToNet protocol team = |
16 teamToNet protocol team = |
17 if protocol == 21 then |
17 if protocol <= 21 then |
18 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
18 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
19 else |
19 else |
20 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, show $ difficulty team] ++ hhsInfo |
20 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, show $ difficulty team] ++ hhsInfo |
21 where |
21 where |
22 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
22 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |