cm ea manual grid

ÿþ//+------------------------------------------------------------------+

//|                               Copyright © 2016, %;KAB>2 ;048<8@ |

//|                                                cmillion@narod.ru |

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

#property copyright "Copyright © 2019, http://cmillion.ru"

#property link      "cmillion@narod.ru"

#property strict

#property description "!>25B=8: 2KAB02;O5B A5B8 8 ?><>305B A>18@0BL ?@>D8B A ;N1>3> 42865=8O"



/*!>25B=8: A5B52>9 ?><>I=8:



=>?:8 A>25B=8:0

"Buy Stop" - >B:@K20BL A5BL >B;>65==KE AB>? >@45@>2 =0 ?@>406C

"Sell Stop" - >B:@K20BL A5BL >B;>65==KE AB>? >@45@>2 =0 ?>:C?:C

"Buy Limit"- >B:@K20BL A5BL >B;>65==KE ;8<8B >@45@>2 =0 ?@>406C

"Sell Limit" - >B:@K20BL A5BL >B;>65==KE ;8<8B >@45@>2 =0 ?>:C?:C

"Close Buy" - :=>?:0 70:@KB8O 2A59 A5B8 8 2A5E >B:@KBKE ?>78F89 =0 ?>:C?:C

"Close Sell" - :=>?:0 70:@KB8O 2A59 A5B8 8 2A5E >B:@KBKE ?>78F89 =0 ?@>406C

"Close" - :=>?:0 70:@KB8O 2A59 A5B8 8 2A5E >B:@KBKE ?>78F89

"Tral Profit" - :=>?:0 ?@8 =060B88 :>B>@>9 A>25B=8: 1C45B B@0;8BL ?@>D8B 2A5E ?>78F89 =0G8=0O >B TralStart 



 =0AB@>9:0E A>25B=8:0

MaxBuy            -<0:A8<0;L=>5 :>;-2> Buy

MaxSell           -<0:A8<0;L=>5 :>;-2> Sell

OrdersBuyStop     - :>;-2> >@45@>2 A5B8 BuyStop

OrdersSellStop    - :>;-2> >@45@>2 A5B8 SellStop

OrdersBuyLimit    - :>;-2> >@45@>2 A5B8 BuyLimit

OrdersSellLimit   - :>;-2> >@45@>2 A5B8 SellLimit

StepBuyStop       - H03 >@45@>2 A5B8 BuyStop

StepSellStop      - H03 >@45@>2 A5B8 SellStop

StepBuyLimit      - H03 >@45@>2 A5B8 BuyLimit

StepSellLimit     - H03 >@45@>2 A5B8 SellLimit

Lot               - ;>B ?5@2>3> >@45@0 >B F5=K, 40;55 ?> D>@<C;5

LotPlus           - 4>102:0 : =0G0;L=><C ;>BC

K_Lot             - >MDD8F85=B C25;8G5=8O

CloseProfitB      - 70:@K205< buy ?@8 4>AB865=88 ?@>D8B0

CloseProfitS      - 70:@K205< sell ?@8 4>AB865=88 ?@>D8B0

ProfitClose       - 70:@K205< 2A5 ?@8 4>AB865=88 ?@>D8B0

TralStart         - AB0@B B@0;0 ?@8 4>AB865=88 ?@>D8B0

TralClose         - 70:@K20BL 2A5 ?>A;5 >B:0B0 =0

slippage          - ?@>A:0;L7K20=85

Magic             - <038: >@45@>2, 5A;8 -1 B> ?>4E20B8B 2A5

X                 - A<5I5=85 ?0=5;8 ?> 3>@87>=B0;8

Y                 - A<5I5=85 ?0=5;8 ?> 25@B8:0;8

TradeOFF          - >B:;NG5=85 B>@3>2;8 ?>A;5 27OB8O ?@81K;8



0?@8<5@ 

Lot = 0.1

LotPlus = 0.1



?5@2K9 ;>B 0.1    

2B>@>9     0.1+0.1=0.2 

B@5B89     0.2+0.1=0.3 

G5B2Q@BK9  0.3+0.1=0.4  

---------------------

FirstLevel -  0AB>O=85 >B F5=K 4> ?5@2>3> >@45@0 ( 5A;8 0 B> >B:@K205BAO A C@>2=5< AB>?;525; )

========================================

$8:A0F8O ?@81K;8 2-20 A?>A>10:

ProfitClose - ?@81K;L 2 20;NB5 45?>78B0 ( =0?@8<5@ AB028< 100$?@8 4>AB865=88 >1I59 ?@81K;8 A5B:8 100$ , >=0 70:@>5BAO)

TralStart  - ?@>D8B 4;O AB0@B0 B@0;0 2 20;NB5 45?>78B0 =0?@8<5@ 50$

TralClose  -  70:@K205BAO ?@8 A=865=88 ?@81K;8 =0?@8<5@ B5 65 20$

@81K;L 4>AB83;0 50, 2:;NG8;AO B@0;, ?@81K;L ?@>4>;68;0 @0AB8 4> 60, ?>B>< >B:0B8;0AL =0 20 8 2A5 70:@K;>AAL ?@8 40$ ?@>D8B0

>B;>6:8 C40;ONBAO, 2KA:0:8205B 0;5@B A 2>?@>A>< ?@>4>;68BL @01>BC? @8 >B25B5   - 2KAB02;O5BAO A=>20. 

=========================================

A>15==>AB8 70:@KB8O >@45@>2

!=0G0;0 A>25B=8: ?KB05BAO 70:@KBL 2A5 >@45@0 2AB@5G=>, ?>B>< 70:@K205< @K=>G=K5, =0G8=0O A A0<KE 1>;LH8E >1J5<>2 0 ?>B>< >B;>6:8..

//--------------------------------------------------------------------*/

extern int     MaxBuy            = 50;    //<0:A8<0;L=>5 :>;-2>  Buy

extern int     MaxSell           = 50;    //<0:A8<0;L=>5 :>;-2> Sell



extern int     OrdersBuyStop     = 5;     //:>;-2> >@45@>2 A5B8 BuyStop

extern int     OrdersSellStop    = 5;     //:>;-2> >@45@>2 A5B8 SellStop

extern int     OrdersBuyLimit    = 5;     //:>;-2> >@45@>2 A5B8 BuyLimit

