Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Fix check for void message
authorunc0rr
Fri, 15 Feb 2013 00:12:19 +0400
changeset 8506 3889dab021b8
parent 8505 b899226cba41
child 8507 f4475782cf45
- Fix check for void message - Disable sound in checker
gameServer/EngineInteraction.hs file | annotate | diff | comparison | revisions
gameServer/OfficialServer/checker.hs file | annotate | diff | comparison | revisions 
--- 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"
 
--- 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
hedgewars