RSI-TC_NEW_Alert2

/*

*********************************************************************
          
                 RSI with Trend Catcher signal
                      
                              
                          by Matsu
              based on codes from various sources
                  
*********************************************************************
// added sound feb/17/2009 - itemsdepot@hotmail.com
*/


#property indicator_separate_window
#property indicator_buffers 5

#property indicator_color1 Silver
#property indicator_color2 Gray
#property indicator_color3 Lime
#property indicator_color4 Red
#property indicator_color5 Gold

#property indicator_level1 60
#property indicator_level2 50
#property indicator_level3 40

#property indicator_width1 3
#property indicator_width2 3
#property indicator_width3 3
#property indicator_width4 3
#property indicator_width5 1


int       BBPrd=20;
double    BBDev=2.0;
int       SBPrd=13;
int       SBATRPrd=21;
double    SBFactor=2;
int       SBShift=1;
extern int  RSIPeriod=21;
extern int  BullLevel=50;
extern int  BearLevel=50;
extern bool RSiTCMessageBoxOn=True;
extern bool RSiTCSoundAlertOn=True;
extern int  RSiTCAlarmDelay=20;
extern bool  RSiTCFilter=True;
extern int  RSiTCFontsize=10;


double RSI[];
double DnRSI[];
double Sell[];
double Buy[];
double Squeeze[];

string RSiTCShortName;
string RSiTCLabel1;
double RSiTCTime;


//-------------------------------------------------------
//-------- Init
//--------
//-------------------------------------------------------

int init() 
{

   IndicatorBuffers(5);
   
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,RSI);
   
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,DnRSI);
   
   SetIndexStyle(2,DRAW_ARROW,STYLE_SOLID);  
   SetIndexArrow(2,159);
   SetIndexBuffer(2,Buy);
   
   SetIndexStyle(3,DRAW_ARROW,STYLE_SOLID);   
   SetIndexArrow(3,159);
   SetIndexBuffer(3,Sell);
   
   SetIndexStyle(4,DRAW_ARROW,STYLE_SOLID); 
   SetIndexArrow(4,159);
   SetIndexBuffer(4,Squeeze);
      

   
   RSiTCTime=TimeLocal();
   RSiTCShortName="RSiTrendCatcher";
   
   IndicatorShortName(RSiTCShortName);
   IndicatorDigits(2);   
   
   
   RSiTCLabel1="-";
   
   return(0);
   
}


//-------------------------------------------------------
//-------- De-Init
//--------
//-------------------------------------------------------


int deinit() 
{


   ObjectDelete(RSiTCLabel1);
   return(0);
   
}



//-------------------------------------------------------
//-------- 
//--------
//-------------------------------------------------------

