Convert a Pine script to mql4 indicator script

Hi,

I want to get this Pipe script to mql4  

//@version=2
//creator: @yasinipek83
//author: @fr3762 KIVANÇ
//Modified by Maped, buy sell signals only for a cleaner chart !

study("Heikin Ashi Smoothed Signals", overlay=true)
EMAlength=input(50,"EMA Length")

src=ohlc4
haOpen=0.0
haOpen := (src + nz(haOpen[1]))/2
haC=(ohlc4+nz(haOpen)+max(high,nz(haOpen))+min(low,nz(haOpen)))/4
EMA1=ema(haC,EMAlength)
EMA2=ema(EMA1,EMAlength)
EMA3=ema(EMA2,EMAlength)
TMA1=3*EMA1-3*EMA2+EMA3
EMA4=ema(TMA1,EMAlength)
EMA5=ema(EMA4,EMAlength)
EMA6=ema(EMA5,EMAlength)
TMA2=3*EMA4-3*EMA5+EMA6
IPEK=TMA1-TMA2
YASIN=TMA1+IPEK
EMA7=ema(hlc3,EMAlength)
EMA8=ema(EMA7,EMAlength)
EMA9=ema(EMA8,EMAlength)
TMA3=3*EMA7-3*EMA8+EMA9
EMA10=ema(TMA3,EMAlength)
EMA11=ema(EMA10,EMAlength)
EMA12=ema(EMA11,EMAlength)
TMA4=3*EMA10-3*EMA11+EMA12
IPEK1=TMA3-TMA4
YASIN1=TMA3+IPEK1

mavi=YASIN1
kirmizi=YASIN

longCond=mavi>(kirmizi+1)
shortCond=mavi<(kirmizi-1)
trendState  = kirmizi < mavi ? true : kirmizi > mavi ? false : trendState[1]
closePlot   = plot(kirmizi, title = "Close Line", color = #FF5252, linewidth = 3, style = line, transp = 70)
openPlot    = plot(mavi, title = "Open Line", color = #311B92, linewidth = 3, style = line, transp = 70)
closePlotU  = plot(trendState ? kirmizi : na, transp = 100, editable = true)
openPlotU   = plot(trendState ? mavi : na, transp = 100, editable = true)
closePlotD  = plot(trendState ? na : kirmizi, transp = 100, editable = true)
openPlotD   = plot(trendState ? na : mavi, transp = 100, editable = true)
fill(openPlotU, closePlotU, title = "Up Trend Fill", color = #311B92, transp = 70)
fill(openPlotD, closePlotD, title = "Down Trend Fill", color = #FF5252, transp = 70)


last_signal = 0
long_final  = longCond  and (nz(last_signal[1]) == 0 or nz(last_signal[1]) == -1)
short_final = shortCond and (nz(last_signal[1]) == 0 or nz(last_signal[1]) == 1)

alertcondition(long_final, title="Buy alarm", message="Buy Heikin")
alertcondition(short_final, title="Sell alarm", message="Sell Heikin")
last_signal := long_final ? 1 : short_final ? -1 : last_signal[1]

plotshape(long_final, style=shape.triangleup,
          location=location.belowbar, color=#311B92,size=size.tiny,title="Buy label",transp=70)
plotshape(short_final, style=shape.triangledown,
          location=location.abovebar, color=#FF5252,size=size.tiny,title="Sell label",transp=70)

It should have same signal and have Parameter input for EMA length.