Cycle / time zones modification

[bakbartlomiej]

Hi,
In my analyzes I often use prime numbers, which gives surprisingly interesting effects and I would like to simplify my work in some way. At this point, I manually mark with vertical lines the cycles falling on the following days (7, 11, 13, 17, 19 and 23) after the selected bar. Does AFL provide the opportunity to create a tool, such as Fibonacci time zones, in which the appropriate vertical lines appear after selecting the bar?

In my search i found some code (I can't paste link here) and modified it:

function DrawSeries( start, series, Color )
{
  x = BarsSince( start );
 
  result = 0;
 
  for( i = 0; ( bar = StrToNum( StrExtract( series, i ) ) ) != 0; i++ )
  {
     result += x == bar;
  }
 
  Plot( result, "", Color, 
        styleHistogram | styleOwnScale | styleNoLabel, 0, 1 );
}
 
Plot( C, "Price", colorBlack, styleCandle );
 
FibSeries = "7,11,13,17,19,23";
 
dn = ParamDate("Date", "", 0 );
tn = ParamTime("Time", "00:00:00", 0 );
 
bi = BarIndex();
 
if( ParamToggle("Start point", "Mouse select|Date input", 0 ) )
start = DateNum() == dn AND TimeNum() == tn;
else
start = bi == SelectedValue( bi );
 
if( start[ BarCount -1 ] ) 
 
firstn = ParamToggle("Fib Series", "Off|On", 1 );
firstcolor = ParamColor("Fib Color", colorBlueGrey );
 
if( firstn ) DrawSeries( start, FibSeries, firstcolor );

which is quite good, however, the problem is that I need to manually enter the date or use selected bar. Is there possibility to click bar and "save" that choice and drag&drop this study like in fibonacci time zones?