globals
  group g = CreateGroup()
  filterfunc ff
endglobals

function Filt takes nothing returns boolean
  if IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(GetTriggerUnit())) then
    call UnitDamageTarget(GetTriggerUnit(), GetFilterUnit(), 500, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, null)
  endif
  return false
endfunction

function Actions takes nothing returns nothing
  set ff = Filter(function Filt)
  call GroupEnumUnitsInRange(g, GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit()), 500, ff)
endfunction

// далее - действия по созданию триггера и добавления события и действия
...