GTerminal_V5a

//+----------------------------------------------------------------------------+ 
//|                                   Aleksandr Pak, Alma-Ata, 03.2008         |
//|                                                     ekr-ap@mail.ru        |
//|Ñîâåòíèê GTerminal Ãðàôè÷åñêîå óïðàâëåíèå òîðãîâëåé,                        |
//|Ïîëóàâòîìàò íà ïðîáîé/ðàçâîðîò îò ëèíèé, ïî ïàðàìåòðàì â èìåíè ëèíèè        |
//+----------------------------------------------------------------------------+

/* 19_04_2008ã.
GTerminal V5 


Ñòàðòîâàÿ ñòàòüÿ: articles.mql4.com/ru/597

...............................................................................................
 äâóõ ñëîâàõ:
Âûñòàâëÿåòå ëèíèè âðó÷íóþ, äàåòå èìåíà, ñîâåòíèê òîðãóåò ïî ëèíèÿì. 
Îòêðûâàåò è çàêðûâàåò îðäåðà ïî ïåðåñå÷åíèþ ëèíèè ñ öåíîé íà ãëàâíîì ãðàôèêå èëè â îêíå èíäèêàòîðà.
Ñîâåòíèê óñòàíâàëèâàåò òýéêïðîôèò, ñòîïëîññ èç èìåíè ëèíèè èëè ïî ïîëîæåíèåþ ëèíèé èíèöèàöèè.
Íà òî è ïîëóàâòîìàò))
...............................................................................................
Ãðàôè÷åñêèå îðäåðà: ýòî ëèíèè TrendLine  ó êîòîðûõ â ïîëå "èìÿ" çàïèñàíà òîðãîâàÿ îïåðàöèÿ, 
èñïîëíÿåìàÿ ïî öåíå îòíîñèòåëüíî ýòîé ëèíèè.

ÈÑÏÎËÍßÅÌÛÅ ËÈÍÈÈ, ò.å. ëèíèè ïðè ïåðåñå÷åíèè êîòîðûõ ïðîèñõîäèò òîðãîâàÿ îïåðàöèÿ.
         Îòêðûòèå îðäåðà

         BuyStop     tp=x sl=x     //Öåíà (ïðîøëà) âûøå ëèíèè.
         BuyLimit    tp=x sl=x     //Öåíà (ïðîøëà) íèæå ëèíèè
         SellStop    tp=x sl=x     //tp/sl ìîãóò îòñóòñòâîâàòü, ïèøóòñÿ â ëþáîì ïîðÿäêå
         SellLimit   tp=x sl=x

         Çàêðûòèå îðäåðà 
         SLBUY
         TPBUY
         SLSELL
         TPSELL

         Çàêðûòèå âñåõ îðäåðîâ óêàçàííîãî òèïà
         SLALLBUY                
         TPALLBUY
         ALALLSELL
         TPALLSELL

ËÈÍÈÈ ÇÀÄÀÍÈß-ÈÍÈÖÈÀÖÈÈ ÒÝÉÊÏÐÎÔÈÒÀ/ÑÒÎÏËÎÑÑÀ â ïîëÿõ îòñûëàåìîãî îðäåðà.

         SLINITBUY               //
         TPINITBUY
         SLINITSELL
         TPINITSELL

ÏÐÀÂÈËÀ
         Âíîñèòü â ñâîéñòâà/èìÿ. Áîëüøèå /ìàëûå áóêâû íå ðàçëè÷àþòñÿ. Óäîáíî áîëüøèìè. 
         Ëèíèÿ ïðèíÿòàÿ ñîâåòíèêîì ê èñïîëíåíèþ ìåíÿåò öâåò íà öâåò îïåðàöèè (â ñâîéñòâàõ ñîâåòíèêà).
         Òî ÷òî ïîíÿë ñîâåòíèê âîçâðàùàåòñÿ â îïèñàíèå ëèíèè. 
         Áóäåò ëèáî ñ÷èòàííûå ïàðìåòðû, ëèáî O.k., ëèáî íåò èñïîëíåíèÿ.
         Ñìîòðåòü âûñâå÷èâàÿ óêàçàòåëåì ìûøè.
         Ëèíèÿ ïî óìîëÿàíèþ ñðàáàòûâàåò óñëîâèþ âûøå/íèæå CVLOSE 0-ãîáàðà.
         
         Çà êîíöîì ëèíèè íèêàêèå îïåðàöèè ÍÅ èñïîëíÿþòñÿ. Ëèíèè çàäàíèÿ àêòèâíû íåçàâèñèìî îò äëèíû.
         
         Ïðîáåë ìåæäó ïàðàìåòðàìè îáÿçàòåëåí. Ïåðåä è ïîñëå çíàêà "=" ïðîáëà íåò, ïèñàòü ñëèòíî.
         Ëèíèè ñðàáàòûâàþò íà îñíîâíîì ãðàôèêå è â îêíàõ èíäèêàòîðà, ïðè ïåðåñå÷åíèè ñ èíäèêàòîðîì.
         
         Ëèíèè ìîãóò îòëè÷àòüñÿ ïðîèçâîëüíûì òåêñòîì, öèôðîé. 
         Íàïðèìåð â îêíå èíäèêàòîðà ñòàâèì TPBUY 2, à íà îñíîâíîì ãðàôèêå TPBUY. Ïåðâîé ñðàáîòàåò òà, íà êîòîðîé ïåðåñå÷åíèå.
         
                 
         ÈÍÄÈÊÀÒÎÐÛ òîëüêî òå, êîòîðûå ìîæåò óâèäåòü ñîâåòíèê:

         RSI
         CCI
         WPR
         Momentum
         Force Index
         DeMarker
         ATR
         OBV
         MFI

Ïåðèîä èíäèêàòîðà äîëæåí ñîâïàäàòü ñ Period_indicator â ñâîéñòâàõ ñîâåòíèêà. 
Âñå èñïîëíÿåìûå ëèíèè ðàáîòàþò â îêíàõ èíäèêàòîðîâ.


         ÄÅÌÎ/ÐÅÀË
Åñëè òèêè ïðèõîäÿò ðåäêî, òî îæèäàíèå ðåàêöèè ñîâåòíèêà áóäåò âåñüìà çàìåòíî - äî ñëåäóþùåãî òèêà öåíû.
Êðàñíàÿ âåðòèêàëüíàÿ ëèíèÿ â äåìî/ðåàë ýòî Ïàóçà. Êàê òîëüêî îíà íàõîäèòñÿ ëåâåå íóëåâîãî áàðà, 
òàê ñðàçó âñå îïåðàöèè ñîâåòíèêà çàïðåùåíû. Íà÷àâøèåñÿ íå îñòàíàâëèâàåò.

Ïîñëå îòêðûòèÿ îðäåðà îñòàåòñÿ ïóíêòèð. Ýòà óæå ñðàáîòàâøàÿ ëèíèÿ ñâÿçàíà ñ óäàëåíèåì îðäåðà.
Åñëè óäàëèòü ýòîò ïóíêòèð, çàêðîåòñÿ îðäåð. Åñëè óäàëèòü îðäåð - óäàëÿåòñÿ ïóíêòèð.

Ñîâåòíèê ìîæåò îòñûëàòü îðäåðà â äâà ïðèåìà - áåç tp/sl, è ñðàçó ìîäèôèêàöèÿ tp/sl. 

Ñîâåòíèê ðàçðåøàåò òîëüêî îäèí îðäåð Buy è îäèí Sell. Âòîðîé Buy íå îòêðîåò.
Îðäåðà ìîæíî óäàëÿòü âðó÷íóþ. 

Ìîæíî äîëèâàòü âðó÷íóþ, íî ñîâåòíèê èõ íå âèäèò. Àâòîìàòèçàöèÿ äëÿ íèõ ñëåäóþùàÿ:
Îðäåðà îòêðûòûå âðó÷íóþ ìîæíî çàêðûòü ïî ëèíèÿì TP/SLALLBUY  TP/SLALLSELL

Íåò êîíòðîëÿ àêòèâíûõ ñðåäñòâ äåïî. 
Íåò êîíòðîëÿ ïîëîæåíèÿ ëèíèé çàäàíèÿ TP/SLINITBUY  TP/SLINITSELL. 


         ÒÅÑÒÅÐ
Ëèíèè îòêðûòèÿ íå óäàëÿþòñÿ. Ëèíèè ÏÀÓÇÀ íåò. Ïîëüçóéòåñü êíîïêîé "||/>>"


Ëèíèè ãðàôè÷åñêèõ îðäåðîâ ïðîâåðÿþòñÿ íà êàæäîì òèêå çàíîâî, ïîýòîìó ìîæíî ïåðåìåùàòü, ïåðåèìåíîâûâàòü, ìåíÿòü ïàðàìåòðû.


ÑÎÂÅÒÛ: 
1. Ëèíèè óøåäøèå çà êðàé ýêðàíà ìîæíî íàéòè/óäàëèòü => ïðàâàÿ ìûøè/ÑïèñîêÎáúåêòîâ
2. Äëÿ ðàáîòû íà ôüþ÷åðñàõ ïðèìåíÿéòå íàñòðîéêó äâîéíàÿ îòñûëêà îðäåðà.
3. Ãðàôè÷åñêèå îðäåðà-ëèíèè ýêâèâàëåíòû îòëîæåííûì îðäåðàì. Ñðîê äåéñòâèÿ - êîíåö ëèíèè.
4. Óñòàíàâëèâàÿ ëèíèþ îòêðûòèÿ îðäåðà îáÿçàòåëüíî ïðîêîíòðîëèðóéòå óæå èìåþùèåñÿ ëèíèè çàêðûòèÿ, ò.ê. îðäåð ìîæåò ñðàçó çàêðûòüñÿ.

Óñïåõîâ!!!
*/

