gameServer/EngineInteraction.hs
changeset 9401 2af7bea32e5e
parent 9304 3f4c3fc146c2
child 9690 6a1748b71df2
equal deleted inserted replaced
9399:1767c92eff37 9401:2af7bea32e5e
    41         encode = B.pack . Base64.encode . BW.unpack . B.concat
    41         encode = B.pack . Base64.encode . BW.unpack . B.concat
    42         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)
    42         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)
    43         lft = foldr l Nothing
    43         lft = foldr l Nothing
    44         l m n = let m' = B.head $ B.tail m; tst = flip Set.member in 
    44         l m n = let m' = B.head $ B.tail m; tst = flip Set.member in 
    45                       if not $ tst timedMessages m' then n
    45                       if not $ tst timedMessages m' then n
    46                         else if '+' /= m' then Just Nothing else Just $ Just m
    46                         else if '+' /= m' then Just Nothing else Just . Just . B.pack . Base64.encode . BW.unpack $ m
    47         isNonEmpty = (/=) '+' . B.head . B.tail
    47         isNonEmpty = (/=) '+' . B.head . B.tail
    48         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages
    48         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages
    49         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"
    49         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"
    50         timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgc12345" ++ slotMessages
    50         timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgc12345" ++ slotMessages
    51 
    51