Parcourir la source

set stupid bidding to 0

master
flavis il y a 4 ans
Parent
révision
0984a188db
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. +1
    -1
      src/Skat/AI/Stupid.hs

+ 1
- 1
src/Skat/AI/Stupid.hs Voir le fichier

@@ -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


Chargement…
Annuler
Enregistrer