function Trig_Spell_Conditions takes nothing returns boolean
    if ( not ( RectContainsLoc(RectFromCenterSizeBJ(PolarProjectionBJ(GetUnitLoc(GetSpellTarget  Unit()), 128.00, ( GetUnitFacing(GetSpellTargetUnit()) + 180.00 )), 320.00, 320.00), GetUnitLoc(GetTriggerUnit())) == true ) ) then
        return false
    endif
    return true
endfunction

function Trig_Spell_Actions takes nothing returns nothing
    //Максимальный щанс
    local integer MaxChanse = 65
    //Текущий щанс
    local integer Chanse = 0
    //Кол-во предметов у цели
    local integer Items = 0
    local integer Item = 0
    local integer n = 0
    local integer mn = UnitInventoryCount(GetSpellTargetUnit())
    if GetSpellAbilityId() == 'A000' then
    loop
        exitwhen n == mn
        if UnitItemInSlotBJ(GetSpellTargetUnit(), n) != null then
            set Items = Items + 1
        else
        endif
        set n = n + 1
    endloop
    set Chanse = (MaxChanse / mn) * Items
    if GetRandomInt(1, 100) <= Chanse then
    set Item = GetRandomInt(0, UnitInventorySizeBJ(GetSpellTargetUnit()))
    call UnitAddItemSwapped( UnitItemInSlotBJ(GetSpellTargetUnit(), Item), GetTriggerUnit() )
    call RemoveItem( UnitItemInSlotBJ(GetSpellTargetUnit(), Item) )
    else
    endif
    else
    endif
endfunction

function InitTrig_Spell takes nothing returns nothing
    set gg_trg_Spell = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Spell, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Spell, Condition( function Trig_Spell_Conditions ) )
    call TriggerAddAction( gg_trg_Spell, function Trig_Spell_Actions )
endfunction