Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
// 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