Transcribe an easylanguage indicator to mt4 and add an ea to this indicator

Below : this is the indicator to transcribe.

see attached files for more details and screen and the description of the strategy.

time limit 15 days

Thank you

---------------------------------------------------

var: vLL( 0 ), vHH( 0 ), vDNT( false ) ;
var: vHHTLID( 0 ), vLLTLID( 0 ) ;
var: vHHTLIDPrev( 0 ), vLLTLIDPrev( 0 ) ;
var: vLLTL( 0 ), vLLDate( 0 ), vLLTime( 0 ), vLLTLPrev( 0 ), vLLDatePrev( 0 ), vLLTimePrev( 0 ) ;
var: vHHTL( 0 ), vHHDate( 0 ), vHHTime( 0 ), vHHTLPrev( 0 ), vHHDatePrev( 0 ), vHHTimePrev( 0 ) ;
var: vColour( 0 ) ;
var: vTick( ( minmove / pricescale ) * iff( category = 12, 10, 1 ) ) ;

vLL = lowest( low, EBOX ) ;
vHH = highest( high, XBOX ) ;

if low < vLL[1] then vDNT = true ;
if high > vHH[1] then vDNT = false ;

if vDNT = true then
    begin
        if vDNT = true and vDNT[1] = false and barstatus( 1 ) = 2 then
            begin
                alert( "Change of Colour" ) ;
                plot3( high + ( 1 * vTick ), "ChgOver", green ) ;
                vColour = Green ;

                if vHHTLIDPrev <> vHHTLID and tl_exist( vHHTLID ) then
                    begin
                        value1 = tl_getvalue( vHHTLID, date, time ) ;
                        tl_setextright( vHHTLID, false ) ;
                        tl_setend( vHHTLID, date, time, value1 ) ;
                       
                        vHHTLIDPrev = vHHTLID ;
                    end ;
                 if vHHTLPrev > 0 and vHHTL < vHHTLPrev then
                    begin
                        vHHTLID = tl_new( vHHDatePrev, vHHTimePrev, vHHTLPrev, vHHDate, vHHTime, vHHTL ) ;
                        tl_setcolor( vHHTLID, cyan ) ;
                        tl_setextright( vHHTLID, true ) ;
                    end ;                
                  vHHTLPrev = vHHTL ; vHHDatePrev = vHHDate ; vHHTimePrev = vHHTime ;
                  vHHTL = -9999999.99 ;           
            end ;
           
          plot1( high, "Waldo" ) ;
          plot2( low, "#10 DN" ) ;
      end
else
      begin
          if vDNT = false and vDNT[1] = true and barstatus( 1 ) = 2 then
              begin
                  alert( "Change of Colour" ) ;
                  plot3( low - ( 1 * vTick ), "ChgOver", red ) ;
                 vColour = Red ;
                
                if vLLTLIDPrev <> vLLTLID and tl_exist( vLLTLID ) then
                    begin
                        value2 = tl_getvalue( vLLTLID, date, time ) ;
                        tl_setextright( vLLTLID, false ) ;
                        tl_setend( vLLTLID, date, time, value2 ) ;
                       
                        vLLTLIDPrev = vLLTLID ;
                    end ;
                 if vLLTLPrev > 0 and vLLTL > vLLTLPrev then
                    begin
                        vLLTLID = tl_new( vLLDatePrev, vLLTimePrev, vLLTLPrev, vLLDate, vLLTime, vLLTL ) ;
                        tl_setcolor( vLLTLID, red ) ;
                        tl_setextright( vLLTLID, true ) ;
                    end ;
                vLLTLPrev = vLLTL ; vLLDatePrev = vLLDate ; vLLTimePrev = vLLTime ;
                vLLTL = 9999999.99 ;
              end ;
      end ;

if vColour = Red then
    begin
        if high > vHHTL then begin vHHTL = high ; vHHDate = date ; vHHTime = time ; end ;
    end ;
   
if vColour = Green then
    begin
        if low < vLLTL then begin vLLTL = low ; vLLDate = date ; vLLTime = time ; end ;
    end ;