| // Bfexplorer cannot be held responsible for any losses or damages incurred during the use of this betfair bot. | |
| // It is up to you to determine the level of risk you wish to trade under. | |
| // Do not gamble with money you cannot afford to lose. | |
| 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.Data | |
| open BeloSoft.Bfexplorer.Domain | |
| open BeloSoft.Bfexplorer.Trading | |
| type TriggerStatus = | |
| | WaitForData | |
| | EvaluateAndTrigger | |
| /// <summary> | |
| /// AverageTradedPriceBotTrigger | |
| /// </summary> | |
| type AverageTradedPriceBotTrigger(market : Market, selection : Selection, _botName : string, botTriggerParameters : BotTriggerParameters, myBfexplorer : IMyBfexplorer) = | |
| let minimalPrice = defaultArg (botTriggerParameters.GetParameter<float>("MinimalPrice")) 1.01 | |
| let maximalPrice = defaultArg (botTriggerParameters.GetParameter<float>("MaximalPrice")) 1000.0 | |
| let forTime = defaultArg (botTriggerParameters.GetParameter<float>("ForTime")) 60.0 | |
| let timeToExecute = | |
| let time = DateTime.Now | |
| if defaultArg (botTriggerParameters.GetParameter<bool>("WaitForData")) false | |
| then | |
| time.AddSeconds(forTime) | |
| else | |
| time | |
| let mutable triggerStatus = TriggerStatus.WaitForData | |
| let outputMessage message = | |
| myBfexplorer.BfexplorerService.OutputMessage(message, market.Id) | |
| let getAverageTradedPriceFromTime time = | |
| let myTradedPrices = | |
| selection.PriceTradedHistory.TradedPrices | |
| |> Seq.filter (fun timePriceTraded -> timePriceTraded.Time >= time) | |
| |> Seq.toList | |
| if myTradedPrices.IsEmpty | |
| then | |
| None | |
| else | |
| let averagePriceSize = AveragePriceSize() | |
| myTradedPrices | |
| |> List.iter (fun timePriceTraded -> averagePriceSize.Add(timePriceTraded.Price, timePriceTraded.Volume)) | |
| Some averagePriceSize.Price | |
| interface IBotTrigger with | |
| /// <summary> | |
| /// Execute | |
| /// </summary> | |
| member __.Execute() = | |
| match triggerStatus with | |
| | TriggerStatus.WaitForData -> | |
| if DateTime.Now >= timeToExecute | |
| then | |
| triggerStatus <- TriggerStatus.EvaluateAndTrigger | |
| TriggerResult.WaitingForOperation | |
| | TriggerStatus.EvaluateAndTrigger -> | |
| match getAverageTradedPriceFromTime (DateTime.Now.AddSeconds(-forTime)) with | |
| | Some averageTradedPrice -> | |
| if averageTradedPrice >= minimalPrice && averageTradedPrice <= maximalPrice | |
| then | |
| sprintf "%s, the average traded price: %.2f" selection.Name averageTradedPrice |> outputMessage | |
| TriggerResult.ExecuteActionBot | |
| else | |
| TriggerResult.EndExecution | |
| | None -> TriggerResult.EndExecutionWithMessage "No price traded!" | |
| /// <summary> | |
| /// EndExecution | |
| /// </summary> | |
| member __.EndExecution() = | |
| () |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment