((код jass

library CHS initializer InitHash
============================================================================================
Автор: quq_CCCP, Сделано для сайте XGM.RU
Даёт функции: CheckHis, GetDamager, GetTarget
Суть проста как грабли, функция CheckHis проверяет получил ли юнит А урон от физ. атаки
от юнита B, и если получил то запускается указанная вами функция.
GetDamager, GetTarget нужны для того чтобы в вашей функции получи ссылки на атаковашего и
атакованного юнита соответсвенно.
============================================================================================
globals
укажите равкоды сплбука и баффов по которым будит проводится проверка
private integer bj_DAMAGE_CHECK_ABILITY = 'A000'
private integer bj_DAMAGE_CHECK_BUFF_A = 'B000'
private integer bj_DAMAGE_CHECK_BUFF_B = 'B001'
private real bj_UNIT_ATTACK_RATE = 1.50 промежуток времини через который будет удалён триггер, если был промах.
далее находятся переменныен системы, их лучше не трогать!
=======================================================================
private timer bj_TRIGGER_LIFE_TIMER
private trigger bj_CHECK_HIT_TRIGGER
private hashtable bj_HASHTABLE
private integer bj_TIMER_ID
private integer bj_TRIGGER_ID
private unit bj_Damager
private unit bj_Target
private real bj_EventDamage
endglobals

private function InitHash takes nothing returns nothing
local integer nIndex = 0
loop
exitwhen nIndex > 15
call SetPlayerAbilityAvailable( Player( nIndex ), bj_DAMAGE_CHECK_ABILITY, false )
set nIndex = nIndex + 1
endloop
set bj_HASHTABLE = InitHashtable( )
endfunction

private function RemoveTrigger takes nothing returns nothing
set bj_TRIGGER_LIFE_TIMER = GetExpiredTimer( )
set bj_TIMER_ID = GetHandleId( bj_TRIGGER_LIFE_TIMER )
set bj_CHECK_HIT_TRIGGER = LoadTriggerHandle( bj_HASHTABLE, bj_TIMER_ID, 0 )
set bj_TRIGGER_ID = GetHandleId(bj_CHECK_HIT_TRIGGER)

call DestroyTimer( bj_TRIGGER_LIFE_TIMER )

if bj_CHECK_HIT_TRIGGER != null then
call TriggerClearActions( bj_CHECK_HIT_TRIGGER )
call TriggerClearConditions( bj_CHECK_HIT_TRIGGER )
call DestroyTrigger( bj_CHECK_HIT_TRIGGER )
call UnitRemoveAbility( LoadUnitHandle( bj_HASHTABLE, bj_TRIGGER_ID, 0 ), bj_DAMAGE_CHECK_ABILITY )
call FlushChildHashtable( bj_HASHTABLE, bj_TRIGGER_ID )
endif

call FlushChildHashtable( bj_HASHTABLE, bj_TIMER_ID )
endfunction

function GetDamager takes nothing returns unit
return bj_Damager
endfunction

function GetTarget takes nothing returns unit
return bj_Target
endfunction

function GetEventDamageBJ takes nothing returns real
return bj_EventDamage
endfunction

function Get_CHS_Hash takes nothing returns hashtable
return bj_HASHTABLE
endfunction

private function Trig_IsEnemyDamaged_Conditions takes nothing returns boolean
return GetEventDamageSource( ) == LoadUnitHandle( bj_HASHTABLE, GetHandleId( GetTriggeringTrigger( ) ), 0 ) and (GetUnitAbilityLevel( GetTriggerUnit( ), bj_DAMAGE_CHECK_BUFF_B ) > 0 or GetUnitAbilityLevel( GetTriggerUnit( ), bj_DAMAGE_CHECK_BUFF_B ) > 0)
endfunction

private function Trig_DamageEvented_Actions takes nothing returns nothing
задаём значение переменных
set bj_Damager = GetEventDamageSource( )
set bj_Target = GetTriggerUnit( )
set bj_CHECK_HIT_TRIGGER = GetTriggeringTrigger( )
set bj_TRIGGER_ID = GetHandleId( bj_CHECK_HIT_TRIGGER )
set bj_EventDamage = GetEventDamage( )
вызываем функцию которую мы установили
call ExecuteFunc( LoadStr( bj_HASHTABLE, bj_TRIGGER_ID, 1 ) )
отключам триггер
call DisableTrigger( bj_CHECK_HIT_TRIGGER )
удаляем всё ненужное
call UnitRemoveAbility( bj_Target, bj_DAMAGE_CHECK_BUFF_A ) удаляем бафф N 1 с цели
call UnitRemoveAbility( bj_Target, bj_DAMAGE_CHECK_BUFF_B ) удаляем бафф № 2 с цели
call UnitRemoveAbility( bj_Damager, bj_DAMAGE_CHECK_ABILITY ) удаляем спеллбук у атаковавшего, там + скорости атаки и яд
сектор удаляение триггра и очистка памяти хешьтаблицы
call FlushChildHashtable( bj_HASHTABLE , bj_TRIGGER_ID ) чистим хеш, там сохрянён атакер
call TriggerClearActions( bj_CHECK_HIT_TRIGGER ) удялем деиствия
call TriggerClearConditions( bj_CHECK_HIT_TRIGGER ) удяляем условия
call DestroyTrigger( bj_CHECK_HIT_TRIGGER ) удаляем триггер
endfunction

function CheckHit takes unit attacker, unit target, string animation, string func returns nothing
set bj_CHECK_HIT_TRIGGER = CreateTrigger( )
set bj_TRIGGER_LIFE_TIMER = CreateTimer( )
set bj_Damager = null
set bj_Target = null
даём атаковавшему впомогательные скилы и устанавливаем анимацию
call UnitAddAbility( attacker, bj_DAMAGE_CHECK_ABILITY )
call SetUnitAnimation( attacker, animation )
задаём триггеру собыите, условие и деиствие...
call TriggerRegisterUnitEvent( bj_CHECK_HIT_TRIGGER, target, EVENT_UNIT_DAMAGED )
call TriggerAddCondition( bj_CHECK_HIT_TRIGGER, Condition( function Trig_IsEnemyDamaged_Conditions ) )
call TriggerAddAction( bj_CHECK_HIT_TRIGGER, function Trig_DamageEvented_Actions )
сохраняем необходимые данные в Хеш
call SaveTriggerHandle( bj_HASHTABLE, GetHandleId( bj_TRIGGER_LIFE_TIMER ), 0, bj_CHECK_HIT_TRIGGER )
call SaveUnitHandle( bj_HASHTABLE, GetHandleId( bj_CHECK_HIT_TRIGGER ), 0, attacker )
call SaveStr( bj_HASHTABLE, GetHandleId( bj_CHECK_HIT_TRIGGER ), 1, func )
запускаем таймер да случай если юнит не нанесёт урона, чтобы удалить триггер.
call TimerStart( bj_TRIGGER_LIFE_TIMER, bj_UNIT_ATTACK_RATE, false, function RemoveTrigger )
set bj_CHECK_HIT_TRIGGER = null
endfunction

endlibrary
))