The MasterMind

Author: Copyright © 2008, CreativeSilence, Inc.
Price Data Components
Series array that contains the highest prices of each barSeries array that contains the lowest prices of each bar
Indicators Used
Stochastic oscillatorLarry William percent range indicator
Miscellaneous
It plays sound alertsIt issuies visual alerts to the screenIt sends emails
0 Views
0 Downloads
0 Favorites
The MasterMind 
ÿþ//+------------------------------------------------------------------+

//|                      The MasterMind(barabashkakvn's edition).mq5 |

//|                          Copyright © 2008, CreativeSilence, Inc. |

//|                                  http://www.creative-silence.com |

//+------------------------------------------------------------------+

#define OrderStr "MasterMind By L.Bigger AKA Silence"

#property copyright "Copyright © 2008, CreativeSilence, Inc."

#property link      "http://www.creative-silence.com"

#property version   "1.001"

#include <Trade\PositionInfo.mqh>

#include <Trade\Trade.mqh>

#include <Trade\SymbolInfo.mqh>  

#include <Trade\AccountInfo.mqh>

#include <Trade\DealInfo.mqh>

#include <Trade\OrderInfo.mqh>

CPositionInfo  m_position;                   // trade position object

CTrade         m_trade;                      // trading object

CSymbolInfo    m_symbol;                     // symbol info object

CAccountInfo   m_account;                    // account info wrapper

CDealInfo      m_deal;                       // deals object

COrderInfo     m_order;                      // pending orders object

//--- trading

input double   Lots=20;

input ushort   InpStopLoss=15;               // StopLoss

input ushort   InpTakeProfit=45;              // TakeProfit

input bool     TradeAtCloseBar=false;

input ushort   InpTrailingStop=35;            // TrailingStop

input ushort   InpExtTrailingStep=8;         // Trailing step

input ushort   InpBreakEven=0;               // BreakEven

ulong          MagicNumber=89345868;

//--- for alerts:

input int      Repeat=3;

input int      Periods=5;

input bool     UseAlert=false;

input bool     SendEmail=false;

input string   TradeLog="MasterMind";

//---

int            mm=-1;                        // -1: Fractional lots, 0: Single Lots, 1 :Full lots

double         Risk=1;

int            Crepeat=0;

datetime       AlertTime=0;

long           AheadTradeSec= 0;

long           AheadExitSec = 0;

int            TradeBar=0;

double         MaxTradeTime=300;

//---

int            NumberOfTries=5;//Number of tries to set, close orders;

int            RetryTime=1;



double         Ilo=0;



int            DotLoc=7;

static int     TradeLast=0;



string         sound="alert.wav";



double sig_buy=0,sig_sell=0,sig_high=0,sig_low=0;



string         filename="";



double         ExtTakeProfit=0.0;

double         ExtStopLoss=0.0;

double         ExtTrailingStop=0.0;

double         ExtTrailingStep=0.0;

double         ExtBreakEven=0.0;



int    handle_iStochastic;                   // variable for storing the handle of the iStochastic indicator 

int    handle_iWPR;                          // variable for storing the handle of the iWPR indicator 

//+------------------------------------------------------------------+

//| Expert initialization function                                   |

//+------------------------------------------------------------------+