#property copyright "Aleksandr Pak, Almaty,2008-ver5"
#property link "articles.mql4.com/ru/597"
#property show_inputs
#include <WinUser32.mqh>

 extern double Lot=0.1;          //ðàçìåð ëîòà
 extern int Slipp=6;             //Slippage
 extern int Pop=3;               //ïîïûòîê îòêðûòèÿ îðäåðà. 
 extern int cross_method=1;      //ôëàã ñïîñîáà âû÷èñëåíèÿ ïåðeñå÷åíèÿ öåíà/ëèíèÿ 0=æåñòêî ïî äâóì áàðàì,1 ñðàçó æå ïî îäíîìó êàñàíèþ.
 extern int start=0;             //íà÷àëî àíàëèçà 0=íóëåâîé áàð, 1 = 1 ïåðâûé áàð è ò.ä.
 extern int start_indicator=1;   //áàð íà êîòîðîì ñðàâíèâàåòñÿ èíäèêàòîð
 extern int Period_indicator=14; //ïåðèîä âñåõ èíäèêàòîðîâ
 extern int Magic=0;              //Èäåíòèôèêàöèîííûé íîìåð îðäåðà, ïðèìåíÿòü äëÿ ðàçëè÷åíèÿ ðàçíûõ ñîâåòíèêîâ
 extern bool DoubleOrderSending=False;  //Îòñûëêà îðäåðà ñíà÷àëà ñ ïóñòûìè ïîëÿìè
 extern bool Teg_Pause = TRUE;  //ôëàã îòêëþ÷åíèÿ ëèíèè Ïàóçà, è ðåàêöèè  íà íåå, äåéñòâèòåëüíî â òîðãîâëå, â òåñòåðå âñåãäà îòêëþ÷åíî
 extern bool Teg_DeletOpen=TRUE; //Ëèêâèäàöèÿ ëèíèé îòêðûòèÿ ïðè çàêðûòèè îðäåðà
 extern bool Teg_DeletOrderOnLine=FALSE; //Ëèêâèäàöèÿ îðäåðà åñëè íåò ëèíèè îòêðûòèÿ ïðè çàêðûòèè îðäåðà
 extern color color_buy=Aqua;    //öâåòà ëèíèé buy
 extern color color_sell=Orange; //öâåòà ëèíèé sell
 extern color color_init=Red;    //öâåòà ëèíèé çàäàíèÿ tp/sl

