globals
    hashtable gamedata = InitHashtable( )
endglobals

function Trig_ToMelee_Conditions takes nothing returns boolean
    return ( GetSpellAbilityId() == 'A048' )
endfunction

function Timer_AddSilence_Expires takes nothing returns nothing
    local timer t  = GetExpiredTimer()
    local integer id = GetHandleId(t)
    local unit enemy = LoadUnitHandle( gamedata, id, 0 )
    local integer spellid = LoadInteger( gamedata, id, 1 )
    
    call StartAbilityCooldown( enemy,'A049', -1 )
    set spellid = GetUnitAbility(enemy,spellid) // для начала нам нужно убедится что у юнита есть такая абилка и её адресс коректный.
    if spellid > 1 then //всегда проверяй корректность адрессов, мы нашли адресс способности в памяьти игры, адресс обьекта а не просто РО кода.
       call AddSilenceToAbility(spellid) // функция сайленса, берет адресс способности и записывает по оффсету в структуру способности сведенья о сайленсе, подумай что будет если адресс не верен?
    endif
    set enemy = null 
    set t = null
endfunction

function Trig_ToMelee_Actions takes nothing returns nothing
    local unit enemy = GetSpellAbilityUnit() // создадим переменную чтобы не мучится гуи пережитками...
    local timer t = CreateTimer()
    local integer id = GetHandleId(t)
    call SetUnitArmor(enemy,GetUnitArmor(enemy)*2)
    // 2 = ranger, 1 = instante, 0 = melee, 5 = splash, 6 = mbounce,
    call SetUnitWeaponType(enemy,0)
    call SetUnitAttackRange1(enemy,128)
    call SaveUnitHandle( gamedata, id, 0, enemy )
    call SaveInteger( gamedata, id, 1, GetSpellAbilityId())
    call TimerStart( t, 0.00, false, function Timer_AddSilence_Expires)
    set t = null
    set enemy = null
endfunction

//===========================================================================
function InitTrig_ToMelee takes nothing returns nothing
    set gg_trg_ToMelee = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_ToMelee, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_ToMelee, Condition( function Trig_ToMelee_Conditions ) )
    call TriggerAddAction( gg_trg_ToMelee, function Trig_ToMelee_Actions )
endfunction

function dwFolter takes nothing returns boolean
local unit u = GetTriggerUnit()
local integer id = GetUnitUserData(u)
local boolean b = (id==2) and not( IsUnitDead(u))... ну и так далее
set u = null
return b
endfunction

function Trig_Kill_Conditions takes nothing returns boolean 
local unit u = GetTriggerUnit() 
local integer i = GetUnitTypeId(u) 
return IsUnitType(u, UNIT_TYPE_TOWNHALL) == false or \ 
i != 'hfoo' or \ 
i != 'n006' 
set u = null 
endfunction

function Trig_Kill_Conditions takes nothing returns boolean 
set bj_forLoopAIndex = GetUnitTypeId(GetTriggerUnit())
return not ( IsUnitType( GetTriggerUnit, UNIT_TYPE_TOWNHALL) or bj_forLoopAIndex ==  'hfoo' or bj_forLoopAIndex == 'n006' )
endfunction