int OnInit()

  {

//---

   m_symbol.Name(Symbol());                     // sets symbol name

   m_trade.SetExpertMagicNumber(MagicNumber);   // sets magic number

   if(!RefreshRates())

     {

      Print("Error RefreshRates. Bid=",DoubleToString(m_symbol.Bid(),Digits()),

            ", Ask=",DoubleToString(m_symbol.Ask(),Digits()));

      return(INIT_FAILED);

     }



//--- tuning for 3 or 5 digits

   int digits_adjust=1;

   if(m_symbol.Digits()==3 || m_symbol.Digits()==5)

      digits_adjust=10;

   ExtTakeProfit     =InpTakeProfit*digits_adjust;

   ExtStopLoss       =InpStopLoss*digits_adjust;

   ExtTrailingStop   =InpTrailingStop*digits_adjust;

   ExtTrailingStep   =InpTrailingStop*digits_adjust;

   ExtBreakEven      =InpBreakEven*digits_adjust;



   Crepeat=Repeat;



//--- create handle of the indicator iStochastic

   handle_iStochastic=iStochastic(m_symbol.Name(),Period(),100,3,3,MODE_SMMA,STO_CLOSECLOSE);

//--- if the handle is not created 

   if(handle_iStochastic==INVALID_HANDLE)

     {

      //--- tell about the failure and output the error code 

      PrintFormat("Failed to create handle of the iStochastic indicator for the symbol %s/%s, error code %d",

                  m_symbol.Name(),

                  EnumToString(Period()),

                  GetLastError());

      //--- the indicator is stopped early 

      return(INIT_FAILED);

     }

//--- create handle of the indicator iWPR

   handle_iWPR=iWPR(m_symbol.Name(),Period(),100);

//--- if the handle is not created 

   if(handle_iWPR==INVALID_HANDLE)

     {

      //--- tell about the failure and output the error code 

      PrintFormat("Failed to create handle of the iWPR indicator for the symbol %s/%s, error code %d",

                  m_symbol.Name(),

                  EnumToString(Period()),

                  GetLastError());

      //--- the indicator is stopped early 

      return(INIT_FAILED);

     }

//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

//---



  }

//+------------------------------------------------------------------+

//| Expert tick function                                             |

//+------------------------------------------------------------------+

void OnTick()

  {

   static long count_tic=0;

   count_tic++;

   if(count_tic<30)

      return;

   count_tic=0;



   if(TradeAtCloseBar)

      TradeBar=1;

   else TradeBar=0;



   MqlDateTime str1;

   TimeToStruct(TimeCurrent(),str1);



   filename=m_symbol.Name()+TradeLog+"-"+IntegerToString(str1.mon)+"-"+IntegerToString(str1.day)+".log";

//---

   double   BuyValue=0,SellValue=0;

   BuyValue=0; SellValue=0;



   if(CountPositions(POSITION_TYPE_BUY,MagicNumber)>0)

      TradeLast=1;

   if(CountPositions(POSITION_TYPE_SELL,MagicNumber)>0)

      TradeLast=-1;



   sig_buy=iStochasticGet(SIGNAL_LINE,0);

//sig_sell=iStochasticGet(SIGNAL_LINE,0);

   sig_sell=sig_buy;



   sig_high=iWPRGet(1);

//sig_low=iWPRGet(1);

   sig_low=sig_high;



//Comment("sig_buy=",sig_buy," sig_sell=",sig_sell); 



   if(sig_buy<3 && sig_high<-99.9)

     {

      BuyValue=1;

     }



   if(sig_sell>97 && sig_low>-0.1)

     {

      SellValue=1;

     }



   int  OpenPos=0,OpenSell=0,OpenBuy=0,CloseSell=0,CloseBuy=0;

   double mode=0,Stop=0,NewBarTime=0;



//Here we found if new bar has just opened

   static datetime prevtime=0;

   int NewBar=0,FirstRun=1;



   datetime time_0=iTime(m_symbol.Name(),Period(),0);

   if(FirstRun==1)

     {

      FirstRun=0;

      prevtime=time_0;

     }

   if((prevtime==time_0) && (TimeCurrent()-prevtime)>MaxTradeTime)

     {

      NewBar=0;

     }

   else

     {

      prevtime=time_0;

      NewBar=1;

     }



   int   AllowTrade=0,AllowExit=0;

//Trade before bar current bar closed

   if(TimeCurrent()>=time_0+Period()*60-AheadTradeSec)

      AllowTrade=1;

   else

      AllowTrade=0;



   if(TimeCurrent()>=time_0+Period()*60-AheadExitSec)

      AllowExit=1;

   else

      AllowExit=0;



   if(AheadTradeSec==0)

      AllowTrade=1;

   if(AheadExitSec==0)

      AllowExit=1;



/*====================== MONEY MANAGEMENT / COMPOUNDING ===========================================

Changing the value of mm will give you several money management options

mm = -1 : Fractional lots/ balance X the risk factor.(use for Mini accts)

mm = 0 : Single Lots.

mm = 1 : Full lots/ balance X the risk factor up to 100 lot orders.(use for Regular accounts)

***************************************************************************************************

RISK FACTOR:

risk can be anything from 1 up. 

Factor of 5 adds a lot for every $20,000.00 ($2000-MINI) added to the balance. 

Factor of 10 adds a lot with every $10.000.00 ($1000-MINI) added to the balance.

The higher the risk,  the easier it is to blow your margin..

***************************************************************************************************/



   Ilo=Lots;

   if(mm<0)

     {

      Ilo=MathCeil(m_account.Equity()*Risk/298)/10-0.1;

      if(Ilo<0.1)

         Ilo=0.1;

     }

   if(mm>0)

     {

      Ilo=MathCeil(m_account.Equity()*Risk/100)/10-1;

      if(Ilo>1)

         Ilo=MathCeil(Ilo);

      if(Ilo<1)

         Ilo=1;

     }

   if(Ilo>10000)

      Ilo=10000;



   OpenPos=0;

   for(int i=PositionsTotal()-1;i>=0;i--)

      if(m_position.SelectByIndex(i))

         if(m_position.Symbol()==m_symbol.Name() && m_position.Magic()==MagicNumber)

            OpenPos++;

   if(OpenPos>=1)

     {

      OpenSell=0; OpenBuy=0;

     }



   OpenBuy=0; OpenSell=0;

   CloseBuy=0; CloseSell=0;



//Conditions to open the position

//

   if(SellValue>0)

     {

      OpenSell=1;

      OpenBuy=0;

     }



   if(BuyValue>0)

     {

      OpenBuy=1;

      OpenSell=0;

     }

//Print("OpenSell=",OpenSell," OpenBuy=",OpenBuy);



//Conditions to close the positions

   if(SellValue>0)

      CloseBuy=1;



   if(BuyValue>0)

      CloseSell=1;



   subPrintDetails();



   for(int i=PositionsTotal()-1;i>=0;i--)

     {

      if(m_position.SelectByIndex(i))

        {

         if(!RefreshRates())

            return;

         if(m_position.PositionType()==POSITION_TYPE_BUY && m_position.Symbol()==m_symbol.Name() && m_position.Magic()==MagicNumber)

           {

            if(CloseBuy==1 && AllowExit==1)

              {

               if(NewBar==1 && TradeBar>0)

                 {

                  SetText(time_0,iHigh(m_symbol.Name(),Period(),0)+1*DotLoc*Point(),"CloseBuy"+TimeToString(time_0),"Close",clrMagenta);

                  PlaySound("alert.wav");

                  m_trade.PositionClose(m_position.Ticket());

                  Alerts(0,0,CloseBuy,CloseSell,m_symbol.Bid(),0,0,m_position.Ticket());

                  return;

                 }

               if(TradeBar==0)

                 {

                  SetText(time_0,iHigh(m_symbol.Name(),Period(),0)+1*DotLoc*Point(),"CloseBuy"+TimeToString(time_0),"Close",clrMagenta);

                  PlaySound("alert.wav");

                  m_trade.PositionClose(m_position.Ticket());

                  Alerts(0,0,CloseBuy,CloseSell,m_symbol.Bid(),0,0,m_position.Ticket());

                  return;

                 }

              }

           }

         if(m_position.PositionType()==POSITION_TYPE_SELL && m_position.Symbol()==m_symbol.Name() && m_position.Magic()==MagicNumber)

           {

            if(CloseSell==1 && AllowExit==1)

              {

               if(NewBar==1 && TradeBar>0)

                 {

                  SetText(time_0,iHigh(m_symbol.Name(),Period(),0)-0.3*DotLoc*Point(),"CloseSell"+TimeToString(time_0),"Close",clrMagenta);

                  PlaySound("alert.wav");

                  m_trade.PositionClose(m_position.Ticket());

                  Alerts(0,0,CloseBuy,CloseSell,m_symbol.Ask(),0,0,m_position.Ticket());

                  return;

                 }

               if(TradeBar==0)

                 {

                  SetText(time_0,iHigh(m_symbol.Name(),Period(),0)-0.3*DotLoc*Point(),"CloseSell"+TimeToString(time_0),"Close",clrMagenta);

                  PlaySound("alert.wav");

                  m_trade.PositionClose(m_position.Ticket());

                  Alerts(0,0,CloseBuy,CloseSell,m_symbol.Ask(),0,0,m_position.Ticket());

                  return;

                 }

              }

           }

        }

     }



   double MyStopLoss=0,MyTakeProfit=0;



//Should we open a position?

   if(OpenPos==0)

     {

      if(!RefreshRates())

         return;

      if(OpenSell==1 && AllowTrade==1)

        {

         if(NewBar==1 && TradeBar>0)

           {

            SetText(time_0,iHigh(m_symbol.Name(),Period(),0)+1*DotLoc*Point(),"Sell"+TimeToString(time_0),"Sell",clrRed);

            if(ExtTakeProfit==0)

               MyTakeProfit=0;

            else

               MyTakeProfit=m_symbol.Bid()-ExtTakeProfit*Point();



            if(ExtStopLoss==0)

               MyStopLoss=0;

            else

               MyStopLoss=m_symbol.Bid()+ExtStopLoss*Point();



            PlaySound("alert.wav");

            ulong  ticket=0;

            if(m_trade.Sell(Ilo,Symbol(),m_symbol.Bid(),MyStopLoss,MyTakeProfit,OrderStr))

               ticket=m_trade.ResultDeal();

            Alerts(OpenBuy,OpenSell,0,0,m_symbol.Bid(),MyStopLoss,MyTakeProfit,ticket);

            OpenSell=0;

            return;

           }

         if(TradeBar==0)

           {

            SetText(time_0,iHigh(m_symbol.Name(),Period(),0)+1*DotLoc*Point(),"Sell"+TimeToString(time_0),"Sell",clrRed);

            if(ExtTakeProfit==0)

               MyTakeProfit=0;

            else

               MyTakeProfit=m_symbol.Bid()-ExtTakeProfit*Point();



            if(ExtStopLoss==0)

               MyStopLoss=0;

            else

               MyStopLoss=m_symbol.Bid()+ExtStopLoss*Point();



            PlaySound("alert.wav");

            ulong  ticket=0;

            if(m_trade.Sell(Ilo,Symbol(),m_symbol.Bid(),MyStopLoss,MyTakeProfit,OrderStr))

               ticket=m_trade.ResultDeal();

            Alerts(OpenBuy,OpenSell,0,0,m_symbol.Bid(),MyStopLoss,MyTakeProfit,ticket);

            OpenSell=0;

            return;

           }

        }

      if(OpenBuy==1 && AllowTrade==1)

        {

         if(NewBar==1 && TradeBar>0)

           {

            SetText(time_0,iLow(m_symbol.Name(),Period(),0)-0.3*DotLoc*Point(),"Buy"+TimeToString(time_0),"Buy",clrLime);

            if(ExtTakeProfit==0)

               MyTakeProfit=0;

            else

               MyTakeProfit=m_symbol.Ask()+ExtTakeProfit*Point();



            if(ExtStopLoss==0)

               MyStopLoss=0;

            else

               MyStopLoss=m_symbol.Ask()-ExtStopLoss*Point();



            PlaySound("alert.wav");

            ulong  ticket=0;

            if(m_trade.Buy(Ilo,Symbol(),m_symbol.Ask(),MyStopLoss,MyTakeProfit,OrderStr))

               ticket=m_trade.ResultDeal();

            Alerts(OpenBuy,OpenSell,0,0,m_symbol.Ask(),MyStopLoss,MyTakeProfit,ticket);

            OpenBuy=0;

            return;

           }

         if(TradeBar==0)

           {

            SetText(time_0,iLow(m_symbol.Name(),Period(),0)-0.3*DotLoc*Point(),"Buy"+TimeToString(time_0),"Buy",clrLime);

            if(ExtTakeProfit==0)

               MyTakeProfit=0;

            else

               MyTakeProfit=m_symbol.Ask()+ExtTakeProfit*Point();



            if(ExtStopLoss==0)

               MyStopLoss=0;

            else

               MyStopLoss=m_symbol.Ask()-ExtStopLoss*Point();



            PlaySound("alert.wav");

            ulong  ticket=0;

            if(m_trade.Buy(Ilo,m_symbol.Name(),m_symbol.Ask(),MyStopLoss,MyTakeProfit,OrderStr))

               ticket=m_trade.ResultDeal();

            Alerts(OpenBuy,OpenSell,0,0,m_symbol.Ask(),MyStopLoss,MyTakeProfit,ticket);

            OpenBuy=0;

            return;

           }

        }

     }



   for(int i=PositionsTotal()-1;i>=0;i--)

      if(m_position.SelectByIndex(i))

         if(m_position.Symbol()==m_symbol.Name() && m_position.Magic()==MagicNumber)

            TrailingPositions();



   Alerts(0,0,0,0,0,0,0,0);

//--- the end

   return;

  }

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

void SetText(datetime X1,double Y1,string TEXT_NAME,string TEXT_VALUE,int TEXT_COLOR)

  {

   if(ObjectFind(0,TEXT_NAME)!=0)

     {

      ObjectCreate(0,TEXT_NAME,OBJ_TEXT,0,X1,Y1);

      ObjectSetInteger(0,TEXT_NAME,OBJPROP_COLOR,TEXT_COLOR);

      ObjectSetString(0,TEXT_NAME,OBJPROP_TEXT,TEXT_VALUE);

      ObjectSetInteger(0,TEXT_NAME,OBJPROP_FONTSIZE,10);

     }

   else

     {

      ObjectMove(0,TEXT_NAME,0,X1,Y1);

     }

  }

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

void Alerts(int _buy,int _sell,int _exitbuy,int _exitsell,double _op,double _sl,double _tp,ulong _ticket)

  {

   string AlertStr="";

   AlertStr="";

   string CurDate="";

   CurDate=TimeToString(TimeCurrent(),TIME_DATE|TIME_MINUTES);



//Alert system

   if(UseAlert)

     {

      if(_buy==1)

        {

         if(Crepeat==Repeat)

           {

            AlertTime=0;

           }

         if(Crepeat>0 && (TimeCurrent()-AlertTime)>Periods)

           {

            if(_buy==1)

              {

               AlertStr=AlertStr+"Buy @ "+DoubleToString(_op,Digits())+

                        "; SL: "+DoubleToString(_sl,Digits())+

                        "; TP: "+DoubleToString(_tp,Digits())+

                        " at "+CurDate+

                        " Ticket:"+IntegerToString(_ticket)+".";

               Alert(m_symbol.Name()," ",Period(),": ",AlertStr);

               if(SendEmail)

                 {

                  SendMail(m_symbol.Name()+" "+EnumToString(Period())+": ",m_symbol.Name()+" "+EnumToString(Period())+": "+AlertStr);

                 }

               Crepeat=Crepeat-1;

               AlertTime=TimeCurrent();

              }

           }

        }



      if(_sell==1)

        {

         if(Crepeat==Repeat)

           {

            AlertTime=0;

           }

         if(Crepeat>0 && (TimeCurrent()-AlertTime)>Periods)

           {

            if(_sell==1)

              {

               AlertStr=AlertStr+"Sell @ "+DoubleToString(_op,Digits())+

                        "; SL: "+DoubleToString(_sl,Digits())+

                        "; TP: "+DoubleToString(_tp,Digits())+

                        " at "+CurDate+

                        " Ticket:"+IntegerToString(_ticket)+".";

               Alert(m_symbol.Name()," ",Period(),": ",AlertStr);

               if(SendEmail)

                 {

                  SendMail(m_symbol.Name()+" "+EnumToString(Period())+": ",m_symbol.Name()+" "+EnumToString(Period())+": "+AlertStr);

                 }

               Crepeat=Crepeat-1;

               AlertTime=TimeCurrent();

              }

           }

        }



      if(_exitsell==1)

        {

         if(Crepeat==Repeat)

           {

            AlertTime=0;

           }

         if(Crepeat>0 && (TimeCurrent()-AlertTime)>Periods)

           {

            if(_exitsell==1)

              {

               AlertStr=AlertStr+" Close Sell @ "+DoubleToString(_op,Digits())+

                        " at "+CurDate+" Order:"+IntegerToString(_ticket)+".";

               Alert(m_symbol.Name()," ",Period(),": ",AlertStr);

               if(SendEmail)

                 {

                  SendMail(m_symbol.Name()+" "+EnumToString(Period())+": ",m_symbol.Name()+" "+EnumToString(Period())+": "+AlertStr);

                 }

               Crepeat=Crepeat-1;

               AlertTime=TimeCurrent();

              }

           }

        }



      if(_exitbuy==1)

        {

         if(Crepeat==Repeat)

           {

            AlertTime=0;

           }

         if(Crepeat>0 && (TimeCurrent()-AlertTime)>Periods)

           {

            if(_exitbuy==1)

              {

               AlertStr=AlertStr+" Close Buy @ "+DoubleToString(_op,Digits())+

                        " at "+CurDate+" Order:"+IntegerToString(_ticket)+".";

               Alert(m_symbol.Name()," ",Period(),": ",AlertStr);

               if(SendEmail)

                 {

                  SendMail(m_symbol.Name()+" "+EnumToString(Period())+": ",m_symbol.Name()+" "+EnumToString(Period())+": "+AlertStr);

                 }

               Crepeat=Crepeat-1;

               AlertTime=TimeCurrent();

              }

           }

        }



      if(_exitbuy==0 && _exitsell==0 && _buy==0 && _sell==0)

        {

         Crepeat=Repeat;

         AlertTime=0;

        }

     }

//---

   return;

  }

