equal
deleted
inserted
replaced
32 name room, |
32 name room, |
33 (show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")", |
33 (show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")", |
34 show $ gameinprogress room |
34 show $ gameinprogress room |
35 ] |
35 ] |
36 |
36 |
37 handleCmd_lobby clID clients _ ["CHAT_STRING", msg] = |
37 handleCmd_lobby clID clients _ ["CHAT", msg] = |
38 [AnswerOthersInRoom ["CHAT_STRING", clientNick, msg]] |
38 [AnswerOthersInRoom ["CHAT", clientNick, msg]] |
39 where |
39 where |
40 clientNick = nick $ clients IntMap.! clID |
40 clientNick = nick $ clients IntMap.! clID |
41 |
41 |
42 handleCmd_lobby clID clients rooms ["CREATE", newRoom, roomPassword] = |
42 handleCmd_lobby clID clients rooms ["CREATE", newRoom, roomPassword] = |
43 if haveSameRoom then |
43 if haveSameRoom then |