extern int     OrdersSellLimit   = 5;     //:>;-2> >@45@>2 A5B8 SellLimit

extern string _="";

extern int     FirstLevelStop    = 50;    // 0AB>O=85 >B F5=K 4> ?5@2>3> Stop >@45@0 ( 5A;8 0 B> >B:@K205BAO A C@>2=5< AB>?;525; )

extern int     StepBuyStop       = 100;   //H03 >@45@>2 A5B8 BuyStop

extern int     StepSellStop      = 100;   //H03 >@45@>2 A5B8 SellStop

extern int     FirstLevelLimit   = 110;   // 0AB>O=85 >B F5=K 4> ?5@2>3> Limit >@45@0 ( 5A;8 0 B> >B:@K205BAO A C@>2=5< AB>?;525; )

extern int     StepBuyLimit      = 100;   //H03 >@45@>2 A5B8 BuyLimit

extern int     StepSellLimit     = 100;   //H03 >@45@>2 A5B8 SellLimit



extern string __="";



extern double  Lot               = 0.10;  //;>B ?5@2>3> >@45@0 >B F5=K, 40;55 ?> D>@<C;5

extern double  LotPlus           = 0.00;  //4>102:0 : =0G0;L=><C ;>BC

extern double  K_Lot             = 1.00;  //>MDD8F85=B C25;8G5=8O



extern string ___="";



extern double  CloseProfitB      = 10;    //70:@K205< buy ?@8 4>AB865=88 ?@>D8B0

extern double  CloseProfitS      = 10;    //70:@K205< sell ?@8 4>AB865=88 ?@>D8B0

extern double  ProfitClose       = 10;    //70:@K205< 2A5 ?@8 4>AB865=88 ?@>D8B0

extern double  TralStart         = 10;    //AB0@B B@0;0 ?@8 4>AB865=88 ?@>D8B0

extern double  TralClose         = 5;     //70:@K20BL 2A5 ?>A;5 >B:0B0 =0



extern int     slippage          = 5;     // ?@>A:0;L7K20=85

extern int     Magic             = -1;    //<038: >@45@>2, 5A;8 -1 B> ?>4E20B8B 2A5

extern int     X                 = 0;     //A<5I5=85 ?0=5;8 ?> 3>@87>=B0;8

extern int     Y                 = 25;    //A<5I5=85 ?0=5;8 ?> 25@B8:0;8

extern bool    TradeOFF          = true;  //>B:;NG5=85 B>@3>2;8 ?>A;5 27OB8O ?@81K;8

extern bool    CloseByON         = true;  //8A?>;L7>20BL 2AB@5G=>5 70:@KB85

//--------------------------------------------------------------------

double STOPLEVEL;

double StopProfit=0;

string val,GV_kn_BS,GV_kn_SS,GV_kn_BL,GV_kn_SL,GV_kn_TrP,GV_kn_CBA,GV_kn_CSA,GV_kn_CA;

bool D,LANGUAGE;

//-------------------------------------------------------------------- 

int OnInit()

  {

   int AN=AccountNumber();

   string FIO=AccountName();

   EditCreate(0,"cm ©11",0,1,0,120,20,"mail: ea@cmillion.ru","Arial",8,ALIGN_CENTER,false,CORNER_LEFT_LOWER);



   EventSetTimer(1);

   LANGUAGE=TerminalInfoString(TERMINAL_LANGUAGE)=="Russian";

   if(IsTesting()) ObjectsDeleteAll(0);

   val=AccountCurrency();

   string GVn=StringConcatenate("cm mg ",AN," ",Symbol());

   if(IsTesting()) GVn=StringConcatenate("Test ",GVn);

   GV_kn_BS=StringConcatenate(GVn," BS");

   GV_kn_SS=StringConcatenate(GVn," SS");

   GV_kn_BL=StringConcatenate(GVn," BL");

   GV_kn_SL=StringConcatenate(GVn," SL");

   GV_kn_TrP=StringConcatenate(GVn," TrP");

   GV_kn_CBA=StringConcatenate(GVn," CBA");

   GV_kn_CSA=StringConcatenate(GVn," CSA");

   GV_kn_CA=StringConcatenate(GVn," CA");



   RectLabelCreate(0,"cm F",0,229,2,220,304,clrIvory);

   DrawLABEL("cm HB",Text(LANGUAGE,"HB","pcs"),95,10,clrBlack,ANCHOR_CENTER);

   DrawLABEL("cm H03",Text(LANGUAGE,"H03","step"),40,10,clrBlack,ANCHOR_CENTER);

   int y=40;

   DrawLABEL("cm fs",Text(LANGUAGE,"@0AAB>O=85 4> ?5@2>3> Stop","distance to the first Stop"),220,26,clrBlack,ANCHOR_LEFT);

   ButtonCreate(0,"cm Buy Stop",0,225,y,100,20,"Buy Stop","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_BS));y+=22;

   ButtonCreate(0,"cm Sell Stop",0,225,y,100,20,"Sell Stop","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_SS));y+=22;

   DrawLABEL("cm fl",Text(LANGUAGE,"@0AAB>O=85 4> ?5@2>3> Limit","distance to the first Limit"),220,y+10,clrBlack,ANCHOR_LEFT);y+=22;

   ButtonCreate(0,"cm Buy Limit",0,225,y,100,20,"Buy Limit","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_BL));y+=22;

   ButtonCreate(0,"cm Sell Limit",0,225,y,100,20,"Sell Limit","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_SL));



   y=40;

   EditCreate(0,"cm OrdersBuyStop",0,120,y,50,20,IntegerToString(OrdersBuyStop),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm OrdersSellStop" ,0,120,y,50,20,IntegerToString(OrdersSellStop),"Arial",8,ALIGN_CENTER,false);y+=44;

   EditCreate(0,"cm OrdersBuyLimit" ,0,120,y,50,20,IntegerToString(OrdersBuyLimit),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm OrdersSellLimit",0,120,y,50,20,IntegerToString(OrdersSellLimit),"Arial",8,ALIGN_CENTER,false);



   y=18;

   EditCreate(0,"cm FirstLevelStop",0,65,y,50,20,IntegerToString(FirstLevelStop),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm StepBuyStop",0,65,y,50,20,IntegerToString(StepBuyStop),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm StepSellStop",0,65,y,50,20,IntegerToString(StepSellStop),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm FirstLevelLimit",0,65,y,50,20,IntegerToString(FirstLevelLimit),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm StepBuyLimit",0,65,y,50,20,IntegerToString(StepBuyLimit),"Arial",8,ALIGN_CENTER,false);y+=22;

   EditCreate(0,"cm StepSellLimit",0,65,y,50,20,IntegerToString(StepSellLimit),"Arial",8,ALIGN_CENTER,false);y+=22;



   DrawLABEL("cm lot",Text(LANGUAGE,">B","Lot"),220,y+10,clrBlack,ANCHOR_LEFT);

   EditCreate(0,"cm Lot",0,175,y,50,20,DoubleToString(Lot,2),"Arial",8,ALIGN_CENTER,false);

   EditCreate(0,"cm LotPlus",0,120,y,50,20,DoubleToString(LotPlus,2),"Arial",8,ALIGN_CENTER,false);

   EditCreate(0,"cm K_Lot",0,65,y,50,20,DoubleToString(K_Lot,2),"Arial",8,ALIGN_CENTER,false);

   DrawLABEL("cm +","+",125,y+10,clrBlack,ANCHOR_LEFT);

   DrawLABEL("cm x","x",70,y+10,clrBlack,ANCHOR_LEFT);y+=22;



   DrawLABEL("cm prof",Text(LANGUAGE,"7OB85 ?@81K;8","Profit taking"),220,y+10,clrBlack,ANCHOR_LEFT);

   DrawLABEL("cm val",val,95,y+10,clrBlack,ANCHOR_CENTER);y+=22;



   ButtonCreate(0,"cm Close Buy",0,225,y,100,20,"Close Buy");

   EditCreate(0,"cm CloseProfitB",0,120,y,50,20,DoubleToString(CloseProfitB,2),"Arial",8,ALIGN_CENTER,false);

   ButtonCreate(0,"cm Close Buy A",0,65,y,50,20,"auto","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_CBA));y+=22;



   ButtonCreate(0,"cm Close Sell",0,225,y,100,20,"Close Sell");

   EditCreate(0,"cm CloseProfitS",0,120,y,50,20,DoubleToString(CloseProfitS,2),"Arial",8,ALIGN_CENTER,false);

   ButtonCreate(0,"cm Close Sell A",0,65,y,50,20,"auto","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_CSA));y+=22;



   ButtonCreate(0,"cm Close",0,225,y,100,20,"Close");

   EditCreate(0,"cm ProfitClose",0,120,y,50,20,DoubleToString(ProfitClose,2),"Arial",8,ALIGN_CENTER,false);

   ButtonCreate(0,"cm Close A",0,65,y,50,20,"auto","Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_CA));y+=22;



   ButtonCreate(0,"cm Tral Profit",0,225,y,100,20,Text(LANGUAGE,""@0; ?@>D8B0","Tral profit"),"Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,GlobalVariableCheck(GV_kn_TrP));

   EditCreate(0,"cm TralStart",0,120,y,50,20,DoubleToString(TralStart,2),"Arial",8,ALIGN_CENTER,false);

   EditCreate(0,"cm TralClose",0,65,y,50,20,DoubleToString(TralClose,2),"Arial",8,ALIGN_CENTER,false);y+=22;



   ButtonCreate(0,"cm off",0,225,y,210,20,Text(LANGUAGE,"B:;NG5=85 ?>A;5 27OB8O ?@>D8B0","Shutdown after taking profit"),"Arial",8,clrBlack,clrLightGray,clrLightGray,clrNONE,TradeOFF);



   ButtonCreate(0,"cm Clear",0,75-X,25-Y,70,20,Text(LANGUAGE,"G8AB:0","Clear"),"Times New Roman",8,clrBlack,clrGray,clrLightGray,clrNONE,false,CORNER_RIGHT_LOWER);

   return(INIT_SUCCEEDED);

  }

//-------------------------------------------------------------------

void OnTick() {OnTimer();}

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

//|                                                                  |

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

void OnTimer()

  {

   if(!IsTradeAllowed()) return;

   STOPLEVEL=MarketInfo(Symbol(),MODE_STOPLEVEL);



   OrdersBuyStop=(int)StringToInteger(ObjectGetString(0,"cm OrdersBuyStop",OBJPROP_TEXT));

   OrdersSellStop=(int)StringToInteger(ObjectGetString(0,"cm OrdersSellStop",OBJPROP_TEXT));

   OrdersBuyLimit=(int)StringToInteger(ObjectGetString(0,"cm OrdersBuyLimit",OBJPROP_TEXT));

   OrdersSellLimit=(int)StringToInteger(ObjectGetString(0,"cm OrdersSellLimit",OBJPROP_TEXT));



   FirstLevelStop=(int)StringToInteger(ObjectGetString(0,"cm FirstLevelStop",OBJPROP_TEXT));

   FirstLevelLimit=(int)StringToInteger(ObjectGetString(0,"cm FirstLevelLimit",OBJPROP_TEXT));

   StepBuyStop=(int)StringToInteger(ObjectGetString(0,"cm StepBuyStop",OBJPROP_TEXT));

   StepSellStop=(int)StringToInteger(ObjectGetString(0,"cm StepSellStop",OBJPROP_TEXT));

   StepBuyLimit=(int)StringToInteger(ObjectGetString(0,"cm StepBuyLimit",OBJPROP_TEXT));

   StepSellLimit=(int)StringToInteger(ObjectGetString(0,"cm StepSellLimit",OBJPROP_TEXT));



   CloseProfitB=StringToDouble(ObjectGetString(0,"cm CloseProfitB",OBJPROP_TEXT));

   CloseProfitS=StringToDouble(ObjectGetString(0,"cm CloseProfitS",OBJPROP_TEXT));

   ProfitClose=StringToDouble(ObjectGetString(0,"cm ProfitClose",OBJPROP_TEXT));

   TralStart=StringToDouble(ObjectGetString(0,"cm TralStart",OBJPROP_TEXT));

   TralClose=StringToDouble(ObjectGetString(0,"cm TralClose",OBJPROP_TEXT));



   Lot=StringToDouble(ObjectGetString(0,"cm Lot",OBJPROP_TEXT));

   LotPlus=StringToDouble(ObjectGetString(0,"cm LotPlus",OBJPROP_TEXT));

   K_Lot=StringToDouble(ObjectGetString(0,"cm K_Lot",OBJPROP_TEXT));

   TradeOFF=ObjectGetInteger(0,"cm off",OBJPROP_STATE);

//---

   double OL,OOP,Profit=0,ProfitB=0,ProfitS=0;

   double OOPBS=0,OOPSS=0,OOPBL=0,OOPSL=0,OLBS=0,OLSS=0,OLBL=0,OLSL=0;

   int OTBS=0,OTSS=0,OTBL=0,OTSL=0;

   int Ticket,i,b=0,s=0,bs=0,ss=0,bl=0,sl=0,tip;

   for(i=0; i<OrdersTotal(); i++)

     {

      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))

        {

         if(OrderSymbol()==Symbol() && (Magic==-1 || Magic==OrderMagicNumber()))

           {

            tip = OrderType();

            OOP = NormalizeDouble(OrderOpenPrice(),Digits);

            Profit=OrderProfit()+OrderSwap()+OrderCommission();

            Ticket=OrderTicket();

            OL=OrderLots();

            if(tip==OP_BUY)

              {

               ProfitB+=Profit;

               b++;

              }

            if(tip==OP_SELL)

              {

               ProfitS+=Profit;

               s++;

              }

            if(tip==OP_BUYSTOP)

              {

               if(OOPBS<OOP) {OOPBS=OOP;OTBS=Ticket;OLBS=OL;}

               bs++;

              }

            if(tip==OP_SELLSTOP)

              {

               if(OOPSS>OOP || OOPSS==0) {OOPSS=OOP;OTSS=Ticket;OLSS=OL;}

               ss++;

              }

            if(tip==OP_BUYLIMIT)

              {

               if(OOPBL>OOP || OOPBL==0) {OOPBL=OOP;OTBL=Ticket;OLBL=OL;}

               bl++;

              }

            if(tip==OP_SELLLIMIT)

              {

               if(OOPSL<OOP) {OOPSL=OOP;OTSL=Ticket;OLSL=OL;}

               sl++;

              }

           }

        }

     }

   Profit=ProfitB+ProfitS;

   ObjectSetString(0,"cm Close Buy",OBJPROP_TEXT,StringConcatenate("CloseBuy ",DoubleToStr(ProfitB,2)));

   ObjectSetString(0,"cm Close Sell",OBJPROP_TEXT,StringConcatenate("CloseSell ",DoubleToStr(ProfitS,2)));

   ObjectSetString(0,"cm Close",OBJPROP_TEXT,StringConcatenate("Close ",DoubleToStr(Profit,2)));

   ObjectSetInteger(0,"cm Close Buy",OBJPROP_COLOR,Color(ProfitB));

   ObjectSetInteger(0,"cm Close Sell",OBJPROP_COLOR,Color(ProfitS));

   ObjectSetInteger(0,"cm Close",OBJPROP_COLOR,Color(Profit));



   ObjectSetString(0,"cm Buy Stop",OBJPROP_TEXT,StringConcatenate("BuyStop ",bs));

   ObjectSetString(0,"cm Sell Stop",OBJPROP_TEXT,StringConcatenate("SellStop ",ss));

   ObjectSetString(0,"cm Buy Limit",OBJPROP_TEXT,StringConcatenate("BuyLimit ",bl));

   ObjectSetString(0,"cm Sell Limit",OBJPROP_TEXT,StringConcatenate("SellLimit ",sl));

//---

   if(ObjectGetInteger(0,"cm Clear",OBJPROP_STATE))

     {

      ObjectsDeleteAll(0,OBJ_TEXT);

      ObjectsDeleteAll(0,"#");

      ObjectsDeleteAll(0,OBJ_ARROW);

      ObjectsDeleteAll(0,OBJ_TREND);

      ObjectSetInteger(0,"cm Clear",OBJPROP_STATE,false);

     }

//-----------------------------------

//----- 70:@KB85 ?> ?@>D8BC  --------

//-----------------------------------

//--- buy

   if(ObjectGetInteger(0,"cm Close Buy A",OBJPROP_STATE))

     {

      GlobalVariableSet(GV_kn_CBA,1);

      ObjectSetInteger(0,"cm CloseProfitB",OBJPROP_COLOR,clrRed);

      if(b!=0 && ProfitB>=CloseProfitB) ObjectSetInteger(0,"cm Close Buy",OBJPROP_STATE,true);

     }

   else {ObjectSetInteger(0,"cm CloseProfitB",OBJPROP_COLOR,clrLightGray);GlobalVariableDel(GV_kn_CBA);}

   if(ObjectGetInteger(0,"cm Close Buy",OBJPROP_STATE))

     {

      if(b!=0) if(!CloseAll(OP_BUY)) Print("Error Order Close ",GetLastError());

      else

        {

         if(TradeOFF) ObjectSetInteger(0,"cm Buy Stop",OBJPROP_STATE,false);

         if(TradeOFF) ObjectSetInteger(0,"cm Buy Limit",OBJPROP_STATE,false);

         ObjectSetInteger(0,"cm Close Buy",OBJPROP_STATE,false);

        }

     }

//--- sell 

   if(ObjectGetInteger(0,"cm Close Sell A",OBJPROP_STATE))

     {

      GlobalVariableSet(GV_kn_CSA,1);

      ObjectSetInteger(0,"cm CloseProfitS",OBJPROP_COLOR,clrRed);

      if(s!=0 && ProfitS>=CloseProfitS) ObjectSetInteger(0,"cm Close Sell",OBJPROP_STATE,true);

     }

   else {ObjectSetInteger(0,"cm CloseProfitS",OBJPROP_COLOR,clrLightGray);GlobalVariableDel(GV_kn_CSA);}

   if(ObjectGetInteger(0,"cm Close Sell",OBJPROP_STATE))

     {

      if(s!=0) if(!CloseAll(OP_SELL)) Print("Error Order Close ",GetLastError());

      else

        {

         if(TradeOFF) ObjectSetInteger(0,"cm Sell Stop",OBJPROP_STATE,false);

         if(TradeOFF) ObjectSetInteger(0,"cm Sell Limit",OBJPROP_STATE,false);

         ObjectSetInteger(0,"cm Close Sell",OBJPROP_STATE,false);

        }

     }

//--- 2A5 

   if(ObjectGetInteger(0,"cm Close A",OBJPROP_STATE))

     {

      GlobalVariableSet(GV_kn_CA,1);

      ObjectSetInteger(0,"cm ProfitClose",OBJPROP_COLOR,clrRed);

      if(b+s!=0 && Profit>=ProfitClose) ObjectSetInteger(0,"cm Close",OBJPROP_STATE,true);

     }

   else {ObjectSetInteger(0,"cm ProfitClose",OBJPROP_COLOR,clrLightGray);GlobalVariableDel(GV_kn_CA);}

   if(ObjectGetInteger(0,"cm Close",OBJPROP_STATE))

     {

      if(s+b!=0) if(!CloseByOrders()) Print("Error Order Close By ",GetLastError());

      else

        {

         if(TradeOFF) ObjectSetInteger(0,"cm Buy Stop",OBJPROP_STATE,false);

         if(TradeOFF) ObjectSetInteger(0,"cm Buy Limit",OBJPROP_STATE,false);

         if(TradeOFF) ObjectSetInteger(0,"cm Sell Stop",OBJPROP_STATE,false);

         if(TradeOFF) ObjectSetInteger(0,"cm Sell Limit",OBJPROP_STATE,false);

         ObjectSetInteger(0,"cm Close",OBJPROP_STATE,false);

        }

     }

//------------------------------

//--- >B:@KB85 >@45@>2 ---------

//------------------------------

   double lots,price;

   if(ObjectGetInteger(0,"cm Buy Stop",OBJPROP_STATE))

     {

      if(bs<OrdersBuyStop)

        {

         if(bs==0)

           {

            lots=Lot; price=NormalizeDouble(Ask+FirstLevelStop*Point,Digits);

            if(FirstLevelStop==0 && b==0)

              {

               if(SendOrder(OP_BUY,lots,NormalizeDouble(Ask,Digits),0,0)) lots=0;

              }

           }

         else {lots=OLBS*K_Lot+LotPlus; price=NormalizeDouble(OOPBS+StepBuyStop*Point,Digits);}

         if(lots!=0 && b+bl+bs<MaxBuy)

            SendOrder(OP_BUYSTOP,lots,price,0,0);

        }

      GlobalVariableSet(GV_kn_BS,1);

     }

   else

     {

      GlobalVariableDel(GV_kn_BS);

      if(bs>0) if(!OrderDelete(OTBS)) Print("Error <<",GetLastError(),">>  ");

     }

//---

   if(ObjectGetInteger(0,"cm Sell Stop",OBJPROP_STATE))

     {

      if(ss<OrdersSellStop)

        {

         if(ss==0)

           {

            lots=Lot; price=NormalizeDouble(Bid-FirstLevelStop*Point,Digits);

            if(FirstLevelStop==0 && s==0)

              {

               if(SendOrder(OP_SELL,lots,NormalizeDouble(Bid,Digits),0,0)) lots=0;

              }

           }

         else {lots=OLSS*K_Lot+LotPlus; price=NormalizeDouble(OOPSS-StepSellStop*Point,Digits);}

         if(lots!=0 && s+sl+ss<MaxSell)

            SendOrder(OP_SELLSTOP,lots,price,0,0);

        }

      GlobalVariableSet(GV_kn_SS,1);

     }

   else

     {

      GlobalVariableDel(GV_kn_SS);

      if(ss>0) if(!OrderDelete(OTSS)) Print("Error <<",GetLastError(),">>  ");

     }

//---

   if(ObjectGetInteger(0,"cm Buy Limit",OBJPROP_STATE))

     {

      if(bl<OrdersBuyLimit)

        {

         if(bl==0)

           {

            lots=Lot; price=NormalizeDouble(Bid-FirstLevelLimit*Point,Digits);

            if(FirstLevelLimit==0 && b==0)

              {

               if(SendOrder(OP_BUY,lots,NormalizeDouble(Ask,Digits),0,0)) lots=0;

              }

           }

         else {lots=OLBL*K_Lot+LotPlus; price=NormalizeDouble(OOPBL-StepBuyLimit*Point,Digits);}

         if(lots!=0 && b+bl+bs<MaxBuy)

            SendOrder(OP_BUYLIMIT,lots,price,0,0);

        }

      GlobalVariableSet(GV_kn_BL,1);

     }

   else

     {

      GlobalVariableDel(GV_kn_BL);

      if(bl>0) if(!OrderDelete(OTBL)) Print("Error <<",GetLastError(),">>  ");

     }

//---

   if(ObjectGetInteger(0,"cm Sell Limit",OBJPROP_STATE))

     {

      if(sl<OrdersSellLimit)

        {

         if(sl==0)

           {

            lots=Lot; price=NormalizeDouble(Ask+FirstLevelLimit*Point,Digits);

            if(FirstLevelLimit==0 && s==0)

              {

               if(SendOrder(OP_SELL,lots,NormalizeDouble(Bid,Digits),0,0)) lots=0;

              }

           }

         else {lots=OLSL*K_Lot+LotPlus; price=NormalizeDouble(OOPSL+StepSellLimit*Point,Digits);}

         if(lots!=0 && s+sl+ss<MaxSell)

            SendOrder(OP_SELLLIMIT,lots,price,0,0);

        }

      GlobalVariableSet(GV_kn_SL,1);

     }

   else

     {

      GlobalVariableDel(GV_kn_SL);

      if(sl>0) if(!OrderDelete(OTSL)) Print("Error <<",GetLastError(),">>  ");

     }

//---------------------------------

//--------- B@0; ?@>D8B0 ----------

//---------------------------------

   if(ObjectGetInteger(0,"cm Tral Profit",OBJPROP_STATE)) //B@0; 

     {

      ObjectSetInteger(0,"cm TralStart",OBJPROP_COLOR,clrRed);

      ObjectSetInteger(0,"cm TralClose",OBJPROP_COLOR,clrRed);

      GlobalVariableSet(GV_kn_TrP,1);

      if(TralClose>TralStart) TralClose=TralStart;

      if(Profit>=TralStart && StopProfit==0) StopProfit=Profit;

      if(Profit>=StopProfit  && StopProfit!=0) StopProfit=Profit;

      if(StopProfit!=0) ObjectSetString(0,"cm Tral Profit",OBJPROP_TEXT,StringConcatenate("Tral ",DoubleToStr(StopProfit-TralClose,2)));

      else ObjectSetString(0,"cm Tral Profit",OBJPROP_TEXT,Text(LANGUAGE,""@0; ?@>D8B0","Tral profit"));

      if(Profit<=StopProfit-TralClose && StopProfit!=0)

        {

         if(CloseByOrders())

           {

            if(TradeOFF) ObjectSetInteger(0,"cm Buy Stop",OBJPROP_STATE,false);

            if(TradeOFF) ObjectSetInteger(0,"cm Buy Limit",OBJPROP_STATE,false);

            if(TradeOFF) ObjectSetInteger(0,"cm Sell Stop",OBJPROP_STATE,false);

            if(TradeOFF) ObjectSetInteger(0,"cm Sell Limit",OBJPROP_STATE,false);

           }

         StopProfit=0;

         drawtext(StringConcatenate("rl ",TimeToStr(TimeCurrent(),TIME_DATE|TIME_MINUTES)),Time[0],Bid,StringConcatenate("Close all ",DoubleToStr(Profit,2)),clrGreen);

         return;

        }

     }

   else

     {

      GlobalVariableDel(GV_kn_TrP);

      StopProfit=0;ObjectSetInteger(0,"cm TralStart",OBJPROP_COLOR,clrLightGray);

      ObjectSetInteger(0,"cm TralClose",OBJPROP_COLOR,clrLightGray);

      ObjectSetString(0,"cm Tral Profit",OBJPROP_TEXT,Text(LANGUAGE,""@0; ?@>D8B0","Tral profit"));

     }

  }

//--------------------------------------------------------------------

color Color(double P)

  {

   if(P>0) return(clrGreen);

   if(P<0) return(clrRed);

   return(clrGray);

  }

//------------------------------------------------------------------

void DrawLABEL(string name,string Name,int x,int y,color clr,ENUM_ANCHOR_POINT align=ANCHOR_RIGHT,int CORNER=1)

  {

   if(ObjectFind(name)==-1)

     {

      ObjectCreate(name,OBJ_LABEL,0,0,0);

      ObjectSet(name,OBJPROP_CORNER,CORNER);

      ObjectSet(name,OBJPROP_XDISTANCE,x+X);

      ObjectSet(name,OBJPROP_YDISTANCE,y+Y);

      ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false);

      ObjectSetInteger(0,name,OBJPROP_SELECTED,false);

      ObjectSetInteger(0,name,OBJPROP_HIDDEN,true);

      ObjectSetInteger(0,name,OBJPROP_ANCHOR,align);

     }

   ObjectSetText(name,Name,8,"Arial",clr);

  }

//--------------------------------------------------------------------

void OnDeinit(const int reason)

  {

   if(!IsTesting())

     {

      ObjectsDeleteAll(0,"cm");

     }

   Comment("");

   EventKillTimer();

  }

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

bool CloseByOrders()

  {

   bool error=true;

   int b=0,s=0,TicketApponent=0,Ticket,OT,j,LaslApp=-1;

   int closeby=0;

   while(!IsStopped())

     {

      if(CloseByON)

        {

         for(j=OrdersTotal()-1; j>=0; j--)

           {

            if(OrderSelect(j,SELECT_BY_POS))

              {

               if(OrderSymbol()==Symbol() && (Magic==-1 || Magic==OrderMagicNumber()))

                 {

                  OT=OrderType();

                  Ticket=OrderTicket();

                  if(OT>1) {error=OrderDelete(Ticket);continue;}

                  if(TicketApponent==0) {TicketApponent=Ticket;LaslApp=OT;}

                  else

                    {

                     if(LaslApp==OT) continue;

                     if(OrderCloseBy(Ticket,TicketApponent,Green)) TicketApponent=0;

                     else {closeby++;Print("H81:0 ",GetLastError()," 70:@KB8O >@45@0 N ",Ticket," <-> ",TicketApponent);}

                    }

                 }

              }

           }

         if(closeby>5) break;

         b=0;s=0;

         for(j=OrdersTotal()-1; j>=0; j--)

           {

            if(OrderSelect(j,SELECT_BY_POS,MODE_TRADES))

              {

               if(OrderSymbol()==Symbol() && (Magic==-1 || Magic==OrderMagicNumber()))

                 {

                  OT=OrderType();

                  if(OT==OP_BUY) b++;

                  if(OT==OP_SELL) s++;

                 }

              }

           }

         if(b==0 || s==0) break;

        }

     }

   CloseAll(-1);

   return(true);

  }

//-------------------------------------------------------------------

bool CloseAll(int tip)

  {

   bool error=true;

   int j,err,nn=0,OT;

   while(true)

     {

      for(j=OrdersTotal()-1; j>=0; j--)

        {

         if(OrderSelect(j,SELECT_BY_POS))

           {

            if(OrderSymbol()==Symbol() && (Magic==-1 || Magic==OrderMagicNumber()))

              {

               OT=OrderType();

               if(tip!=-1 && tip!=OT) continue;

               if(OT==OP_BUY)

                 {

                  error=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),slippage,Blue);

                 }

               if(OT==OP_SELL)

                 {

                  error=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),slippage,Red);

                 }

               if(!error)

                 {

                  err=GetLastError();

                  if(err<2) continue;

                  if(err==129)

                    {

                     RefreshRates();

                     continue;

                    }

                  if(err==146)

                    {

                     if(IsTradeContextBusy()) Sleep(2000);

                     continue;

                    }

                  Print("H81:0 ",err," 70:@KB8O >@45@0 N ",OrderTicket(),"     ",TimeToStr(TimeCurrent(),TIME_SECONDS));

                 }

              }

           }

        }

      int n=0;

      for(j= 0; j<OrdersTotal(); j++)

        {

         if(OrderSelect(j,SELECT_BY_POS))

           {

            if(OrderSymbol()==Symbol() && (Magic==-1 || Magic==OrderMagicNumber()))

              {

               OT=OrderType();

               if(OT>1)

                 {

                  int Ticket=OrderTicket();

                  if(tip==-1) error=OrderDelete(Ticket);

                  else

                    {

                     if(tip==OP_BUY && (OT==OP_BUYLIMIT || OT==OP_BUYSTOP)) error=OrderDelete(Ticket);

                     if(tip==OP_SELL && (OT==OP_SELLLIMIT || OT==OP_SELLSTOP)) error=OrderDelete(Ticket);

                    }

                  continue;

                 }

               if(tip!=-1 && tip!=OT) continue;

               n++;

              }

           }

        }

      if(n==0) break;

      nn++;

      if(nn>10)

        {

         Alert(Symbol()," 5 C40;>AL 70:@KBL 2A5 A45;:8, >AB0;>AL 5I5 ",n);

         return(false);

        }

      Sleep(1000);

      RefreshRates();

     }

   return(true);

  }

//--------------------------------------------------------------------

bool ButtonCreate(const long              chart_ID=0,               // ID 3@0D8:0

                  const string            name="Button",            // 8<O :=>?:8

                  const int               sub_window=0,             // =><5@ ?>4>:=0

                  const long               x=0,                      // :>>@48=0B0 ?> >A8 X

                  const long               y=0,                      // :>>@48=0B0 ?> >A8 Y

                  const int               width=50,                 // H8@8=0 :=>?:8

                  const int               height=18,                // 2KA>B0 :=>?:8

                  const string            text="Button",            // B5:AB

                  const string            font="Arial",             // H@8DB

                  const int               font_size=8,// @07<5@ H@8DB0

                  const color             clr=clrBlack,// F25B B5:AB0

                  const color             clrON=clrLightGray,// F25B D>=0

                  const color             clrOFF=clrLightGray,// F25B D>=0

                  const color             border_clr=clrNONE,// F25B 3@0=8FK

                  const bool              state=false,       //

                  const ENUM_BASE_CORNER  CORNER=CORNER_RIGHT_UPPER)

  {

   if(ObjectFind(chart_ID,name)==-1)

     {

      ObjectCreate(chart_ID,name,OBJ_BUTTON,sub_window,0,0);

      ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);

      ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);

      ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,CORNER);

      ObjectSetString(chart_ID,name,OBJPROP_FONT,font);

      ObjectSetInteger(chart_ID,name,OBJPROP_FONTSIZE,font_size);

      ObjectSetInteger(chart_ID,name,OBJPROP_BACK,0);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,0);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,0);

      ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,1);

      ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,1);

      ObjectSetInteger(chart_ID,name,OBJPROP_STATE,state);

     }

   ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_COLOR,border_clr);

   color back_clr;

   if(ObjectGetInteger(chart_ID,name,OBJPROP_STATE)) back_clr=clrON; else back_clr=clrOFF;

   ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

   ObjectSetString(chart_ID,name,OBJPROP_TEXT,text);

   ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x+X);

   ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y+Y);

   return(true);

  }

