private function WaterStrike_Move takes nothing returns boolean
      local integer i = GetHandleId(t)
      local data    d = LoadInteger(h,i,0)
      local real    x = GetUnitX(d.c)
      local real    y = GetUnitY(d.c)
      local real    xt
      local real    yt
      local unit    b
      local unit    z
      local group   g
      set d.ang = Angl(x,y,d.x,d.y)
      set xt    = x+speed*Cos(d.ang)
      set yt    = y+speed*Sin(d.ang)
      if d.v >= maxdis then
         call KillUnit(d.c)
         call FlushChildHashtable(h,i)
         call DestroyTrigger(t)
         call GroupClear(d.g)
         call DestroyGroup(g)
         call RemoveLocation(l)
         call d.destroy()
      else
         call SetUnitX(d.c,xt)
         call SetUnitY(d.c,yt)
         set b = CreateUnit(p,effect_id,x,y,d.ang)
         call UnitApplyTimedLife(b,'BTLF',2.)
         set g = CreateGroup()
         call GroupEnumUnitsInRange(g,GetUnitX(d.c),GetUnitY(d.c),250.,null)
         loop
             set z = FirstOfGroup(g)
             exitwhen z == null
             call GroupRemoveUnit(g,z)
             if UnitFilter(d.u,z) then
                if IsUnitInGroup(z,d.g) == false then
                   call GroupAddUnit(d.g,z)
                   call KnockBack_Actions(d.u,z)
                endif
             endif
         endloop
         call DestroyGroup(g)
      endif
      set d.v = d.v+speed
      set g = null
      set b = null
      set z = null
      return false
endfunction