netserver/HWProto.hs
changeset 1309 1a38a967bd48
parent 1308 d5dcd6cfa5e2
child 1317 13cf8c5a7428
--- a/netserver/HWProto.hs	Mon Oct 06 18:37:47 2008 +0000
+++ b/netserver/HWProto.hs	Mon Oct 06 18:40:47 2008 +0000
@@ -7,9 +7,9 @@
 import Maybe (fromMaybe, fromJust)
 
 answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])]
-answerQuit = [(clientOnly, ["BYE"])]
+answerQuit = [(clientOnly, ["off"])]
 answerAbandoned = [(sameRoom, ["BYE"])]
-answerQuitInform nick = [(othersInRoom, ["QUIT", nick])]
+answerQuitInform nick = [(othersInRoom, ["LEFT", nick])]
 answerNickChosen = [(clientOnly, ["ERROR", "The nick already chosen"])]
 answerNickChooseAnother = [(clientOnly, ["WARNING", "Choose another nick"])]
 answerNick nick = [(clientOnly, ["NICK", nick])]
@@ -32,7 +32,7 @@
 	else if isMaster client then
 		(noChangeClients, removeRoom (room client), answerAbandoned) -- core disconnects clients on ROOMABANDONED answer
 	else
-		(noChangeClients, noChangeRooms, answerQuitInform $ nick client)
+		(noChangeClients, noChangeRooms, answerQuit ++ (answerQuitInform $ nick client))
 
 
 -- check state and call state-dependent commmand handlers