--- a/gameServer/HWProtoInRoomState.hs	Tue Mar 31 22:50:12 2015 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Tue Mar 31 23:01:53 2015 +0300
@@ -473,11 +473,11 @@
         return [AnswerClients [sendChan cl] ["CHAT", "[server]", loc "callvote hedgehogs: specify number from 1 to 8"]]
 
 
-handleCmd_inRoom ["VOTE", m] = do
+handleCmd_inRoom ("VOTE" : m : p) = do
     cl <- thisClient
     let b = if m == "YES" then Just True else if m == "NO" then Just False else Nothing
     if isJust b then
-        voted (fromJust b)
+        voted (p == ["FORCE"]) (fromJust b)
         else
         return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]]