--- a/gameServer/HWProtoCore.hs	Wed Apr 10 07:44:51 2013 +0300
+++ b/gameServer/HWProtoCore.hs	Wed Apr 10 22:48:14 2013 +0400
@@ -30,7 +30,7 @@
 handleCmd ["PONG"] = do
     cl <- thisClient
     if pingsQueue cl == 0 then
-        return $ actionsPending cl ++ [ModifyClient (\c -> c{actionsPending = []})]
+        return [ProtocolError "Protocol violation"]
         else
         return [ModifyClient (\c -> c{pingsQueue = pingsQueue c - 1})]