//--------------------------------------------------------------------

bool RectLabelCreate(const long             chart_ID=0,               // ID 3@0D8:0

                     const string           name="RectLabel",         // 8<O <5B:8

                     const int              sub_window=0,             // =><5@ ?>4>:=0

                     const long              x=0,                     // :>>@48=0B0 ?> >A8 X

                     const long              y=0,                     // :>>@48=0B0 ?> >A8 y

                     const int              width=50,                 // H8@8=0

                     const int              height=18,                // 2KA>B0

                     const color            back_clr=clrWhite,        // F25B D>=0

                     const color            clr=clrBlack,             // F25B ?;>A:>9 3@0=8FK (Flat)

                     const ENUM_LINE_STYLE  style=STYLE_SOLID,        // AB8;L ?;>A:>9 3@0=8FK

                     const int              line_width=1,             // B>;I8=0 ?;>A:>9 3@0=8FK

                     const bool             back=false,               // =0 704=5< ?;0=5

                     const bool             selection=false,          // 2K45;8BL 4;O ?5@5<5I5=89

                     const bool             hidden=true,              // A:@KB 2 A?8A:5 >1J5:B>2

                     const long             z_order=0)                // ?@8>@8B5B =0 =060B85 <KHLN

  {

   ResetLastError();

   if(ObjectFind(chart_ID,name)==-1)

     {

      ObjectCreate(chart_ID,name,OBJ_RECTANGLE_LABEL,sub_window,0,0);

      ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_TYPE,BORDER_FLAT);

      ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,CORNER_RIGHT_UPPER);

      ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style);

      ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,line_width);

      ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);

      ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);

      ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);

      ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);

      //ObjectSetInteger(chart_ID,name,OBJPROP_ALIGN,ALIGN_RIGHT); 

     }

   ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);

   ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);

   ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x+X);

   ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y+Y);

   return(true);

  }

