Hunter

sigwd=ParamToggle("sigchange","weekly|daily",1); //HBS mean hisogram !y sell and #HBS mean low !y high sell $eld= ParamToggle("$eld","$eldd|$eldw",1); %on = ParamToggle("%on","Show|Hide",1); message!oard = ParamToggle("&essage Board","Show|Hide",1); 're'lore= ParamToggle("'erce/!ysell","'ers|!ysell",1);  S*+T-.B*.("Behgo  S*+T-.B*.("Behgo0inSreng 0inSrengh hinder2"); inder2");

//'a= Param("'da", 13, 1, 455, 1);//21 //'2a= Param("'d2a", 1, 1, 455, 1);//21 //'4a= Param("'d3a", 1, 1, 455, 1);//21 //'3a= Param("'d6a", 1, 1, 455, 1);//21 //r1a= 7S(13); //r2a=8&9(r1a,'a); //ra1=8&9(r2a,'2a); //ra=8&9(ra1,'4a); //Plo(ra,"",colorBlack,s //Plo(ra,"",colorBlack,syle:oss yle:ossyleThick); yleThick); //Behgo0in Sock Srengh inder< //Sim'ly  shows he Srengh o% any Sock so yo can selec he !es sock //9lso can !e sed as !y and sell sysem !y crossing 0ero line //  can !e sed in daily, weekly or monhly ime %rame< 9lso yo can see he resls !y *'loraion //'dc= Param("'dc", 4, 1, 45, 1); //'dc1= Param("'dc1", 15, 1, 45, 1);

'dc2= Param("'dc2", 34, 1, 455, 1);//11,2,34,45,2,1>(34) //+#.= 7e%(+,4); 'd= Param("'do", 6?, 1, 455, 1);//2>,2?,1@?,25,111,25(1@?) 'dy= Param("'da", 1, 1, 455, 1);//1,1,1,1 //'dy= Param("'da", 1, 1, 455, 1);//4,1,12,4(1)

+w=Param("'dw", 15, 1, 455, 1);//6,6,12,1?,@(12) +a=Param("'a", 65, 1, 455, 1);//6,6,12,1?,@(12) +!=Param("'w", 36, 1, 455, 1);//6,6,12,1?,@(12) +!a=Param("'wa", 13, 1, 455, 1);//6,6,12,1?,@(12) +!a=7S(13); a!=8&9(A,+!a); +ln=(+!aa!)/2;

