Playthrough Bonus I

gistfile1.fs

type Bonus = { Amount : decimal; Balance : decimal; Bets : decimal; Playthrough: decimal; }
    with    
        static member Create amount playthrough =
            { Amount = amount; Balance = amount; Bets = 0M; Playthrough = playthrough }       
        member x.Win amount =            
            { x with Balance = x.Balance + amount }
        member x.AcceptsBet amount =
            x.Balance - amount >= 0M
        member x.Cleared =
            ( x.Playthrough * x.Amount ) - x.Bets <= 0M
        member x.Bet amount =
            match x.AcceptsBet amount with
            | true -> { x with Bets = x.Bets + amount; Balance = x.Balance - amount }
            | false -> invalidOp "Bonus can't accept bet" 
type GameSettings = { Payout : decimal; Stake : decimal; }