function WildStrengthCon takes nothing returns boolean
return GetUnitAbilityLevel(GetLearningUnit(),'A0EK') == 1
endfunction

function WildStrengthConDmg takes nothing returns boolean
local unit u = GetTriggerUnit()
local real dmg = GetEventDamage()
local integer id = GetHandleId(u)
local real dmgbox = LoadReal(udg_AssassinHash,id,StringHash("DmgBox"))+dmg
local real ml = GetUnitState(u,UNIT_STATE_MAX_LIFE)*(.30-(.05*GetUnitAbilityLevel(u,'A0EK')))
local real col = 255*(1-(dmgbox/ml))
local boolean b = LoadBoolean(udg_AssassinHash,id,StringHash("WSL"))
if GetEventDamage() > 0 and GetUnitState(GetTriggerUnit(),UNIT_STATE_MAX_LIFE) > GetEventDamage() then
if ml > dmgbox and b == false then 
call SaveReal(udg_AssassinHash,id,StringHash("DmgBox"),dmgbox)
call SetUnitVertexColor(u,255,R2I(col),R2I(col),255)
endif
if b then
call SetWidgetLife(u,GetWidgetLife(u)+dmg)
endif
if dmg >= ml and b == false then
call SetWidgetLife(u,GetWidgetLife(u)+(dmg-ml))
call SaveBoolean(udg_AssassinHash,id,StringHash("WSL"),true)
call DisplayTextToForce(GetPlayersAll(),"yes")
call SetUnitVertexColor(u,255,0,0,255)
endif
if dmgbox >= ml and b == false then
call SetWidgetLife(u,GetWidgetLife(u)+(dmgbox-ml))
call SaveBoolean(udg_AssassinHash,id,StringHash("WSL"),true)
call DisplayTextToForce(GetPlayersAll(),"yes")
call SetUnitVertexColor(u,255,0,0,255)
endif
set u = null
else
return false
endif
endfunction



function WildStrengthRefresh takes nothing returns nothing
local timer t = GetExpiredTimer()
local unit u = LoadUnitHandle(udg_AssassinHash,GetHandleId(t),1)
call SaveReal(udg_AssassinHash,GetHandleId(u),StringHash("DmgBox"),0)
call SaveBoolean(udg_AssassinHash,GetHandleId(u),StringHash("WSL"),false)
call DisplayTextToForce( GetPlayersAll(), "no")
call SetUnitVertexColor(u,255,255,255,255)
set t = null
set u = null
endfunction

function WildStrengthLearn takes nothing returns nothing
local trigger tt = CreateTrigger()
local timer t = CreateTimer()
local unit u = GetLearningUnit()
local integer id = GetHandleId(t)
call TriggerRegisterUnitEvent(tt,u,EVENT_UNIT_DAMAGED)
call TriggerAddCondition(tt,Condition(function WildStrengthConDmg))
call SaveUnitHandle(udg_AssassinHash,id,1,u)
call TimerStart(t,1,true,function WildStrengthRefresh)
set t = null
set u = null
set tt = null
endfunction

//===========================================================================
function InitTrig_Wild_Strength takes nothing returns nothing
    set gg_trg_Wild_Strength = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Wild_Strength, EVENT_PLAYER_HERO_SKILL )
    call TriggerAddCondition( gg_trg_Wild_Strength, Condition( function WildStrengthCon))
    call TriggerAddAction( gg_trg_Wild_Strength, function WildStrengthLearn)
endfunction

function WildStrengthCon takes nothing returns boolean
return GetLearnedSkill()=='A0EK'
endfunction

//Прочие функции

function WildStrengthLearn takes nothing returns nothing
local trigger trg
if(GetUnitAbilityLevel(GetTriggerUnit(),'A0EK')==1)then
    set trg=CreateTrigger()
    call TriggerRegisterUnitEvent(trg,GetTriggerUnit(),EVENT_UNIT_DAMAGED)
    call TriggerAddCondition(tt,Condition(function WildStrengthConDmg))
    call TriggerAddAction(trg,function имя функции) //Почему этого нету?
    set trg=null
endif
endfunction

function InitTrig_Wild_Strength takes nothing returns nothing
set gg_trg_Wild_Strength=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Wild_Strength,EVENT_PLAYER_HERO_SKILL)
call TriggerAddCondition(gg_trg_Wild_Strength,Condition( function WildStrengthCon))
call TriggerAddAction(gg_trg_Wild_Strength,function WildStrengthLearn)
endfunction

GetLearnedSkill == 'A0EK'