//+------------------------------------------------------------------+ //| camarilladt.mq4 | //| Copyright 2005, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright 2005, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" #include #property indicator_chart_window //---- input parameters extern bool Alerts = false; extern double GMTshiftSun=0; //sun into mon cams use this corrected value for fri data extern double GMTshift=1; extern bool Pivot = true; extern bool CamTargets = true; extern bool ListCamTargets = true; extern color PivotColor = LimeGreen; extern color PivotFontColor = White; extern int PivotFontSize = 8; extern int PivotWidth = 1; extern int PipDistance = 20; extern color CamFontColor = Gray; extern int CamFontSize = 10; extern bool Fibs = true; extern color FibColorRes = SeaGreen; extern color FibColorSup = Brown; extern color FibFontColor = Gray; extern int FibFontSize = 8; extern bool DisplayFibLevels_1_3 = false; extern double FibLevel1 = 0.236; extern double FibLevel2 = 0.382; extern double FibLevel3 = 0.50; extern bool DisplayFibLevels_4_6 = true; extern double FibLevel4 = 0.618; extern double FibLevel5 = 0.764; extern double FibLevel6 = 0.99; extern bool DisplayFibLevels_7_16 = true; extern double FibLevel7 = 1.27; extern double FibLevel8 = 1.618; extern double FibLevel9 = 1.99; extern double FibLevel10 = 2.236; extern double FibLevel11 = 2.618; extern double FibLevel12 = 2.99; extern double FibLevel13 = 3.236; extern double FibLevel14 = 3.618; extern double FibLevel15 = 3.99; extern double FibLevel16 = 4.236; extern bool StandardPivots = true; extern bool ListStandardPivots = true; extern color StandardFontColor = Gray; extern int StandardFontSize = 8; extern color SupportColor = Brown; extern color ResistanceColor = SeaGreen; extern bool MidPivots = false; extern color MidPivotColor = White; extern int MidFontSize = 8; double P, H3, H4, H5; double L3, L4, L5; double LastHigh,LastLow,x; bool firstL3=true; bool firstH3=true; double D1=0.091667; double D2=0.183333; double D3=0.2750; double D4=0.55; // Fib variables double yesterday_high=0; double yesterday_low=0; double yesterday_close=0; double p=0; double r1=0,r2=0,r3=0,r4=0,r5=0,r6=0,r7=0,r8=0,r9=0,r10=0,r11=0,r12=0,r13=0,r14=0,r15=0,r16=0; double s1=0,s2=0,s3=0,s4=0,s5=0,s6=0,s7=0,s8=0,s9=0,s10=0,s11=0,s12=0,s13=0,s14=0,s15=0,s16=0; double R; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- //---- indicators //---- return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- TODO: add your code here if (Fibs) {ObjectDelete("FibR1 Label"); ObjectDelete("FibR1 Line"); ObjectDelete("FibR2 Label"); ObjectDelete("FibR2 Line"); ObjectDelete("FibR3 Label"); ObjectDelete("FibR3 Line"); ObjectDelete("FibR4 Label"); ObjectDelete("FibR4 Line"); ObjectDelete("FibR5 Label"); ObjectDelete("FibR5 Line"); ObjectDelete("FibR6 Label"); ObjectDelete("FibR6 Line"); ObjectDelete("FibR7 Label"); ObjectDelete("FibR7 Line"); ObjectDelete("FibR8 Label"); ObjectDelete("FibR8 Line"); ObjectDelete("FibR9 Label"); ObjectDelete("FibR9 Line"); ObjectDelete("FibR10 Label"); ObjectDelete("FibR10 Line"); ObjectDelete("FibR11 Label"); ObjectDelete("FibR11 Line"); ObjectDelete("FibR12 Label"); ObjectDelete("FibR12 Line"); ObjectDelete("FibR13 Label"); ObjectDelete("FibR13 Line"); ObjectDelete("FibR14 Label"); ObjectDelete("FibR14 Line"); ObjectDelete("FibR15 Label"); ObjectDelete("FibR15 Line"); ObjectDelete("FibR16 Label"); ObjectDelete("FibR16 Line"); ObjectDelete("FibS1 Label"); ObjectDelete("FibS1 Line"); ObjectDelete("FibS2 Label"); ObjectDelete("FibS2 Line"); ObjectDelete("FibS3 Label"); ObjectDelete("FibS3 Line"); ObjectDelete("FibS4 Label"); ObjectDelete("FibS4 Line"); ObjectDelete("FibS5 Label"); ObjectDelete("FibS5 Line"); ObjectDelete("FibS6 Label"); ObjectDelete("FibS6 Line"); ObjectDelete("FibS7 Label"); ObjectDelete("FibS7 Line"); ObjectDelete("FibS8 Label"); ObjectDelete("FibS8 Line"); ObjectDelete("FibS9 Label"); ObjectDelete("FibS9 Line"); ObjectDelete("FibS10 Label"); ObjectDelete("FibS10 Line"); ObjectDelete("FibS11 Label"); ObjectDelete("FibS11 Line"); ObjectDelete("FibS12 Label"); ObjectDelete("FibS12 Line"); ObjectDelete("FibS13 Label"); ObjectDelete("FibS13 Line"); ObjectDelete("FibS14 Label"); ObjectDelete("FibS14 Line"); ObjectDelete("FibS15 Label"); ObjectDelete("FibS15 Line"); ObjectDelete("FibS16 Label"); ObjectDelete("FibS16 Line"); } if (Pivot) { ObjectDelete("P Label"); ObjectDelete("P Line"); } if (CamTargets) { ObjectDelete("H5 Label"); ObjectDelete("H5 Line"); ObjectDelete("H4 Label"); ObjectDelete("H4 Line"); ObjectDelete("H3 Label"); ObjectDelete("H3 Line"); ObjectDelete("L3 Label"); ObjectDelete("L3 Line"); ObjectDelete("L4 Label"); ObjectDelete("L4 Line"); ObjectDelete("L5 Label"); ObjectDelete("L5 Line"); } //---- if (StandardPivots) { ObjectDelete("R1 Label"); ObjectDelete("R1 Line"); ObjectDelete("R2 Label"); ObjectDelete("R2 Line"); ObjectDelete("R3 Label"); ObjectDelete("R3 Line"); ObjectDelete("R4 Label"); ObjectDelete("R4 Line"); ObjectDelete("R5 Label"); ObjectDelete("R5 Line"); ObjectDelete("S1 Label"); ObjectDelete("S1 Line"); ObjectDelete("S2 Label"); ObjectDelete("S2 Line"); ObjectDelete("S3 Label"); ObjectDelete("S3 Line"); ObjectDelete("S4 Label"); ObjectDelete("S4 Line"); ObjectDelete("S5 Label"); ObjectDelete("S5 Line"); } if (MidPivots) { ObjectDelete("M5 Label"); ObjectDelete("M5 Line"); ObjectDelete("M4 Label"); ObjectDelete("M4 Line"); ObjectDelete("M3 Label"); ObjectDelete("M3 Line"); ObjectDelete("M2 Label"); ObjectDelete("M2 Line"); ObjectDelete("M1 Label"); ObjectDelete("M1 Line"); ObjectDelete("M0 Label"); ObjectDelete("M0 Line"); } return(0); } int DoAlerts() { double DifAboveL3,PipsLimit; double DifBelowH3; DifBelowH3 = H3 - Close[0]; DifAboveL3 = Close[0] - L3; PipsLimit = PipDistance*Point; if (DifBelowH3 > PipsLimit) firstH3 = true; if (DifBelowH3 <= PipsLimit && DifBelowH3 > 0) { if (firstH3) { Alert("Below Cam H3 Line by ",DifBelowH3, " for ", Symbol(),"-",Period()); PlaySound("alert.wav"); firstH3=false; } } if (DifAboveL3 > PipsLimit) firstL3 = true; if (DifAboveL3 <= PipsLimit && DifAboveL3 > 0) { if (firstL3) { Alert("Above Cam L3 Line by ",DifAboveL3," for ", Symbol(),"-",Period()); Sleep(2000); PlaySound("timeout.wav"); firstL3=false; } } } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); //---- TODO: add your code here double day_high=0; double day_low=0; double yesterday_open=0; double today_open=0; double Q=0,S=0,R=0,M2=0,M3=0,S1=0,R1=0,M1=0,M4=0,S2=0,R2=0,M0=0,M5=0,S3=0,R3=0,nQ=0,nD=0,D=0,R4=0,S4=0,R5=0,S5=0; double shift_corrected; int cnt=720; double cur_day=0; double prev_day=0; double rates_d1[2][6]; //---- exit if period is greater than daily charts if(Period() > 1440) { Print("Error - Chart period is greater than 1 day."); return(-1); // then exit } //---- Get new daily prices & calculate pivots if (DayOfWeek()==1) shift_corrected=GMTshiftSun; else if ((DayOfWeek()==2) && (Minute() >= 5)) shift_corrected=GMTshift; //else if ((DayOfWeek()==2) && (Hour() > GMTshift)) shift_corrected=GMTshift; else shift_corrected=GMTshift; while (cnt!= 0) { cur_day = TimeDay(Time[cnt]- (shift_corrected*3600)); if (prev_day != cur_day) { yesterday_close = Close[cnt+1]; today_open = Open[cnt]; yesterday_high = day_high; yesterday_low = day_low; day_high = High[cnt]; day_low = Low[cnt]; prev_day = cur_day; } if (High[cnt]>day_high) { day_high = High[cnt]; } if (Low[cnt] 5) { nQ = Q; } else { nQ = Q*10000; } if (D > 5) { nD = D; } else { nD = D*10000; } if (StringSubstr(Symbol(),3,3)=="JPY") { nQ=nQ/100; nD=nD/100; } if ((CamTargets) && (ListCamTargets) && (StandardPivots) && (ListStandardPivots)) { Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close, "\n\nH5 ",H5,"\nH4 ",H4,"\nH3 ",H3,"\n\nL3 ",L3,"\nL4 ",L4,"\nL5 ",L5, "\n\n\n\nR5 ",R5,"\nR4 ", R4,"\nR3 ", R3,"\nR2 ", R2,"\nR1 ", R1,"\nPivot ", P,"\nS1 ", S1,"\nS2 ", S2,"\nS3 ", S3,"\nS4 ", S4,"\nS5 ",S5); } else if ((CamTargets) && (ListCamTargets) && (StandardPivots) && !(ListStandardPivots)) { Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close, "\n\nH5 ",H5,"\nH4 ",H4,"\nH3 ",H3,"\n\nL3 ",L3,"\nL4 ",L4,"\nL5 ",L5); } else if ((CamTargets) && (ListCamTargets) && !(StandardPivots)) { Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close, "\n\nH5 ",H5,"\nH4 ",H4,"\nH3 ",H3,"\n\nL3 ",L3,"\nL4 ",L4,"\nL5 ",L5); } else if (!(CamTargets) && (StandardPivots) && (ListStandardPivots)) { Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close, "\n\nR5 ",R5,"\nR4 ", R4,"\nR3 ", R3,"\nR2 ", R2,"\nR1 ", R1,"\nPivot ", P,"\nS1 ", S1,"\nS2 ", S2,"\nS3 ", S3,"\nS4 ", S4,"\nS5 ",S5); } else { Comment("High= ",yesterday_high," Previous Days Range= ",nQ,"\nLow= ",yesterday_low," Current Days Range= ",nD,"\nClose= ",yesterday_close); } //---- Set line labels on chart window if (Pivot) { if(ObjectFind("P label") != 0) { ObjectCreate("P label", OBJ_TEXT, 0, Time[0], P); ObjectSetText("P label", "Pivot", PivotFontSize, "Arial", PivotFontColor); } else { ObjectMove("P label", 0, Time[0], P); } //--- Draw Pivot lines on chart if(ObjectFind("P line") != 0) { ObjectCreate("P line", OBJ_HLINE, 0, Time[40], P); ObjectSet("P line", OBJPROP_STYLE, STYLE_DASH); ObjectSet("P line", OBJPROP_COLOR, PivotColor); } else { ObjectMove("P line", 0, Time[40], P); } } if (StandardPivots) { if(ObjectFind("R1 label") != 0) { ObjectCreate("R1 label", OBJ_TEXT, 0, Time[20], R1); ObjectSetText("R1 label", " R1", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("R1 label", 0, Time[20], R1); } if(ObjectFind("R2 label") != 0) { ObjectCreate("R2 label", OBJ_TEXT, 0, Time[20], R2); ObjectSetText("R2 label", " R2", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("R2 label", 0, Time[20], R2); } if(ObjectFind("R3 label") != 0) { ObjectCreate("R3 label", OBJ_TEXT, 0, Time[20], R3); ObjectSetText("R3 label", " R3", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("R3 label", 0, Time[20], R3); } if(ObjectFind("R4 label") != 0) { ObjectCreate("R4 label", OBJ_TEXT, 0, Time[20], R4); ObjectSetText("R4 label", " R4", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("R4 label", 0, Time[20], R4); } if(ObjectFind("R5 label") != 0) { ObjectCreate("R5 label", OBJ_TEXT, 0, Time[20], R5); ObjectSetText("R5 label", " R5", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("R5 label", 0, Time[20], R5); } if(ObjectFind("S1 label") != 0) { ObjectCreate("S1 label", OBJ_TEXT, 0, Time[20], S1); ObjectSetText("S1 label", "S1", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("S1 label", 0, Time[20], S1); } if(ObjectFind("S2 label") != 0) { ObjectCreate("S2 label", OBJ_TEXT, 0, Time[20], S2); ObjectSetText("S2 label", "S2", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("S2 label", 0, Time[20], S2); } if(ObjectFind("S3 label") != 0) { ObjectCreate("S3 label", OBJ_TEXT, 0, Time[20], S3); ObjectSetText("S3 label", "S3", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("S3 label", 0, Time[20], S3); } if(ObjectFind("S4 label") != 0) { ObjectCreate("S4 label", OBJ_TEXT, 0, Time[20], S4); ObjectSetText("S4 label", "S4", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("S4 label", 0, Time[20], S4); } if(ObjectFind("S5 label") != 0) { ObjectCreate("S5 label", OBJ_TEXT, 0, Time[20], S5); ObjectSetText("S5 label", "S5", StandardFontSize, "Arial", StandardFontColor); } else { ObjectMove("S5 label", 0, Time[20], S5); } //--- Draw Pivot lines on chart if(ObjectFind("S1 line") != 0) { ObjectCreate("S1 line", OBJ_HLINE, 0, Time[40], S1); ObjectSet("S1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("S1 line", OBJPROP_COLOR, SupportColor); } else { ObjectMove("S1 line", 0, Time[40], S1); } if(ObjectFind("S2 line") != 0) { ObjectCreate("S2 line", OBJ_HLINE, 0, Time[40], S2); ObjectSet("S2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("S2 line", OBJPROP_COLOR, SupportColor); } else { ObjectMove("S2 line", 0, Time[40], S2); } if(ObjectFind("S3 line") != 0) { ObjectCreate("S3 line", OBJ_HLINE, 0, Time[40], S3); ObjectSet("S3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("S3 line", OBJPROP_COLOR, SupportColor); } else { ObjectMove("S3 line", 0, Time[40], S3); } if(ObjectFind("S4 line") != 0) { ObjectCreate("S4 line", OBJ_HLINE, 0, Time[40], S4); ObjectSet("S4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("S4 line", OBJPROP_COLOR, SupportColor); } else { ObjectMove("S4 line", 0, Time[40], S4); } if(ObjectFind("S5 line") != 0) { ObjectCreate("S5 line", OBJ_HLINE, 0, Time[40], S5); ObjectSet("S5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("S5 line", OBJPROP_COLOR, SupportColor); } else { ObjectMove("S5 line", 0, Time[40], S5); } if(ObjectFind("R1 line") != 0) { ObjectCreate("R1 line", OBJ_HLINE, 0, Time[40], R1); ObjectSet("R1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("R1 line", OBJPROP_COLOR, ResistanceColor); } else { ObjectMove("R1 line", 0, Time[40], R1); } if(ObjectFind("R2 line") != 0) { ObjectCreate("R2 line", OBJ_HLINE, 0, Time[40], R2); ObjectSet("R2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("R2 line", OBJPROP_COLOR, ResistanceColor); } else { ObjectMove("R2 line", 0, Time[40], R2); } if(ObjectFind("R3 line") != 0) { ObjectCreate("R3 line", OBJ_HLINE, 0, Time[40], R3); ObjectSet("R3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("R3 line", OBJPROP_COLOR, ResistanceColor); } else { ObjectMove("R3 line", 0, Time[40], R3); } if(ObjectFind("R4 line") != 0) { ObjectCreate("R4 line", OBJ_HLINE, 0, Time[40], R4); ObjectSet("R4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("R4 line", OBJPROP_COLOR, ResistanceColor); } else { ObjectMove("R4 line", 0, Time[40], R4); } if(ObjectFind("R5 line") != 0) { ObjectCreate("R5 line", OBJ_HLINE, 0, Time[40], R5); ObjectSet("R5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("R5 line", OBJPROP_COLOR, ResistanceColor); } else { ObjectMove("R5 line", 0, Time[40], R5); } } if (MidPivots) { if(ObjectFind("M5 label") != 0) { ObjectCreate("M5 label", OBJ_TEXT, 0, Time[20], M5); ObjectSetText("M5 label", " M5", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M5 label", 0, Time[20], M5); } if(ObjectFind("M4 label") != 0) { ObjectCreate("M4 label", OBJ_TEXT, 0, Time[20], M4); ObjectSetText("M4 label", " M4", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M4 label", 0, Time[20], M4); } if(ObjectFind("M3 label") != 0) { ObjectCreate("M3 label", OBJ_TEXT, 0, Time[20], M3); ObjectSetText("M3 label", " M3", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M3 label", 0, Time[20], M3); } if(ObjectFind("M2 label") != 0) { ObjectCreate("M2 label", OBJ_TEXT, 0, Time[20], M2); ObjectSetText("M2 label", " M2", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M2 label", 0, Time[20], M2); } if(ObjectFind("M1 label") != 0) { ObjectCreate("M1 label", OBJ_TEXT, 0, Time[20], M1); ObjectSetText("M1 label", " M1", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M1 label", 0, Time[20], M1); } if(ObjectFind("M0 label") != 0) { ObjectCreate("M0 label", OBJ_TEXT, 0, Time[20], M0); ObjectSetText("M0 label", " M0", MidFontSize, "Arial", MidPivotColor); } else { ObjectMove("M0 label", 0, Time[20], M0); } if(ObjectFind("M5 line") != 0) { ObjectCreate("M5 line", OBJ_HLINE, 0, Time[40], M5); ObjectSet("M5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M5 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M5 line", 0, Time[40], M5); } if(ObjectFind("M4 line") != 0) { ObjectCreate("M4 line", OBJ_HLINE, 0, Time[40], M4); ObjectSet("M4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M4 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M4 line", 0, Time[40], M4); } if(ObjectFind("M3 line") != 0) { ObjectCreate("M3 line", OBJ_HLINE, 0, Time[40], M3); ObjectSet("M3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M3 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M3 line", 0, Time[40], M3); } if(ObjectFind("M2 line") != 0) { ObjectCreate("M2 line", OBJ_HLINE, 0, Time[40], M2); ObjectSet("M2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M2 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M2 line", 0, Time[40], M2); } if(ObjectFind("M1 line") != 0) { ObjectCreate("M1 line", OBJ_HLINE, 0, Time[40], M1); ObjectSet("M1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M1 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M1 line", 0, Time[40], M1); } if(ObjectFind("M0 line") != 0) { ObjectCreate("M0 line", OBJ_HLINE, 0, Time[40], M0); ObjectSet("M0 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("M0 line", OBJPROP_COLOR, MidPivotColor); } else { ObjectMove("M0 line", 0, Time[40], M0); } } if (Fibs) { // Fibs 1-3 if (DisplayFibLevels_1_3) { if(ObjectFind("FibR1 label") != 0) { ObjectCreate("FibR1 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR1 label", "Fib R1", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR1 label", 0, Time[0], r1); } if(ObjectFind("FibR2 label") != 0) { ObjectCreate("FibR2 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR2 label", "Fib R2", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR2 label", 0, Time[0], r2); } if(ObjectFind("FibR3 label") != 0) { ObjectCreate("FibR3 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR3 label", "Fib R3", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR3 label", 0, Time[0], r3); } if(ObjectFind("FibS1 label") != 0) { ObjectCreate("FibS1 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS1 label", "Fib S1", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS1 label", 0, Time[0], s1); } if(ObjectFind("FibS2 label") != 0) { ObjectCreate("FibS2 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS2 label", "Fib S2", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS2 label", 0, Time[0], s2); } if(ObjectFind("FibS3 label") != 0) { ObjectCreate("FibS3 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS3 label", "Fib S3", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS3 label", 0, Time[0], s3); } } // Fibs 4-6 if (DisplayFibLevels_4_6) { if(ObjectFind("FibR4 label") != 0) { ObjectCreate("FibR4 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR4 label", "Fib R4", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR4 label", 0, Time[0], r4); } if(ObjectFind("FibR5 label") != 0) { ObjectCreate("FibR5 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR5 label", "Fib R5", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR5 label", 0, Time[0], r5); } if(ObjectFind("FibR6 label") != 0) { ObjectCreate("FibR6 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR6 label", "Fib R6", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR6 label", 0, Time[0], r6); } if(ObjectFind("FibS4 label") != 0) { ObjectCreate("FibS4 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS4 label", "Fib S4", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS4 label", 0, Time[0], s4); } if(ObjectFind("FibS5 label") != 0) { ObjectCreate("FibS5 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS5 label", "Fib S5", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS5 label", 0, Time[0], s5); } if(ObjectFind("FibS6 label") != 0) { ObjectCreate("FibS6 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS6 label", "Fib S6", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS6 label", 0, Time[0], s6); } } if (DisplayFibLevels_7_16) { if(ObjectFind("FibR7 label") != 0) { ObjectCreate("FibR7 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR7 label", "Fib R7", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR7 label", 0, Time[0], r7); } if(ObjectFind("FibR8 label") != 0) { ObjectCreate("FibR8 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR8 label", "Fib R8", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR8 label", 0, Time[0], r8); } if(ObjectFind("FibR9 label") != 0) { ObjectCreate("FibR9 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR9 label", "Fib R9", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR9 label", 0, Time[0], r9); } if(ObjectFind("FibR10 label") != 0) { ObjectCreate("FibR10 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR10 label", "Fib R10", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR10 label", 0, Time[0], r10); } if(ObjectFind("FibR11 label") != 0) { ObjectCreate("FibR11 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR11 label", "Fib R11", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR11 label", 0, Time[0], r11); } if(ObjectFind("FibR12 label") != 0) { ObjectCreate("FibR12 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR12 label", "Fib R12", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR12 label", 0, Time[0], r12); } if(ObjectFind("FibR13 label") != 0) { ObjectCreate("FibR13 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR13 label", "Fib R13", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR13 label", 0, Time[0], r13); } if(ObjectFind("FibR14 label") != 0) { ObjectCreate("FibR14 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR14 label", "Fib R14", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR14 label", 0, Time[0], r14); } if(ObjectFind("FibR15 label") != 0) { ObjectCreate("FibR15 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR15 label", "Fib R15", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR15 label", 0, Time[0], r15); } if(ObjectFind("FibR16 label") != 0) { ObjectCreate("FibR16 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibR16 label", "Fib R16", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibR16 label", 0, Time[0], r16); } if(ObjectFind("FibS7 label") != 0) { ObjectCreate("FibS7 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS7 label", "Fib S7", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS7 label", 0, Time[0], s7); } if(ObjectFind("FibS8 label") != 0) { ObjectCreate("FibS8 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS8 label", "Fib S8", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS8 label", 0, Time[0], s8); } if(ObjectFind("FibS9 label") != 0) { ObjectCreate("FibS9 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS9 label", "Fib S9", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS9 label", 0, Time[0], s9); } if(ObjectFind("FibS10 label") != 0) { ObjectCreate("FibS10 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS10 label", "Fib S10", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS10 label", 0, Time[0], s10); } if(ObjectFind("FibS11 label") != 0) { ObjectCreate("FibS11 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS11 label", "Fib S11", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS11 label", 0, Time[0], s11); } if(ObjectFind("FibS12 label") != 0) { ObjectCreate("FibS12 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS12 label", "Fib S12", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS12 label", 0, Time[0], s12); } if(ObjectFind("FibS13 label") != 0) { ObjectCreate("FibS13 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS13 label", "Fib S13", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS13 label", 0, Time[0], s13); } if(ObjectFind("FibS14 label") != 0) { ObjectCreate("FibS14 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS14 label", "Fib S14", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS14 label", 0, Time[0], s14); } if(ObjectFind("FibS15 label") != 0) { ObjectCreate("FibS15 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS15 label", "Fib S15", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS15 label", 0, Time[0], s15); } if(ObjectFind("FibS16 label") != 0) { ObjectCreate("FibS16 label", OBJ_TEXT, 0, 0, 0); ObjectSetText("FibS16 label", "Fib S16", FibFontSize, "Arial", FibFontColor); } else { ObjectMove("FibS16 label", 0, Time[0], s16); } } //---- Set lines on chart window for Fibs // Fibs 1-3 if (DisplayFibLevels_1_3) { if(ObjectFind("FibR1 line") != 0) { ObjectCreate("FibR1 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR1 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR1 line", 0, Time[0], r1); } if(ObjectFind("FibR2 line") != 0) { ObjectCreate("FibR2 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR2 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR2 line", 0, Time[0], r2); } if(ObjectFind("FibR3 line") != 0) { ObjectCreate("FibR3 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR3 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR3 line", 0, Time[0], r3); } if(ObjectFind("FibS1 line") != 0) { ObjectCreate("FibS1 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS1 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS1 line", 0, Time[0], s1); } if(ObjectFind("FibS2 line") != 0) { ObjectCreate("FibS2 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS2 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS2 line", 0, Time[0], s2); } if(ObjectFind("FibS3 line") != 0) { ObjectCreate("FibS3 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS3 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS3 line", 0, Time[0], s3); } } // Fibs 4-6 if (DisplayFibLevels_4_6) { if(ObjectFind("FibR4 line") != 0) { ObjectCreate("FibR4 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR4 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR4 line", 0, Time[0], r4); } if(ObjectFind("FibR5 line") != 0) { ObjectCreate("FibR5 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR5 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR5 line", 0, Time[0], r5); } if(ObjectFind("FibR6 line") != 0) { ObjectCreate("FibR6 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR6 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR6 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR6 line", 0, Time[0], r6); } if(ObjectFind("FibS4 line") != 0) { ObjectCreate("FibS4 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS4 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS4 line", 0, Time[0], s4); } if(ObjectFind("FibS5 line") != 0) { ObjectCreate("FibS5 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS5 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS5 line", 0, Time[0], s5); } if(ObjectFind("FibS6 line") != 0) { ObjectCreate("FibS6 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS6 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS6 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS6 line", 0, Time[0], s6); } } // Fibs 7-16 if (DisplayFibLevels_7_16) { if(ObjectFind("FibR7 line") != 0) { ObjectCreate("FibR7 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR7 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR7 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR7 line", 0, Time[0], r7); } if(ObjectFind("FibR8 line") != 0) { ObjectCreate("FibR8 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR8 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR8 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR8 line", 0, Time[0], r8); } if(ObjectFind("FibR9 line") != 0) { ObjectCreate("FibR9 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR9 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR9 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR9 line", 0, Time[0], r9); } if(ObjectFind("FibR10 line") != 0) { ObjectCreate("FibR10 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR10 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR10 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR10 line", 0, Time[0], r10); } if(ObjectFind("FibR11 line") != 0) { ObjectCreate("FibR11 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR11 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR11 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR11 line", 0, Time[0], r11); } if(ObjectFind("FibR12 line") != 0) { ObjectCreate("FibR12 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR12 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR12 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR12 line", 0, Time[0], r12); } if(ObjectFind("FibR13 line") != 0) { ObjectCreate("FibR13 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR13 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR13 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR13 line", 0, Time[0], r13); } if(ObjectFind("FibR14 line") != 0) { ObjectCreate("FibR14 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR14 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR14 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR14 line", 0, Time[0], r14); } if(ObjectFind("FibR15 line") != 0) { ObjectCreate("FibR15 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR15 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR15 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR15 line", 0, Time[0], r15); } if(ObjectFind("FibR16 line") != 0) { ObjectCreate("FibR16 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibR16 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibR16 line", OBJPROP_COLOR, FibColorRes); } else { ObjectMove("FibR16 line", 0, Time[0], r16); } if(ObjectFind("FibS7 line") != 0) { ObjectCreate("FibS7 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS7 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS7 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS7 line", 0, Time[0], s7); } if(ObjectFind("FibS8 line") != 0) { ObjectCreate("FibS8 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS8 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS8 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS8 line", 0, Time[0], s8); } if(ObjectFind("FibS9 line") != 0) { ObjectCreate("FibS9 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS9 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS9 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS9 line", 0, Time[0], s9); } if(ObjectFind("FibS10 line") != 0) { ObjectCreate("FibS10 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS10 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS10 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS10 line", 0, Time[0], s10); } if(ObjectFind("FibS11 line") != 0) { ObjectCreate("FibS11 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS11 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS11 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS11 line", 0, Time[0], s11); } if(ObjectFind("FibS12 line") != 0) { ObjectCreate("FibS12 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS12 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS12 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS12 line", 0, Time[0], s12); } if(ObjectFind("FibS13 line") != 0) { ObjectCreate("FibS13 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS13 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS13 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS13 line", 0, Time[0], s13); } if(ObjectFind("FibS13 line") != 0) { ObjectCreate("FibS13 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS13 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS13 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS14 line", 0, Time[0], s14); } if(ObjectFind("FibS15 line") != 0) { ObjectCreate("FibS15 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS15 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS15 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS15 line", 0, Time[0], s15); } if(ObjectFind("FibS16 line") != 0) { ObjectCreate("FibS16 line", OBJ_HLINE, 0, 0, 0); ObjectSet("FibS16 line", OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet("FibS16 line", OBJPROP_COLOR, FibColorSup); } else { ObjectMove("FibS16 line", 0, Time[0], s16); } } } // --- THE CAMARILLA --- if (CamTargets) { if(ObjectFind("H5 label") != 0) { ObjectCreate("H5 label", OBJ_TEXT, 0, Time[20], H5); ObjectSetText("H5 label", " H5 LB TARGET", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("H5 label", 0, Time[20], H5); } if(ObjectFind("H4 label") != 0) { ObjectCreate("H4 label", OBJ_TEXT, 0, Time[20], H4); ObjectSetText("H4 label", " H4 LONG BREAKOUT", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("H4 label", 0, Time[20], H4); } if(ObjectFind("H3 label") != 0) { ObjectCreate("H3 label", OBJ_TEXT, 0, Time[20], H3); ObjectSetText("H3 label", " H3 SHORT", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("H3 label", 0, Time[20], H3); } if(ObjectFind("L3 label") != 0) { ObjectCreate("L3 label", OBJ_TEXT, 0, Time[20], L3); ObjectSetText("L3 label", " L3 LONG", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("L3 label", 0, Time[20], L3); } if(ObjectFind("L4 label") != 0) { ObjectCreate("L4 label", OBJ_TEXT, 0, Time[20], L4); ObjectSetText("L4 label", " L4 SHORT BREAKOUT", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("L4 label", 0, Time[20], L4); } if(ObjectFind("L5 label") != 0) { ObjectCreate("L5 label", OBJ_TEXT, 0, Time[20], L5); ObjectSetText("L5 label", " L5 SB TARGET", CamFontSize, "Arial", CamFontColor); } else { ObjectMove("L5 label", 0, Time[20], L5); } //---- Draw Camarilla lines on Chart if(ObjectFind("H5 line") != 0) { ObjectCreate("H5 line", OBJ_HLINE, 0, Time[40], H5); ObjectSet("H5 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("H5 line", OBJPROP_COLOR, SpringGreen); ObjectSet("H5 line", OBJPROP_WIDTH, 1); } else { ObjectMove("H5 line", 0, Time[40], H5); } if(ObjectFind("H4 line") != 0) { ObjectCreate("H4 line", OBJ_HLINE, 0, Time[40], H4); ObjectSet("H4 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("H4 line", OBJPROP_COLOR, SpringGreen); ObjectSet("H4 line", OBJPROP_WIDTH, 1); } else { ObjectMove("H4 line", 0, Time[40], H4); } if(ObjectFind("H3 line") != 0) { ObjectCreate("H3 line", OBJ_HLINE, 0, Time[40], H3); ObjectSet("H3 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("H3 line", OBJPROP_COLOR, SpringGreen); ObjectSet("H3 line", OBJPROP_WIDTH, 2); } else { ObjectMove("H3 line", 0, Time[40], H3); } if(ObjectFind("L3 line") != 0) { ObjectCreate("L3 line", OBJ_HLINE, 0, Time[40], L3); ObjectSet("L3 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("L3 line", OBJPROP_COLOR, Red); ObjectSet("L3 line", OBJPROP_WIDTH, 2); } else { ObjectMove("L3 line", 0, Time[40], L3); } if(ObjectFind("L4 line") != 0) { ObjectCreate("L4 line", OBJ_HLINE, 0, Time[40], L4); ObjectSet("L4 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("L4 line", OBJPROP_COLOR, Red); ObjectSet("L4 line", OBJPROP_WIDTH, 1); } else { ObjectMove("L4 line", 0, Time[40], L4); } if(ObjectFind("L5 line") != 0) { ObjectCreate("L5 line", OBJ_HLINE, 0, Time[40], L5); ObjectSet("L5 line", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("L5 line", OBJPROP_COLOR, Red); ObjectSet("L5 line", OBJPROP_WIDTH, 1); } else { ObjectMove("L5 line", 0, Time[40], L5); } } //---- done // Now check for Alert if (Alerts) DoAlerts(); //---- return(0); } //+------------------------------------------------------------------+