Функции из "Ядра"

function H2Ix takes handle pTarg returns integer
return pTarg
return 0
endfunction

function H2Tx takes handle pTarg returns string
return I2S(H2Ix(pTarg))
endfunction


Собсно, сам спел.

// Objects used:
// 'A0DY' = Impetus (Enchantress : Aiushtha)
// 'B03U' = Impetus

// DEBUG Trigger Number : 248
function Trig_Impetus_Conditions takes nothing returns boolean
if(GetLearnedSkill()!='A0DY'and IsUnitIllusion(GetTriggerUnit())==false)then
return false
endif
return true
endfunction

function Impetus_OnOff takes nothing returns boolean
if GetTriggerEventId()==EVENT_PLAYER_UNIT_ATTACKED then
if GetUnitAbilityLevel(GetAttacker(),'A0DY')==0 then
return false
elseif GetBoolean(H2Tx(GetTriggeringTrigger()),"OrbOn")then
if IsUnitType(GetTriggerUnit(),UNIT_TYPE_STRUCTURE)==false and GetAttacker()==GetUnit(H2Tx(GetTriggeringTrigger()),"Enchantress")then
return true
endif
else
return false
endif
elseif GetTriggerEventId()==EVENT_UNIT_ISSUED_ORDER then
if GetIssuedOrderId()==852255then
call SetBoolean(H2Tx(GetTriggeringTrigger()),"OrbOn",true)
elseif GetIssuedOrderId()==852256then
call SetBoolean(H2Tx(GetTriggeringTrigger()),"OrbOn",false)
endif
elseif GetTriggerEventId()==EVENT_UNIT_SPELL_EFFECT then
if GetSpellAbilityId()=='A0DY'then
return true
else
return false
endif
endif
return false
endfunction

function Impetus_Range takes real px1,real py1,real px2,real py2 returns real
return SquareRoot(((px1-px2)*(px1-px2))+((py1-py2)*(py1-py2)))
endfunction

function Impetus_Main takes nothing returns nothing
local texttag lgg
local real ldd
if UnitHasBuffBJ(GetTriggerUnit(),'B03U') and GetUnitAbilityLevel(GetEventDamageSource(),'A0DY')>0 and GetUnit(H2Tx(GetTriggeringTrigger()),"Source")==GetEventDamageSource()then
call DisableTrigger(GetTriggeringTrigger())
set ldd=.04*I2R(GetUnitAbilityLevel(GetEventDamageSource(),'A0DY'))*Impetus_Range(Ge tUnitX(GetTriggerUnit()),GetUnitY(GetTriggerUnit()),GetUnitX(GetEventDamageSourc e()),GetUnitY(GetEventDamageSource()))
if(ldd>400)then
set ldd=400
endif
set lgg=CreateTextTagUnitBJ("+"+I2S(R2I(ldd)),GetTriggerUnit(),64,10,1,85,86,15)
call SetTextTagVelocityBJ(lgg,64,90)
call UnitDamageTargetBJ(GetEventDamageSource(),GetTriggerUnit(),ldd,ATTACK_TYPE_HERO, DAMAGE_TYPE_DIVINE)
call PolledWait(1)
call DestroyTextTag(lgg)
call DisableTrigger(GetTriggeringTrigger())
endif
endfunction

function Impetus_Event takes nothing returns nothing
local trigger ltt=CreateTrigger()
local unit lFB
local unit lFb
if(GetTriggerEventId()==EVENT_UNIT_SPELL_EFFECT)then
set lFB=GetSpellTargetUnit()
set lFb=GetTriggerUnit()
else
set lFB=GetTriggerUnit()
set lFb=GetAttacker()
endif
if IsUnitIllusion(lFb)==false then
call SetHandle(H2Tx(ltt),"Source",lFb)
call TriggerRegisterUnitEvent(ltt,lFB,EVENT_UNIT_DAMAGED)
call TriggerAddAction(ltt,function Impetus_Main)
endif
call PolledWait(2)
call DisableTrigger(ltt)
endfunction

function Trig_Impetus_Actions takes nothing returns nothing
local unit lfo=GetTriggerUnit()
local trigger ltt
local integer lmZ=GetUnitAbilityLevel(lfo,'A0DY')
if(lmZ==1)then
set ltt=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(ltt,EVENT_PLAYER_UNIT_ATTACKED)
call TriggerRegisterUnitEvent(ltt,lfo,EVENT_UNIT_SPELL_EFFECT)
call TriggerRegisterUnitEvent(ltt,lfo,EVENT_UNIT_ISSUED_ORDER)
call TriggerAddCondition(ltt,Condition(function Impetus_OnOff))
call TriggerAddAction(ltt,function Impetus_Event)
call SetHandle(H2Tx(ltt),"Enchantress",lfo)
endif
endfunction

function StartTrigger_Impetus takes nothing returns nothing
set gg_trg_Impetus=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Impetus,EVENT_PLAYER_HERO_SKILL)
call TriggerAddCondition(gg_trg_Impetus,Condition(function Trig_Impetus_Conditions))
call TriggerAddAction(gg_trg_Impetus,function Trig_Impetus_Actions)
endfunction

function InitTrig_Impetus takes nothing returns nothing
endfunction