Transceptor Technology

deletetxt1("Telecom");
deletetxt1("Ucount");

if (Period()==240){
   for (i = lookback; i >=0; i--) {
      if (iFractals(symbol,0,MODE_UPPER,i) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-100*Point) {
         j=i+4;
         while (j<i+20){ 
            if (iFractals(symbol,0,MODE_UPPER,j) && High[j]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,j) && High[j]<High[i]) break;
         j++;
         }     
      }
      if (j<i+20 && j>i+1 && iFractals(symbol,0,MODE_UPPER,j) && iFractals(symbol,0,MODE_UPPER,i) && High[i]>iBands(symbol,0,30,2,0,PRICE_MEDIAN,MODE_UPPER,i)-100*Point){
         ObjectCreate("Telecom"+DoubleToStr(i), OBJ_TEXT, 0, Time[i], High[i]+80*Point); 
         ObjectSetText("Telecom"+DoubleToStr(i), "T", 34, "Impact",  Violet);
         k=i-1;
         int ucount = 1;
         while (k>=0){
             if (ucount<7){  
             if (ucount>2){
             ObjectCreate("Ucount"+DoubleToStr(k), OBJ_TEXT, 0, Time[k], High[k]+80*Point); 
             ObjectSetText("Ucount"+DoubleToStr(k), IntegerToString(ucount), 14, "Impact",  Gray);}
             if (Low[k]<iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,k)-130*Point) ObjectSetText("Ucount"+DoubleToStr(k), IntegerToString(ucount), 14, "Impact",  Crimson);              
             if (k>5 && Low[k]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,k) && Low[k+1]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,k+1)  && Low[k+2]>iMA(symbol,0,8,0,MODE_EMA,PRICE_OPEN,k+2)) ObjectSetText("Ucount"+DoubleToStr(k), IntegerToString(ucount), 14, "Impact",  Green);   
            ucount++;   
            }
            k--;         
         }
           
         
      } 
   
   
   }
}