Sanya9108, событие - юнит кастует заклинание.
если случайное число от 1 до 100 меньше или равно твоему шансу, KillUnit.

Запускать динамический таймер, предварительно запомнив данные (хеш-таблица), на (Расстояние / Скорость) секунд.
Или wait, но это для ленивых.

Sanya9108,

а разве есть событие юнит получает бафф?

Получится, но тогда твоя способность должна давать на врага бафф. А вообще можно хитромудро сделать:
Событие: Боевая еденица - приводит способность в действие.
Условие: абилити бегин каст = твоя способность
Действие:
if all condition truе..ну и тд
Условие:
Рандом интеджер от 1 до 100 <= 30(например)
Действие:
Set Variables PosHero = Position of casting unit
Set Variables PosEnemy = позиция цели заклинания
Wait (distance between PosHero и PosEnemy)\скорость снаряда твоего спелла
Боевая еденица - kill цель заклинания
CS: call RemoveLocation (udg_PosHero)
CS: call RemoveLocation (udg_PosEnemy)
Иначе: Do nothing


Естественно предварительно создай 2 переменных типа точка PosHero и PosEnemy

Jasper добавил:
Sanya9108, а наличие баффа можно проверять через переодик, а включаться триггер проверки будет при касте спела, после чего вырубаться.

ПС: а вообще лучше делать не триггерный шанс а проверку баффа от спелов, ибо если в мапе присудствует шмотка на спеллрезист, то даже если она сработает, то от триггера далеко не убежишь :D, а так можно и резистнуть неменуемую смерть!

""
function Trig_Shadow_Shot_Conditions takes nothing returns boolean
return GetSpellAbilityId() == 'A00A'
endfunction

function SSEffect takes nothing returns nothing
local timer t=GetExpiredTimer()
local unit u=LoadUnitHandle(udg_AssassinHash,GetHandleId(t),0)
if GetUnitAbilityLevel(u,'B002') > 0 then
call DestroyEffect( AddSpecialEffectTarget("units\\nightelf\\SpiritOfVengeance\\SpiritOfVengeance.mdl", u, "origin"))
call UnitDamageTarget(udg_DarkElf,u,(90.00*I2R(GetUnitAbilityLevelSwapped('A00A',udg_ DarkElf))),true,false,ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC,null )
call DestroyTimer(t)
call FlushChildHashtable(udg_AssassinHash, GetHandleId(t))
else
endif
set u = null
set t = null
endfunction

function Trig_Shadow_Shot_Actions takes nothing returns nothing
local unit u = GetSpellTargetUnit()
local timer t = CreateTimer()
call SaveUnitHandle(udg_AssassinHash,GetHandleId(t),0,u)
call TimerStart(t,0.01,true,function SSEffect)
set t = null
set u = null
endfunction
""

Всё очень просто, вместо Боевая еденица - Kill сделай Cause (casting unit) to damage (Target unit of ability being cast) dealing 99999.00 of attack type Сила тьмы Damage type Обычный, и деньги и экспа за килл дадутся кастующему юниту.