# HG changeset patch # User unC0Rr # Date 1456825062 -10800 # Node ID 2963c85c6de47a7ff04c5e1f1c43db1996921669 # Parent 026c329b1a13e8b6ed6053d62bbe6982173fde2f Don't see a good reason for it to be here diff -r 026c329b1a13 -r 2963c85c6de4 gameServer/EngineInteraction.hs --- a/gameServer/EngineInteraction.hs Tue Mar 01 08:32:46 2016 +0300 +++ b/gameServer/EngineInteraction.hs Tue Mar 01 12:37:42 2016 +0300 @@ -95,7 +95,7 @@ if not $ tst timedMessages m' then n else if '+' /= m' then Just Nothing else Just . Just . B.pack . Base64.encode . BW.unpack $ m isNonEmpty = (/=) '+' . B.head . B.tail - legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtgfhbc12345" ++ slotMessages + legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,NpPwtgfhbc12345" ++ slotMessages slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgfc12345" ++ slotMessages isMalformed 'h' m | B.length m >= 3 = let hognum = m `B.index` 1; teamnum = m `BW.index` 2 in hognum < '1' || hognum > '8' || teamnum `L.notElem` teamsIndexes