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, proto2ver $ protocol client] |
48 answerInfo client = answerClientOnly ["INFO", nick client, host client, proto2ver $ protocol client] |
49 |
49 |
50 answerAbandoned = answerOthersRoom ["BYE", "Room abandoned"] |
50 answerAbandoned = answerOthersRoom ["BYE", "Room abandoned"] |
51 answerChatString nick msg = answerOthersRoom ["CHAT_STRING", nick, msg] |
51 answerChatString nick msg = answerOthersRoom ["CHAT_STRING", nick, msg] |
52 answerAddTeam team = answerOthersRoom $ teamToNet team |
52 answerAddTeam team = answerOthersRoom $ teamToNet team |
53 answerRemoveTeam teamName = answerOthersRoom ["REMOVE_TEAM", teamName] |
53 answerRemoveTeam teamName = answerOthersRoom ["REMOVE_TEAM", teamName] |