// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("KP Fast 1");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//tskp_fast1val1, tskp_fast1val2, tskp_fast1val3, tskp_fast1val4
dummy=E_TSKPFAST1(Open,High,Low,Close,Volume);
//Histogram
Plot(tskp_fast1val1,"Fast1_1",ParamColor("Fast1_1Color",colorBlue),ParamStyle("Fast1_1Style",styleHistogram|styleThick,maskHistogram));
Plot(tskp_fast1val2,"Fast1_2",ParamColor("Fast1_2Color",colorRed),ParamStyle("Fast1_2Style",styleHistogram|styleThick,maskHistogram));
//Lines
Plot(tskp_fast1val3,"Fast1_3",ParamColor("Fast1_3Color",colorYellow),ParamStyle("Fast1_3Style",styleLine|styleThick));
Plot(tskp_fast1val4,"Fast1_4",ParamColor("Fast1_4Color",colorCustom11),ParamStyle("Fast1_4Style",styleLine|styleThick));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

_SECTION_BEGIN("KP Fast 2");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//tskp_fast2val1, tskp_fast2val2
dummy=E_TSKPFAST2(Open,High,Low,Close,Volume);
Plot(tskp_fast2val1,"Fast2_1",ParamColor("ColorUp",colorBlue),ParamStyle("Style",style=styleHistogram|styleThick,maskDefault)); 
Plot( tskp_fast2val2,"Fast2_2",ParamColor("ColorDown",colorRed),ParamStyle("Style",style=styleHistogram|styleThick,maskDefault)); 
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

_SECTION_BEGIN("KP Fast 3 Line or Histogram");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//r[0] = mydll.call("E_GETRETURN",stateID,0);
//r[1] = Math.max(r[0],0);
Line = ParamToggle("Line or Histogram","Histogram|Line",1);
// tskp_mediumma,tskp_mediumup,tskp_mediumdown
fast3 = E_TSKPFAST3(Open,High,Low,Close,Volume);
Color = IIf(fast3>0,colorBlue,colorRed);
//Line or Histogram
if (Line)
Plot( fast3,"Fast3",Color,styleThick|styleNoLabel);
else
Plot(fast3,"Fast3",Color,styleHistogram|styleThick|styleNoLabel);
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

_SECTION_BEGIN("KP Medium All Histogram");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
// tskp_mediumma,tskp_mediumup,tskp_mediumdown
dummy = E_TSKPMEDIUM(Close);
Plot(tskp_mediumup,"MediumUp",ParamColor("UpColor",colorBlue ),ParamStyle("UpStyle",styleHistogram|styleThick,maskHistogram));
Plot(tskp_mediumdown,"MediumDown",ParamColor("DownColor",colorRed ),ParamStyle("DownStyle",styleHistogram|styleThick,maskHistogram));
Plot(tskp_mediumma,"MediumMA",ParamColor("MAColor",colorWhite ),ParamStyle("MAStyle",styleHistogram|styleThick,maskHistogram));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title=FullName();
_SECTION_END();

_SECTION_BEGIN("KP Medium");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
//tskp_mediumma,tskp_mediumup,tskp_mediumdown
dummy = E_TSKPMEDIUM(Close);
Plot(tskp_mediumma,"MediumMA",ParamColor("MAColor",colorWhite ),ParamStyle("MAStyle",styleLine|styleThick));
Plot(tskp_mediumup,"MediumUp",ParamColor("UpColor",colorBlue ),ParamStyle("UpStyle",styleHistogram|styleThick,maskHistogram));
Plot(tskp_mediumdown,"MediumDown",ParamColor("DownColor",colorRed ),ParamStyle("DownStyle",styleHistogram|styleThick,maskHistogram));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title=FullName();
_SECTION_END();

_SECTION_BEGIN("KP S906 and 907 Modus");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
sc=E_TSKPSCORECARD(High,Low,Close,Volume);
//tskp_scorecard1, tskp_scorecard2, tskp_scorecard3, tskp_scorecard4
kp906=tskp_scorecard1;
kp907=tskp_scorecard2;
Plot(kp906,"906",ParamColor("906Color",colorBlack ),ParamStyle("906Style",styleLine|styleThick));
Plot(kp907,"907",ParamColor("907Color",colorWhite ),ParamStyle("907Style",styleLine|styleThick));
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

_SECTION_BEGIN("KP S906 and 907");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
sc=E_TSKPSCORECARD(High,Low,Close,Volume);
//tskp_scorecard1, tskp_scorecard2, tskp_scorecard3, tskp_scorecard4
kp906=tskp_scorecard1;
kp907=tskp_scorecard2;
Plot(IIf(kp906<0,kp906,0),"906Dn",ParamColor("906DnColor",colorRed ),ParamStyle("906DnStyle",styleHistogram|styleThick));
Plot(IIf(kp906>0,kp906,0),"906Up",ParamColor("906UpColor",colorBlue ),ParamStyle("906UpStyle",styleHistogram|styleThick));
Plot(kp907,"907",ParamColor("907Color",colorWhite),ParamStyle("907Style",styleHistogram|styleThick));
Disp1=ParamToggle("Plot 906 Line","Show|Hide",0);
if(Disp1){
Plot(kp906,"906",ParamColor("906Color",colorGrey40),ParamStyle("906Style",styleLine|styleThick));}
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();