double price0, price1;
double Last_time;
int Buy_ticket,Sell_ticket;
int tp, sl;
double tpinitbuy,slinitbuy,tpinitsell,slinitsell;
int Pause=0;
double last_pause;
int t_first=0; 
int glob_s=0, glob_b=0;

color color_tp_buy=Aqua, color_sl_buy=Aqua;
string BUY_global_name,SELL_global_name;
string message; 
string last_line; 
string Pause_name;
string s_tpinitbuy,s_slinitbuy,s_tpinitsell,s_slinitsell;

int init()
{double t;
               
         BUY_global_name=  "GT_BUY_"+  Symbol();
         SELL_global_name= "GT_SELL_"+ Symbol();
              
         if(!IsTesting())
         {  Buy_ticket = GlobalVariableGet(BUY_global_name);
            if(Buy_ticket!=0)
            {if(OrderSelect(Buy_ticket,SELECT_BY_TICKET)==TRUE) 
                       { t=OrderCloseTime();
                           if(t!=0) { Buy_ticket=0; GlobalVariableSet(BUY_global_name,0); }
                       }   else {Buy_ticket=0; GlobalVariableSet(BUY_global_name,0);}
            }
            
            Sell_ticket = GlobalVariableGet(SELL_global_name);
            if(Sell_ticket!=0)
            {if(OrderSelect(Sell_ticket,SELECT_BY_TICKET)==TRUE) 
                  {t=OrderCloseTime();
                           if(t!=0) { Sell_ticket=0; GlobalVariableSet(SELL_global_name,0); }
                  }        else {Sell_ticket=0;GlobalVariableSet(SELL_global_name,0);}
            }
          }
              
     if(!IsTesting())
     {
         if(Teg_Pause)
         {
         if(ObjectFind("PAUSE")<0)
         {ObjectCreate("PAUSE", OBJ_VLINE, 0,iTime(Symbol(),0,0)+12*60*Period(),0);
         ObjectSet("PAUSE",OBJPROP_WIDTH,1);
         ObjectSet("PAUSE",OBJPROP_COLOR,Red);             
         }
         else ObjectSet("PAUSE",OBJPROP_TIME1,iTime(Symbol(),0,0)+12*60*Period());
         }                  
     }    
    Comment("ticket buy="+DoubleToStr(Buy_ticket,0)+"  ticket sell="+DoubleToStr(Sell_ticket,0));        
return (0);
}
//.....................

