//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//








SetBarsRequired(sbrAll,sbrAll);
SetChartOptions(0,chartShowArrows|chartShowDates|chartWrapTitle);
SetBarFillColor( IIf( C > O, colorBrightGreen, colorRed ) );
Plot( C, "Price", IIf( C > O,  colorBrightGreen,colorRed ), styleCandle|styleNoTitle|styleNoLabel );
Plot( C, "Price",  colorWhite,styleNoLine|styleNoTitle);
Title = StrFormat("{{NAME}} - {{INTERVAL}}  - {{DATE}}"+
EncodeColor(colorOrange)+
"\n OPEN = "+Open+"     HIGH = "+High+"     LOW = "+Low+"     CLOSE = "+Close+ "     CHANGE  = "+Prec( ROC( C, 1 ), 2) +"%%");

_SECTION_BEGIN("Intraday Timing Condition");
FirstTradeTime = ParamTime( "Start Time", "09:15" ); // Earliest time to take a trade
LastTradeTime = ParamTime( "End Time", "15:00" );  // Latest time to take new trades
ExitAllPositionsTime = ParamTime( "Exit Time", "15:20" );		// Exit all trades

Entrytimecondition = (TimeNum() >= FirstTradeTime AND TimeNum() <= LastTradeTime );
Exittimecondition = Cross(TimeNum(),ExitAllPositionsTime);
_SECTION_END();

cc=TimeFrameGetPrice("C",inDaily,-1);
hh=TimeFrameGetPrice("H",inDaily,-1);
ll=TimeFrameGetPrice("L",inDaily,-1);

r6=Cc+(hH-lL)*1.25;
r5=cC+(hH-lL)*1.0106;
r4=cC+(hH-lL)*0.55;
r3=cC+(hH-lL)*0.275;
r2=cC+(hH-lL)*0.1833;
r1=cC+(hH-lL)*0.0916;
s1=cC-(hH-lL)*0.0916;
s2=cC-(hH-lL)*0.1833;
s3=cC-(hH-lL)*0.275;
s4=cC-(hH-lL)*0.55;
s5=cC-(hH-lL)*1.0106;
s6=cC-(hH-lL)*1.25;

dn = Day();

newday = dn != Ref( dn, -1 );

bar=BarsSince(newday)+1;

a=Param("Entry Buffer %",0.1,0,10,0.01)/100;



bt11=r5+(r5*a);
bt12=r6+(r6*a);

st11=r2-(r2*a);
st12=r1-(r1*a);
st13=s1-(s1*a);
st14=s2-(s2*a);



bt21=r1+(r1*a);
bt22=r2+(r2*a);
bt23=r3+(r3*a);
bt24=r4+(r4*a);

st21=r1-(r1*a);
st22=s1-(s1*a);
st23=s2-(s2*a);
st24=s3-(s3*a);



bt31=s2+(s2*a);
bt32=s1+(s1*a);
bt33=r1+(r1*a);
bt34=r2+(r2*a);

st31=s5-(s5*a);
st32=s6-(s6*a);

slb=Param("SL Buffer %",0,0,10,0.1)/100;
bs1=R4;//r3;
BS1=bs1-(bs1*slb);
sss1=R3;//r4;
SSS1=SSS1+(SSS1*slb);

bs2=S1;//s2;
BS2=bs2-(bs2*slb);
sss2=R2;//r3;
SSS2=SSS2+(SSS2*slb);

bs3=S3;//s4;
BS3=bs3-(bs3*slb);
sss3=S4;//s3;
SSS3=SSS3+(SSS3*slb);
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//


r4on=ParamList("R4 Buy","ON|OFF");
S1on=ParamList("S1 Buy","ON|OFF");
S3on=ParamList("S3 Buy","ON|OFF");
r3on=ParamList("R3 Short","ON|OFF");
r2on=ParamList("R2 Short","ON|OFF");
S4on=ParamList("S4 Short","ON|OFF");
bb1=BarsSince(newday)>BarsSince(Cross(C,r4)) AND BarsSince(Cross(C,r4))>BarsSince(Cross(C,r4+(r4*a))) AND Ref(BarsSince(Cross(C,r4))<BarsSince(Cross(C,r4+(r4*a))),-1) AND Cross(C,r4+(r4*a)) AND Entrytimecondition AND NOT newday AND R4ON=="ON";
barbb1=BarsSince(bb1)+1;
bb1= ExRem(bb1, exittimecondition OR Cross(H,bt12) OR Cross(bs1,L));
b1f=Flip(bb1, exittimecondition OR Cross(H,bt12) OR Cross(bs1,L));