int start() 
{

   int counted_bars=IndicatorCounted();
   int shift,limit,ob,os;
   double BBMA, SBMA, TopBBand, BotBBand, TopBBandPrev, BotBBandPrev, TopSBand, BotSBand;
   bool dn = false;
   double BuyNow, BuyPrevious, SellNow, SellPrevious;
   static datetime prevtime = 0;
   double RSiTCFinishTime=TimeLocal();
   bool   RSiTCSpeak=False;
   //indicator_level1 = RSiTCSellLevel;
   //indicator_level3 = RSiTCBuyLevel;
   
      
   if (counted_bars<0) return(-1);
   if (counted_bars>0) counted_bars--;
   limit=Bars-31;
   if(counted_bars>=31) limit=Bars-counted_bars-1;

   for (shift=limit;shift>=0;shift--)   
   {
            
      RSI[shift]=iRSI(NULL,0,RSIPeriod,PRICE_CLOSE,shift);
      ob = indicator_level1;
      os = indicator_level3;

      // ========= Two-tone RSI
      
      if (dn==true)
      {
         if (RSI[shift]>BullLevel) //-------------
         {
            dn=false;
            DnRSI[shift]=EMPTY_VALUE;
         }
         else
         {
            dn=true;
            DnRSI[shift]=RSI[shift];
         }

      }
      else
      {
         if (RSI[shift]<BearLevel) 
         {
            dn=true;
            DnRSI[shift]=RSI[shift];
         }
         else
         {
            dn=false;
            DnRSI[shift]=EMPTY_VALUE;
         }
           
      }
      
      // ========= Two-tone RSI Ends
      
      // ========= Squeeze Signals
      
      BBMA     = iMA(NULL,0,BBPrd,0,MODE_SMA,PRICE_CLOSE,shift);
      SBMA     = iMA(NULL,0,SBPrd,0,MODE_EMA,PRICE_CLOSE,shift+SBShift);
      TopBBand = iBands(NULL,0,BBPrd,BBDev,0,PRICE_CLOSE,MODE_UPPER,shift);
	   BotBBand = iBands(NULL,0,BBPrd,BBDev,0,PRICE_CLOSE,MODE_LOWER,shift);
      TopSBand = SBMA + (SBFactor * iATR(NULL,0,SBATRPrd,shift+SBShift));
      BotSBand = SBMA - (SBFactor * iATR(NULL,0,SBATRPrd,shift+SBShift));
      TopBBandPrev = iBands(NULL,0,BBPrd,BBDev,0,PRICE_CLOSE,MODE_UPPER,shift+1);
	   BotBBandPrev = iBands(NULL,0,BBPrd,BBDev,0,PRICE_CLOSE,MODE_LOWER,shift+1);
      
      if (TopBBand<TopSBand && BotBBand>BotSBand) Squeeze[shift]=50;
      
      // ========= Squeeze Signals Ends
      
      
      // ========= BB Breakout Signals
      
      //if(Squeeze[shift+2]==50 && RSI[shift]>50 && BotBBand<BotSBand) 
      if((Squeeze[shift+2]==50 || Squeeze[shift+1]==50) && RSI[shift]>50 && BotBBand<BotSBand) 
      {
         Buy[shift]=ob;
         Sell[shift]=EMPTY_VALUE;
      } 
      else 
      //if(Squeeze[shift+2]==50 && RSI[shift]<50 && TopBBand>TopSBand) 
      if((Squeeze[shift+2]==50 || Squeeze[shift+1]==50) && RSI[shift]<50 && TopBBand>TopSBand) 
      {
         Buy[shift]=EMPTY_VALUE;
         Sell[shift]=os;
      }
      else
      if(Buy[shift+1]==ob && BotBBand<BotBBandPrev && RSI[shift]>50)
      {
         Buy[shift]=ob;
         Sell[shift]=EMPTY_VALUE;
      } 
      else
      if(Sell[shift+1]==os && TopBBand>TopBBandPrev && RSI[shift]<50)
      {
         Buy[shift]=EMPTY_VALUE;
         Sell[shift]=os;
      }
      else
      {
         Buy[shift]=EMPTY_VALUE;
         Sell[shift]=EMPTY_VALUE;
      }
      
      // ========= BB Breakout Signals Ends
      

      
   }
   
   //Print("RSi___________"+RSI[0]);
         
   ObjectDelete(RSiTCLabel1);      
   //------------------------------------------------
     if(!ObjectCreate(RSiTCLabel1, OBJ_LABEL,WindowFind(RSiTCShortName), 0, 0))
       {
        Print("Error: - Code #",GetLastError());
       return(0);
       }else{
                           ObjectSetText(RSiTCLabel1,"RSi: "+RSI[0] ,RSiTCFontsize, "Tahoma");
              if (RSI[0]>ob) ObjectSet(RSiTCLabel1, OBJPROP_COLOR, Lime);
              if (RSI[0]>os) ObjectSet(RSiTCLabel1, OBJPROP_COLOR, Silver);
              if (RSI[0]<os) ObjectSet(RSiTCLabel1, OBJPROP_COLOR, Red);
              
              
                 ObjectSet(RSiTCLabel1, OBJPROP_XDISTANCE, (RSI[0]*10) );
                 ObjectSet(RSiTCLabel1, OBJPROP_YDISTANCE, 0);
	           // ObjectSet(RSiTCLabel1, OBJPROP_BACK, Green); 
                
              
       }      

   //---------------------------------------------------
   //Print("  Rsi :"+RSI[0]);
   //Print("DnRsi :"+DnRSI[0]);
   //Print("  Buy :"+Buy[0]);
   //Print(" Sell :"+Sell[0]);
   //Print("  Sqz :"+Squeeze[0]);

   
   //----------------------------------------------------
   RSiTCSpeak=False;
   RSiTCFinishTime=TimeLocal(); 
                                                   
   if ((RSiTCFinishTime - RSiTCTime) >= RSiTCAlarmDelay )    // && pos==0)
      {       
          RSiTCFinishTime=TimeLocal();
          RSiTCTime=TimeLocal();
          RSiTCSpeak=True;      
       }     
   
   
   
   // ======= Alert =========

   if(RSiTCSpeak==True)
   {
  
      BuyNow = Buy[1];
      BuyPrevious = Buy[2];
      SellNow = Sell[1];
      SellPrevious = Sell[2];
   

      
      
      if (RSiTCFilter==True)
      {


          if((BuyNow ==ob) && (BuyPrevious ==EMPTY_VALUE))
          {
             //Alert(Symbol(), " M", Period(), " Buy Alert");
             if (RSiTCSoundAlertOn==True) PlaySound("news.wav");//support.wav
             if (RSiTCMessageBoxOn==True) Alert(Symbol(), " M", Period(), " Sell Alert");
         
          }
          else   
          if((SellNow ==os) && (SellPrevious ==EMPTY_VALUE))
          {
             //Alert(Symbol(), " M", Period(), " Sell Alert");
             if (RSiTCSoundAlertOn==True) PlaySound("ok.wav");//resistance.wav
             if (RSiTCMessageBoxOn==True) Alert(Symbol(), " M", Period(), " Buy Alert");
         
          }


      }
      
      
   
      if (RSiTCFilter==False)
      {


          if(BuyNow ==ob)
          {
             //Alert(Symbol(), " M", Period(), " Buy Alert");
             if (RSiTCSoundAlertOn==True) PlaySound("support.wav");
             if (RSiTCMessageBoxOn==True) Alert(Symbol(), " M", Period(), " Sell Alert");
         
          }
          else   
          if(SellNow ==os)
          {
             //Alert(Symbol(), " M", Period(), " Sell Alert");
             if (RSiTCSoundAlertOn==True) PlaySound("resistance.wav");
             if (RSiTCMessageBoxOn==True) Alert(Symbol(), " M", Period(), " Buy Alert");
         
          }


      }      
 
 
 
 
      
         
      //IndicatorShortName("RSI("+RSIPeriod+") (Alert on)");

   }

   // ======= Alert Ends =========
   
   
   


   
   return(0);
   
}