Time

//
//  Time.mq4 
//  Dmitry Yakovlev 
//  dmitry_yakovlev@rambler.ru
//  Íà ïèâî WebMoney R865705290089
//------------------------------------------------------------------
#property copyright "Dmitry Yakovlev, Russia,Omsk, WM R865705290089"
#property link      "dmitry_yakovlev@rambler.ru"

#property indicator_chart_window

#import  "shell32.dll"           //Connect a dll (provided with Windows)             
  int ShellExecuteA(int hwnd,string Operation,string File,string Parameters,string Directory,int ShowCmd); 
#import "user32.dll"
  int MessageBoxA(int hWnd ,string lpText,string lpCaption,int uType);
#import

extern string  _Color="Öâåò òåêñòà:";
extern color   nColor=MediumBlue;
extern string  _ModeInfo1="Îáðàòíûé îòñ÷åò:";
extern int     lCountdown=1;
extern string  _ModeInfo2="Èíôîðìàöèÿ:";
extern int     lInfo=1;
extern string  _donate1="Äëÿ \"Ñïàñèáî\"";
extern string  _donate2="R865705290089";
extern string  _advert="Íàïèøó íà çàêàç,ïåðåäåëàþ.";

int init()
{
   CheckDonate();

   ObjectDelete("Time_Timer");
   ObjectDelete("Time_Info");
   ObjectDelete("Time_Info2");
} 
int deinit()
{
   ObjectDelete("Time_Timer");
   ObjectDelete("Time_Info");
   ObjectDelete("Time_Info2");
}

int start()
{
   int i,sign=0;
   double TickValue=MarketInfo(Symbol(), MODE_TICKVALUE);
   int spread=MarketInfo(Symbol(), MODE_SPREAD);
   
   ObjectDelete("Time_Info");
   ObjectDelete("Time_Info2");
   if(lInfo==1)
   {
      // <---- ñ÷èòàåì ñòîïû ----
      double sum_stop=0, sum_profits=0;
      for(i=0;i<OrdersTotal();i++)
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==true && OrderSymbol()==Symbol() && (OrderType()==OP_BUY || OrderType()==OP_SELL ) )
      {
         sign=0;
         if(OrderStopLoss()!=0)
         {
            if(OrderType()==OP_SELL) sign=-1; else sign=+1;
            sum_stop=sum_stop+OrderLots()*TickValue*sign*(OrderOpenPrice()-OrderStopLoss())/Point;
         }
      
         if(OrderTakeProfit()!=0)
         {
            if(OrderType()==OP_BUY) sign=-1; else sign=+1;
            sum_profits=sum_profits+OrderLots()*TickValue*sign*(OrderOpenPrice()-OrderTakeProfit())/Point;
         }
      }
      // ---- ñ÷èòàåì ñòîïû --- >
      string cInfo;
      ObjectCreate("Time_Info", OBJ_LABEL,0,0,0);
      ObjectSet("Time_Info", OBJPROP_CORNER,0);
      ObjectSet("Time_Info", OBJPROP_XDISTANCE,270);
      ObjectSet("Time_Info", OBJPROP_YDISTANCE,0);
      cInfo="Ñïðýä:"+DoubleToStr(spread,0)+
            "  1ï="+DoubleToStr(TickValue,2)+"$";//+
            //"  áàë:"+DoubleToStr(AccountBalance(),2)+
            //"  ïð:"+DoubleToStr(AccountBalance()+sum_profits,2)+"("+DoubleToStr(sum_profits,2)+")"+
            //"  ñò:"+DoubleToStr(AccountBalance()-sum_stop,2)+"("+DoubleToStr(-sum_stop,2)+")";
      ObjectSetText("Time_Info", cInfo, 10, "Arial", nColor);
      
      ObjectCreate("Time_Info2", OBJ_LABEL,0,0,0);
      ObjectSet("Time_Info2", OBJPROP_CORNER,0);
      ObjectSet("Time_Info2", OBJPROP_XDISTANCE,200);
      ObjectSet("Time_Info2", OBJPROP_YDISTANCE,20);
      ObjectSetText("Time_Info2","áàë:"+DoubleToStr(AccountBalance(),2)+"   ïð: "+DoubleToStr(AccountBalance()+sum_profits,2)+"("+DoubleToStr(sum_profits,2)+")   ñò: "+DoubleToStr(AccountBalance()-sum_stop,2)+"("+DoubleToStr(-sum_stop,2)+")", 9, "Arial", nColor);
   }
   
   // <-timer
   ObjectDelete("Time_Timer");
   if(lCountdown==1)
   {
      int tmp1=Period()*60-TimeCurrent()+Time[0];
      int tmpm=MathFloor(tmp1/60),tmps=tmp1-tmpm*60;
      string strm=DoubleToStr(tmpm,0);
      string strs=DoubleToStr(tmps,0);
      if(StringLen(strs)==1) strs="0"+strs;

      int tmp2=TimeCurrent()-Time[0];
      int tmpm2=MathFloor(tmp2/60),tmps2=tmp2-tmpm2*60;
      string strm2=DoubleToStr(tmpm2,0);
      string strs2=DoubleToStr(tmps2,0);
      if(StringLen(strs2)==1) strs2="0"+strs2;
   
      ObjectCreate("Time_Timer", OBJ_LABEL,0,0,0);
      ObjectSet("Time_Timer", OBJPROP_CORNER,1); //0
      ObjectSet("Time_Timer", OBJPROP_XDISTANCE,50); //550
      ObjectSet("Time_Timer", OBJPROP_YDISTANCE,0);
      ObjectSetText("Time_Timer",strm2+":"+strs2+"..."+strm+":"+strs, 12, "Arial", MediumBlue);
   }
   // -timer>
}


void CheckDonate()
{
   int fd=0; string pay="0"; datetime dt=0;
   string fn="Time.txt";
   fd=FileOpen(fn,FILE_READ|FILE_CSV,";");
   if(fd>=1)
   {
      pay=FileReadString(fd); if(pay!="0" && pay!="1") pay="0";
      dt=StrToTime(FileReadString(fd));
   }
   else
   {
      dt=TimeCurrent();
      fd=FileOpen(fn,FILE_WRITE|FILE_CSV,";");
      FileWrite(fd,"0",TimeToStr(dt,TIME_DATE));
   }
   FileClose(fd);
   
   if(pay=="0" && (TimeCurrent()-dt)>10*24*60*60) // 5 äíåé
   {
      if(MessageBoxA(0,"Åñëè Âàì ïîíðàâèëñÿ èíäèêàòîð Time,\n õîòèòå ïîìî÷ü àâòîðó ìàòåðèàëüíî?","Âîïðîñ",4)==6)
      {
         ShellExecuteA(0,"Open","iexplore.exe","wmk:payto?Purse=R865705290089&Amount=30&Desc=Indicator&BringToFront=Y&ExecEvenKeeperIsOffline=Y","",7);
         pay="1";
      }
      dt=TimeCurrent();
      
      fd=FileOpen(fn,FILE_WRITE|FILE_CSV,";");
      FileWrite(fd,pay,TimeToStr(dt,TIME_DATE));
      FileClose(fd);
   }
   FileClose(fd);
}