//+------------------------------------------------------------------+

//| PRINT COMMENT FUNCTION                                           |

//+------------------------------------------------------------------+

void subPrintDetails()

  {

//return;

   string sComment   = "";

   string sp         = "----------------------------------------\n";

   string NL         = "\n";

   sComment = "The MasterMind By L.Bigger AKA Silence" + NL;

   sComment = sComment + "ExtStopLoss=" + DoubleToString(ExtStopLoss,0) + " | ";

   sComment = sComment + "ExtTakeProfit=" + DoubleToString(ExtTakeProfit,0) + " | ";

   sComment = sComment + "ExtTrailingStop=" + DoubleToString(ExtTrailingStop,0) + NL;

   sComment = sComment + sp;

   sComment = sComment + "Lots=" + DoubleToString(Ilo,2) + " | ";

   sComment = sComment + "LastTrade=" + DoubleToString(TradeLast,0) + NL;

   sComment = sComment + "sig_buy=" + DoubleToString(sig_buy,Digits()) + NL;

   sComment = sComment + "sig_sell=" + DoubleToString(sig_sell,Digits()) + NL;

   sComment = sComment + sp;

   Comment(sComment);

  }

//+------------------------------------------------------------------+

//|                                                                  |

//+------------------------------------------------------------------+

int CountPositions(ENUM_POSITION_TYPE type,ulong magic)

  {

//return number of orders with specific parameters

   int _CntPos=0;

   for(int i=PositionsTotal()-1;i>=0;i--)

      if(m_position.SelectByIndex(i))

         if(m_position.Symbol()==m_symbol.Name() && m_position.Magic()==magic)

            _CntPos++;

   return(_CntPos);

  }