Beh1=((+#.  8&9(+#., 'd)) / 8&9(+#., 'dy)) C 155; !eh=TS(Beh1,+!); col = %( !ehD=@ == !ehD=15,colorBle,color+som12); Plo(!eh,"",col,syle#ine); Plo(@,"",colorBlack,syle#ine); Plo(15,"",colorBlack,sy Plo(15,"",colorBlack,syle#ine); le#ine);

A2 = HHA(Beh,155); A4 = ##A(Beh,155); Beh1= TS(BehC(A2A4),+a); !eh1e=TS(Beh1,'dc2); !eh1a=TS(Beh1,+!);

//Plo(!eh1ee, //Plo(!eh1 ee, " ",colorEellow,syle. ",colorEellow,syle.oTile oTile | syle#ine | syleThick); syleThick) ;

//cole = %( !eh1eD=5,color8hie,color+som12);

By =+oFer=+ross( Beh,@);// 9.: +ross(7S(13),45); Sell = Shor=+ross(@,Beh);//9.: +ross(5,7S(13));

+w=Param("'dw", 15, 1, 455, 1);//6,6,12,1?,@(12) +a=Param("'a", 65, 1, 455, 1);//6,6,12,1?,@(12) +!=Param("'w", 36, 1, 455, 1);//6,6,12,1?,@(12) +!a=Param("'wa", 13, 1, 455, 1);//6,6,12,1?,@(12) +!a=7S(13); a!=8&9(A,+!a); +ln=(+!aa!)/2;

Beh1=((+#.  8&9(+#., 'd)) / 8&9(+#., 'dy)) C 155; !eh=TS(Beh1,+!); col = %( !ehD=@ == !ehD=15,colorBle,color+som12); Plo(!eh,"",col,syle#ine); Plo(@,"",colorBlack,syle#ine); Plo(15,"",colorBlack,sy Plo(15,"",colorBlack,syle#ine); le#ine);

A2 = HHA(Beh,155); A4 = ##A(Beh,155); Beh1= TS(BehC(A2A4),+a); !eh1e=TS(Beh1,'dc2); !eh1a=TS(Beh1,+!);

//Plo(!eh1ee, //Plo(!eh1 ee, " ",colorEellow,syle. ",colorEellow,syle.oTile oTile | syle#ine | syleThick); syleThick) ;

//cole = %( !eh1eD=5,color8hie,color+som12);

By =+oFer=+ross( Beh,@);// 9.: +ross(7S(13),45); Sell = Shor=+ross(@,Beh);//9.: +ross(5,7S(13));

PloSha'es( By C sha'eG'9rrow  Sell C sha'e:own9rrow, %( By, colorBrighreen, color7ed ) ); PloSha'es( By C sha'eG'Triangle  Sell C sha'e:ownTriangle, %( By, colorBrighreen, color7ed ) ); //PloSha'es( By C sha'eHollowSmall+ircle  Sell C sha'eHollowSmall+ircle, %( By, color8hie, colorEellow ) ); PloSha'es(%(By,sha'eG'9rrow,sha'e.one),colorreen); PloSha'es(%(By,sha'eHollowG'9rrow,sha'e.one),color8hie); //PloSha'es(%(By,sha'eHollowSmall+ircle,sha'e.one),color8hie);

PloSha'es(%(Sell,sha'e:own9rrow,sha'e.one),color7ed); PloSha'es(%(Sell,sha'eHollow:own9rrow,sha'e.one),color8hie); //PloSha'es(%(Sell,sha'eHollowSmall+ircle,sha'e.one),color8hie);

PloSha'es(%(Shor,sha'e:ownTriangle,sha'e.one),colorEellow); PloSha'es(%(Shor,sha'eHollow:ownTriangle,sha'e.one),color8hie); //PloSha'es(%(Shor,sha'eHollow+ircle,sha'e.one),color8hie);

PloSha'es(%(+oFer,sha'eG'Triangle,sha'e.one),color#ighBle); PloSha'es(%(+oFer,sha'eHollowG'Triangle,sha'e.one),color8hie); //PloSha'es(%(+oFer,sha'eHollow+ircle,sha'e.one),color8hie);

%or( i = 5; i  Bar+on; i ) I  i%( ByJiK )  I

-GTcolor -GTcolor = Param+olor("-er Param+olor("- er Panel +olor",colorTeal); +olor",colorTeal); .GPcolor = Param+olor("nner Panel G''er",color:arkreen); .:.color = Param+olor("nner Panel #ower",color:ark-liFereen);

 Tile+olor = Param+olor("Tile +olor ",colorBlack); Se+harBk+olor(-GTcolor); // color o% oer !order Se+harBkradienill(.GPcolor,.:.color,Tile+olor); // color o% inner 'anel L i%( SellJiK ) I -GTcolor = Param+olor("-er Panel +olor",colorTeal); .GPcolor = Param+olor("nner Panel G''er2",color:ark7ed); .:.color = Param+olor("nner Panel #ower2",colorPlm);  Tile+olor = Param+olor("Tile +olor ",colorBlack); Se+harBk+olor(-GTcolor); // color o% oer !order Se+harBkradienill(.GPcolor,.:.color,Tile+olor); // color o% inner 'anel L L

i%(%on==5) I  S*+T-.B*.(".ame"); %Se-Ferlay&ode(5); %Selecon("Tahoma", Sas("'heigh")/? ); %SeTe9lign( > );// cener alignmen %SeTe+olor( +olorHSB( 32, 32, 32 ) ); %SeBk&ode(5); // rans'aren %Te-( .ame(), Sas("'widh")/2, Sas("'heigh")/12 ); %Selecon("Tahoma", Sas("'heigh")/1? ); %Te-("" , Sas("'widh")/2, Sas("'heigh")/3 ); %Selecon("Tahoma", Sas("'heigh")/1? ); %Selecon("Tahoma", Sas("'heigh")/4> ); %Te-( "", Sas("'widh")/2, Sas("'heigh")/4 );  S*+T-.*.:();

//&ag$ed &arke Price %SeTe9lign( > );// cener alignmen S=Param("on Si0e",2,11,155,1); %Selecon("Times .ew 7oman", S, 55, Tre ); %SeBk&ode(5); // rans'aren %SeTe+olor( +olorHSB( 32, 32, 32 ) ); Hor=Param("Hori0ona Posiion",>16,1,1255,1); Aer=Param("Aerica Posiion",162,1,?45,1); %Te-(""+, Hor , Aer );  E+=TimerameePrice("+",in:aily,1); ::=Prec(+E+,2); %SeTe9lign( > );// cener alignmen =Prec((::/E+)C155,2); S2=Param("on Si0e2",46,11,155,1); %Selecon("Times .ew 7oman", S2,11, 55, Tre ); %SeBk&ode( colorBlack ); Hor1=Param("Hori0onal Posiion",>16,1,1255,1); Aer1=Param("Aerical Posiion",1??,1,?45,1); %SeTe+olor( +olorHSB( 32, 32, 32 ) ); %Te-(""::" (""M)", Hor1 , Aer136 ); L else II //&ag$ed &arke Price %SeTe9lign( > );// cener alignmen %se=Param("on Si0ee",46,11,155,1); %Selecon("Times .ew 7oman", %se, 55, Tre ); %SeBk&ode( colorold ); %SeTe+olor( Param+olor("+olor",colorold) );

Hora=Param("Hori0onal Posiiona",626,1,1255,1); Aera=Param("Aerical Posiiona",1,1,?45,1); %Te-(""+, Hora , Aera );  E+a=TimerameePrice("+",in:aily,1); ::a=Prec(+E+a,2); %SeTe9lign( > );// cener alignmen a=Prec((::a/E+a)C155,2); S!=Param("on Si0e!",1>,11,155,1); %Selecon("Times .ew 7oman",%s!, 55, Tre ); %SeBk&ode( colorBlack ); %SeTe+olor(Param+olor("+olor",colorEellow) ); %Te-(""::a" ("a"M)", Hora , Aera36 );  S*+T-.*.:(); LL

By=*7em(By,Sell); Sell=*7em(Sell,By); 9ler%( By, "", "BGE N "  +, 1 ); 9ler%( Sell, "", "S*## N "  +, 2 ); no=Param( "Swing", ?, 1, 66 ); slcol=Param+olor( "+olor", color#ighrey ); res=HHA(H,no); s'=##A(#,no); aFd=%(+D7e%(res,1),1,%(+7e%(s',1),1,5)); aFn=Aale8hen(aFdO=5,aFd,1); sl=%(aFn==1,s',res);

no = -'imi0e("TS#",Param("9 (+hange To -'imise)",15, 1, 66 ,1),1, 66 ,1);

slcol=Param+olor( "+olor", color#ighrey ); res=HHA(H,no); s'=##A(#,no); aFd=%(+D7e%(res,1),1,%(+7e%(s',1),1,5)); aFn=Aale8hen(aFdO=5,aFd,1); dsl=%(aFn==1,s',res); SellPrice=Aale8hen(Shor,+,1); ByPrice=Aale8hen(By,+,1); #ong=li'(By,Sell); Shr=li'(Shor,+oFer); 7ela = .-T #ong 9.: .-T By 9.: .-T shr 9.: .-T Sell 9.: .-T Sell 9.: .-T +oFer; SellS#=Aale8hen(Shor,:TS#,1); ByS#=Aale8hen(By,:TS#,1); By:ierence= ByPrice  ByS#; Sell:ierence = SellS#  SellPrice;

ar1 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  By:ierence), (SellPrice  Sell:ierence)); ar2 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  (2CBy:ierence)), (SellPrice  (2CSell:ierence))); ar4 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  (3CBy:ierence)), (SellPrice  (3CSell:ierence)));

