SHE_kanskigor_v1

//+------------------------------------------------------------------+
//|                                             SHE_kanskigor.mq4 |
//|                                         Copyright © 2006, Shurka |
//|                                                 shforex@narod.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Shurka"
#property link      "shforex@narod.ru"
#define MAGIC 130306

extern double        Lots=0.1;         // Êîëè÷åñòâî ëîòîâ äëÿ òîðãîâ
extern int           Profit=35;        // Âåëè÷èíà òåéêïðîôèòà, åñëè 0 - èãðàåì áåç ïðîôèòà
extern int           Stop=55;          // Âåëè÷èíà ñòîïëîññà, åñëè 0 - èãðàåì áåç ñòîïà
extern int           Slippage=5;       // Ïðîñêàëüçûâàíèå
extern string        Symb="*";         // Ñèìâîë äëÿ òîðãîâ. Åñëè * òî ïî òåêóùåìó ñèìâîëó ãðàôèêà
                                       // èíà÷å íóæíî âïèñàòü èíñòðóìåíò òèïà EURUSD
extern string        StartTime="00:05";// Âðåìÿ ñòàðòà ïî ãðèíâè÷ó

datetime             TimeStart;
double               stoplevel,profitlevel;
string               SMB;
bool                 trade=false;

//+------------------------------------------------------------------+
//| Îñíîâíàÿ ôóíêöèÿ                                                 |
//+------------------------------------------------------------------+
int start()
{
   int      i,b;
   
   // Ïåðåâîäèì âðåìÿ èç ñòðî÷íîé âåëè÷èíû StartTime âî âðåìåííÓþ TimeStart
   TimeStart=StrToTime(StartTime);
   // Åñëè òåêóùåå âðåìÿ ìåíüøå ñòàðòîâîãî èëè áîëüøå åãî íà 5 ìèíóò, òî âûõîäèì è íè÷åãî íå äåëàåì.
   // Íî ïðåäâàðèòåëüíî äåëàåì ïåðåìåííóþ trade ëîæíîé. Ïðîñòî ñáðàñûâàåì èíôîðìàöèþ î òîì, ÷òî óæå îòêðûâàëèñü.
   if(CurTime()<TimeStart || CurTime()>TimeStart+300) { trade=false; return(0); }
   // Åñëè trade èñòèííà, çíà÷èò óæå óñïåëè îòêðûòüñÿ.
   if(trade) return(0);
   // Åñëè öåíà îòêðûòèÿ â÷åðà áûëà áîëüøå öåíû çàêðûòèÿ, çíà÷èò ïîêóïàåì èíà÷å ïðîäà¸ì
   if(iOpen(SMB,PERIOD_D1,1)>iClose(SMB,PERIOD_D1,1)) b=OP_BUY; else b=OP_SELL;
   // Åñëè ïîêóïàåì
   if(b==OP_BUY)
   {
      // Åñëè Stop áûë çàäàí 0, òî â ñòîïóðîâåíü çàãîíÿåì 0, èíà÷å Ask-Stop
      if(Stop==0) stoplevel=0; else stoplevel=MarketInfo(SMB,MODE_ASK)-Stop*MarketInfo(SMB,MODE_POINT);
      // Òî æå è ñ ïðîôèò óðîâíåì
      if(Profit==0) profitlevel=0; else profitlevel=MarketInfo(SMB,MODE_ASK)+Profit*MarketInfo(SMB,MODE_POINT);
      // Îòêðûâàåìñÿ â ïîêóïêó îò öåíû Ask ñî ñòîïîì stoplevel è ïðîôèòîì profitlevel
      i=OrderSend(SMB,OP_BUY,Lots,MarketInfo(SMB,MODE_ASK),Slippage,stoplevel,profitlevel,NULL,MAGIC,0,Red);
      // Åñëè îðäåð óäà÷íî îòêðûëñÿ, òî èíäèêàòîð torg âçâîäèì â èñòèíó, ÷òîáû áîëüøå ïîêà íå òîðãîâàòü
      if(i!=-1) trade=true;
   }
   // Ñ ïðîäàæåé òî æå ñàìîå, ÷òî è ñ ïîêóïêîé.
   if(b==OP_SELL)
   {
      if(Stop==0) stoplevel=0; else stoplevel=MarketInfo(SMB,MODE_BID)+Stop*MarketInfo(SMB,MODE_POINT);
      if(Profit==0) profitlevel=0; else profitlevel=MarketInfo(SMB,MODE_BID)-Profit*MarketInfo(SMB,MODE_POINT);
      i=OrderSend(SMB,OP_SELL,Lots,MarketInfo(SMB,MODE_BID),Slippage,stoplevel,profitlevel,NULL,MAGIC,0,Blue);
      if(i!=-1) trade=true;
   }
   return(0);
}
//+------------------------------------------------------------------+
//| Ôóíêöèÿ èíèöèàëèçàöèè ñîâåòíèêà                                  |
//+------------------------------------------------------------------+
int init()
{
   int i;
   // Îïðåäåëÿåì ïàðó äëÿ òîðãîâëè
   if(Symb=="*") SMB=Symbol(); else SMB=Symb;
   return(0);
}
//+------------------------------------------------------------------+
//| Ôóíêöèÿ äåèíèöèàëèçàöèè ñîâåòíèêà                                |
//+------------------------------------------------------------------+
int deinit() { return(0); }
//+------------------------------------------------------------------+