generalize skat online ai to use a general communicator type

2019-10-06 14:45:23 +02:00
parent c9eb1b5bc9
commit cbdf357121
2 changed files with 22 additions and 20 deletions
@@ -32,12 +32,12 @@ cardDistr = Piles hands [] (map (putAt SkatP) skt)
            ++ map (putAt Hand3) hand3
          skt = [Card Nine Clubs, Card Queen Clubs]

-singleVsBots :: (Team -> Hand -> OnlineEnv) -> IO ()
-singleVsBots mkPlayer = do
+singleVsBots :: Communicator c => c -> IO ()
+singleVsBots comm = do
    --let gen = mkStdGen 123
    --    cards = shuffleCardsWithGen gen
    let ps = Players
-                (PL $ mkPlayer Team Hand1)
+                (PL $ OnlineEnv Team Hand1 comm)
                (PL $ Stupid Team Hand2)
                (PL $ mkAIEnv Single Hand3 10)
        env = SkatEnv cardDistr Nothing Spades ps