bb2=BarsSince(newday)>BarsSince(Cross(C,s1)) AND BarsSince(Cross(C,s1))>BarsSince(Cross(C,s1+(s1*a))) AND Ref(BarsSince(Cross(C,s1))<BarsSince(Cross(C,s1+(s1*a))),-1) AND Cross(C,s1+(s1*a)) AND Entrytimecondition AND NOT newday AND S1ON=="ON";
barbb2=BarsSince(bb2)+1;
bb2= ExRem(bb2, exittimecondition OR Cross(H,bt24) OR Cross(bs2,L));
b2f=Flip(bb2, exittimecondition OR Cross(H,bt24) OR Cross(bs2,L));

bb3=BarsSince(newday)>BarsSince(Cross(C,s3)) AND BarsSince(Cross(C,s3))>BarsSince(Cross(C,s3+(s3*a))) AND Ref(BarsSince(Cross(C,s3))<BarsSince(Cross(C,s3+(s3*a))),-1) AND Cross(C,s3+(s3*a)) AND Entrytimecondition AND NOT newday AND S3ON=="ON";
barbb3=BarsSince(bb3)+1;
bb3= ExRem(bb3, exittimecondition OR Cross(H,bt34) OR Cross(bs3,L));
b3f=Flip(bb3, exittimecondition OR Cross(H,bt34) OR Cross(bs3,L));

ss1=BarsSince(newday)>BarsSince(Cross(r3,C)) AND BarsSince(Cross(r3,C))>BarsSince(Cross(r3-(r3*a),C)) AND Ref(BarsSince(Cross(r3,C))<BarsSince(Cross(r3-(r3*a),C)),-1) AND Cross(r3-(r3*a),C) AND Entrytimecondition AND NOT newday AND R3ON=="ON";
barss1=BarsSince(ss1)+1;
ss1= ExRem(ss1, exittimecondition OR Cross(st14,L) OR Cross(H,sss1));
s1f=Flip(ss1, exittimecondition OR Cross(st14,L) OR Cross(H,sss1));

ss2=BarsSince(newday)>BarsSince(Cross(r2,C)) AND BarsSince(Cross(r2,C))>BarsSince(Cross(r2-(r2*a),C)) AND Ref(BarsSince(Cross(r2,C))<BarsSince(Cross(r2-(r2*a),C)),-1) AND Cross(r2-(r2*a),C) AND Entrytimecondition AND NOT newday AND R2ON=="ON";
barss2=BarsSince(ss2)+1;
ss2= ExRem(ss2, exittimecondition OR Cross(st24,L) OR Cross(H,sss2));
s2f=Flip(ss2, exittimecondition OR Cross(st24,L) OR Cross(H,sss2));

ss3=BarsSince(newday)>BarsSince(Cross(s4,C)) AND BarsSince(Cross(s4,C))>BarsSince(Cross(s4-(s4*a),C)) AND Ref(BarsSince(Cross(s4,C))<BarsSince(Cross(s4-(s4*a),C)),-1) AND Cross(s4-(s4*a),C) AND Entrytimecondition AND NOT newday AND S4ON=="ON";
barss3=BarsSince(ss3)+1;
ss3= ExRem(ss3, exittimecondition OR Cross(st32,L) OR Cross(H,sss3));
s3f=Flip(ss3, exittimecondition OR Cross(st32,L) OR Cross(H,sss3));
"ss3=="+ss3;
c1=BarsSince(newday)>BarsSince(Cross(s4,C));
c2=BarsSince(Cross(s4,C))>BarsSince(Cross(s4-(s4*a),C));
c3=Ref(BarsSince(Cross(s4,C))<BarsSince(Cross(s4-(s4*a),C)),-1);
s4c=BarsSince(Cross(s4,C));
s4bc=BarsSince(Cross(s4-(s4*a),C));
s4bcc=Cross(s4-(s4*a),c);
"s4cbar=="+s4c;
"s4bcbar=="+s4bc;
"s4bc=="+s4bcc;
"c1=="+c1;
"c2=="+c2;
"c3=="+c3;
s4b=s4-(s4*a);
"s4-buf=="+s4b;
if( R4ON=="ON" AND S1ON=="ON" AND S3ON=="ON")
{
bbmin1=IIf(barbb1<barbb2,barbb1,barbb2);
bbmin2=IIf(bbmin1<barbb3,bbmin1,barbb3);
}
else
if( R4ON=="OFF" AND S1ON=="ON" AND S3ON=="ON")
{
bbmin2=IIf(barbb2<barbb3,barbb2,barbb3);
}
else
if( R4ON=="ON" AND S1ON=="OFF" AND S3ON=="ON")
{
bbmin2=IIf(barbb1<barbb3,barbb1,barbb3);
}
else
if( R4ON=="ON" AND S1ON=="ON" AND S3ON=="OFF")
{
bbmin2=IIf(barbb1<barbb2,barbb1,barbb2);
}
else
if( R4ON=="OFF" AND S1ON=="OFF" AND S3ON=="ON")
{
bbmin2=barbb3;
}
else
if( R4ON=="OFF" AND S1ON=="ON" AND S3ON=="OFF")
{
bbmin2=barbb2;
}
else
if( R4ON=="ON" AND S1ON=="OFF" AND S3ON=="OFF")
{
bbmin2=barbb1;
}
else
if( R4ON=="OFF" AND S1ON=="OFF" AND S3ON=="OFF")
{
bbmin2=0;
}