+lose9*nd = ParamToggle("+lose Posiions *-:", ".o|Ees"); so'reFerse =ParamToggle("Swich To So' 9nd 7eFerse",".o|Ees",5);  Trend = 9T7(21)  S:eF (+,21); 7ange = 9T7(21) D S:eF (+,21);

no=15; +14=25; +13=2<1; +16=12;

slcol=Param+olor( "+olor", color#ighrey ); res=HHA(H,no); s'=##A(#,no); aFd=%(+D7e%(res,1),1,%(+7e%(s',1),1,5)); aFn=Aale8hen(aFdO=5,aFd,1); dsl=%(aFd==1,s',res);

SellPrice=Aale8hen(Shor,+,1); ByPrice=Aale8hen(By,+,1); #ong=li'(By,Sell); Shr=li'(Shor,+oFer); 7ela = .-T #ong 9.: .-T By 9.: .-T shr 9.: .-T Sell 9.: .-T Sell 9.: .-T +oFer; SellS#=Aale8hen(Shor,:TS#,1); ByS#=Aale8hen(By,:TS#,1); By:ierence= ByPrice  ByS#; Sell:ierence = SellS#  SellPrice;

//ar1 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  By:ierence), (SellPrice  Sell:ierence)); //ar2 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  (2CBy:ierence)), (SellPrice  (2CSell:ierence))); //ar4 = %(By -7 #ong 9.: .-T 7ela 9.: .-T Sell 9.: .-T +oFer, (ByPrice  (3CBy:ierence)), (SellPrice  (3CSell:ierence))); !yach1 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ar1, 5);

!yach2 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ar2 , 5); !yach4 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ar4, 5);

sellach1 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  ar1 , 5); sellach2 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  ar2, 5); sellach4 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  ar4, 5);

// Gserde$ned 'arameer %or *&9 'eriods

*&9Ty'e

= Param("*&91, T*&92, Q&94", 2, 1, 4, 1);

*&9'rds

= Param("*&9'eriods", , 1, 45, 1);

Sd&9+:

= Param("Sandard &9+:R .o5, Ees1", 1, 5, 1, 1);

Plo%ashion = Param("Bar9rrows1, m'lse Bars2", 2, 1, 2, 1);

// 9llow ser o de$ne 8eekly and &onhly 7i!!on #ocaion and Heigh 87P1 = Param("8eekly 7i!!on #ocaion", 15<6, 1555, 1555, 5<1); 87P2 = Param("8eekly 7i!!on Heigh", 4>><6, 5<551, 655, 5<1);

&7P1 = Param("&onhly 7i!!on #ocaion", 6<2, 1555, 1555, 5<1); &7P2 = Param("&onhly 7i!!on Heigh", 1@@, 5<551, 655, 5<1);

// +om'e *&9 and &9+: Hisogram i%(*&9Ty'e == 1)

I :ay*&9

