//+------------------------------------------------------------------+ //| SequentialCountdown.mq5 | //| Copyright 2026, Allan Niñal | //| https://www.allanninal.dev/mql5 | //+------------------------------------------------------------------+ //| Free indicator: the 9-13 sequential count on one chart. Setup | //| numbers 1-9 (perfected 9s marked) and countdown numbers 1-13, | //| on closed bars only, so a number never changes once its bar has | //| closed. Alerts on 9 and 13. Rules: docs/SPEC.md. | //| Engine: Include/Sequential/Seq.mqh (the same as the scanner). | //+------------------------------------------------------------------+ // SPDX-License-Identifier: LicenseRef-PolyForm-Noncommercial-1.0.0 (see LICENSE) #property copyright "Copyright 2026, Allan Niñal " #property link "https://www.allanninal.dev/mql5" #property version "1.1" #property description "9-13 sequential count: setup 1-9 with perfected 9s, countdown 1-13, on the chart. Closed bars only, never repaints." #property description "Alerts on 9 and 13: pop-up, sound, push, e-mail. Buffers for other programs." #property indicator_chart_window #property indicator_buffers 6 #property indicator_plots 6 #property indicator_label1 "Buy 13" #property indicator_type1 DRAW_ARROW #property indicator_color1 C'38,166,98' #property indicator_width1 2 #property indicator_label2 "Sell 13" #property indicator_type2 DRAW_ARROW #property indicator_color2 C'226,74,70' #property indicator_width2 2 #property indicator_label3 "Buy setup count (9 = complete, 10 = perfected 9)" #property indicator_type3 DRAW_NONE #property indicator_label4 "Sell setup count (9 = complete, 10 = perfected 9)" #property indicator_type4 DRAW_NONE #property indicator_label5 "Buy countdown number (-1 = deferred)" #property indicator_type5 DRAW_NONE #property indicator_label6 "Sell countdown number (-1 = deferred)" #property indicator_type6 DRAW_NONE #include "Seq.mqh" input group "Display" input int InpHistory = 1500; // Closed bars to count on the chart (100-20000) input bool InpAllSetup = true; // Show setup numbers 1-8 (off: only 9) input bool InpCountdown = true; // Show the countdown 1-13 input int InpFontSize = 8; // Number font size input color InpColBuy = C'38,166,98'; // Buy colour input color InpColSell = C'226,74,70'; // Sell colour input color InpColCdBuy = C'86,156,214'; // Buy countdown colour input color InpColCdSell = C'214,140,60'; // Sell countdown colour input group "Alerts on" input bool InpAlert9 = true; // A completed 9 input bool InpAlert13 = true; // A 13 #include "SignalAlerts.mqh" #include input group "Support" input bool InpDebug = false; // Debug log for bug reports (Experts tab) const string PRODUCT="Sequential Countdown"; const string PREFIX ="SQC_"; double g_b13[],g_s13[],g_bset[],g_sset[],g_bcd[],g_scd[]; SQState g_s; int g_start=0; int g_fed=0; datetime g_alert_bar=0; void Clear() { ObjectsDeleteAll(0,PREFIX); SQInit(g_s); g_fed=0; ObjBudgetReset(); } void Num(const string name,const datetime t,const double price,const string txt,const color clr,const bool below,const bool bold) { if(ObjectFind(0,name)>=0) return; if(!ObjectCreate(0,name,OBJ_TEXT,0,t,price)) { CkDbg("ObjectCreate failed, error "+IntegerToString(GetLastError())); return; } ObjBudget(name); ObjectSetString(0,name,OBJPROP_TEXT,txt); ObjectSetString(0,name,OBJPROP_FONT,bold ? "Arial Bold" : "Arial"); ObjectSetInteger(0,name,OBJPROP_FONTSIZE,bold ? InpFontSize+2 : InpFontSize); ObjectSetInteger(0,name,OBJPROP_COLOR,clr); ObjectSetInteger(0,name,OBJPROP_ANCHOR,below ? ANCHOR_UPPER : ANCHOR_LOWER); ObjectSetInteger(0,name,OBJPROP_SELECTABLE,false); ObjectSetInteger(0,name,OBJPROP_HIDDEN,true); ObjectSetInteger(0,name,OBJPROP_BACK,false); } int OnInit() { CkDebugStart(PRODUCT,"1.1",InpDebug,StringFormat("history %d, setup 1-8 %d, countdown %d, alerts 9: %d, 13: %d, font %d",InpHistory,(int)InpAllSetup,(int)InpCountdown,(int)InpAlert9,(int)InpAlert13,InpFontSize)); if(InpHistory<100 || InpHistory>20000 || InpFontSize<6 || InpFontSize>16) { Print(PRODUCT,": history 100-20000, font size 6-16"); CkDbg("init refused: an input is out of range (see the line above)"); return(INIT_PARAMETERS_INCORRECT); } SetIndexBuffer(0,g_b13,INDICATOR_DATA); SetIndexBuffer(1,g_s13,INDICATOR_DATA); SetIndexBuffer(2,g_bset,INDICATOR_DATA); SetIndexBuffer(3,g_sset,INDICATOR_DATA); SetIndexBuffer(4,g_bcd,INDICATOR_DATA); SetIndexBuffer(5,g_scd,INDICATOR_DATA); PlotIndexSetInteger(0,PLOT_ARROW,233); PlotIndexSetInteger(1,PLOT_ARROW,234); PlotIndexSetInteger(0,PLOT_ARROW_SHIFT,40); PlotIndexSetInteger(1,PLOT_ARROW_SHIFT,-40); PlotIndexSetInteger(0,PLOT_LINE_COLOR,InpColBuy); PlotIndexSetInteger(1,PLOT_LINE_COLOR,InpColSell); for(int i=0; i<6; i++) PlotIndexSetDouble(i,PLOT_EMPTY_VALUE,EMPTY_VALUE); IndicatorSetString(INDICATOR_SHORTNAME,PRODUCT); Clear(); return(INIT_SUCCEEDED); } void OnDeinit(const int reason) { CkDbg("removed, reason "+IntegerToString(reason)); ObjectsDeleteAll(0,PREFIX); } int OnCalculate(const int rates_total,const int prev_calculated,const datetime &time[], const double &open[],const double &high[],const double &low[],const double &close[], const long &tick_volume[],const long &volume[],const int &spread[]) { if(rates_total<10) return(0); ArraySetAsSeries(time,false); ArraySetAsSeries(high,false); ArraySetAsSeries(low,false); ArraySetAsSeries(close,false); if(prev_calculated==0) { Clear(); g_start=MathMax(0,rates_total-1-InpHistory); CkDbg(StringFormat("full scan: %d bars on the chart, the last %d closed bars are scanned",rates_total,MathMin(InpHistory,rates_total-1))); ArrayInitialize(g_b13,EMPTY_VALUE); ArrayInitialize(g_s13,EMPTY_VALUE); ArrayInitialize(g_bset,EMPTY_VALUE); ArrayInitialize(g_sset,EMPTY_VALUE); ArrayInitialize(g_bcd,EMPTY_VALUE); ArrayInitialize(g_scd,EMPTY_VALUE); } else for(int i=MathMax(prev_calculated-1,0); i=g_start+g_fed) { g_b13[i]=EMPTY_VALUE; g_s13[i]=EMPTY_VALUE; g_bset[i]=EMPTY_VALUE; g_sset[i]=EMPTY_VALUE; g_bcd[i]=EMPTY_VALUE; g_scd[i]=EMPTY_VALUE; } bool live=(prev_calculated>0); string events=""; int nsig=0; for(int i=g_start+g_fed; i<=rates_total-2; i++) { bool ev=SQFeed(g_s,high[i],low[i],close[i]); g_fed++; if(ev) nsig++; g_bset[i]=(g_s.ev_setup==1 && g_s.perf ? 10 : g_s.show_b); g_sset[i]=(g_s.ev_setup==-1 && g_s.perf ? 10 : g_s.show_s); g_bcd[i]=(g_s.defer==1 ? -1 : g_s.bmark); g_scd[i]=(g_s.defer==-1 ? -1 : g_s.smark); //--- the text offset: average range of the last 14 bars (countdown numbers sit below/above the setup numbers) double rg=0; int nr=0; for(int j=i; j>i-14 && j>=0; j--) { rg+=high[j]-low[j]; nr++; } double off=(nr>0 ? rg/nr : 0)*0.9; string id=PREFIX+IntegerToString((long)time[i]); //--- setup numbers; a 9 that is not perfected shows as 9' if(g_s.show_b>0 && (InpAllSetup || g_s.show_b==9)) { bool nine=(g_s.show_b==9); Num(id+"b",time[i],low[i],nine && !g_s.perf ? "9'" : IntegerToString(g_s.show_b),InpColBuy,true,nine); if(nine) ObjectSetString(0,id+"b",OBJPROP_TOOLTIP,g_s.perf ? "Buy setup 9, perfected" : "Buy setup 9, not perfected"); } if(g_s.show_s>0 && (InpAllSetup || g_s.show_s==9)) { bool nine=(g_s.show_s==9); Num(id+"s",time[i],high[i],nine && !g_s.perf ? "9'" : IntegerToString(g_s.show_s),InpColSell,false,nine); if(nine) ObjectSetString(0,id+"s",OBJPROP_TOOLTIP,g_s.perf ? "Sell setup 9, perfected" : "Sell setup 9, not perfected"); } if(InpCountdown) { if(g_s.bmark>0 || g_s.defer==1) Num(id+"cb",time[i],low[i]-off,g_s.defer==1 ? "+" : IntegerToString(g_s.bmark),InpColCdBuy,true,g_s.bmark==13); if(g_s.smark>0 || g_s.defer==-1) Num(id+"cs",time[i],high[i]+off,g_s.defer==-1 ? "+" : IntegerToString(g_s.smark),InpColCdSell,false,g_s.smark==13); } if(g_s.ev_cd==1) g_b13[i]=low[i]; if(g_s.ev_cd==-1) g_s13[i]=high[i]; if(ev && live && i==rates_total-2 && time[i]>g_alert_bar) { g_alert_bar=time[i]; string tf=StringSubstr(EnumToString((ENUM_TIMEFRAMES)_Period),7); if(InpAlert9 && g_s.ev_setup!=0) events=StringFormat("%s setup 9%s on %s %s",g_s.ev_setup>0 ? "Buy" : "Sell",g_s.perf ? " (perfected)" : "",_Symbol,tf); if(InpAlert13 && g_s.ev_cd!=0) events+=(events=="" ? "" : "; ")+StringFormat("%s countdown 13 on %s %s",g_s.ev_cd>0 ? "Buy" : "Sell",_Symbol,tf); } } if(!live) CkDbg(StringFormat("scan done: %d closed bars fed, %d signal bars",g_fed,nsig)); if(events!="") SignalAlertMessage(PRODUCT,events); return(rates_total); } //+------------------------------------------------------------------+