"barbb1=="+barbb1;
"barbb2=="+barbb2;
"barbb3=="+barbb3;
"bbmin2=="+bbmin2;
bcond1=IIf(bbmin2==barbb1,1,0);
bcond2=IIf(bbmin2==barbb2,1,0);
bcond3=IIf(bbmin2==barbb3,1,0);
"bcond3="+bcond3;

if( R3ON=="ON" AND R2ON=="ON" AND S4ON=="ON")
{
ssmin1=IIf(barss1<barss2,barss1,barss2);
ssmin2=IIf(ssmin1<barss3,ssmin1,barss3);
}
else
if( R3ON=="OFF" AND R2ON=="ON" AND S4ON=="ON")
{
ssmin2=IIf(barss2<barss3,barss2,barss3);
}
else
if( R3ON=="ON" AND R2ON=="OFF" AND S4ON=="ON")
{
ssmin2=IIf(barss1<barss3,barss1,barss3);
}
else
if( R3ON=="ON" AND R2ON=="ON" AND S4ON=="OFF")
{
ssmin2=IIf(barss1<barss2,barss1,barss2);
}
else
if( R3ON=="OFF" AND R2ON=="OFF" AND S4ON=="ON")
{
ssmin2=barss3;
}
else
if( R3ON=="OFF" AND R2ON=="ON" AND S4ON=="OFF")
{
ssmin2=barss2;
}
else
if( R3ON=="ON" AND R2ON=="OFF" AND S4ON=="OFF")
{
ssmin2=barss1;
}
else
if( R3ON=="OFF" AND R2ON=="OFF" AND S4ON=="OFF")
{
ssmin2=0;
}



scond1=IIf(ssmin2==barss1,1,0);
scond2=IIf(ssmin2==barss2,1,0);
scond3=IIf(ssmin2==barss3,1,0);

buy1= bb1 AND Ref(b1f,-1)==0 AND Ref(b2f,-1)==0 AND Ref(b3f,-1)==0;
sel1= ss1 AND Ref(s3f,-1)==0 AND Ref(s2f,-1)==0 AND Ref(s1f,-1)==0;

buy2= bb2  AND Ref(b1f,-1)==0 AND Ref(b2f,-1)==0 AND Ref(b3f,-1)==0;
sel2= ss2 AND Ref(s3f,-1)==0 AND Ref(s2f,-1)==0 AND Ref(s1f,-1)==0;

buy3= bb3  AND Ref(b1f,-1)==0 AND Ref(b2f,-1)==0 AND Ref(b3f,-1)==0;
sel3= ss3 AND Ref(s3f,-1)==0 AND Ref(s2f,-1)==0 AND Ref(s1f,-1)==0;

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



function buytrue(b,s)// exittime cond// sell// valwhen buy sell
{
b=ExRem(b,s);
}
Buy=(buy1 OR buy2 OR buy3) AND Entrytimecondition AND NOT newday;
Short=(sel1 OR sel2 OR sel3) AND Entrytimecondition AND NOT newday;
"BUY=="+BUY;