int deinit()
{
   ObjectDelete("PipsWork");
   ObjectDelete("PAUSE");
   return(0);
}
//*************************************
//*************************************
void start()
{  int i,j,k,Slipp,Pop,err,crach;
   double t;
   int ticket;
   bool t_busy=TRUE;
         
         RefreshRates();
         t=iTime(Symbol(),0,0);
         if(t>Last_time){Last_time=t; t_first=1;}
 
  if(Buy_ticket!=0)
            {if(OrderSelect(Buy_ticket,SELECT_BY_TICKET)==TRUE) 
                       { t=OrderCloseTime();
                           if(t!=0) { Buy_ticket=0; glob_b=1;}
                       }   else {Buy_ticket=0; glob_b=1;}
            }
  if(Sell_ticket!=0)
            {if(OrderSelect(Sell_ticket,SELECT_BY_TICKET)==TRUE) 
                  {t=OrderCloseTime();
                           if(t!=0) { Sell_ticket=0; glob_s=1; }
                  }        else {Sell_ticket=0; glob_s=1;}
            }
            
    SearchWorkLine();
    
    if(!search_name_pause())
      {
    
     if(IsTradeContextBusy()) 
     {
     while(t_busy){Comment("ÎÆÈÄÀÍÈÅ ÎÊÎÍ×ÀÍÈß ×ÓÆÎÉ ÎÏÅÐÀÖÈÈ"); Sleep(1000); RefreshRates(); t_busy=IsTradeContextBusy(); }
     } 
     else
     {
            
 //........................................................................................................
//.................îïðåäåëåíèå òîðãîâûõ ñèãíàëîâ     
   
                  if(cross_up    ("buystop",color_buy))     OpenBuy();                          
                  if(cross_down  ("buylimit",color_buy))    OpenBuy();
                  if( cross_down ("slbuy",color_buy))       CloseBuy();
                  if(cross_up    ("tpbuy",color_buy))       CloseBuy();
                  if(cross_down  ("slallbuy",color_buy ))   { close_all(OP_BUY); Buy_ticket=0; glob_b=1;  }
                  if(cross_up    ("tpallbuy",color_buy ))   { close_all(OP_BUY); Buy_ticket=0; glob_b=1;  }   
  //************ 
       
       if   (cross_down ("sellstop",color_sell))    OpenSell();   
       if   (cross_up   ("selllimit",color_sell))     OpenSell();
       if   (cross_up   ("slsell",color_sell))           CloseSell();                 
       if   (cross_down ("tpsell",color_sell))         CloseSell();
       if   (cross_up   ("slallsell",color_sell))    {  close_all(OP_SELL); Sell_ticket=0; glob_s=1; }
       if(  cross_down  ("tpallsell",color_sell))  {  close_all(OP_SELL); Sell_ticket=0; glob_s=1; }                                                                                        
//...................................................          
   
   }//IsTradeContextBusy
   } //pause
   
     else{/*Print("Ïàóçà");*/}
      
   if(!IsTesting())
      {if(glob_b==1){glob_b=0; GlobalVariableSet(BUY_global_name,  Buy_ticket);}
         if(glob_s==1){glob_s=0; GlobalVariableSet(SELL_global_name, Sell_ticket);}  
      }
   t_first=0; 
   Comment(StringConcatenate("ticket buy=",DoubleToStr(Buy_ticket,0),"  ticket sell="+DoubleToStr(Sell_ticket,0)));
   ObjectDelete("PipsWork");
}

//******************************************************************************************
int CloseSell()
{
         param(last_line);
         if(Sell_ticket!=0) 
         { 
         if(close(Sell_ticket)==0) 
            {
            Sell_ticket=0; glob_s=1; 
            } 
         }
}

//***************
int CloseBuy()
{
                        param(last_line);
                        if(close(Buy_ticket)==0)
                        {
                           Buy_ticket=0;
                           glob_b=1;
                        }
}
//****************
int OpenBuy()
{int ticket;
                    param(last_line); 
                     if(Buy_ticket<=0)               
                        { 
                           if(!DoubleOrderSending)
                           {
                           //Print("tp/sl   ",tpinitbuy,"  ",slinitbuy);
                           Buy_ticket=send_order(0,0,ticket,Lot,tp,sl,tpinitbuy,slinitbuy); 
                           }
                           else
                           {
                           Buy_ticket=send_order(0,0,ticket,Lot,0,0,0,0);
                           if(Buy_ticket>0)
                                 {
                                 Sleep(1000);
                                 ticket=send_order(0,1,Buy_ticket,Lot,tp,sl,tpinitbuy,slinitbuy);
                                 }
                           }
                              if(Buy_ticket>0) 
                                 {  
                                    fixline(last_line,Buy_ticket,color_buy);
                                    glob_b=1;
                                 } 
                         }
}
 //**********************
 int OpenSell()
 {int ticket;
                   param(last_line);
                   if(Sell_ticket<=0)
                        {
                              if(!DoubleOrderSending)
                              Sell_ticket=send_order(1,0,ticket,Lot,tp,sl,tpinitsell,slinitsell);
                              else
                              {
                              Sell_ticket=send_order(1,0,ticket,Lot,0,0,0,0);
                              if(Sell_ticket>0)
                                       {
                                       Sleep(1000); ticket=send_order(1,1,Sell_ticket,Lot,tp,sl,tpinitsell,slinitsell);
                                       }
                              }
                              if(Sell_ticket>0) { glob_s=1; fixline(last_line,Sell_ticket,color_sell); }
                        }
}
//**************************
bool search_name_pause()
{double p,p2,t,t2,y; int error,i; string n;
         if(IsTesting()) return(FALSE);
         if(!Teg_Pause) return (FALSE);
         i=search_name_obj("paus");
         if (i>=0)
         {
            p=   ObjectGet(Pause_name,OBJPROP_TIME1); 
            p2=iTime(NULL,0,0); 
     
            if(p-p2<0) 
               { 
               
               if(last_pause==p&&Pause==0) 
               {
                y=p2+12*60*Period();
                        for(i=0;i<10;i++)
                        {
                        ObjectSet(Pause_name,OBJPROP_TIME1,y);
                        WindowRedraw();
                        if(GetLastError()==0) break;
                        Sleep(100);
                        }
                       
                        last_pause=   y;
                        return(FALSE);
               }
                else
                {
                  Pause=1;
                  ObjectSet(Pause_name,OBJPROP_WIDTH,4);
                  WindowRedraw();
                  last_pause=p;
               return(TRUE); 
               }
               } else  
                        {                        
                        ObjectSet(Pause_name,OBJPROP_WIDTH,1);
                        if(t_first==1)
                              {
                              ObjectSet(Pause_name,OBJPROP_TIME1,ObjectGet(Pause_name,OBJPROP_TIME1)+Period()*60);
                              }
                        Pause=0;
                        WindowRedraw();
                        last_pause=ObjectGet(Pause_name,OBJPROP_TIME1); 
                        return(FALSE);
                        }
         }
}

