christian/skat
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

set stupid bidding to 0

Browse Source
This commit is contained in:
christian
2022-01-19 11:47:40 +01:00
parent 444e50cdb1
commit 0984a188db
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Skat/AI/Stupid.hs
+1 -1
View File
@@ -29,7 +29,7 @@ newtype NoBidder = NoBidder Hand
-- | no bidding from that player -- | no bidding from that player
instance Bidder NoBidder where instance Bidder NoBidder where
hand (NoBidder h) = h hand (NoBidder h) = h
askBid _ _ bid = return $ Just 120 askBid _ _ bid = return Nothing
askResponse _ _ bid = if bid < 24 then return True else return False askResponse _ _ bid = if bid < 24 then return True else return False
askGame _ _ = return $ Grand Hand askGame _ _ = return $ Grand Hand
askHand _ _ = return True askHand _ _ = return True