diff -r 16122539d2ea -r fe9853dea6c4 gameServer/EngineInteraction.hs --- a/gameServer/EngineInteraction.hs Thu Jun 26 21:43:36 2014 +0400 +++ b/gameServer/EngineInteraction.hs Sat Jun 28 14:51:45 2014 +0400 @@ -67,9 +67,9 @@ 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,sNpPwtghbc12345" ++ slotMessages + legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtgfhbc12345" ++ slotMessages slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" - timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgc12345" ++ slotMessages + timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgfc12345" ++ slotMessages replayToDemo :: [TeamInfo] -> Map.Map B.ByteString B.ByteString