//+------------------------------------------------------------------+
//|                                                  TotalPips4H.mq4 |
//|                      Copyright © 2010, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

#property indicator_separate_window

#property indicator_buffers 1
#property indicator_color1 Red

extern int barras = 100;

double BufferTotalPips[];



int init()
  {
IndicatorShortName("TotalPips 4H");
   SetIndexBuffer(0, BufferTotalPips);
   SetIndexStyle(0,DRAW_LINE);

   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
{
   int a;
   double EJ4H,EG4H,EA4H,EU4H,EC4H,EN4H;
  
      for(a=1;a<barras;a++)
      {
         EJ4H = iClose("EURJPY",Period(),a)-iOpen("EURJPY",Period(),a+((240/Period())-1));
         EG4H = iClose("GBPJPY",Period(),a)-iOpen("GBPJPY",Period(),a+((240/Period())-1));
         EA4H = iClose("AUDJPY",Period(),a)-iOpen("AUDJPY",Period(),a+((240/Period())-1));
         EU4H = iOpen("USDJPY",Period(),a+((240/Period())-1))-iClose("USDJPY",Period(),a);
         EC4H = iOpen("CHFJPY",Period(),a+((240/Period())-1))-iClose("CHFJPY",Period(),a);
         EN4H = iOpen("NZDJPY",Period(),a+((240/Period())-1))-iClose("NZDJPY",Period(),a);
         BufferTotalPips[a] = (EJ4H+EG4H+EA4H-EU4H-EC4H-EN4H)*100;
      }
      
         EJ4H = MarketInfo("EURJPY",MODE_ASK)-iOpen("EURJPY",PERIOD_M1,239);
         EG4H = MarketInfo("GBPJPY",MODE_ASK)-iOpen("GBPJPY",PERIOD_M1,239);
         EA4H = MarketInfo("AUDJPY",MODE_ASK)-iOpen("AUDJPY",PERIOD_M1,239);
         EU4H = iOpen("USDJPY",PERIOD_M1,239)-MarketInfo("USDJPY",MODE_BID);
         EC4H = iOpen("CHFJPY",PERIOD_M1,239)-MarketInfo("CHFJPY",MODE_BID);
         EN4H = iOpen("NZDJPY",PERIOD_M1,239)-MarketInfo("NZDJPY",MODE_BID);
         BufferTotalPips[0] = (EJ4H+EG4H+EA4H-EU4H-EC4H-EN4H)*100;

      
   return(0);
  }
//+------------------------------------------------------------------+