function Trig_Charge_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'AAnp'
endfunction

function Charge_Stun_Check takes nothing returns boolean
    if GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.425 and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) == true and IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false and IsUnitIdType(GetUnitTypeId(GetTriggerUnit()), UNIT_TYPE_STUNNED) == false and IsUnitType(GetFilterUnit(), UNIT_TYPE_STUNNED) == false and GetUnitAbilityLevel(GetFilterUnit(), 'A00Z') <= 0 and GetUnitAbilityLevel(GetFilterUnit(), 'BPSE') <= 0 and GetUnitAbilityLevel(GetFilterUnit(), 'BSTN') <= 0 and GetUnitAbilityLevel(GetFilterUnit(), 'Aloc') <= 0 then
        return true
    else
        return false
    endif
endfunction

function Charge_Move takes nothing returns nothing
        //Объявление локальных переменных.
    local timer t = GetExpiredTimer()
    local integer id = GetHandleId(t)
            //Данные для движения.
    local unit a = LoadUnitHandle(udg_hash, id, StringHash("ChargeCaster"))
    local real x = LoadReal(udg_hash, id, StringHash("ChargeCenterX"))
    local real y = LoadReal(udg_hash, id, StringHash("ChargeCenterY"))
    local real dist = LoadReal(udg_hash, id, StringHash("ChargeDistance"))
    local real tx
    local real ty
    local real angle
            //Остальное.
    local unit d
    local group g = CreateGroup()
    local group n
    local boolexpr b = Filter(function Charge_Stun_Check)
    local unit f
    local timer s = CreateTimer()
    local integer sid
        //Непосредственно движение.
    if dist > 0. then 
        set tx = GetUnitX(a)
        set ty = GetUnitY(a)
        set angle = Atan2(ty-y, tx-x)
        if GetUnitState(a, UNIT_STATE_LIFE) > 0.425 then
            call SetUnitPosition(a, tx-30.*Cos(angle), ty-30.*Sin(angle))
            call SaveReal(udg_hash, id, StringHash("ChargeDistance"), dist-30.)
            //call SetUnitX(a,tx-30.*Cos(angle))  //Оставил на всякий пожарный как альтернативу.
            //call SetUnitY(a,ty-30.*Sin(angle))
                //Произведение действий с группой юнитов, которая попадается на пути у кастера.
            call GroupEnumUnitsInRange(g,GetUnitX(a),GetUnitY(a),300.,b)
            call GroupRemoveUnit(g, a)
            set n = Copy_Group(g)
            loop
                set f = FirstOfGroup(n)
                exitwhen f == null
                call DisplayTextToForce( GetPlayersAll(), GetUnitName(f) ) //Проверка, чтобы я мог узнать в игре кто прошел фильтр.
                set d = CreateUnit(GetOwningPlayer(a), 'udum', GetUnitX(a), GetUnitY(a), 0.)
                call UnitAddAbility(d, 'A00Y')
                //call UnitAddAbility(f, 'A00Z')
                call SetUnitAbilityLevel(d, 'A00Y', GetUnitAbilityLevel(a, 'AAnp'))
                call IssueTargetOrder( d, "creepthunderbolt", f )
                call UnitApplyTimedLife(d,'BTLF',1.0)
                call UnitDamageTargetBJ( a, f, 50.00+50.00*GetUnitAbilityLevel(a, 'AAnp'), ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL )
                call SetUnitPathing( f, false )
                //call PauseUnit(f, true)
                call SetUnitAnimation( f, "death" )
                call GroupRemoveUnit(n, f)
            endloop
        endif
    else
            //Если движение окончено, очищаем не нужные данные и приводим кастера в нормальное состояние.
        call PauseUnit(a, false)
        call SetUnitAnimation(a, "stand")
        call DestroyTimer(t)
        call FlushChildHashtable(udg_hash, id)
    endif
        //Обнуление локальных переменных и других даных.
    call GroupClear(g)
    call DestroyGroup(n)
    call DestroyGroup(g)
    call DestroyBoolExpr(b)
    set t = null
    set f = null
    set a = null
    set g = null
    set n = null
    set b = null
    set s = null
    set d = null
endfunction

function Trig_Charge_Actions takes nothing returns nothing
    local unit a = GetSpellAbilityUnit()
    local timer t = CreateTimer()
    local integer id = GetHandleId(t)
    local real x = GetLocationX(GetSpellTargetLoc())
    local real y = GetLocationY(GetSpellTargetLoc())
    local real dist = DistanceBetweenPoints(Location(GetUnitX(a), GetUnitY(a)), GetSpellTargetLoc())
        //Занесение необходимых для движения данных в хэщ и запуск таймера.
    call SaveReal(udg_hash, id, StringHash("ChargeCenterX"), x)
    call SaveReal(udg_hash, id, StringHash("ChargeCenterY"), y)
    call SaveUnitHandle(udg_hash, id, StringHash("ChargeCaster"), a)
    call SaveReal(udg_hash, id, StringHash("ChargeDistance"), dist)
    call IssueImmediateOrder(a, "stop")
    call PauseUnit(a, true)
    call SetUnitAnimationByIndex(a, 6)
    call TimerStart(t, 0.04, true, function Charge_Move)
        //Обнуление локальных переменных.
    set a = null
    set t = null
endfunction

//===========================================================================
function InitTrig_Charge takes nothing returns nothing
    set gg_trg_Charge = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Charge, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Charge, Condition( function Trig_Charge_Conditions ) )
    call TriggerAddAction( gg_trg_Charge, function Trig_Charge_Actions )
endfunction