//+------------------------------------------------------------------+

//|                                                                  | 

//+------------------------------------------------------------------+

void TrailingPositions()

  {

   if(!RefreshRates())

      return;



   double pBid,pAsk,pp;

   pp=m_symbol.Point();



   if(m_position.PositionType()==POSITION_TYPE_BUY)

     {

      pBid=m_symbol.Bid();



      //ExtBreakEven routine

      if(ExtBreakEven>0)

        {

         if((pBid-m_position.PriceOpen())>ExtBreakEven*pp)

           {

            if((m_position.StopLoss()-m_position.PriceOpen())<0)

              {

               ModifyStopLoss(m_position.PriceOpen()+0*pp);

              }

           }

        }



      if(ExtTrailingStop>0)

        {

         if((pBid-m_position.PriceOpen())>ExtTrailingStop*pp)

           {

            if(m_position.StopLoss()<pBid-(ExtTrailingStop+ExtTrailingStep-1)*pp)

              {

               ModifyStopLoss(pBid-ExtTrailingStop*pp);

               return;

              }

           }

        }



     }

   if(m_position.PositionType()==POSITION_TYPE_SELL)

     {

      pAsk=m_symbol.Ask();



      if(ExtBreakEven>0)

        {

         if((m_position.PriceOpen()-pAsk)>ExtBreakEven*pp)

           {

            if((m_position.PriceOpen()-m_position.StopLoss())<0)

              {

               ModifyStopLoss(m_position.PriceOpen()-0*pp);

              }

           }

        }



      if(ExtTrailingStop>0)

        {

         if(m_position.PriceOpen()-pAsk>ExtTrailingStop*pp)

           {

            if(m_position.StopLoss()>pAsk+(ExtTrailingStop+ExtTrailingStep-1)*pp || m_position.StopLoss()==0)

              {

               ModifyStopLoss(pAsk+ExtTrailingStop*pp);

               return;

              }

           }

        }



     }

  }

