// Downloaded From https://www.WiseStockTrader.com

_SECTION_BEGIN("Magnified Market Price");
FS=Param("Font Size",15,30,100,1);
GfxSelectFont("Arial", FS, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorBlue) );
Hor=Param("Horizontal Position",750,800,800,800);
Ver=Param("Vertical Position",27,27,27,27);
GfxTextOut("L.T.P="+C,Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Arial", 12, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorYellow) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor+5.45, Ver+45 );
_SECTION_END();
 
 
_SECTION_BEGIN("");
GfxSetOverlayMode(0);
GfxSelectPen( colorRed, 3 );
GfxSelectSolidBrush( colorLightYellow );
GfxRoundRect( 350, 38,665, 70, 15, 15 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 17.5, 700, False );
GfxSetTextColor( colorBrown );
GfxSetTextAlign(0);
GfxSetTextColor( colorBlack );
GfxTextOut( " Last Traded Price = "+  BuyPrice , 350, 40);
_SECTION_END();






















_SECTION_BEGIN("KPL Swing with N&M Swing");
SetBarsRequired(200,0);
 
GraphXSpace = 5;
SetChartOptions(0,chartShowArrows|chartShowDates);
k =  Optimize("K",Param("K",2,0.25,5,0.25),0.25,5,0.25);
Per= Optimize("atr",Param("atr",20,3,20,1),3,20,1);
HACLOSE=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose,  -1 ),  0.5 );
HaHigh = Max( H,  Max( HaClose,  HaOpen ) );
HaLow = Min( L,  Min( HaClose,  HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorBlack, styleCandle | styleNoLabel );
j=Haclose;
 
//=======================================================================================================================
//=========================Indicator==============================================================================================
f=ATR(15);
 
rfsctor = WMA(H-L, Per);
 
revers = k * rfsctor;
 
Trend = 1; 
NW[0] = 0; 
NW[BarCount-1] = Null; 
 
 
for(i = 1; i < BarCount-1; i++)
{
 if(Trend[i-1] == 1)               
 {
  if(j[i] < NW[i-1])                
  {
   Trend[i] = -1;                  
   NW[i] = j[i] + Revers[i];       
  }
  else                             
  {
   Trend[i] = 1;
   if((j[i] - Revers[i]) > NW[i-1])
   {
    NW[i] = j[i] - Revers[i];
   }
   else
   {
    NW[i] = NW[i-1];
   }
  }
 }
 if(Trend[i-1] == -1)              
 {
  if(j[i] > NW[i-1])               
  {
   Trend[i] = 1;                   
   NW[i] = j[i] - Revers[i];       
  }
  else                             
  {
   Trend[i] = -1;
   if((j[i] + Revers[i]) < NW[i-1])
   {
    NW[i] = j[i] + Revers[i];
   }
   else
   {
    NW[i] = NW[i-1];
   }
  }
 }
}
 
//===============system================
 
Plot(NW, "", IIf(Trend == 1, 27, 4), 4);
Buy=NW<HACLOSE;
Sell=NW>HACLOSE;
SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy );
 
Short=Sell;
Cover=Buy;
 
 
NMAB= NW<HACLOSE;
NMAS= NW>HACLOSE;
AlertIf( Buy , "SOUND C://Windows//Media//chimes.wav", "Audio alert", 2 );
AlertIf( Sell , "SOUND C://Windows//Media//alert.wav", "Audio alert", 2 );
 