function IIF_AFL( condition, inputA, inputB ) 
{ 
     result = Null; 

    for( bar = 0; bar < BarCount; bar++ ) 
     { 
       if( condition[ bar ] ) 
           result[ bar ] = inputA[ bar ]; 
       else 
           result[ bar ] = inputB[ bar ]; 
     } 

    return result; 
} 
bfff=ValueWhen(BUY,IIF_AFL(ValueWhen(Buy,buy1)==1,b1f,IIF_AFL(ValueWhen(Buy,buy2)==1,b2f,IIF_AFL(ValueWhen(Buy,buy3)==1,b3f,Null))));

sfff=ValueWhen(Short,IIF_AFL(ValueWhen(Buy,sel1)==1,s1f,IIF_AFL(ValueWhen(Buy,sel2)==1,s2f,IIF_AFL(ValueWhen(Buy,sel3)==1,s3f,Null))));


bf=Flip(Buy,bfff==0);
sf=Flip(Short,sfff==0);
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//


kkkk=IIF_AFL(bcond1,bt12,5);
"kkkk=="+kkkk;
bt1=ValueWhen(BUY,IIF_AFL(bcond1==1,bt11,IIF_AFL(bcond2==1,bt21,IIF_AFL(bcond3==1,bt31,Null))));
bt2=ValueWhen(BUY,IIF_AFL(bcond1,bt12,IIF_AFL(bcond2,bt22,IIF_AFL(bcond3,bt32,Null))));
bt3=ValueWhen(BUY,IIF_AFL(bcond1,bt12,IIF_AFL(bcond2,bt23,IIF_AFL(bcond3,bt33,Null))));
bt4=ValueWhen(BUY,IIF_AFL(bcond1,bt12,IIF_AFL(bcond2,bt24,IIF_AFL(bcond3,bt34,Null))));

st1=ValueWhen(Short,IIF_AFL(scond1,st11,IIF_AFL(scond2,st21,IIF_AFL(scond3,st31,Null))));
st2=ValueWhen(Short,IIF_AFL(scond1,st12,IIF_AFL(scond2,st22,IIF_AFL(scond3,st32,Null))));
st3=ValueWhen(Short,IIF_AFL(scond1,st13,IIF_AFL(scond2,st23,IIF_AFL(scond3,st32,Null))));
st4=ValueWhen(Short,IIF_AFL(scond1,st14,IIF_AFL(scond2,st24,IIF_AFL(scond3,st32,Null))));

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

bs0=ValueWhen(Buy,IIF_AFL(bcond1,bs1,IIF_AFL(bcond2,bs2,IIF_AFL(bcond3,bs3,Null))));
ss0=ValueWhen(Short,IIF_AFL(scond1,sss1,IIF_AFL(scond2,sss2,IIF_AFL(scond3,sss3,Null))));
"b1f=="+b1f;
"b2f=="+b2f;
"b3f=="+b3f;
"bfff=="+bfff;

"bt11=="+bt1;
"bf=="+bf;
hsb=IIf(bfff,HighestSince(Buy,H),Null);
lss=LowestSince(Short,L);
"hsb=="+hsb;
bt1=ValueWhen(Buy,bt1);
bt2=ValueWhen(Buy,bt2);
bt3=ValueWhen(Buy,bt3);
bt4=ValueWhen(Buy,bt4);
bs0=ValueWhen(Buy,bs0);

st1=ValueWhen(Short,st1);
st2=ValueWhen(Short,st2);
st3=ValueWhen(Short,st3);
st4=ValueWhen(Short,st4);
ss0=ValueWhen(Short,ss0);
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//

"bt1=="+bt1;
sell1=Cross(hsb,bt1);
sell2=Cross(hsb,bt2);
sell3=Cross(hsb,bt3);
sell4=Cross(hsb,bt4);
sell4=Sell4 AND Sum(sell4,BarsSince(Buy))==1;
sell4=ExRem(sell4,buy);
sell5=L<BS0;//Cross(bs0,l);
sell5=sell5 AND Sum(sell5,BarsSince(Buy))==1;
sell5=ExRem(sell5,buy);
sell6=Exittimecondition;
sell6=ExRem(sell6,buy);
kk=Sum(sell4,BarsSince(Buy));
"sell1=="+sell1;
cov1=Cross(st1,lss);
cov2=Cross(st2,lss);
cov3=Cross(st3,lss);
cov4=Cross(st4,lss);
cov4=cov4 AND Sum(cov4,BarsSince(Short))==1;
cov5=H>SS0;//Cross(h,ss0);
cov5=cov5 AND Sum(cov5,BarsSince(Short))==1;
cov6=Exittimecondition;
bff=ExRem(Buy,sell4) OR ExRem(Buy,sell5) OR ExRem(Buy,sell6);
Sell= (bf==1 OR  Ref(bf,-1)==1) AND  (sell1 OR sell2 OR sell3 OR sell4 OR sell5 OR sell6);
"sell=="+Sell;
Cover= (sf==1 OR  Ref(sf,-1)==1) AND (cov1 OR cov2 OR cov3 OR cov4 OR cov5 OR cov6);