//.........................
int search_name_obj(string c) 
{int i,k; string s;
   k=ObjectsTotal(); 
   for(i=k-1;i>=0;i--)  
   {  
      s=lowercaps(ObjectName(i));
    if (StringFind(s,c,0)>=0){ Pause_name=ObjectName(i); return(i);} 
   }
return (-1);
}
//....................................................
int fixline(string _name, int _B, color _color)
{int error;

string             txn=StringConcatenate("TICKET=",DoubleToStr(_B,0)," ",_name," DATE=",TimeToStr(TimeLocal(),
                   
                   TIME_DATE)," TIME=",TimeToStr(TimeLocal(),TIME_SECONDS));
                   
                   ObjectCreate(txn,OBJ_TREND,ObjectFind(_name),
                   ObjectGet( _name,OBJPROP_TIME1),ObjectGet( _name,OBJPROP_PRICE1),
                   ObjectGet( _name,OBJPROP_TIME2),ObjectGet( _name,OBJPROP_PRICE2));
                   
                   while(TRUE)
                   {
                     ObjectDelete(_name); 
                     WindowRedraw();
                     if(ObjectFind(_name)==-1) break;
                   }
                   
                   ObjectSet(txn,OBJPROP_STYLE,STYLE_DOT);
                   ObjectSet(txn,OBJPROP_COLOR,_color);
                  
}
//..........................................

int close_all(int typs)
  {
   bool   result;
   double price;
   int    cmd,error,i=0,k;
  
   double t;
   int ticket;
   string tr;
//----

  if(typs==0) tr="CLOSE ALL BUY"; else tr="CLOSE ALL SELL";
   k=OrdersTotal();
   for(i=k-1;i>=0;i--)
   {   
   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)) 
      {
         cmd=OrderType();
         t=OrderCloseTime();
         if((cmd==typs)&&Symbol()==OrderSymbol()&&t==0) 
         { 
               t=OrderOpenTime();
               if(t!=0)
                  { 
                     ObjectCreate("PipsWork",OBJ_TEXT,0,iTime(NULL,0,10),High[10]);
                     ObjectSetText("PipsWork", tr, 14,"",Red);
                     WindowRedraw();
                     close_(cmd); /* Sleep(500);*/
                   }              
               } 
      }  
        
  }     
  
ObjectDelete("PipsWork");
   return(0);
  }
//.............................

