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
let toBotStatus (bot : Bot) =
if isNullObj bot.RunningOnSelection
then
sprintf "%s" bot.Name
else
sprintf "%s on %s" bot.Name bot.RunningOnSelection.Name
let toBetStatus (bet : Bet) =
sprintf "%s: %A, %.2f @ %.2f, %A" bet.Selection.Name bet.BetType bet.Size bet.Price bet.OrderStatus
let toBetPosition (selection : Selection) =
sprintf "%s: %A" selection.Name selection.BetPosition
/// <summary>
/// TriggerStatus
/// </summary>
type TriggerStatus =
| ExecuteActionBot = 1
| ReportAllBots = 2
| ReportBetStatus = 3
| ReportBetPosition = 4
| CancelBets = 5
| WaitToCancelBets = 6
| StopMySelectionActionBot = 7
| EndBotExecution = 8
/// <summary>
/// BetStatusBetCancellingBotOrchestrationBotTrigger
/// </summary>
type BetStatusBetCancellingBotOrchestrationBotTrigger(market : Market, selection : Selection, _botName : string, _botTriggerParameters : BotTriggerParameters, myBfexplorer : IMyBfexplorer) =
let mutable status = TriggerStatus.ExecuteActionBot
let mutable timeToExecute = DateTime.MaxValue
let goToNextTriggerStatus() =
enum<TriggerStatus> (int status + 1)
let setTimeToExecute inSeconds =
timeToExecute <- DateTime.Now.AddSeconds(inSeconds)
let isTimeToExecute() =
DateTime.Now >= timeToExecute
let outputMessage message =
myBfexplorer.BfexplorerService.OutputMessage(message, market.Id)
let report title (lines : string seq) =
lines |> String.concat "\n" |> sprintf "%s:\n%s" title |> outputMessage
let reportAllBots() =
market.RunningBots |> Seq.map (fun bot -> toBotStatus bot) |> report "Running Bots"
let reportAllBets() =
market.Bets |> Seq.map toBetStatus |> report "Bets"
let reportAllBetPositions() =
market.Selections |> Seq.filter isActiveSelection |> Seq.map toBetPosition |> report "Bet Positions"
let onBetsCancelled (_status : bool) =
setTimeToExecute 5.0
status <- goToNextTriggerStatus()
let getMySelectionActionBot() =
let selectionId = selection.Id
market.RunningBots
|> Seq.tryFind (fun bot ->
if bot :? ExecuteTriggerBot
then
false
else
if isNotNullObj bot.RunningOnSelection
then
bot.RunningOnSelection.Id = selectionId
else
false
)
interface IBotTrigger with
/// <summary>
/// Execute
/// </summary>
member __.Execute() =
let triggerResult, goToNext =
match status with
| TriggerStatus.ExecuteActionBot ->
TriggerResult.ExecuteActionBotOnSelectionsAndContinueToExecute ([ selection ], true), true
| TriggerStatus.ReportAllBots ->
reportAllBots()
TriggerResult.WaitingForOperation, true
| TriggerStatus.ReportBetStatus ->
let goToNext =
if market.Bets.HaveBets
then
reportAllBets()
true
else
false
TriggerResult.WaitingForOperation, goToNext
| TriggerStatus.ReportBetPosition ->
reportAllBetPositions()
setTimeToExecute 5.0
TriggerResult.WaitingForOperation, true
| TriggerStatus.CancelBets ->
if isTimeToExecute()
then
setTimeToExecute 5.0
let bets = getUnmatchedBets selection.Bets
if bets.IsEmpty
then
TriggerResult.WaitingForOperation, true
else
TriggerResult.CancelBets (Some bets, onBetsCancelled), true
else
TriggerResult.WaitingForOperation, false
| TriggerStatus.StopMySelectionActionBot ->
if isTimeToExecute()
then
getMySelectionActionBot()
|> Option.iter (fun bot ->
bot.EndExecution()
outputMessage (sprintf "My bot: %s has been stopped." (toBotStatus bot))
)
TriggerResult.WaitingForOperation, true
else
TriggerResult.WaitingForOperation, false
| TriggerStatus.EndBotExecution ->
reportAllBots()
TriggerResult.EndExecution, false
| _ -> TriggerResult.WaitingForOperation, false
if goToNext
then
status <- goToNextTriggerStatus()
triggerResult
/// <summary>
/// EndExecution
/// </summary>
member __.EndExecution() =
()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.