NMA_status= WriteIf(NMAB, "BUY MODE", WriteIf(NMAS, "SELL MODE", "NEUTRAL"));
NMAS_Col=IIf(NMAB, colorGreen, IIf(NMAS, colorRed, colorLightGrey));
Filter=1;
AddColumn( NW[BarCount-1], "SAR", 1.2 );
AddColumn( HACLOSE, "HA Close", 1.2 );
AddColumn( C, "Close", 1.2 );
AddTextColumn(NMA_status, "MODE", 1, colorWhite, NMAS_Col);
AddColumn( DateTime(), "Date / Time", formatDateTime );
_SECTION_END();
//=================TITLE================================================================================================
_SECTION_BEGIN("Title");
if( Status("action") == actionIndicator )
(
Title = EncodeColor(colorWhite)+ "SureShot trading System" + " - " +  Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
 "  - " + Date() +" - "+"\n" +EncodeColor(colorRed) +"Op-"+O+"  "+"Hi-"+H+"  "+"Lo-"+L+"  "+
"Cl-"+C+"  "+ "Vol= "+ WriteVal(V)+"\n"+
EncodeColor(colorLime)+
WriteIf (Buy , " GO LONG / Reverse Signal at "+C+"  ","")+
WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+"  ","")+"\n"+EncodeColor(colorWhite)+
WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
WriteIf(Buy  , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"",""));
//WriteIf(Long AND NOT Buy, "Trade : Long - Entry price Rs."+(BuyPrice),"")+
//WriteIf(shrt AND NOT Sell, "Trade : Short - Entry price Rs."+(SellPrice),"")+"\n"+
//WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
//WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);                     
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);                     
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);
 
 
 
for(i=BarCount-1;i>1;i--)
{
if(Buy[i] == 1)
{
entry = H[i];
sig = "BUY";
sl = Ref(NW,-1);
tar1 = entry + (entry * .0050);
tar2 = entry + (entry * .0092);
tar3 = entry + (entry * .0179);
  
bars = i;
i = 0;
}
if(Sell[i] == 1)
{
sig = "SELL";
entry = L[i];
sl = Ref(NW,-1);
tar1 = entry - (entry * .0050);
tar2 = entry - (entry * .0112);
tar3 = entry - (entry * .0212);
  
  
bars = i;
i = 0;
}
}
Offset = 20;
Clr = IIf(sig == "BUY", colorLime, colorRed);
ssl = IIf(bars == BarCount-1, NW[BarCount-1], Ref(NW, -1));
sl = ssl[BarCount-1];
 
Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
 
 
 