= *&9(+lose, *&9'rds);

L i% (*&9Ty'e == 2) I :ay*&9

= T*&9(+lose, *&9'rds);

L

i%(*&9Ty'e == 4) I // #ine !elow o !e sed wih Qrik Q&9 // :ay*&9 = QrikQ&9(+, *&9Prds); L

Hisogram

= &9+:()  Signal();

// :eermine i% we haFe an m'lse GP, :-8. or .one m'lseG' = 7e%(Hisogram, 1);

:ay*&9 D 7e%(:ay*&9, 1) 9.: Hisogram D

m'lse:own = 7e%(Hisogram, 1);

:ay*&9  7e%(:ay*&9, 1) 9.: Hisogram 

m'lse.one

=

(.-T m'lseGP) 9.: (.-T m'lse:own);

// +om'e 8eekly &9+: and deermine wheher rising or %alling // .oe ses "nonsandard" 'arameersO  TimerameSe(in8eekly);

i% (Sd&9+: == 5) I &9+:Fal

=

&9+:(6, ?);

SignalFal

=

Signal(6, ?, 6);

&9+:Fal

=

&9+:(12, 2>);

SignalFal

=

Signal(12, 2>, @);

=

&9+:Fal  SignalFal;

L else I

L

Hisinw

whrising = Hisinw D 7e%(Hisinw, 1); wh%alling = Hisinw  7e%(Hisinw, 1);

 Timerame7esore();

// .ow ge &onhly &9+: Hisogram<<<<  TimerameSe(in&onhly); &9+:Fal

=

&9+:(6, ?);

SignalFal

=

Signal(6, ?, 6);

Hisinm

=

&9+:Fal  SignalFal;

mhrising = Hisinm D 7e%(Hisinm, 1); mh%alling = Hisinm  7e%(Hisinm, 1);

 Timerame7esore();

whrising

= Timerame*'and( whrising, in8eekly, e'and#as );

wh%alling

= Timerame*'and( wh%alling, in8eekly, e'and#as);

mhrising

= Timerame*'and(mhrising, in&onhly, e'and#as);

mh%alling

= Timerame*'and(mh%alling, in&onhly, e'and#as);

kol

= %( whrising, colorreen, %(wh%alling, color7ed,

color#ighrey)); mkol = %( mhrising, colorBle, %(mh%alling, colorEellow, color#ighrey));

// Plo hem allO i% (Plo%ashion == 1) I Plo(+lose, "+lose", colorTeal, syleBar); PloSha'es(sha'eG'9rrow C m'lseG', colorBle, 5, #ow, 12); PloSha'es(sha'e:own9rrow C m'lse:own, color7ed, 5, High, 12); PloSha'es(sha'eSmall+ircle C m'lse.one, color8hie, 5, High, 6); L else I !arkol

=

%(im'lseGP, colorBle, %(im'lse:own, color7ed,

color8hie)); //Plo(+, "+lose", !arkol, syleBar); L

Plo(15, "ri!!on", kol, syle-wnScale|syle9rea|syle.o#a!el, 87P1, 87P2);//8eekly rend

Plo(15, "ri!!on", mkol, syle-wnScale|syle9rea|syle.o#a!el, &7P1, &7P2);

// &onhly Trend

// *'lorer Secion // :eermine i% m'lse sas is !llish, neral or !earish< :is'lay as Te +olmn<

m'lseSae

=

8rie%(m'lseG', "Bl", 8rie%(m'lse:own,

"Bear", ".e"));

// Se he !ackgrond color %or m'lse Sas +olmn m'lse+ol

=

%(m'lseG', colorreen, %(m'lse:own, color7ed,

color#ighrey));

// :eermine 8eekly Trend< :is'lay as Te +olmn 8eeklyTrend "alling",

=

8rie%(whrising, "7ising", 8rie%(wh%alling,

"laO")); 8eekly+ol

=

%(whrising, colorreen, %(wh%alling, color7ed,

color#ighrey));

// :eermine &onhly Trend< :is'lay as Te +olmn &onhlyTrend

=

8rie%(mhrising, "7ising", 8rie%(mh%alling, "alling",

=

%(mhrising, colorreen, %(mh%alling, color7ed,

"laO")); &onhly+ol color#ighrey));

// :eermine how many !ars has he crren sae eised !arsin!ll =

&in(BarsSince(im'lsenone), BarsSince(im'lsedown));

!arsin!ear =

&in(BarsSince(im'lse'), BarsSince(im'lsenone));

!arsinne =

&in(BarsSince(im'lsedown), BarsSince(im'lse'));

// Se a single Faria!le o show nm!er o% !ars in crren sae de'ending 'on

// acal m'lse Sas  Bllish, Bearish or .eral !arsinsae = %(m'lseG',!arsin!ll, %(m'lsedown, !arsin!ear,!arsinne));

//9dd+olmn(+lose,"+lose",1<2); // +olmns %or dis'lay in *'lorer //9ddTe+olmn(m'lseSae, "Sas", 1, color8hie, m'lse+ol); //9dd+olmn(!arsinsae, "Bars", 1, color8hie, m'lsecol); //9cion = 8rie%(By, "BGE", 8rie%(Sell, "S*##", " ")); //i=5; //!arsinsaee

=

%(By, Bar+onJiK, %(Sell, Bar+onJiK,!arsinne));

//!ars=BarsSince(%(ByBar+on1),-7( SellBar+on1));

'ls= Param("'ls", 5))/7e%(+,>)C155; 'rche= (+7e%(+,2))/7e%(+,1)C155; 'rchk= (+7e%(+,2))7e%(+,1)C15/1; //'rchka=('rchk)/15;

'rchka = (+ TimerameePrice( "+", in:aily, 1 )) +lose;

//:ae() //'rchk= (:ae()7e%(:ae(),1))7e%(:ae(),1); 'rch6=('rche'rch); 'rch>= (+7e%(+,6))/7e%(+,6)C155; 'rch= (+7e%(+,2@))/7e%(+,2@)C155; 'rch?= (+7e%(+,?))/7e%(+,?)C155; 'rch@= (+7e%(+,165))/7e%(+,165)C155; 'rch15= (+7e%(+,263))/7e%(+,262)C155; 'rch11= (+7e%(+,3@5))/7e%(+,3@5)C155; 'rch12= (+7e%(+,46))/7e%(+,46)C155;

'rch14= (+7e%(+,12?4))/7e%(+,12?4)C155;

col=% ((Aolme D 1<26 C *&9( Aolme, 43 )),color7ed,color#ime); //+ol=%(( By, >> , ?4 ), %orma+har, color:e%al, %( 'ls , colorreen, color7ed ));

//iler = 'rch> 4 -7 'rch> 4 ; i%('re'lore==5) Iiler = 'rch D 'ls -7 'rch  &ins ; 9dd+olmn('rchka ,"'rF+lose",color:e%al,+ol,colorPlm); 9dd+olmn(+lose,"+lose",1<2,color:e%al, +ol); 9dd+olmn('rch6,"'rFiday", 1<2,color:e%al, +ol); 9dd+olmn('rch,"daily", 1<2,color:e%al, +ol); //iler=5; 9dd+olmn( %( By, >> , ?4 ), "Signal", %orma+har, color:e%al, %( By , colorreen, color7ed ) );

9dd+olmn(Aolme,"Aolme",1<5, color:e%al, % ((Aolme D 1<26 C *&9( Aolme, 43 )),color+som12,color#ime)); 9dd+olmn('rch>,"weekly", 1<2,color:e%al, +ol); 9dd+olmn('rch,"monhly", 1<2,color:e%al, +ol); 9dd+olmn('rch?,"Urly", 1<2,color:e%al, +ol); 9dd+olmn('rch@,"hal%yly", 1<2,color:e%al, +ol); 9dd+olmn('rch15,"yearly", 1<2,color:e%al, +ol); 9dd+olmn('rch11,"woyrly", 1<2,color:e%al, +ol); 9dd+olmn('rch12,"hirdyrly", 1<2,color:e%al, +ol); 9dd+olmn('rch14,"$Feyrly", 1<2,color:e%al, +ol);

L else

I

//iler = SellD2 9.: i4 -7 ByD2 9.: i4 ; 9dd+olmn(7-+(A,1),"7Aol ",1<2, %(7-+(A,1) D 5,color:e%al,colorEellow),m'lsecol);

9dd+olmn(!arsinsae ,"Bars", 1, color8hie, m'lsecol); 'rchka = (+ TimerameePrice( "+", in:aily, 1 )) +lose;

//9dd+olmn(+  + 1 ,"+lose",1<2,color:e%al, +ol)/2; 9dd+olmn('rchka ,"'rF+lose",color:e%al,color8hie, colorBle); //9ddTe+olmn(8eeklyTrend, "8 Trend", 1, color8hie, 8eekly+ol); //9ddTe+olmn(&onhlyTrend, "& Trend", 1, color8hie, &onhly+ol);

//iler = 1;

 S*+T-.*.:(); //Seings %or e'loraion

H1 = SelecedAale( TimerameePrice( "H", in:aily, 1 ) ); #1 = SelecedAale( TimerameePrice( "#", in:aily, 1 ) ); +1 = SelecedAale( TimerameePrice( "+", in:aily, 1 ) ); H2 = SelecedAale( TimerameePrice( "H", in:aily, 5 ) ); #2 = SelecedAale( TimerameePrice( "#", in:aily, 5 ) ); -1 = SelecedAale( TimerameePrice( "o'en", in:aily, 5 ) ); 3 = 5; :1 = ( H1  #1 ); :2 = ( H2  #2 ); 1 = :1 C 5<344; 2 = :1 C 5<>>;

4 = :1 C 1<46; i% ( :2 = 1 ) 3 = 1; else i% ( :2 = 2 ) 3 = 2;   else 3 = 4;

SP = ( -1  3 );

BP = ( -1  3 );

BP = ( #2  3 );

BPTT = ( BP  ( BP C <55>6 ) );//<5516 !rokerage

BPSTP#S = ( BP  ( BP C <55?6 ) );

SP = ( H2  3 );

SPTT = ( SP  ( SP C <55>6 ) );

SPSTP#S = ( SP  ( SP C <55?6 ) );

' = ( H1  #1  +1 ) / 4;

s1 = ( H1 );

r1 = ( #1 );

r2 = SelecedAale( #2 );

s2 = SelecedAale( H2 );

//+-.:T-.

i% (ParamToggle("Tooli' shows", "9ll Aales|-nly Prices")) I ToolTi' = Srorma("-'en MgVnHigh MgVn#ow MgVn+lose Mg (M<1%MM) VnAolme "  .mToSr(A, 1), -, H, #, +, SelecedAale(7-+(+, 1))); L

//s'ace = Param("S'ace on +har", 25,  16, 65, 1); //ra'hWS'ace = s'ace; //Se+harBk+olor(Param+olor("Backgrond +olor", colorBlack));

// ================= 7asheedXs original code (wih #ook!ack and Shi% de%al se o his s'ecs) =================

H5 = H; #5 = #; +5 = +; -5 = -;

#ook!ack = Param("#ookBack", 15, 15, 65, 1); // :e%al %or inerday commodiy crrency rading shi% = Param("Shi%", 6, 1, 65, 1); // R 5 = #asAale(+m(1)); 1 = 5  shi%;

H = 7e%(H,  shi%  1); # = 7e%(#,  shi%  1); H1 = #asAale(7e%(HHA(H, #ook!ack),  1)); #1 = #asAale(7e%(##A(#, #ook!ack),  1));

//Plo(H1, "H1", colorEellow); //Plo(#1, "#1", colorEellow);

H = H5; # = #5; + = +5; - = -5;

' = +ross(H, H1)9.: +m(1) D 1; dn = +ross(#1, #)9.: +m(1) D 1;

//Plo(+, "+lose", %(+m(1) D 1  #ook!ack 9.: +m(1) = 1, colorBle, %(G', colorBrighreen, %(:n, color7ed, %(+ D -, colorreen, color7ed)))), >3); //PloSha'es(sha'e:own9rrow C(+m(1) == 1  1), colorBle);

// ======================= *'loraion and Signal +ode =================  T7*7 = ParamToggle("Trigger ", "+#-S*|HH -7 #-8");

WH1 = +ross(+, H1); W#1 = +ross(#1, +); WH2 = +ross(H, H1); W#2 = +ross(#1, #);

i% (T7*7 == 5) I //By = WH1; //Sell = W#1; L

else I //By = WH2; //Sell = W#2; L

//Trade:is'lay = ParamToggle("7emoFe *ra TradesR", ".o|Ees");

//i%(Trade:is'lay O= 5)I //By = *7em(By, Sell); //Sell = *7em(Sell, By); // THS 8## 7*&-A* *W*SS S.9#S -. 9 +H97T -7 . 9. *WP#-79T-. //L

//iler = By D2 4 == Bar+on1 -7 Sell D44 == Bar+on1; 9cion = 8rie%(By, "BGE", 8rie%(Sell, "S*##", " "));

//9ddTe+olmn(ndsry:(1), "ndsry Secor ", 45<5, colorBle, colorEellow); 9dd+olmn(+, "*nry ", 2<2, color8hie, colorBle); 9ddTe+olmn(9cion, "9cion", ?<5, %(h1, color:arkreen, color:ark7ed), colorEellow); 9dd+olmn(%(WH1, H1, #1), "B7*9Y-GT #*A*#", 4<2, colorEellow, %(WH1, color:arkreen, color:ark7ed));

//  9rrow signals  -7  T79:*S  //PloSha'es(By Csha'eG'9rrow, colorBrighreen, 5, # /C *.T7ET79#9779E C/,  45); //PloSha'es(Sell Csha'e:own9rrow, color#ighEellow, 5, H,  45);  S*+T-.*.:();

 S*+T-.B*.("Aolme 9 Price"); PloA9P-Ferlay(Param("#ines", 1555, 155, 1555, 15), Param("8idh", 16, 1, 155, 1), Param+olor("+olor", colorBle), ParamToggle("Side", "#e%|7igh", 1) | 3 CParamToggle("Zorder", "-n o'|Behind", 1));

 S*+T-.*.:(); //iler = By -7 Sell;

//9dd+olmn( %( By, >>, 1 ), "By", %orma+har, 1, !kcolor = %( By, 34, 44 ) );

//9dd+olmn( %( Sell, ?4, 1 ), "Sell", %orma+har, 1, !kcolor = %( Sell, 26, 42 ) );

//9dd+olmn( +, "+&P", 1<2, color:e%al, color#ighBle );

//9dd+olmn( BP, "S*## P7+*", 1<2, color:e%al, colorreen );

//9dd+olmn( BPTT, "TT P7+*", 1<2, color:e%al, colorBrown );

//9dd+olmn( BPSTP#S, "STP#S BGE", 1<2, color:e%al, color7ed );

9dd+olmn( ', "PA-T", 1<2, color:e%al, colorEellow );

//9dd+olmn( SPSTP#S, "STP#S S*##", 1<2, color:e%al, color7ed );

//9dd+olmn( SP, "S*## P7+*", 1<2, color:e%al, colorreen );

//9dd+olmn( SPTT, "TT P7+*", 1<2, color:e%al, colorBrown );

//Seings %or e'loraion

iler=By -7 Sell 9.: +oFer -7 Shor; 9dd+olmn( %( By, >> , ?4 ), "Signal", %orma+har, color:e%al, %( By , colorreen, color7ed ) );

//9dd+olmn(+lose,"*nry Price",1<3, color:e%al, %( By , colorreen, color7ed )); 9dd+olmn(dsl,"So' #oss",1<3, color:e%al, %( By , colorreen, color7ed )); 9dd+olmn(ar1,"Targe 1",1<3, color:e%al, %( By , colorreen, color7ed )); 9dd+olmn(ar2,"Targe 2",1<3, color:e%al, %( By , colorreen, color7ed )); 9dd+olmn(ar4,"Targe 4",1<3, color:e%al, %( By , colorreen, color7ed )); 9dd+olmn(Aolme,"Aolme",1<5, color:e%al, % ((Aolme D 1<26 C *&9( Aolme, 43 )),colorBle,colorEellow)); 9dd+olmn( H1, "P7*HH" );

9dd+olmn( #1, "P7*#-8" );

9dd+olmn( :1, "P7*:" );

9dd+olmn( 1, "5<344" );

9dd+olmn( 2, "5<>>" );

9dd+olmn( 4, "1<46" );

9dd+olmn( H2, ":HH" );

9dd+olmn( #2, ":#-8" );

9dd+olmn( :2, "::" );

9dd+olmn( 3, "S*#*+T 9+T" );

9ler%( By , "S-G.: +VV8indowsVV&ediaVVchimes
L //Shor = Sell; //+oFer = By;

//Shor = *7em(Shor, +oFer); //+oFer = *7em(+oFer, Shor);

'Heigh = Sas( "'charheigh" ) ;  = Sas( "'charwidh"); #e% = 1155; widh = 415;  = 6;

2 = 2?5;

y = 'Heigh; dis = 2C9T7(15); dis1 = 4C9T7(15);  i=Bar+on; !ars = i;

i%(message!oard) I %or( i = 5; i  Bar+on; i ) I i%( ByJiK ) I // PloTe( "VnBy"  #J i K  "VnT= "  (#JiKC1<556)  "VnS#= "  (#JiKC5<@@6), i, #J i KdisJiK, colorreen, color8hie );

// Signal :is'lay Panel //

 

SellPrice=Aale8hen(Sell,+,1); ByPrice=Aale8hen(By,#J i K);

 

#ong=li'(By,Sell); Shr=li'(Sell,By ); BySo'2 = #JiKC5<@@6; ByTP1 = #JiKC1<55; ByTP2 = #JiKC1<565; ByTP4 = #JiKC1<546;

!yach1 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ByTP4, 5); !yach2 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ByTP2, 5);

!yach4 = %((By -7 #ong 9.: .-T 7ela 9.: .-T +oFer 9.: .-T Shor 9.: .-T Shr), H D ByTP1, 5); %Selecon( "Tahoma", 14, 155 ); %Se-Ferlay&ode( mode = 5 ); %SelecPen( colorBrighreen, 4 ); %SelecSolidBrsh( colorBrighreen); %7ond7ec( , y  1>4, 2, y , ,  ) ; %SeTe+olor( colorold ); %Te-( ( " Trading Sysem "),4,y1>6); %Te-( (" "),2,y1>5);  

%SeBk&ode(1); %Selecon( "9rial", 15, 55, alse ); %SeTe+olor( colorBle );

 

%SeTe9lign(5); %Selecon( "Tahoma", 14, 155 );

%Te-( 8rie%(#J i K, "By 9!oFe "#J i K,""), 14, y135); %SeTe+olor( colorold ); %Te-( 8rie%(BySo'2, "#ong S# "(BySo'2),""), 14, y125); %SeTe+olor( color8hie ); %Te-( 8rie%(ByTP1, "By TT1 "(ByTP4),""), 14,y 155); %Te-( 8rie%(ByTP2, "By TT2 "(ByTP2),""), 14,y ?5); %Te-( 8rie%(ByTP4, "ByTT4 "(ByTP1),""), 14,y >5); %SeTe+olor( colorAiole ); %Te-( ("+rren P/#  "  8rieAal(%(By ,(+ByPrice),(+ByPrice)),2<2)), ??, y22); %Te-( ("By Signal came "  (Bar+on!ars 1) C nerFal()/4  " mins ago"), 14, y35) ; %Te- ( (""  8rie% (!yach1, " :one "ByTP4,"")), 1>5, y155); %Te-

( (""  8rie% (!yach2, " :one "ByTP2,"")), 1>5, y?5); %Te- ( (""  8rie% (!yach4, " :one "ByTP1,"")), 1>5, y>5); // *.: o% Signal :is'lay Panel // L i%( SellJiK ) I // PloTe( "Sell"  HJ i K  "VnT= "  (HJiKC5<@@6)  "VnS#= "  (HJiKC1<5526), i, HJ i Kdis1JiK, color7ed, color8hie );

// Signal :is'lay Panel //  

SellPrice=Aale8hen(Sell,+,1);

ByPrice=Aale8hen(By,HJ i K); #ong=li'(By,Sell); Shr=li'(Sell,By ); SellSo'2 = HJiKC1<5526; SellTP1 = HJiKC5<@?; SellTP2 = HJiKC5<@?2; SellTP4 = HJiKC5<@??; sellach1 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  SellTP4 , 5); sellach2 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  SellTP2, 5); sellach4 = %((Shor -7 Shr 9.: .-T 7ela 9.: .-T Sell 9.: .-T By 9.: .-T #ong), #  SellTP1, 5);

%Selecon( "Tahoma", 14, 155 ); %Se-Ferlay&ode( mode = 5 ); %SelecPen( color7ed, 4 ); %SelecSolidBrsh( color7ed ); %7ond7ec( , y  1>4, 2, y , ,  ) ;

%Te-( (" "),2,y1>5);  

%SeBk&ode(1); %Selecon( "9rial", 15, 55, alse ); %SeTe+olor( color8hie );

 

%SeTe9lign(5); %Selecon( "Tahoma", 14, 155 ); %SeTe+olor( colorold ); %Te-( ( " Trading Sysem "),4,y1>6); %SeTe+olor( color8hie ); %Te-( 8rie%(HJ i K, "Sell Below "HJ i K,""), 14, y135); %SeTe+olor( colorold ); %Te-( 8rie%(SellSo'2, "Shor S# "(SellSo'2),""), 14, y125); %SeTe+olor( colorBle ); %Te-( 8rie%(SellTP1, "Shor TT1 "(SellTP4),""), 14, y155); %Te-( 8rie%(SellTP2, "Shor TT2 "(SellTP2),""), 14, y?5); %Te-( 8rie%(SellTP4, "Shor TT4 "(SellTP1),""), 14, y>5); %SeTe+olor( colorold );

%Te-( ("+rren P/#  "  8rieAal(%(Sell ,(SellPrice+),(SellPrice+)),2<2)), ??, y22); %Te-( ("sell Signal came "  (Bar+on!ars 1) C nerFal()/1  " mins ago"), 14, y35) ; %Te- ( (""  8rie% (sellach1, " :one "SellTP4,"")), 1>5, y155); %Te- ( (""  8rie% (sellach2, " :one "SellTP2,"")), 1>5, y?5); %Te- ( (""  8rie% (sellach4, " :one "SellTP1,"")), 1>5, y>5); // *.: o% Signal :is'lay Panel // LLL

%or( i = 5; i  Bar+on; i ) I  i%( ByJiK )  I

-GTcolor = Param+olor("-er Panel +olor",colorTeal); .GPcolor = Param+olor("nner Panel G''er",color:arkreen); .:.color = Param+olor("nner Panel #ower",color:ark-liFereen);  Tile+olor = Param+olor("Tile +olor ",colorBlack); Se+harBk+olor(-GTcolor); // color o% oer !order Se+harBkradienill(.GPcolor,.:.color,Tile+olor); // color o% inner 'anel L i%( SellJiK ) I -GTcolor = Param+olor("-er Panel +olor",colorTeal); .GPcolor = Param+olor("nner Panel G''er2",color:ark7ed); .:.color = Param+olor("nner Panel #ower2",colorPlm);  Tile+olor = Param+olor("Tile +olor ",colorBlack); Se+harBk+olor(-GTcolor); // color o% oer !order Se+harBkradienill(.GPcolor,.:.color,Tile+olor); // color o% inner 'anel L L

 S*+T-.B*.("PiFo calc"); 'd = Param("Periods",14,6,133,1); 'ds = 2C'd1;//

(9dsmen %or 8ilders &9)

aa = +lose7e%(+lose,1);

 = *&9(&a(5,aa),'ds); dd= *&9((&a(5,5aa)),'ds);

r% = %(+D2,1555,15555);

c1 = Param("G''er #eFel",5,65,@5,1); UU1 =155/(155c1)1; 1 = UU1Cdd; 2 = 1/UU1; %1 = &a(1,2); G# = +lose  %1C('ds1)/2; G# = %(G#D+,[oor(G#Cr%),ceil(G#Cr%))/r%;

c2 = Param("*Uili!rim",65,65,65,5); UU2 =155/(155c2)1;// J=1K  = dd; && = +lose  C('ds1)/2; && = %(&&D+,[oor(&&Cr%),ceil(&&Cr%))/r%;

c4 = Param("#ower #eFel",45,15,65,1); UU4 =155/(155c4)1; 1 = UU4Cdd; 2 = 1/UU4; %4 = &in(1,2); ## = +lose  %4C('ds1)/2; ## = %(##D+,[oor(##Cr%),ceil(##Cr%))/r%;

!and = Param("!and widh",3,5,16,5<26); mm = &&!and; mmd = &&!and;

W=+ross( +,##);  E=+ross(G#,+);

By1= W ; Sell1= E ;

 TimerameSe( in16&ineC2 ); :H=7e%(H,1); :#=7e%(#,1); :+=7e%(+,1);

'd = ( :H :#  :+ )/4; sd1 = (2C'd):H; sd2 = 'd (:H  :#); sd4 = Sd1  (:H:#); rd1 = (2C'd):#; rd2 = 'd (:H :#); rd4 = rd1 (:H:#);

 Timerame7esore();

 S*+T-.*.:();

 Tile = *ncode+olor(color8hie) "#inkonXs SilFer"  "  "  .ame()  "  "  *ncode+olor(color7ed) nerFal(2)

 *ncode+olor(color8hie)  "  "  :ae() "  " "Vn"

*ncode+olor(colorEellow) "-'"-" ""Hi"H" ""#o"#" " "+l"+" " "Aol= " 8rieAal(A) // 8rie% ((e4De36) ,*ncode+olor(color#ime) " :irecion  #-.",*ncode+olor(color7ed)" :irecion  SH-7T") "Vn"  8rie% (Sell , " *WT #-. / 7eFerse Signal a "+"Vn","")  8rie% (By , " *WT SH-7T / 7eFerse Signal a "+"Vn","")

8rie%(Sell , "Toal Pro$ / #oss %or he #as Trade 7s<"(+ByPrice)"","") 8rie%(By , "Toal Pro$ / #oss %or he #as rade 7s<"(SellPrice+)"","") 8rie%(#ong 9.: .-T By,*ncode+olor(color#ime) "Trade  #ong  *nry 'rice 7s<"(ByPrice)" Tg  "G#,"") 8rie%(shr 9.: .-T Sell,*ncode+olor(color7ed) "Trade  Shor  *nry 'rice 7s<" (SellPrice)" Tg  "##,"")"Vn" 8rie%(#ong 9.: .-T By, "+rren Pro$ / #oss 7s<"(+ByPrice)"","") 8rie%(shr 9.: .-T Sell, "+rren Pro$ / #oss 7s<"(SellPrice+)"","")  *ncode+olor(colorBrighreen) "Vn 74  " *ncode+olor(color8hie)7:4  *ncode+olor(colorBrighreen) "Vn 72  " *ncode+olor(color8hie)7:2  *ncode+olor(colorBrighreen) "Vn 71  " *ncode+olor(color8hie)7:1  *ncode+olor(colorBrighreen) " GP TT  " *ncode+olor(color8hie)G#  *ncode+olor(colorBle) "Vn PiFo  " *ncode+olor(color8hie)'d *ncode+olor(colorBle) " &:P-.T  " *ncode+olor(color8hie)&&  *ncode+olor(color7ed) "Vn S1  " *ncode+olor(color8hie)S:1  *ncode+olor(color7ed) " B-T TT  " *ncode+olor(color8hie)##  *ncode+olor(color7ed) "Vn S2  " *ncode+olor(color8hie)S:2  *ncode+olor(color7ed) "Vn S4  " *ncode+olor(color8hie)S:4;

//i% (*ndAale(By)==1) Say("srong By dear",1); //i% (*ndAale(Sell)==1) Say("srong Sell dear",1);