#define K_NB 10
#define K_NBTF 21

int G_Handle;
datetime G_Bar0;
string G_TF[K_NBTF] = {« M1 » , « M2 » , « M3 » , « M4 » , « M5 » , « M6 », « M10 » , « M12 » , « M15 » , « M20 » , « M30 » ,
« H1 » , « H2 » , « H3 » , « H4 » , « H6 » , « H10 » , « H12 » , « D1 » , « W1 » , « MN1 »};
bool G_Memo[K_NB];
bool G_En_cours[K_NB];

//+——————————————————————+
int OnInit()
{
   // Configure l’indicateur
   // -> Le titre est forcé à «  » pour indiquer le robot
   //————————————————–
   G_Handle = iCustom(NULL , PERIOD_CURRENT , « NICE collection\\Nice_GPOT_MTF » , «  »);
   if (G_Handle == INVALID_HANDLE) return(INIT_FAILED);

   G_Bar0 = 0;
   ArrayInitialize(G_Memo , false);

   return(INIT_SUCCEEDED);
}

//+——————————————————————+
void Affiche_Detection(const int detection)
{
   // Données locales
   //—————-
   int l_Indice;

   // Pas de détection
   //—————–
   if (detection == 0) return;

   // Indice des données de détection
   //——————————–
   l_Indice = (int)MathAbs(detection) – 1;

   // Détection BEARish
   //——————
   if (detection < 0)
   {
      if (!G_Memo[l_Indice]) Print(« Détection BEAR en  » , G_TF[l_Indice]);
      G_En_cours[l_Indice] = true;
   }

   // Détection BULLish
   //——————
   else if (detection > 0)
   {
      if (!G_Memo[l_Indice]) Print(« Détection BULL en  » , G_TF[l_Indice]);
      G_En_cours[l_Indice] = true;
   }
}

//+——————————————————————+
void OnTick()
{
   // Données locales
   //—————-
   int l_Loop;
   datetime l_Time[];
   double l_Result[];
   string l_Texte;

   // Détection d’une nouvelle bougie
   //——————————–
   if (CopyTime(NULL , PERIOD_M1 , 0 , 2 , l_Time) != 2) return;
   ArraySetAsSeries(l_Time , true);
   if (G_Bar0 == l_Time[1])
   {
      // Initialise le tableau des détection courantes
      //———————————————-
      ArrayInitialize(G_En_cours , false);

      // Lit toutes les infos disponibles
      //———————————
      for (l_Loop = 0 ; l_Loop < K_NB ; l_Loop++)
      {
         // Récupère les informations
         //————————–
         if (CopyBuffer(G_Handle , 2 + l_Loop , 0 , 1 , l_Result) == 1)
         {
            // Traite l’information GPOT valide
            //———————————
            Affiche_Detection(int(l_Result[0]));
         }
      }

      // Met à jour les détections trouvées
      //———————————–
      ArrayCopy(G_Memo , G_En_cours);
   }

   // Mémorisation
   //————-
   G_Bar0 = l_Time[0];
}