_SECTION_BEGIN("KP ScoreCard Histogram");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
Ctmpl = E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
total = 0;
total = total  + IIf(tskp_colortmplcnd0 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd1 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd2 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd3 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd4 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd5 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd6 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd7 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd8 > 0, 1, -1); 

Cutoff = 5;
for( i = 0; i < BarCount; i++ ) 
{
if( total[i] >= Cutoff  )
Color[i] = colorBlue;
else if(  total[i] <= -Cutoff  )
Color[i] = colorRed;
else
Color[i] = colorYellow;
}

PlotGrid(4,ParamColor("CutoffColor",colorCycle));
PlotGrid(-4,ParamColor("CutoffColor",colorCycle));
Plot(total,"ScoreCard",Color,ParamStyle("ScoreCardStyle",styleHistogram+styleThick,MAsk=maskHistogram));

if( Status("action") == actionCommentary ) 
{ 
printf(   "KPA900" +       NumToStr(tskp_colortmplcnd0) +  WriteIf(tskp_colortmplcnd0 > 0, " +++", " ---") );
printf( "\nAutoStop" +     NumToStr(tskp_colortmplcnd1) +  WriteIf(tskp_colortmplcnd1 > 0, " +++", " ---") );
printf( "\nHighlight" +    NumToStr(tskp_colortmplcnd2) +  WriteIf(tskp_colortmplcnd2 > 0, " +++", " ---") );
printf( "\nCombo" +        NumToStr(tskp_colortmplcnd3) +  WriteIf(tskp_colortmplcnd3 > 0, " +++", " ---") );
printf( "\nFast3" +        NumToStr(tskp_colortmplcnd4) +  WriteIf(tskp_colortmplcnd4 > 0, " +++", " ---") );
printf( "\nSTTB" +         NumToStr(tskp_colortmplcnd5) +  WriteIf(tskp_colortmplcnd5 > 0, " +++", " ---") );
printf( "\nTrigger/Stop" + NumToStr(tskp_colortmplcnd6) +  WriteIf(tskp_colortmplcnd6 > 0, " +++", " ---") );
printf( "\n115Split" +     NumToStr(tskp_colortmplcnd7) +  WriteIf(tskp_colortmplcnd7 > 0, " +++", " ---") );
printf( "\nMedium" +       NumToStr(tskp_colortmplcnd8) +  WriteIf(tskp_colortmplcnd8 > 0, " +++", " ---") );

printf(         WriteIf(tskp_colortmplcnd0 > 0, "+++", "---") + "KPA900" +       NumToStr(tskp_colortmplcnd0));
printf( "\n" +  WriteIf(tskp_colortmplcnd1 > 0, "+++", "---") + "AutoStop" +     NumToStr(tskp_colortmplcnd1) );
printf( "\n" +  WriteIf(tskp_colortmplcnd2 > 0, "+++", "---") + "Highlight" +    NumToStr(tskp_colortmplcnd2) );
printf( "\n" +  WriteIf(tskp_colortmplcnd3 > 0, "+++", "---") + "Combo" +        NumToStr(tskp_colortmplcnd3) );
printf( "\n" +  WriteIf(tskp_colortmplcnd4 > 0, "+++", "---") + "Fast3" +        NumToStr(tskp_colortmplcnd4));
printf( "\n" +  WriteIf(tskp_colortmplcnd5 > 0, "+++", "---") + "STTB" +         NumToStr(tskp_colortmplcnd5) );
printf( "\n" +  WriteIf(tskp_colortmplcnd6 > 0, "+++", "---") + "Trigger/Stop" + NumToStr(tskp_colortmplcnd6) );
printf( "\n" +  WriteIf(tskp_colortmplcnd7 > 0, "+++", "---") + "115Split" +     NumToStr(tskp_colortmplcnd7) );
printf( "\n" +  WriteIf(tskp_colortmplcnd8 > 0, "+++", "---") + "Medium" +       NumToStr(tskp_colortmplcnd8) );
}
_SECTION_END();

_SECTION_BEGIN("KP ShortTermTradeBias STTB");
SetChartBkColor(ParamColor("Panel Color",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));
/*
// return both values
r[0] = mydll.call("E_GETRETURN",stateID,0);
r[1] = mydll.call("E_GETRETURN",stateID,1);
// r[2] = mydll.call("E_GETRETURN",stateID,2);
if( r[0] > 0 )
setBarBgColor(Color.blue);
else if( r[0] < 0 )
setBarBgColor(Color.red);
*/
// tskp_sttb1, tskp_sttb2,tskp_sttb3
dummy=E_TSKPSHORTTERMTRADEBIAS(High,Low,Close);
Color=IIf(tskp_sttb1>0,colorBlue,colorRed);
Disp1=ParamToggle("STTB2","Show|Hide",0);
if(Disp1){
Plot(tskp_sttb2,"STTB2",ParamColor("STTB2Color",colorCycle),ParamStyle("STTB2Style"));}
Plot(tskp_sttb1,"STTB1",Color,ParamStyle("Style",styleHistogram|styleThick,maskHistogram) ); 
Plot(0,"0",ParamColor("Zero Line",colorGrey50),styleLine);
Title =FullName();
_SECTION_END();