# HG changeset patch
# User unc0rr
# Date 1360872739 -14400
# Node ID 3889dab021b84a2e54325f947648d74cc90cf649
# Parent  b899226cba41a88ff647ac1a8f8e6f5b6b05725f
 - Fix check for void message
 - Disable sound in checker

diff -r b899226cba41 -r 3889dab021b8 gameServer/EngineInteraction.hs
--- a/gameServer/EngineInteraction.hs	Thu Feb 14 00:32:13 2013 +0400
+++ b/gameServer/EngineInteraction.hs	Fri Feb 15 00:12:19 2013 +0400
@@ -40,7 +40,7 @@
         check (Just msgs) = let (a, b) = (filter isLegal msgs, filter isNonEmpty a) in (encode a, encode b)
         encode = B.pack . Base64.encode . BW.unpack . B.concat
         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)
-        isNonEmpty = (/=) '+' . B.head
+        isNonEmpty = (/=) '+' . B.head . B.tail
         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages
         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"
 
diff -r b899226cba41 -r 3889dab021b8 gameServer/OfficialServer/checker.hs
--- a/gameServer/OfficialServer/checker.hs	Thu Feb 14 00:32:13 2013 +0400
+++ b/gameServer/OfficialServer/checker.hs	Fri Feb 15 00:12:19 2013 +0400
@@ -39,7 +39,12 @@
     (_, _, Just hErr, _) <- createProcess (proc "/usr/home/unC0Rr/Sources/Hedgewars/Releases/0.9.18/bin/hwengine"
                 ["/usr/home/unC0Rr/.hedgewars"
                 , "/usr/home/unC0Rr/Sources/Hedgewars/Releases/0.9.18/share/hedgewars/Data"
-                , fileName])
+                , fileName
+                , "--set-audio"
+                , "0"
+                , "0"
+                , "0"
+                ])
             {std_err = CreatePipe}
     hSetBuffering hErr LineBuffering