Buy=ExRem(Buy,Sell AND sell4) OR ExRem(Buy, Sell AND sell5) OR ExRem(Buy, Sell AND sell6);
"buyfir=="+Buy;
Short=ExRem(Short,Cover AND cov4) OR ExRem(Short,Cover AND cov5) OR ExRem(Short,Cover AND cov6);

bnf=snf=bnff=snff=0;buy11=Buy;short11=Short;"short11=="+short11;
sell1p=Sell  AND sell4==0 AND sell5==0 AND sell6==0;
sell11=Sell AND (sell4==1 OR sell5==1 OR sell6==1);
"sell11=="+sell11;
cover1p=Cover AND cov4==0 AND cov5==0 AND cov6==0;
cover11=Cover AND (cov4==1 OR cov5==1 OR cov6==1);
Buy=Sell=Short=Cover=Null;btach=stach=0;sel=cov=0;bxtype=0;
sxtype=0;
sho=0;bnf1=snf1=0;
for( i = 0; i < BarCount; i++ )
{snff[i]=snf[i];
if(bnf==0 AND buy11[i] AND snf!=1)
{
Buy[i]=1;
bnf=1;
}
bnf1[i]=bnf[i];
if(bnf==1 AND sell11[i])
{
Sell[i]=1;
bnf=0;
btach=0;
sel[i]=1;
bxtype[i]=4;
}
else

if(bnf==1 AND sell1p[i] AND sell1[i] AND btach==0 )
{
Sell[i]=1;
btach=1;
sel[i]=2;
bxtype[i]=1;
}
else

if(bnf==1 AND sell1p[i] AND sell2[i] AND btach==1 )
{
Sell[i]=1;
btach=2;
sel[i]=2;
bxtype[i]=2;
}
else
if(bnf==1 AND sell1p[i] AND sell3[i] AND btach==2 )
{
Sell[i]=1;
btach=3;
sel[i]=2;
bxtype[i]=3;
}

snf1[i]=snf[i];
if(snf==0 AND short11[i] AND bnf!=1 )
{
Short[i]=1;
snf=1;
}
sho[i]=Short[i];
if(snf==1 AND cover1p[i] AND cov1[i] AND stach==0)
{
Cover[i]=1;
stach=1;
cov[i]=2;
sxtype[i]=1;
}
else
if(snf==1 AND cover1p[i] AND cov2[i] AND stach==1)
{
Cover[i]=1;
stach=2;
cov[i]=2;
sxtype[i]=2;
}
else
if(snf==1 AND cover1p[i] AND cov3[i] AND stach==2)
{
Cover[i]=1;
stach=3;
cov[i]=2;
sxtype[i]=3;
}
else
if(snf==1 AND cover11[i])
{
Cover[i]=1;
snf=0;
stach=0;
cov[i]=1;
sxtype[i]=4;
}

}
dlong= ParamToggle("Disable Long?", "NO|YES");
dshort= ParamToggle("Disable Short?", "NO|YES");
    "sho=="+sho;
    "bnf1=="+bnf1;
    "snf1=="+snf1;
if(dlong){Buy=Sell=0;}
if(dshort){Short=Cover=0;}
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 AND sell4==0 AND sell5==0 AND sell6==0, shapeStar, shapeNone ), colorRed, 0, h, Offset = 65 );
//PlotShapes( IIf( Sell AND (sell4==1 OR sell5==1 OR sell6==1), shapeDownArrow, shapeNone ), colorRed, 0, H, Offset = -65 );


PlotShapes( IIf( Sell AND sel==2, shapeStar, shapeNone ), colorRed, 0, h, Offset = 65 );
PlotShapes( IIf( Sell AND sel==1, shapeDownArrow, shapeNone ), colorRed, 0, H, Offset = -65 );

