//================================================================================  ===================
//                 Í À Ñ Ò Ð À Å Â Û Å Ì Û Å    Ç Í À × Å Í È ß
//================================================================================  ===================
 
function wood_dummy takes nothing returns integer 
   return 'h000'
endfunction

function wood_ability takes nothing returns integer
   return 'Agra'
endfunction

function wood_speed takes nothing returns real
   return 500.00
endfunction

function Wood_damage takes nothing returns real
   return 500.00
endfunction

function wood_range takes nothing returns real
   return 500.00
endfunction
//================================================================================  ===================
//                 Á À Ç À    Ñ Ï Å Ë Ë À
//================================================================================  =================== 

function Trig_usesphere_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == wood_ability() ) ) then
        return false
    endif
    return true
endfunction

function a takes unit u returns boolean
    return ( IsUnitAlly(GetFilterUnit(), GetOwningPlayer(u)) == false )
endfunction

function a1 takes group g returns boolean
    if ( not ( CountUnitsInGroup(g) > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_usesphere_Actions takes nothing returns nothing
    local unit u
    local group g
    local destructable d
    set d = GetSpellTargetDestructable()
    call CreateNUnitsAtLoc( 1, wood_dummy(), GetOwningPlayer(GetTriggerUnit()), GetUnitLoc(GetTriggerUnit()), 0.00 )
    set u = GetLastCreatedUnit()
    call IssuePointOrderLocBJ( u, "move", GetDestructableLoc(d) )
    call PolledWait( ( DistanceBetweenPoints(GetUnitLoc(u), GetDestructableLoc(GetSpellTargetDestructable())) / wood_speed() ) )
    call KillDestructable( d )
    set g = GetUnitsInRangeOfLocMatching(wood_range(), GetUnitLoc(u), Condition(function a) )
    if ( a1(g) ) then
        call IssueTargetOrderBJ( u, "attack", FirstOfGroup(g) )
        call PolledWait( ( DistanceBetweenPoints(GetUnitLoc(u), GetUnitLoc(FirstOfGroup(g))) / wood_speed() ) )
        call UnitDamageTargetBJ( u, FirstOfGroup(g), Wood_damage(), ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL )
        call RemoveUnit( u )
    else
        call RemoveUnit( u )
    endif
    set u = null
    call DestroyGroup(g)
    set d = null
endfunction

//===========================================================================
function InitTrig_usesphere takes nothing returns nothing
    set gg_trg_usesphere = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_usesphere, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_usesphere, Condition( function Trig_usesphere_Conditions ) )
    call TriggerAddAction( gg_trg_usesphere, function Trig_usesphere_Actions )
endfunction

globals
    integer wood_dummy = 'h000'
    integer wood_ability = 'Agra'
    real wood_speed = 500.00
    real wood_damage = 500.00
    real wood_range = 500.00
endglobals


function a takes unit u returns boolean
    local unit u = GetFilterUnit()
    if not IsUnitAlly(u, GetOwningPlayer(u)) then
        set u = null
        return true
    endif
    set u = null
    return false
endfunction

function Trig_usesphere_Actions takes nothing returns nothing
    local unit u
    local group g
    local unit c = GetSpellAbilityUnit()
    local destructable d = GetSpellTargetDestructable()
    local location dloc = GetDestructableLoc(d)
    local location uloc = GetUnitLoc(c)
    local real dist = DistanceBetweenPoints(dloc, uloc)
    set u = CreateUnitAtLoc(GetOwningPlayer(c), wood_dummy, uloc, 270.)
    call IssuePointOrderLocBJ( u, "move", dloc )
    call TriggerSleepAction(dist/wood_speed)
    call KillDestructable(d)
    set g = GetUnitsInRangeOfLocMatching(wood_range, GetUnitLoc(u), Condition(function a) )
    if CountUnitsInGroup(g) > 0 then
        call IssueTargetOrderBJ( u, "attack", FirstOfGroup(g) )
        set dist = DistanceBetweenPoints(uloc,FirstOfGroup(g))
        call TriggerSleepAction(dist/wood_speed)
        call UnitDamageTarget(c, FirstOfGroup(g), wood_damage, true, false, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS) //c if you need caster as attacker
    endif
    call RemoveUnit(u)
    call DestroyGroup(g)
    call RemoveLocation(dloc)
    call RemoveLocation(duloc)
    set u = null
    set d = null
    set c = null
endfunction

//===========================================================================
function Trig_usesphere_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == wood_ability()
endfunction

function InitTrig_usesphere takes nothing returns nothing
    set gg_trg_usesphere = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_usesphere, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_usesphere, Condition( function Trig_usesphere_Conditions ) )
    call TriggerAddAction( gg_trg_usesphere, function Trig_usesphere_Actions )
endfunction

function a takes unit u returns boolean
    local unit u = GetFilterUnit()
    if not IsUnitAlly(u, GetOwningPlayer(u)) then
        set u = null
        return true
    endif
    set u = null
    return false
endfunction

globals
 player p_temp=null // не unit, а player. by swdn.
endglobals

// в p_temp овнера перед пиком

function a takes nothing returns boolean
 return IsUnitEnemy(GetFilterUnit(), p_temp) 
endfunction

globals 
    group GG = CreateGroup()
    player p_temp=null
    //    
    constant integer wood_dummy = 'h000'
    constant integer wood_ability = 'Agra'
    constant real wood_speed = 500.00
    constant real wood_damage = 500.00
    constant real wood_range = 500.00
    filterfunc wood_Filter = null
endglobals

constant function Trig_usesphere_Filter takes nothing returns boolean
    return not IsUnitAlly(GetFilterUnit(), p_temp)
endfunction

function DistanceBetweenCoord takes real XA, real YA, real XB, real YB returns real
    local real dx = XB - XA
    local real dy = YB - YA
    return SquareRoot(dx * dx + dy * dy)
endfunction

function Trig_usesphere_Actions takes nothing returns nothing
    local unit c = GetSpellAbilityUnit()
    local destructable d = GetSpellTargetDestructable()
    local real Dx = GetDestructableX(d)    
    local real Dy = GetDestructableY(d)
    local real Ux = GetUnitX(c)
    local real Uy = GetUnitY(c)
    local real dist = DistanceBetweenCoord(Dx, Dy, Ux, Uy) 
    local unit u = CreateUnit(GetOwningPlayer(c), wood_dummy, Ux, Uy, 270.)
    local unit t
    call IssuePointOrder(u, "move", Dx, Dy)
    call TriggerSleepAction(dist/wood_speed)
    call KillDestructable(d)
    set p_temp = GetOwningPlayer(c)
    call GroupEnumUnitsInRange(GG, Ux, Uy, wood_range, wood_Filter)
    set t = FirstOfGroup(GG)
    if t != null then
        call IssueTargetOrder(u, "attack", t)
        set dist = DistanceBetweenCoord(Ux, Uy, GetUnitX(t), GetUnitY(t))
        call TriggerSleepAction(dist/wood_speed)
        call UnitDamageTarget(c, t, wood_damage, true, false, ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
        set t = null
    endif
    call RemoveUnit(u)
    set u = null
    set d = null
    set c = null
endfunction

constant function Trig_usesphere_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == wood_ability
endfunction

function InitTrig_usesphere takes nothing returns nothing
    set gg_trg_usesphere = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_usesphere, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(gg_trg_usesphere, Condition(function Trig_usesphere_Conditions))
    call TriggerAddAction(gg_trg_usesphere, function Trig_usesphere_Actions)
    set wood_Filter = Filter(function Trig_usesphere_Filter)
endfunction