int close_(int cmd)
{
   bool   result;
   double price;
   int    error,i=0;         
                  while(true)
                  {i+=1;
                   RefreshRates();
                  if(cmd==OP_BUY)      price=Bid; 
                        else           price=Ask;
                        result=OrderClose(OrderTicket(),OrderLots(),price,12,CLR_NONE);
                        error=GetLastError(); 
                        if(result==TRUE) error=0; 
                        if(error!=0) {Sleep(3000); RefreshRates();} //çàêðûâàòü ëþáèì, äàåì 6 ïîïûòîê
                  else break;
                  if(i>6)break; ///6 ïîïûòîê çàêðûòü îðäåð
                 }
return (error);
}
//......................
int close(int ticket)
  {
   bool   result;
   double price;
   int    cmd,error=-1,i=0;
   double t;
   string tr=StringConcatenate("CLOSE ", DoubleToStr(ticket,0)) ;
  
   if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
      {
       cmd=OrderType();
       t=OrderCloseTime();
       if(Symbol()==OrderSymbol()&&t==0) { 
       ObjectCreate("PipsWork",OBJ_TEXT,0,iTime(NULL,0,10),High[10]);
       ObjectSetText("PipsWork", tr, 14,"",Red);
       WindowRedraw();

       error=close_(cmd); 
       } 
      }  else {/*Print("Îøèáêà â âûáîðå ïîçèöèè=",i);*/}       
   ObjectDelete("PipsWork");
   return(error);
}
//..............................................................
int send_order(int teg_b,int sm, int ticket, double sLot, int _tp, int _sl, double ptp, double psl)
{int err=1,k=0,crach;
 double loss,profit,_Lot;
 bool result=TRUE;
 string tr;
 if(teg_b==0) tr="OPEN BUY"; else tr="OPEN SELL";
 ObjectCreate("PipsWork",OBJ_TEXT,0,iTime(NULL,0,10),High[10]);
 ObjectSetText("PipsWork", tr, 14,"",Red);
 WindowRedraw();
       
       while(TRUE)
         { k+=1; RefreshRates(); 
                  double ask=NormalizeDouble(Ask,Digits),bid=NormalizeDouble(Bid,Digits);
              
                  if(sLot==0) _Lot=0.1; else _Lot=sLot;
                  if(teg_b==0)
                  {
                  if (_sl>0) loss  =ask-_sl*Point;  else loss=0;
                  if (_tp>0) profit=ask+_tp*Point;    else profit=0;
                  if(profit==0){if(ptp!=0) profit=ptp; }
                  if(loss==0){if(psl!=0) loss=psl;}
                                  
                  if(sm==0) ticket=OrderSend(Symbol(),OP_BUY,_Lot,ask,Slipp,loss,profit,NULL,0,0,CLR_NONE);                       
                                                else  result=OrderModify(ticket,0,loss,profit,0,CLR_NONE);                
                  } else
                     {
                     if (_sl>0) loss  =bid+_sl*Point;  else loss=0;
                     if (_tp>0) profit=bid-_tp*Point;    else profit=0;
                     
                     if(profit==0){if(ptp!=0) profit=ptp; }
                     if(loss==0){if(psl!=0) loss=psl;}
                     
                     if(sm==0) ticket=OrderSend(Symbol(),OP_SELL,_Lot,bid,Slipp,loss,profit,NULL,0,0,CLR_NONE);                       
                                                else      result=OrderModify(ticket,0,loss,profit,0,CLR_NONE);               
                     }
         err=ShowError(Pop,k);
         if(err<=1&&result==TRUE) break; else  Sleep(3000); 
         if(k>=Pop) break;
         if(err==4||err==6||err==128||err==135||err==137||err==138||err==146) crach=0; else crach=1;
         if(crach==1) break;  //No new repeat is are crazy  
         }

 return (ticket);
}
//....................................................
string search_right(string s, string c)
{ int i,j,k,len; string r="",p;    
         i=StringFind(s,c,i); 
         if(i!=-1) 
         {i+=StringLen(c);
         r=""; len =StringLen(s);
   for(j=0;j<len;j++) { k=StringGetChar(s,i+j); if(k<=57&&k>=48||k==46||k==44) 
                                                {  p=StringSubstr(s,i+j,1); r=r+p;
                                                } else 
                break;}
          }
   return(r);
}
//..............
string search_left(string s,string c) 
{ int i,j,k,len; string r="",p;    
         i=StringFind(s,c,0);  
  if(i!=-1)
  {
  r="";        len =StringLen(s);
  r=StringSubstr(s,0,i);
  }
  else r=s;
  r=lowercaps(r);
  return(r);
}
//.........................
string lowercaps(string s)
{int i,k,c; string r=""; k=StringLen(s); for(i=0;i<k;i++){c=StringGetChar(s,i); if(c<91&&c>64) c+=32;r=r+CharToStr(c);}
 return (r);
}
//..........................

void param(string s)
      {string b,r;
      
         r=lowercaps(s);
         b=search_right(r,"tp="); if(StringLen(b)>0) tp =NormalizeDouble(StrToDouble(b),0); else tp=0;
         b=search_right(r,"sl="); if(StringLen(b)>0) sl =NormalizeDouble(StrToDouble(b),0); else sl=0;
         
         ObjectSetText(s,StringConcatenate("!O.k! tp=",DoubleToStr(tp,0),"  ",
         "sl=",DoubleToStr(sl,0)));
      }
//.....................................................................

bool cross_down(string s, color col)
{ return(first_line(s, 0, col));}