//--------------------------------------------------------------------

string Error(int code)

  {

   switch(code)

     {

      case 0:   return("5B >H81>:");

      case 1:   return("5B >H81:8, => @57C;LB0B =58725AB5=");

      case 2:   return("1I0O >H81:0");

      case 3:   return("5?@028;L=K5 ?0@0<5B@K");

      case 4:   return("">@3>2K9 A5@25@ 70=OB");

      case 5:   return("!B0@0O 25@A8O :;85=BA:>3> B5@<8=0;0");

      case 6:   return("5B A2O78 A B>@3>2K< A5@25@><");

      case 7:   return("54>AB0B>G=> ?@02");

      case 8:   return("!;8H:>< G0ABK5 70?@>AK");

      case 9:   return("54>?CAB8<0O >?5@0F8O =0@CH0NI0O DC=:F8>=8@>20=85 A5@25@0");

      case 64:  return("!G5B 701;>:8@>20=");

      case 65:  return("5?@028;L=K9 =><5@ AG5B0");

      case 128: return("AB5: A@>: >6840=8O A>25@H5=8O A45;:8");

      case 129: return("5?@028;L=0O F5=0");

      case 130: return("5?@028;L=K5 AB>?K");

      case 131: return("5?@028;L=K9 >1J5<");

      case 132: return(" K=>: 70:@KB");

      case 133: return("">@3>2;O 70?@5I5=0");

      case 134: return("54>AB0B>G=> 45=53 4;O A>25@H5=8O >?5@0F88");

      case 135: return("&5=0 87<5=8;0AL");

      case 136: return("5B F5=");

      case 137: return("@>:5@ 70=OB");

      case 138: return(">2K5 F5=K");

      case 139: return("@45@ 701;>:8@>20= 8 C65 >1@010BK205BAO");

      case 140: return(" 07@5H5=0 B>;L:> ?>:C?:0");

      case 141: return("!;8H:>< <=>3> 70?@>A>2");

      case 145: return(">48D8:0F8O 70?@5I5=0, B0: :0: >@45@ A;8H:>< 1;87>: : @K=:C");

      case 146: return(">4A8AB5<0 B>@3>2;8 70=OB0");

      case 147: return("A?>;L7>20=85 40BK 8AB5G5=8O >@45@0 70?@5I5=> 1@>:5@><");

      case 148: return(">;8G5AB2> >B:@KBKE 8 >B;>65==KE >@45@>2 4>AB83;> ?@545;0, CAB0=>2;5==>3> 1@>:5@><.");

      default:   return(StringConcatenate("H81:0 ",code," =58725AB=0 "));

     }

  }

//--------------------------------------------------------------------

bool EditCreate(const long             chart_ID=0,               // ID 3@0D8:0 

                const string           name="Edit",              // 8<O >1J5:B0 

                const int              sub_window=0,             // =><5@ ?>4>:=0 

                const int              x=0,                      // :>>@48=0B0 ?> >A8 X 

                const int              y=0,                      // :>>@48=0B0 ?> >A8 Y 

                const int              width=50,                 // H8@8=0 

                const int              height=18,                // 2KA>B0 

                const string           text="Text",              // B5:AB 

                const string           font="Arial",             // H@8DB 

                const int              font_size=8,             // @07<5@ H@8DB0 

                const ENUM_ALIGN_MODE  align=ALIGN_RIGHT,       // A?>A>1 2K@02=820=8O 

                const bool             read_only=true,// 2>7<>6=>ABL @540:B8@>20BL 

                const ENUM_BASE_CORNER corner=CORNER_RIGHT_UPPER,// C3>; 3@0D8:0 4;O ?@82O7:8 

                const color            clr=clrBlack,             // F25B B5:AB0 

                const color            back_clr=clrWhite,        // F25B D>=0 

                const color            border_clr=clrNONE,       // F25B 3@0=8FK 

                const bool             back=false,               // =0 704=5< ?;0=5 

                const bool             selection=false,          // 2K45;8BL 4;O ?5@5<5I5=89 

                const bool             hidden=true,              // A:@KB 2 A?8A:5 >1J5:B>2 

                const long             z_order=0)                // ?@8>@8B5B =0 =060B85 <KHLN 

  {

   ResetLastError();

   if(!ObjectCreate(chart_ID,name,OBJ_EDIT,sub_window,0,0))

     {

      Print(__FUNCTION__,

            ": =5 C40;>AL A>740BL >1J5:B ",name,"! >4 >H81:8 = ",GetLastError());

      return(false);

     }

   ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,x+X);

   ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,y+Y);

   ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE,width);

   ObjectSetInteger(chart_ID,name,OBJPROP_YSIZE,height);

   ObjectSetString(chart_ID,name,OBJPROP_TEXT,text);

   ObjectSetString(chart_ID,name,OBJPROP_FONT,font);

   ObjectSetInteger(chart_ID,name,OBJPROP_FONTSIZE,font_size);

   ObjectSetInteger(chart_ID,name,OBJPROP_ALIGN,align);

   ObjectSetInteger(chart_ID,name,OBJPROP_READONLY,read_only);

   ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,corner);

   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR,back_clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_COLOR,border_clr);

   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back);

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);

   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);

   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden);

   ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);

   return(true);

  }

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

