// Downloaded From https://www.WiseStockTrader.com
Line=LinRegSlope(C,13) 
+ 100 * ( EMA( EMA( C - Ref( C, -1 ) ,34 ) ,21) 
/ EMA( EMA( abs( C - Ref( C, -1) ),34 ), 21 ) ) 
+100 * ( EMA( EMA( C - (0.5 * ( HHV(H,13) + LLV(L,13))),21),3) 
/ (0.5 * EMA( EMA( HHV(H,13) - LLV(L,13),21),3 ) ) ); 

Longest = Ref(Line,0)>0 AND int(Ref(Line,0))>=int(Ref(Line,-2));// AND Ref(Line,-2)>Ref(Line,-3);
Longer = Ref(Line,0)>0 AND int(Ref(Line,0))<int(Ref(Line,-2));// AND Ref(Line,-2)<Ref(Line,-3); 
Shortest = Ref(Line,0)<0 AND int(Ref(Line,0))<=int(Ref(Line,-2));// AND Ref(Line,-2)<Ref(Line,-3); 
Shorter = Ref(Line,0)<0 AND int(Ref(Line,0))>int(Ref(Line,-2));// AND Ref(Line,-2)>Ref(Line,-3);

Line = IIf(Ref(Longest,0),1,IIf(Ref(Longer,0),0.5,IIf(Ref(Shorter,0),-0.5,IIf(Ref(Shortest,0),-1,0))));
Colors = IIf(Line==1,colorGreen,IIf(Line==0.5,colorDarkRed,IIf(Line==-0.5,colorDarkGreen,IIf(Line==-1,colorRed,colorDarkGrey))));
Plot(0, "", colorDarkGrey, styleLine);
Plot(Line, "KAIO", Colors, styleLine);

Plot( TimeNum() / 100 % 10 > 4, "", ColorRGB(15,15,15), styleArea|styleOwnScale|styleNoLabel, 0, 1, 0, -100 );