43 answerTooFewClans = answerClientOnly ["ERROR", "Too few clans in game"] |
43 answerTooFewClans = answerClientOnly ["ERROR", "Too few clans in game"] |
44 answerRestricted = answerClientOnly ["WARNING", "Room joining restricted"] |
44 answerRestricted = answerClientOnly ["WARNING", "Room joining restricted"] |
45 answerConnected = answerClientOnly ["CONNECTED", "Hedgewars server http://www.hedgewars.org/"] |
45 answerConnected = answerClientOnly ["CONNECTED", "Hedgewars server http://www.hedgewars.org/"] |
46 answerNotOwner = answerClientOnly ["ERROR", "You do not own this team"] |
46 answerNotOwner = answerClientOnly ["ERROR", "You do not own this team"] |
47 answerCannotCreateRoom = answerClientOnly ["WARNING", "Cannot create more rooms"] |
47 answerCannotCreateRoom = answerClientOnly ["WARNING", "Cannot create more rooms"] |
48 answerInfo client = answerClientOnly ["INFO", nick client, host client, proto2ver $ protocol client] |
48 answerInfo client = answerClientOnly ["INFO", nick client, host client, proto2ver $ protocol client, roomInfo] |
|
49 where |
|
50 roomInfo = if not $ null $ room client then "room " ++ (room client) else "lobby" |
49 |
51 |
50 answerAbandoned = answerOthersRoom ["BYE", "Room abandoned"] |
52 answerAbandoned = answerOthersRoom ["BYE", "Room abandoned"] |
51 answerChatString nick msg = answerOthersRoom ["CHAT_STRING", nick, msg] |
53 answerChatString nick msg = answerOthersRoom ["CHAT_STRING", nick, msg] |
52 answerAddTeam team = answerOthersRoom $ teamToNet team |
54 answerAddTeam team = answerOthersRoom $ teamToNet team |
53 answerRemoveTeam teamName = answerOthersRoom ["REMOVE_TEAM", teamName] |
55 answerRemoveTeam teamName = answerOthersRoom ["REMOVE_TEAM", teamName] |