MyFillOrKillBotTrigger.fsx

module BfexplorerBot

#I @"C:\Program Files (x86)\BeloSoft\Bfexplorer\"

#r "BeloSoft.Data.dll"
#r "BeloSoft.Betfair.API.dll"
#r "BeloSoft.Bfexplorer.Domain.dll"
#r "BeloSoft.Bfexplorer.Trading.dll"
#r "BeloSoft.Bfexplorer.Service.Core.dll"

open System

open BeloSoft.Bfexplorer.Domain
open BeloSoft.Bfexplorer.Trading

let randomGenerator = Random()

type MyFillOrKillBotTrigger(_market : Market, selection : Selection, _botName : string, _botTriggerParameters : BotTriggerParameters, _myBfexplorer : IMyBfexplorer) =

    let setupMyFillOrKill() =
        let botParameters = FillOrKillBotParameters()

        botParameters.Name <- "My FillOrKill"
        botParameters.Odds <- selection.OddsContext.GetNextOdds(selection.GetBestPrice(BetType.Back), randomGenerator.Next(5, 20), true)
        botParameters.BetMatchingTimeout <- TimeSpan.FromSeconds(float (randomGenerator.Next(5, 15)))
        
        typeof<FillOrKillBot>, selection, botParameters :> BotParameters, false
        
    interface IBotTrigger with

        member __.Execute() =
            TriggerResult.ExecuteBfexplorerBotOnSelectionWithParametersAndContinueToExecute (setupMyFillOrKill())

        member __.EndExecution() =
            ()