bool cross_up(string s, color col)
{  return(first_line(s, 1, col));}
//******************************************
double first_line(string s,int u_d,color col)                                                                         
{     int i,w,wi,ind; 
      bool isfound=FALSE;
      string c,r,b;
      double rline;
      int k=ObjectsTotal(); 

      for(i=k-1;i>=0;i--)
      {  
         c=ObjectName(i);
         r=search_left(c," ");
         if(r==s)
          { 
            w=ObjectFind(c);
            if(w==0)
               {
                  RefreshRates();
                  price0=NormalizeDouble(Close[start],Digits);
                  price1=NormalizeDouble(Close[start+1],Digits);
       
               }else
                     {
                     RefreshRates();
                           isfound=indicator(w);
                     }
            if(w!=0){if(!isfound) {ObjectSetText(s,"Ëèíèÿ èñïîëíÿòüñÿ ÍÅ áóäåò"); return (FALSE);}}
          
            rline = ObjectGetValue_ByCurrent(c, start);
            if(rline!=0)
            {  if(u_d==1)
               {
               if(cross_method==0) {if(rline<price0&&rline>price1) {last_line=c; return (TRUE);  }}
               if(cross_method==1) {if(rline<price0) {last_line=c; return (TRUE);  }}
               } 
               else
                  {
                  if(cross_method==0) {if(rline>price0 && rline<price1){ last_line=c; return (TRUE); } }
                  if(cross_method==1) {if(rline>price0 ){ last_line=c; return (TRUE);} }
                  }
            }
          }
         }//for
   return (FALSE);
}
//...............................................
bool indicator(int w)
{                          int wi; 
                           bool isfound=FALSE;
                           wi=WindowFind(StringConcatenate("RSI(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iRSI(Symbol(),0,Period_indicator,0,start_indicator);
                           price1=iRSI(Symbol(),0,Period_indicator,0,start_indicator+1);
                           isfound=TRUE;
                           }
                           
                           wi=WindowFind(StringConcatenate("CCI(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iCCI(Symbol(),0,Period_indicator,0,start_indicator);
                           price1=iCCI(Symbol(),0,Period_indicator,0,start_indicator+1);
                           isfound=TRUE;
                           }
                            wi=WindowFind(StringConcatenate("%R(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iWPR(Symbol(),0,Period_indicator,start_indicator);
                           price1=iWPR(Symbol(),0,Period_indicator,start_indicator+1);
                           isfound=TRUE;
                           }
                           wi=WindowFind(StringConcatenate("Momentum(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iMomentum(Symbol(),0,Period_indicator,0,start_indicator);
                           price1=iMomentum(Symbol(),0,Period_indicator,0,start_indicator+1);
                           isfound=TRUE;
                           }
                            wi=WindowFind(StringConcatenate("Force(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iForce(Symbol(),0,Period_indicator,0,0,start_indicator);
                           price1=iForce(Symbol(),0,Period_indicator,0,0,start_indicator+1);
                           isfound=TRUE;
                           }
                            wi=WindowFind(StringConcatenate("DeM(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iDeMarker(Symbol(),0,Period_indicator,start_indicator);
                           price1=iDeMarker(Symbol(),0,Period_indicator,start_indicator+1);
                           isfound=TRUE;
                           }
                           wi=WindowFind(StringConcatenate("ATR(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iATR(Symbol(),0,Period_indicator,start_indicator);
                           price1=iATR(Symbol(),0,Period_indicator,start_indicator+1);
                           isfound=TRUE;
                           }
                           wi=WindowFind("OBV");
                           if(w==wi)
                           {
                           price0=iOBV(Symbol(),0,0,start_indicator);
                           price1=iOBV(Symbol(),0,0,start_indicator+1);
                           isfound=TRUE;
                           }
                           wi=WindowFind(StringConcatenate("MFI(",DoubleToStr(Period_indicator,0),")"));
                           if(w==wi)
                           {
                           price0=iMFI(Symbol(),0,Period_indicator,start_indicator);
                           price1=iMFI(Symbol(),0,Period_indicator,start_indicator+1);
                           isfound=TRUE;
                           }
            return(isfound);
     }
//
int SearchWorkLine() 
{int i,k,w,ti=0,ct,mt[1000]; string r,c;
   k=ObjectsTotal(); 
   for(i=k-1;i>=0;i--)
   {  
      c=ObjectName(i);
      w=ObjectFind(c);
     
      r=search_left(c," ");
      if(r==   "buylimit"  )  { param(c); ObjectSet(c,OBJPROP_COLOR,color_buy);}
      if(r==   "buystop"   )  { param(c); ObjectSet(c,OBJPROP_COLOR,color_buy);}
      if(r==   "tpbuy"     )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_buy);}
      if(r==   "slbuy"     )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_buy);}
      if(r==   "selllimit" )  { param(c); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "sellstop"  )  { param(c); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "tpsell"    )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "slsell"    )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "slallsell" )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "tpallsell" )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_sell);}
      if(r==   "slallbuy"  )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_buy); }
      if(r==   "tpallbuy"  )  { ObjectSetText(c,"O.k."); ObjectSet(c,OBJPROP_COLOR,color_buy); }
      if(r==   "tpinitbuy" )  { if(w==0){tpinitbuy=ObjectGetValueByShift(c,0);
                                ObjectSetText(c,"O.k. tpinitbuy=",   tpinitbuy);s_tpinitbuy=c; }
                                else ObjectSetText(c,"Not execute ÍÅÒ èñïîëíåíèÿ");}
      if(r==   "slinitbuy" )  { if(w==0){slinitbuy=ObjectGetValueByShift(c,0);
                                ObjectSetText(c,"O.k. slinitbuy=",   slinitbuy);s_slinitbuy=c; }
                                else ObjectSetText(c,"Not execute ÍÅÒ èñïîëíåíèÿ");}
      if(r==   "tpinitsell")  { if(w==0){tpinitsell=ObjectGetValueByShift(c,0);
                                ObjectSetText(c,"O.k. tpinitsell=",  tpinitsell);s_tpinitsell=c;}
                                else ObjectSetText(c,"Not execute ÍÅÒ èñïîëíåíèÿ");}
      if(r==   "slinitsell")  { if(w==0){slinitsell=ObjectGetValueByShift(c,0);
                                ObjectSetText(c,"O.k. slinitsell=", slinitsell);s_slinitsell=c; }
                                else ObjectSetText(c,"Not execute ÍÅÒ èñïîëíåíèÿ");}
      if(w!=0)
      {
      if(!indicator(w))ObjectSetText(c,"Not execute ÍÅÒ èñïîëíåíèÿ");
      }
      r=search_left(c,"=");
      if(r==   "ticket"    )  { ti=StrToDouble(search_right(c,"TICKET=")); 
                                  if(qwest_order(ti)>0) 
                                    { 
                                       if(!IsTesting()) {if(Teg_DeletOpen) ObjectDelete(c);}
                                    } 
                                    mt[ct]=ti; ct+=1; 
                           }  
   } 
      int t_w;
      if(Buy_ticket!=0) 
      {t_w=0;
         for(i=0;i<ct;i++)
            {if(Buy_ticket==mt[i]) t_w=1; }
         if(t_w==0){if(close(Buy_ticket)==0){Buy_ticket=0; glob_b=1;}}
      }
      
      if(Sell_ticket!=0) 
      {t_w=0;
         for(i=0;i<ct;i++)
            {if(Sell_ticket==mt[i]) t_w=1; }
         if(t_w==0){if(close(Sell_ticket)==0){Sell_ticket=0; glob_s=1;}}
      }    
