--- a/gameServer/HWProtoCore.hs	Tue Mar 31 22:50:12 2015 +0300
+++ b/gameServer/HWProtoCore.hs	Tue Mar 31 23:01:53 2015 +0300
@@ -76,6 +76,7 @@
                          | otherwise = let (c, p) = extractParameters msg in
                                            if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p]
         h "VOTE" msg = handleCmd ["VOTE", upperCase msg]
+        h "FORCE" msg = handleCmd ["VOTE", upperCase msg, "FORCE"]
         h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]]
 
         extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b)