http://bfexplorer.net/Articles/Content/496

MyBotTrigger.fsx

module BfexplorerBot

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

#r "BeloSoft.Data.dll"
#r "BeloSoft.Bfexplorer.Domain.dll"
#r "BeloSoft.Bfexplorer.Trading.dll"

open System

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

type MyBotTrigger(market : Market, selection : Selection, botName : string, botTriggerParameters : BotTriggerParameters, myBfexplorer : IMyBfexplorer) =
                    
    interface IBotTrigger with

        member __.Execute() =
            let message = 
                market.Selections
                |> Seq.map (fun mySelection -> sprintf "%s: %.2f | %.2f" mySelection.Name mySelection.LastPriceTraded mySelection.TotalMatched)
                |> String.concat "\n"

            TriggerResult.EndExecutionWithMessage message

        member __.EndExecution() =
            ()