messageboard = ParamToggle("Message Board","Show|Hide",1);
if (messageboard == 1 )
{
GfxSelectFont( "Tahoma", 13, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite );
  
if ( sig =="BUY")
{
GfxSelectSolidBrush( colorBlue ); // this is the box background color
}
else
{
GfxSelectSolidBrush( colorRed ); // this is the box background color
}
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 290;
  
y = pxHeight;
  
GfxSelectPen( colorGreen, 1); // broader color
GfxRoundRect( x, y - 98, x2, y , 7, 7 ) ;
GfxTextOut( ( "SureShot Trading System"),13,y-100);
GfxTextOut( (" "),27,y-100);
GfxTextOut( ("Last " + sig + " Signal came " + (BarCount-bars-1) * Interval()/60 + " mins ago"), 13, y-80) ; // The text format location
GfxTextOut( ("" + WriteIf(sig =="BUY",sig + " @ ",sig + " @") + " : " + entry), 13, y-60);
GfxTextOut( ("Trailing SL : " + sl + " (" + WriteVal(IIf(sig == "SELL",entry-sl,sl-entry), 2.2) + ")"), 13, y-40);
/*GfxTextOut( ("TGT:1 : " + tar1), 13, y -80);
GfxTextOut( ("TGT:2 : " + tar2), 13,y-60);
GfxTextOut( ("TGT:3 : " + tar3), 13,y-40);*/
GfxTextOut( ("Current P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-22);
 
}
 
_SECTION_END();

_SECTION_END();
function ChandelierCl(AtrARRAY, AtrMult) {
    // Skip empty values
    i = 0;
    do {
        result[i] = Null;
        i++;
    }
    while( i < BarCount AND (IsNull(O[i]) OR IsNull(H[i]) OR IsNull(L[i]) OR IsNull(C[i]) ) );
    First = i;
 
if (i < BarCount - 1) {
    HHC[First]    = C[First];
    LLC[First]    = C[First];
 
    if (C[First + 1] > HHC[First]) {
        HHC[First + 1] = C[First + 1];
        LLC[First + 1] = LLC[First];
        result[First] = C[First] - AtrMult * AtrARRAY[First];
        iTrade = "LT";
    }
    else {
        if (C[First + 1] < LLC[First]) {
            HHC[First = 1] = HHC[First];
            LLC[First + 1] = LLC[First + 1];
            result[First] = C[First] + AtrMult * AtrARRAY[First];
            iTrade = "ST";
        }
        else {
            HHC[First + 1] = C[First + 1];
            LLC[First + 1] = C[First + 1];
            result[First] = C[First] - AtrMult * AtrARRAY[First];
            iTrade = "LT";
        }
    }
 
    for( i = First; i < BarCount; i++ ) {
        if (iTrade == "LT") {
            if (C[i] >= result[i-1]) {        // Long Trade is continuing
                if (C[i] > C[i-1]) {
                    HHC[i] = C[i];
                }
                else {
                    HHC[i] = HHC[i-1];
                }
                result[i] = HHC[i] - AtrMult * AtrARRAY[i];
                if (result[i] < result[i-1]) {
                    result[i] = result[i-1];
                }
            }
            else {                            // Long trade Exit triggered
                iTrade = "ST";
                LLC[i] = C[i];
                result[i] = C[i] + AtrMult * AtrARRAY[i];
            }
        }
        else {                               // Short trade
            if (C[i] <= result[i-1]) {
                if (C[i] <= C[i-1]) {        // Short Trade is continuing
                    LLC[i] = C[i];
                }
                else {
                    LLC[i] = LLC[i-1];
                }
                result[i] = LLC[i] + AtrMult * AtrARRAY[i];
                if (result[i] > result[i-1]) {
                    result[i] = result[i-1];
                }
            }
            else {                           //Short Trade Exit is triggered
                iTrade = "LT";
                HHC[i]  = C[i];
                result[i] = C[i] - AtrMult * AtrARRAY[i];
            }
        }
    }
}
return result;
}
 
function ChandelierHL(AtrARRAY, AtrMult) {
    // Skip empty values
    i = 0;
    do {
        result[i] = Null;
        i++;
    }
    while( i < BarCount AND (IsNull(O[i]) OR IsNull(H[i]) OR IsNull(L[i]) OR IsNull(C[i]) ) );
    First = i;
 
if (i < BarCount - 1) {
    HHC[First]    = H[First];
    LLC[First]    = L[First];
 
    if (H[First + 1] > HHC[First]) {
        HHC[First + 1] = H[First + 1];
        LLC[First + 1] = LLC[First];
        result[First] = H[First] - AtrMult * AtrARRAY[First];
        iTrade = "LT";
    }
    else {
        if (L[First + 1] < LLC[First]) {
            HHC[First = 1] = HHC[First];
            LLC[First + 1] = LLC[First + 1];
            result[First] = L[First] + AtrMult * AtrARRAY[First];
            iTrade = "ST";
        }
        else {
            HHC[First + 1] = C[First + 1];
            LLC[First + 1] = C[First + 1];
            result[First] = H[First] - AtrMult * AtrARRAY[First];
            iTrade = "LT";
        }
    }
 
    for( i = First; i < BarCount; i++ ) {
        if (iTrade == "LT") {
            if (C[i] >= result[i-1]) {        // Long Trade is continuing
                if (H[i] > H[i-1]) {
                    HHC[i] = H[i];
                }
                else {
                    HHC[i] = HHC[i-1];
                }
                result[i] = HHC[i] - AtrMult * AtrARRAY[i];
                if (result[i] < result[i-1]) {
                    result[i] = result[i-1];
                }
            }
            else {                            // Long trade Exit triggered
                iTrade = "ST";
                LLC[i] = L[i];
                result[i] = L[i] + AtrMult * AtrARRAY[i];
            }
        }
        else {                               // Short trade
            if (C[i] <= result[i-1]) {
                if (L[i] <= L[i-1]) {        // Short Trade is continuing
                    LLC[i] = L[i];
                }
                else {
                    LLC[i] = LLC[i-1];
                }
                result[i] = LLC[i] + AtrMult * AtrARRAY[i];
                if (result[i] > result[i-1]) {
                    result[i] = result[i-1];
                }
            }
            else {                           //Short Trade Exit is triggered
                iTrade = "LT";
                HHC[i]  = H[i];
                result[i] = H[i] - AtrMult * AtrARRAY[i];
            }
        }
    }
}
return result;
}