--- a/gameServer/HWProtoCore.hs	Sat Feb 02 20:16:12 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Sat Feb 02 22:57:05 2013 +0400
@@ -42,6 +42,8 @@
     where
         h ["DELEGATE", n] = handleCmd ["DELEGATE", n]
         h ["STATS"] = handleCmd ["STATS"]
+        h ["PART", msg] = handleCmd ["PART", msg]
+        h ["QUIT", msg] = handleCmd ["QUIT", msg]
         h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c]
 
 handleCmd cmd = do