add preconfigured matches and extend online ai

2019-08-28 16:27:24 +02:00
parent 409ef29da1
commit 7138f74e8e
8 changed files with 66 additions and 101 deletions
@@ -35,7 +35,8 @@ runAI = do
    if length trs >= 5 && any ((==32) . getID) cs
        then do
            pts <- fst <$> evalStateT (turn Hand1) env
-            if pts > 60 then return 1 else return 0
+            -- if pts > 60 then return 1 else return 0
+            return pts
        else runAI

 env :: SkatEnv