globals
     location Lz = Location(0,0)

     unit array Mu
      
     integer lpEnd = 0
     integer lp    = 0
      
     real array x1
     real array y1
     real array z1
      
     real array x2
     real array y2
     real array z2
      
     real array s
endglobals
function d takes nothing returns nothing
     set lp = 1
     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])
      
     if z1[lp]-GetLocationZ(Lz) < 60 then
     if s[lp] < 1 then
     call RemoveUnit(Mu[lp])
     set Mu[lp] = Mu[lpEnd]
      set x1[lp] = x1[lpEnd]
      set y1[lp] = y1[lpEnd]
      set z1[lp] = z1[lpEnd]
       
      set x2[lp] = x2[lpEnd]
      set y2[lp] = y2[lpEnd]
      set z2[lp] = z2[lpEnd]
       
      set s[lp] = s[lpEnd]
      set lpEnd = lpEnd - 1
     else
     set s[lp] = s[lp]/1.5
     set z2[lp]= s[lp]
     endif
     endif
      
     call SetUnitFlyHeight(Mu[lp], z1[lp]-GetLocationZ(Lz), 999999)
     set z2[lp] = z2[lp] - 0.8

     set lp = lp + 1
     endloop

endfunction