Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #I @"C:\Program Files (x86)\BeloSoft\Bfexplorer\"
- #r "BeloSoft.Data.dll"
- #r "BeloSoft.Bfexplorer.Domain.dll"
- #r "BeloSoft.Bfexplorer.Service.Core.dll"
- open System
- open BeloSoft.Data
- open BeloSoft.Bfexplorer.Domain
- open BeloSoft.Bfexplorer.Service
- //let bfexplorer = nil<IBfexplorerConsole>
- let reportMarketSelectionData (market : Market, selection : Selection) =
- printfn "%s - %s: %.2f" market.MarketFullName selection.Name selection.LastPriceTraded
- let isMyFootballMatchOddsMarket (market : Market) =
- let homeTeamSelection = market.Selections.[0]
- reportMarketSelectionData (market, homeTeamSelection)
- homeTeamSelection.LastPriceTraded <= 1.8
- let isMyFootballOverUnderMarket (market : Market) =
- let overSelection = market.Selections.[1]
- reportMarketSelectionData (market, overSelection)
- overSelection.LastPriceTraded >= 1.5
- async {
- let! result = bfexplorer.OpenMyFavouriteBetEvent("Football - Top Leagues")
- if result.IsSuccessResult
- then
- let today = DateTime.Today
- let marketInfos =
- bfexplorer.BetEventBrowserMarketCatalogs
- |> List.filter (fun marketCatalog -> marketCatalog.MarketInfo.StartTime.Date = today)
- |> List.map (fun marketCatalog -> marketCatalog.MarketInfo)
- let! resultMyMarkets = bfexplorer.GetMyMarkets(marketInfos)
- match resultMyMarkets with
- | DataResult.Success markets ->
- for market in markets do
- if isMyFootballMatchOddsMarket market
- then
- let! resultAssociatedMarkets = bfexplorer.GetMyAssociatedMarkets(market.MarketInfo, [| "OVER_UNDER_25" |])
- if resultAssociatedMarkets.IsSuccessResult
- then
- let marketOverUnder = resultAssociatedMarkets.SuccessResult.Head
- if isMyFootballOverUnderMarket marketOverUnder
- then
- bfexplorer.OpenMyMarkets([ market; marketOverUnder ])
- | DataResult.Failure errorMessage -> printfn "%s" errorMessage
- else
- printfn "%s" result.FailureMessage
- }
- |> Async.RunSynchronously
Add Comment
Please, Sign In to add comment