globals
    location Lz = Location(0,0)
    
    unit array Mu = null
    
    integer lpEnd = 0
    integer lp    = 0
    
    real array x1 = 0
    real array y1 = 0
    real array z1 = 0
    
    real array x2 = 0
    real array y2 = 0
    real array z2 = 0
endglobals

function Mu takes nothing returns nothing
    set lp = 0
    
    loop 
    exitwhen lp > lpEnd
    set x1[lp] = x1[lp] + x2[lp]
    set y1[lp] = y1[lp] + y2[lp]    
    set z1[lp] = z1[lp] + z2[lp]
    
    call SetUnitX(Mu[lp],x1[lp])
    call SetUnitY(Mu[lp],y1[lp])  
    call MoveLocation(Lz,x1[lp],y1[lp])
    call SetUnitFlyHeight(Mu[lp], z1[lp]-GetLocationZ(Lz), 8192)
    set z2[lp] = z2[lp] - 0.098

    set lp = lp + 1
    endloop
endfunction

function play takes nothing returns nothing
    call TimerStart (CreateTimer(),.05,true,function Mu)
endfunction