use minmax for rulebased ai

2020-02-29 12:39:04 +01:00
parent 173bd0df2e
commit 5846a22d8a
7 changed files with 93 additions and 62 deletions
@@ -40,5 +40,5 @@ singleVsBots comm = do
                (PL $ OnlineEnv Team Hand1 comm)
                (PL $ Stupid Team Hand2)
                (PL $ mkAIEnv Single Hand3 10)
-        env = SkatEnv cardDistr Nothing Spades ps
-    liftIO $ evalStateT (publishGameStart Hand3 >> turn Hand1 >>= publishGameResults) env
+        env = SkatEnv cardDistr Nothing Spades ps Hand1
+    liftIO $ evalStateT (publishGameStart Hand3 >> turn >>= publishGameResults) env