PlotShapes( IIf( Short, shapeSquare, shapeNone ), colorRed, 0, H, Offset = 40 );
PlotShapes( IIf( Short, shapeSquare, shapeNone ), colorOrange, 0, H, Offset = 50 );
PlotShapes( IIf( Short, shapeDownArrow, shapeNone ), colorWhite, 0, H, Offset = -45 );
//PlotShapes( IIf( Cover AND cov4==0 AND cov5==0 AND cov6==0, shapeStar, shapeNone ), colorBlue, 0, l, Offset = -65 );
//PlotShapes( IIf( Cover AND (cov4==1 OR cov5==1 OR cov6==1), shapeUpArrow, shapeNone ), colorBlue, 0, L, Offset = -65 );

PlotShapes( IIf( Cover AND cov==2, shapeStar, shapeNone ), colorBlue, 0, l, Offset = -65 );
PlotShapes( IIf( Cover AND cov==1, shapeUpArrow, shapeNone ), colorBlue, 0, L, Offset = -65 );

Plot(r1,"",colorGreen,styleDashed);
Plot(r2,"",colorGreen,styleDashed);
Plot(r3,"",colorGreen,styleDashed);
Plot(r4,"",colorGreen,styleDashed);
Plot(r5,"",colorGreen,styleDashed);
Plot(r6,"",colorGreen,styleDashed);

Plot(s1,"",colorRed,styleDashed);
Plot(s2,"",colorRed,styleDashed);
Plot(s3,"",colorRed,styleDashed);
Plot(s4,"",colorRed,styleDashed);
Plot(s5,"",colorRed,styleDashed);
Plot(s6,"",colorRed,styleDashed);

//bfl=Flip(Buy,Sell AND sel==1) OR (Sell AND sel==1);
//sfl=Flip(Short,Cover AND cov==1) OR (Cover AND cov==1);

//Plot(IIf(bfl,bs,Null),"",colorOrange,styleLine,Null,Null,0,1,2);

//Plot(IIf(bfl,bt1,Null),"",colorLime,styleLine,Null,Null,0,1,2);
//Plot(IIf(bfl,bt2,Null),"",colorLime,styleLine,Null,Null,0,1,2);
//Plot(IIf(bfl,bt3,Null),"",colorLime,styleLine,Null,Null,0,1,2);
//Plot(IIf(bfl,bt4,Null),"",colorLime,styleLine,Null,Null,0,1,2);

//Plot(IIf(sfl,ss,Null),"",colorBlue,styleLine,Null,Null,0,1,2);

//Plot(IIf(sfl,st1,Null),"",colorOrange,styleLine,Null,Null,0,1,2);
//Plot(IIf(sfl,st2,Null),"",colorOrange,styleLine,Null,Null,0,1,2);
//Plot(IIf(sfl,st3,Null),"",colorOrange,styleLine,Null,Null,0,1,2);
//Plot(IIf(sfl,st4,Null),"",colorOrange,styleLine,Null,Null,0,1,2);

//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//




eqty=Param("Entry QTY",100,3,10000);

xqty1=Param("First Target Exit QTY",25,1,10000);

xqty2=Param("Second Target Exit QTY",25,1,10000);

xqty3=Param("Third Target Exit QTY",25,1,10000);



bxqty=IIf(bxtype==4 AND btach==0,eqty,IIf(bxtype==4 AND btach==1,eqty-xqty1,IIf(bxtype==4 AND btach==2,eqty-xqty1-xqty2,IIf(bxtype==4 AND btach==3,eqty-xqty1-xqty2-xqty3,
IIf(bxtype==1 ,xqty1,IIf(bxtype==2 ,xqty2,IIf(bxtype==3,xqty3,0)))))));


sxqty=IIf(sxtype==4 AND stach==0,eqty,IIf(sxtype==4 AND stach==1,eqty-xqty1,IIf(sxtype==4 AND stach==2,eqty-xqty1-xqty2,IIf(sxtype==4 AND stach==3,eqty-xqty1-xqty2-xqty3,
IIf(sxtype==1 ,xqty1,IIf(sxtype==2 ,xqty2,IIf(sxtype==3,xqty3,0)))))));

eqty=eqty;
xqty=IIf(Sell,bxqty,IIf(Cover,sxqty,0));


token1=ParamStr("Telegram API","1353636937:AAFL16rGqebgKfQplmFcvNLPVDyhpe7Nb0E");
b1cid1=ParamStr("Chat_ID"," -1001328913351");


