swap_hunting

//+------------------------------------------------------------------+
//|                                                 ñâîï-õàíòèíã.mq4 |
//|                                                  nirda@yandex.ru |
//|                Îòêðûâàåò âñå îðäåðà ñ ïîëîæèòåëüíûì ñâîîì     .. |
//+------------------------------------------------------------------+
#property copyright "nirda@yandex.ru"
#property version   "1.00"
#property link      "http://www.nirda.narod.ru"
#property strict
#property script_show_inputs
//--- input parameters
input double    min_buy=1.2;
input double    min_sell=1.2;
input double    Echo_Lot=0.01;
void start() {
   string title="Ñêðèïò";
   string msg="Îòêðûòü âñå îðäåðà BUY è SELL?    ";
   if (MessageBox(msg,title,MB_YESNO|MB_ICONQUESTION)!=IDYES) return;

   int Magick = 12131415;    // ñîáñòâåííûé íîðåð(ó êàæäîãî òåéäåðà ñâîé)
   int i, ticket, kol = 0, kol2 = 0;
   double         a, b, price, A;
   string         s;

string simvol[];
int hFile = FileOpenHistory("symbols.raw", FILE_BIN|FILE_READ); 
if(hFile<0) return;  // Îòêðûâàåì symbols.raw
int nSmb=FileSize(hFile)/1936; // Îïðåäåëÿåì êîëè÷åñòâî ñèìâîëîâ, çàðåãèñòðèðîâàííûõ â ôàéëå
ArrayResize(simvol, nSmb);
for(i=0; i<nSmb; i++) { 
simvol[i] = FileReadString(hFile, 12); 
FileSeek(hFile, 1924, SEEK_CUR); 
//printf (simvol[i]);
}  // ÷èòàåì âñå ñèìâîëû 

   for(i = 0;i < nSmb;i++) {
      if(simvol[i] != NULL) {
      kol++; 
      }    // c÷èòàåì âñå ñèìâîëû
   }
   ObjectsDeleteAll();  // óäàëåíèå îáüåêòîâ ãðàôèêà(î÷èñòêà)
   for(i = 0;i < kol;i++) {
      s = simvol[i];
      if(MarketInfo(s,MODE_TRADEALLOWED) == true) {
         a = MarketInfo(s,MODE_SWAPLONG);
         b = MarketInfo(s,MODE_SWAPSHORT);
         if(a > min_buy) {// äëÿ ñåáÿ.. òîëüêî ïðîäàâàòü, ïîêóïàøêè íå íóæíû.. 
            RefreshRates();
            price = MarketInfo(s,MODE_ASK);
            A=MarketInfo(s,MODE_MINLOT);
            ticket=OrderSend(s,OP_BUY,Echo_Lot,price,30,0,0,"My order",Magick,0,clrGreen);
            if(ticket > 0) { kol2++;
               Print("   long-buy   ",a," ",s," ",A);
            }
            else 
               Print(" ???  long-buy   ",a," ticket ",ticket," ; ", GetLastError()," ; ",s," min lot ",A);
        }
        else if(b > min_sell) {// òîëüêî ïðîäàâàòü, âðåìÿ íå êóïèøü..
            RefreshRates();
            price = MarketInfo(s,MODE_BID);
            A=MarketInfo(s,MODE_MINLOT);
            ticket=OrderSend(s,OP_SELL,Echo_Lot,price,30,0,0,"My shor-sell order ",Magick-1,0,clrNONE);
            if(ticket > 0) { kol2++;
               Print("   shor-sell   ",b," ticket  ",ticket,"   ; ", s);
            }
            else
               Print("  ???   shot-sell   ",b," ticket ",ticket," ; ", GetLastError()," ; ",s," min lot ",A );
         }
    }
      else
         Print("   ??? Ðàçðåøåíèå òîðãîâ ïî óêàçàííîìó èíñòðóìåíò   ",MarketInfo(s,MODE_TRADEALLOWED));
   }
   Print("          Êîëè÷åñòâî èíñòðóìåíòîâ =  ",kol,"   Êîëè÷åñòâî îðäåðîâ =  ",kol2);
}
// End