function Trig_UdarGroma1_Conditions takes nothing returns boolean
return GetSpellAbilityId() == 'A002'
endfunction

function Trig_UdarGroma1_Actions takes nothing returns nothing
local unit c = GetSpellAbilityUnit()
//local timer t = CreateTimer() ?
local real x = GetUnitX(c)
local real y = GetUnitY(c)
local unit u
local integer i=0
local group g = CreateGroup()
call GroupEnumUnitsInRange(g,x,y,716.,null)
loop
set u = FirstOfGroup(g)
if not (GetUnitTypeId(u) == 0 or IsUnitType(u, UNIT_TYPE_DEAD)) and not IsUnitType(u, UNIT_TYPE_STRUCTURE) and not IsUnitHidden(u) and not IsUnitType(u,UNIT_TYPE_MAGIC_IMMUNE)  and not IsUnitAlly(u,GetOwningPlayer(c)) and not IsUnitType(u,UNIT_TYPE_MECHANICAL) then
if IsUnitType(u,UNIT_TYPE_HERO) then
set i = i+50
else
set i = i+5
endif
endif
call GroupRemoveUnit(g,u)
exitwhen u == null
endloop
call SetHeroStr(c,i,true)
call DestroyGroup(g)
set u = null
set c = null
set g = null
endfunction