--- a/gameServer/HWProtoCore.hs	Tue Feb 19 22:03:33 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Wed Feb 20 22:54:16 2013 +0400
@@ -30,7 +30,7 @@
 handleCmd ["PONG"] = do
     cl <- thisClient
     if pingsQueue cl == 0 then
-        return [ProtocolError "Protocol violation"]
+        return $ actionsPending cl ++ [ModifyClient (\c -> c{actionsPending = []})]
         else
         return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})]