tn = TimeNum();
mode = ParamList("Exc ", "Mcx|Nse",1);
switch( mode )
{
case "Mcx":
tm=100000;
end =IIf(DayOfWeek()==6, 135500,232500);
etime = ParamTime( "mcx Brk Time", "10:30" );
break;
case "Nse":
tm=91500;
end=152500;
etime = ParamTime( "nse Brk Time", "9:25" );
break;
}
cond = (tn >= tm AND tn <= etime) ;
firstBar = cond ;
firstBar = firstBar- Ref( firstBar, -1 );
xH = ValueWhen( cond, HighestSince( firstBar, High ) );
xL = ValueWhen( cond, LowestSince( firstBar, Low ) );
DH = TimeFrameCompress( xH, inDaily, compressLast );
DL = TimeFrameCompress( xL, inDaily, compressLast );
DH = TimeFrameExpand( DH, inDaily, expandFirst );
DL = TimeFrameExpand( DL, inDaily, expandFirst );
dh1=IIf( tn <= etime , DH, Null );
dl1=IIf( tn <= etime , DL, Null );
dh2=IIf( tn >= etime , DH, Null );
dl2=IIf( tn >= etime , DL, Null );
brk_b=Cross(C,dh2);
brk_s=Cross(dl2,C);
Plot( dh1, "",4,styleDashed);
Plot( dl1, "",5,styleDashed);
Plot( dh2, "",4,styleLine);
Plot( dl2, "",5,styleLine);
PlotShapes(brk_b*shapeSmallCircle,ColorRGB(56,176, 222),0,dh2,0);
PlotShapes(brk_s*shapeSmallCircle, ColorRGB(205,127,50),0,dl2,0);
Plot(C,"",3,128);
nday = IIf(Day()!=Ref(Day(),-1),1,0);
Plot(nday,"",39,styleHistogram|styleDashed|styleNoLabel|styleOwnScale,0,1);
strWeekday = StrMid("SunMonTueWedThuFriSat", SelectedValue(DayOfWeek())*3,3);
Title = EncodeColor(colorWhite)+ "# c_Renko sty-I" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" . "+strWeekday +" . "+ Date() + EncodeColor(47) +
StrFormat("\nOp %g, Hi %g, Lo %g, Cl %g, Vol %g", O, H, L, C, V)
+ EncodeColor(9) +
"\nMarket : " + mode +
"\nStart Time : "+ tm +
"\nBrk Time : "+ etime+
"\nEnd Time : "+ end;