BuyPrice=ValueWhen(Buy,C);
ShortPrice=ValueWhen(Short,C);


url1="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=BUY "+name()+" date="+Date()+" Buyprice: "+BuyPrice;
url2="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=first target of buy is achieved in "+name()+" date="+Date()+" Sell at : "+bt1+" exit qty: "+bxqty;
url3="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=second target of buy is achieved in "+name()+" date="+Date()+" Sell at : "+bt2+" exit qty: "+bxqty;
url4="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=third target of buy is achieved in "+name()+" date="+Date()+" Sell at : "+bt3+" exit qty: "+bxqty;
url5="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=fourth target of buy is achieved in "+name()+" date="+Date()+" Sell at : "+bt4+" exit qty: "+bxqty;
url6="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=exit buy in "+name()+" date="+Date()+" Sell at : "+ValueWhen(Sell,C)+" exit qty: "+bxqty;



url7="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=SHORT "+name()+" date="+Date()+" Shortprice: "+ShortPrice;
url8="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=first tarfet of short is achiveved in "+name()+" date="+Date()+" Cover at: "+st1+" exit qty: "+sxqty;
url9="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=second tarfet of short is achiveved in "+name()+" date="+Date()+" Cover at: "+st2+" exit qty: "+sxqty;
url10="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=third tarfet of short is achiveved in "+name()+" date="+Date()+" Cover at: "+st3+" exit qty: "+sxqty;
url11="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=fourth tarfet of short is achiveved in "+name()+" date="+Date()+" Cover at: "+st4+" exit qty: "+sxqty;
url12="https://api.telegram.org/bot"+token1+"/sendMessage?chat_id="+b1cid1+"&text=exit short in "+name()+" date="+Date()+" Cover at: "+ValueWhen(Cover,C)+" exit qty: "+sxqty;



if (LastValue(Buy)==True AND StaticVarGet(Name()+GetChartID()+"buy")==0 )
{
AlertIF( LastValue(Buy), "EXEC " +url1, "", 1);
StaticVarSet(Name()+GetChartID()+"buy",1); 
}
else if (LastValue(Buy) != True)
{	
	StaticVarSet(Name()+GetChartID()+"buy",0);
}


if (LastValue(Sell)==True AND LastValue(bxtype)==1 AND StaticVarGet(Name()+GetChartID()+"sell1")==0 )
{
AlertIF( LastValue(Sell), "EXEC " +url2, "", 2);
StaticVarSet(Name()+GetChartID()+"sell1",1); 
}
else if (LastValue(Sell) != True   )//AND LastValue(bxtype)!=1)
{	
	StaticVarSet(Name()+GetChartID()+"sell1",0);
}

if (LastValue(Sell)==True AND LastValue(bxtype)==2 AND StaticVarGet(Name()+GetChartID()+"sell2")==0 )
{
AlertIF( LastValue(Sell), "EXEC " +url3, "", 2);
StaticVarSet(Name()+GetChartID()+"sell2",1); 
}
else if (LastValue(Sell) != True   )//AND LastValue(bxtype)!=2)
{	
	StaticVarSet(Name()+GetChartID()+"sell2",0);
}

if (LastValue(Sell)==True AND LastValue(bxtype)==3 AND StaticVarGet(Name()+GetChartID()+"sell3")==0 )
{
AlertIF( LastValue(Sell), "EXEC " +url4, "", 2);
StaticVarSet(Name()+GetChartID()+"sell3",1); 
}
else if (LastValue(Sell) != True   )//AND LastValue(bxtype)!=3)
{	
	StaticVarSet(Name()+GetChartID()+"sell3",0);
}

if (LastValue(Sell)==True AND LastValue(bxtype)==4 AND LastValue(sell4)==1 AND StaticVarGet(Name()+GetChartID()+"sell4")==0 )
{
AlertIF( LastValue(Sell), "EXEC " +url5, "", 2);
StaticVarSet(Name()+GetChartID()+"sell4",1); 
}
else if (LastValue(Sell) != True   )//AND LastValue(bxtype)!=4 AND LastValue(sell4)!=1 )
{	
	StaticVarSet(Name()+GetChartID()+"sell4",0);
}