return (0);
}
//...............................
int qwest_order(int ticket) 
{ 
 if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
         {
            double  t=OrderCloseTime();
            if(t==0) return (0); else return(1);
         }  else return (0);
}
//...............................................
double ObjectGetValue_ByCurrent(string c, int shift) //Value of 
{

double r=ObjectGetValueByShift (c,shift);
      if(r!=0) return(r+ObjectGetDelta_ByCurrent(c)); else return(0);
}
//....................................
double ObjectGetDelta_PerBar(string c) //Increment of Y-ordinate per Bar
{ 
 double p=  ObjectGet(c,OBJPROP_PRICE1);
 double p2= ObjectGet(c,OBJPROP_PRICE2);
 
 int b =    ObjectGetShiftByValue(c,p);
 int b2=    ObjectGetShiftByValue(c,p2);        
 double     z=b-b2;  
            if(z!=0)
               {
               double delta=(p2-p)/z;
               }
 return(delta);
}
//***************************************
double ObjectGetDelta_ByCurrent(string c)
{ 
      double t=TimeCurrent()-iTime(Symbol(),0,0);
      double tf=60*Period();
      double delta=ObjectGetDelta_PerBar(c);
      double r=delta*(t/tf);
 return(r);
}
//****************************************************************************

//þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ


int ShowError(int Pop, int k)
{
   string d_error;
   int err=GetLastError(),crach; //3 129 130 131 134 139 140 
   switch (err)            //ïîâòîð òîëüêî ïðè 4, 6, 135, 136 137 138 146 
   {
      case   0: return;
      case   1: d_error="Ðåçóëüòàò íåèçâåñòåí"; break;
      case   2: d_error="Îáùàÿ îøèáêà"; break;
      case   3: d_error="Íåïðàâèëüíûå ïàðàìåòðû"; break;
      case   4: d_error="Òîðãîâûé ñåðâåð çàíÿò"; break;
      case   5: d_error="Íå îáñëóæèâàåìàÿ âåðñèÿ êëèåíòñêîãî òåðìèíàëà"; break;
      case   6: d_error="Íåò ñâÿçè ñ òîðãîâûì ñåðâåðîì"; break;
      case   7: d_error="Íåäîñòàòî÷íî ïðàâ"; break;
      case   8: d_error="Ñëèøêîì ÷àñòûå çàïðîñû"; break;
      case   9: d_error="Íåäîïóñòèìàÿ îïåðàöèÿ âðåäÿùàÿ ñåðâåðó"; break;
      case  64: d_error="Ñ÷åò çàáëîêèðîâàí"; break;
      case  65: d_error="Íåïðàâèëüíûé íîìåð ñ÷åòà"; break;
      case 128: d_error="Èñòåê ñðîê îæèäàíèÿ âûïîëíåíèÿ îðäåðà"; break;
      case 129: d_error="Íåïðàâèëüíàÿ öåíà"; break;
      case 130: d_error="Íåïðàâèëüíûå ñòîïû"; break;
      case 131: d_error="Íåïðàâèëüíûé îáúåì"; break;
      case 132: d_error="Ðûíîê çàêðûò"; break;
      case 133: d_error="Òîðãîâëÿ çàïðåùåíà"; break;
      case 134: d_error="Íåäîñòàòî÷íî äåíåã äëÿ ñîâåðøåíèÿ îïåðàöèè"; break;
      case 135: d_error="Öåíà èçìåíèëàñü"; break;
      case 136: d_error="Íåò öåí"; break;
      case 137: d_error="Áðîêåð çàíÿò"; break;
      case 138: d_error="Íîâûå öåíû"; break;
      case 139: d_error="Îðäåð çàáëîêèðîâàí è óæå îáðàáàòûâàåòñÿ"; break;
      case 140: d_error="Ðàçðåøåíà òîëüêî ïîêóïêà"; break;
      case 141: d_error="Ñëèøêîì ìíîãî çàïðîñîâ"; break;
      case 145: d_error="Ìîäèôèêàöèÿ çàïðåùåíà, òàê êàê îðäåð ñëèøêîì áëèçîê ê ðûíêó"; break;
      case 146: d_error="Ïîäñèñòåìà òîðãîâëè çàíÿòà"; break;
      case 147: d_error="Èñïîëüçîâàíèå äàòû èñòå÷åíèÿ îðäåðà çàïðåùåíî áðîêåðîì"; break;
      default : d_error="Íåèçâåñòíàÿ îøèáêà"; break;
   }
   
   if(err==4||err==6||err==128||err==135||err==137||err==138||err==146) crach=0; else crach=1; 
   string field="     ";
   string msg="Îøèáêà #"+err+" "+d_error+field+ "Ïîïûòîê="+DoubleToStr(k,0)+"  "+DoubleToStr(Pop,0);
   string title="Îøèáêà"; if (AccountNumber()>0)title=AccountNumber()+": "+title;
  
                  ObjectSetText("PipsWork", msg, 14,"",Red); 
     if(Pop-1==k) ObjectSetText("PipsWork", msg, 14,"",Red); 
   message = msg;
   return (err);
}
//O.k.