//+------------------------------------------------------------------+

//| Modify ExtStopLoss                                               |

//| Parameters:                                                      |

//|   ldStopLoss - ExtStopLoss Leve                                  |

//+------------------------------------------------------------------+

void ModifyStopLoss(double ldStopLoss)

  {

   bool fm;

   PlaySound("alert.wav");

   fm=m_trade.PositionModify(m_position.Ticket(),ldStopLoss,m_position.TakeProfit());

  }

//+------------------------------------------------------------------+

//| Refreshes the symbol quotes data                                 |

//+------------------------------------------------------------------+

bool RefreshRates()

  {

//--- refresh rates

   if(!m_symbol.RefreshRates())

      return(false);

//--- protection against the return value of "zero"

   if(m_symbol.Ask()==0 || m_symbol.Bid()==0)

      return(false);

//---

   return(true);

  }

//+------------------------------------------------------------------+

//| Get value of buffers for the iStochastic                         |

//|  the buffer numbers are the following:                           |

//|   0 - MAIN_LINE, 1 - SIGNAL_LINE                                 |

//+------------------------------------------------------------------+

double iStochasticGet(const int buffer,const int index)

  {

   double Stochastic[];

   ArraySetAsSeries(Stochastic,true);

//--- reset error code 

   ResetLastError();

//--- fill a part of the iStochasticBuffer array with values from the indicator buffer that has 0 index 

   if(CopyBuffer(handle_iStochastic,buffer,0,index+1,Stochastic)<0)

     {

      //--- if the copying fails, tell the error code 

      PrintFormat("Failed to copy data from the iStochastic indicator, error code %d",GetLastError());

      //--- quit with zero result - it means that the indicator is considered as not calculated 

      return(0.0);

     }

   return(Stochastic[index]);

  }

//+------------------------------------------------------------------+

//| Get value of buffers for the iWPR                                |

//+------------------------------------------------------------------+

double iWPRGet(const int index)

  {

   double WPR[];

   ArraySetAsSeries(WPR,true);

//--- reset error code 

   ResetLastError();

//--- fill a part of the iWPRBuffer array with values from the indicator buffer that has 0 index 

   if(CopyBuffer(handle_iWPR,0,0,index+1,WPR)<0)

     {

      //--- if the copying fails, tell the error code 

      PrintFormat("Failed to copy data from the iWPR indicator, error code %d",GetLastError());

      //--- quit with zero result - it means that the indicator is considered as not calculated 

      return(0.0);

     }

   return(WPR[index]);

  }

//+------------------------------------------------------------------+

Similar scripts

NRTR_GATOR_v1

Expert_RSI_Stochastic_MA

RobotPowerM5 meta4V12

Average_True_Range_4digitalr

Freeman 2

TREND_alexcud v_2

Stochastic Intersection Arrow

stochastic_three_periods

Stochastic Filling

Stochastic Intersection Arrow 2 Strict

Stochastic Levels Histogram

Comments