if (LastValue(Sell)==True AND LastValue(bxtype)==4 AND LastValue(sell4)!=1 AND StaticVarGet(Name()+GetChartID()+"sell5")==0 )
{
AlertIF( LastValue(Sell), "EXEC " +url6, "", 2);
StaticVarSet(Name()+GetChartID()+"sell5",1); 
}
else if (LastValue(Sell) != True )//  AND LastValue(bxtype)!=4 AND LastValue(sell4)!=1 )
{	
	StaticVarSet(Name()+GetChartID()+"sell5",0);
}


if (LastValue(Short)==True AND StaticVarGet(Name()+GetChartID()+"short")==0 )
{
AlertIF( LastValue(Short), "EXEC " +url7, "", 3);
StaticVarSet(Name()+GetChartID()+"short",1); 
}
else if (LastValue(Short) != True)
{	
	StaticVarSet(Name()+GetChartID()+"short",0);
}


if (LastValue(Cover)==True AND LastValue(sxtype)==1 AND StaticVarGet(Name()+GetChartID()+"Cover1")==0 )
{
AlertIF( LastValue(Cover), "EXEC " +url8, "", 4);
StaticVarSet(Name()+GetChartID()+"Cover1",1); 
}
else if (LastValue(Cover) != True)
{	
	StaticVarSet(Name()+GetChartID()+"Cover1",0);
}

if (LastValue(Cover)==True AND LastValue(sxtype)==2 AND StaticVarGet(Name()+GetChartID()+"Cover2")==0 )
{
AlertIF( LastValue(Cover), "EXEC " +url9, "", 4);
StaticVarSet(Name()+GetChartID()+"Cover2",1); 
}
else if (LastValue(Cover) != True)
{	
	StaticVarSet(Name()+GetChartID()+"Cover2",0);
}

if (LastValue(Cover)==True AND LastValue(sxtype)==3 AND StaticVarGet(Name()+GetChartID()+"Cover3")==0 )
{
AlertIF( LastValue(Cover), "EXEC " +url10, "", 4);
StaticVarSet(Name()+GetChartID()+"Cover3",1); 
}
else if (LastValue(Cover) != True)
{	
	StaticVarSet(Name()+GetChartID()+"Cover3",0);
}

if (LastValue(Cover)==True AND LastValue(sxtype)==4 AND LastValue(cov4)==1 AND StaticVarGet(Name()+GetChartID()+"Cover4")==0 )
{
AlertIF( LastValue(Cover), "EXEC " +url11, "", 4);
StaticVarSet(Name()+GetChartID()+"Cover4",1); 
}
else if (LastValue(Cover) != True)
{	
	StaticVarSet(Name()+GetChartID()+"Cover4",0);
}

if (LastValue(Cover)==True AND LastValue(sxtype)==4 AND LastValue(cov4)!=1 AND StaticVarGet(Name()+GetChartID()+"Cover5")==0 )
{
AlertIF( LastValue(Cover), "EXEC " +url12, "", 4);
StaticVarSet(Name()+GetChartID()+"Cover5",1); 
}
else if (LastValue(Cover) != True)
{	
	StaticVarSet(Name()+GetChartID()+"Cover5",0);
}



bp1=NumToStr((ValueWhen(Buy,BuyPrice)),1.2,False);
sp1=NumToStr(( ValueWhen(Sell,SellPrice)),1.2,False);

shp=NumToStr(( ValueWhen(Short,ShortPrice)),1.2,False);
cp=NumToStr( (ValueWhen(Cover,CoverPrice)),1.2,False);
//////************** By Easyalgo.in *************//////
////// +91-8448735946, Support@easyalgo.in  ///////////
//***************************************************//



GfxSetBkMode(1);
 
 

 
_SECTION_BEGIN("NMN Chart Stamp");
SetFormulaName("NMN Chart Stamp");
GfxFont = "Times New Roman";
GfxSetOverlayMode(0);
GfxSelectFont(GfxFont, Status("pxheight")/25);
GfxSetTextAlign(6);                             // center alignment
GfxSetTextColor(ColorRGB(100,100,100));
GfxSetBkMode(0);                                    // transparent
    GfxTextOut(Name(), Status("pxwidth")/2, Status("pxheight")/12);
    GfxSetTextColor(ColorRGB(200,200,200));
    GfxTextOut("Easyalgo.in", Status("pxwidth")/1.15, Status("pxheight")/1.15);
//GfxSelectFont(GfxFont, Status("pxheight")/28);
//GfxSelectFont(GfxFont, Status("pxheight")/18);
//GfxSelectFont("Tahoma", Status("pxheight")/18);
_SECTION_END();