string Text(bool P,string a,string b)

  {

   if(P) return(a);

   else return(b);

  }

//------------------------------------------------------------------

void drawtext(string Name,datetime T1,double Y1,string lt,color c)

  {

   ObjectDelete(Name);

   ObjectCreate(Name,OBJ_TEXT,0,T1,Y1,0,0,0,0);

   ObjectSetText(Name,lt,8,"Arial");

   ObjectSetInteger(0,Name,OBJPROP_COLOR,c);

   ObjectSetInteger(0,Name,OBJPROP_ANCHOR,ANCHOR_LOWER);

  }

//--------------------------------------------------------------------

bool SendOrder(int tip,double lots,double price,double sl=0,double tp=0)

  {

   if(tip<2)

     {

      if(AccountFreeMarginCheck(Symbol(),tip,lots)<0)

        {

         Alert("54>AB0B>G=> A@54AB2");

         return(false);

        }

     }

   for(int i=0; i<10; i++)

     {

      if(OrderSend(Symbol(),tip, lots,price,slippage,sl,tp,NULL,Magic,0,clrNONE)!=-1) return(true);

      Alert(" ?>?KB:0 ",i," H81:0 >B:@KB8O >@45@0 ",Strtip(tip)," <<",Error(GetLastError()),">>  lot=",lots,"  pr=",price," sl=",sl," tp=",tp);

      Sleep(500);

      RefreshRates();

      if(IsStopped()) return(false);

     }

   return(false);

  }

//------------------------------------------------------------------

string StrPer(int per)

  {

   if(per == PERIOD_CURRENT) per=Period();

   if(per == PERIOD_M1) return("M1");

   if(per == PERIOD_M5) return("M5");

   if(per == PERIOD_M15) return("M15");

   if(per == PERIOD_M30) return("M30");

   if(per == PERIOD_H1) return("H1");

   if(per == PERIOD_H4) return("H4");

   if(per == PERIOD_D1) return("D1");

   if(per == PERIOD_W1) return("W1");

   if(per == PERIOD_MN1) return("MN1");

   return(">H81:0 ?5@8>40");

  }

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

string Strtip(int tip)

  {

   switch(tip)

     {

      case OP_BUY:

         return("BUY");

      case OP_SELL:

         return("SELL");

      case OP_BUYSTOP:

         return("BUYSTOP");

      case OP_SELLSTOP:

         return("SELLSTOP");

      case OP_BUYLIMIT:

         return("BUYLIMIT");

      case OP_SELLLIMIT:

         return("SELLLIMIT");

     }

   return("error");

  }

//------------------------------------------------------------------