_SECTION_BEGIN("Presto's Magic Box");
Periods=Param("periods",100,4,260);

//--Kelvinhand
HHVtemp = HHV( High, Periods );
LLVtemp = LLV( Low, Periods );

TopBox = HHVTemp;
BotBox = LLVTemp;

for( i = Periods + 4; i < BarCount; i++ )
 {

   if( H[ i - 3 ] >= HHVTemp[ i - 4 ] AND
                     H[ i - 3 ] > H[ i - 2 ] AND
                     H[ i - 3 ] > H[ i - 1 ] AND
                     H[ i - 3 ] > H[ i ])

   {                     

      Topbox[ i ] =  H[i-3];
      Botbox[ i ] = LLVTemp[i];

   }
   else
   {   //*** PREV ****
      Topbox[ i ] = Topbox[ i-1];
      Botbox[ i ] = Botbox[i-1];

   }

}

//Plot( C, "Price", colorBlack, styleCandle );

Plot( Topbox, "PM_Top", ParamColor("PM_Top.Color",colorRed),  Param("PM_Top.Style",styleNoLabel,maskAll) );
Plot( Botbox, "PM_Bot", ParamColor("PM_Bot.Color",colorGreen), Param("PM_Bot.Style",styleNoLabel,maskAll) );

_SECTION_END();