((код jass

library ForceStaff initializer Init uses AbilityPreload,TimerUtils,SimError,SafeXY,EnumDestructablesInRadius

globals
private integer AID_FORCE_STAFF='A000'
private real DURATION=.3
private real PEREODIC=0.03
private real RANGE=600.
private string EFFECT="Abilities\\Spells\\Human\\FlakCannons\\FlakTarget.mdl"
private real RADIUS=75.
endglobals

private struct Data
unit u
unit t
timer tim
real a
integer count
real dist
endstruct

private function Move takes nothing returns nothing
local timer tim=GetExpiredTimer()
local Data d=GetTimerData(tim)
if d.count>0 then
set d.count=d.count-1
call DestroyEffect(AddSpecialEffect(EFFECT,GetUnitX(d.t),GetUnitY(d.t)))
call KillAllDestructablesInRadius(GetUnitX(d.t),GetUnitY(d.t),RADIUS)
call SetUnitX(d.t,SafeX(GetUnitX(d.t)+d.dist*Cos(d.a)))
call SetUnitY(d.t,SafeY(GetUnitY(d.t)+d.dist*Sin(d.a)))
debug call BJDebugMsg(I2S(d.count))
else
call ReleaseTimer(d.tim)
call d.destroy()
endif
set tim=null
endfunction

private function Cast takes nothing returns nothing
local Data d=Data.create()
set d.u=GetTriggerUnit()
set d.t=GetSpellTargetUnit()
set d.tim=NewTimer()
set d.a=GetUnitFacing(d.t)*bj_DEGTORAD
set d.count=R2I(DURATION/PEREODIC)
set d.dist=RANGE/d.count
call SetTimerData(d.tim,d)
call TimerStart(d.tim,PEREODIC,true,function Move)
endfunction

private function SpellAbilityId takes nothing returns boolean
return GetSpellAbilityId()==AID_FORCE_STAFF
endfunction

private function Init takes nothing returns nothing
local trigger t = CreateTrigger()
local integer i = 0
loop
call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
set i = i + 1
exitwhen i==bj_MAX_PLAYER_SLOTS
endloop
call TriggerAddCondition(t, Condition(function SpellAbilityId))
call TriggerAddAction(t, function Cast)
call AbilityPreload(AID_FORCE_STAFF)
set t = null
endfunction
endlibrary
))

((код jass

library Empower initializer Init uses AbilityPreload, TimerUtils,SimError
globals
private integer AID_EMPOWER='A000'
private integer AID_SPELLBOOK='A001'
private integer AID_SPLASH='A002'
private integer AID_BONUS_DAMAGE='A003'
private integer BID_BONUS_DAMAGE='B000'
private real DURATION=40.
private string SFX="Abilities\\Spells\\Orc\\Bloodlust\\BloodlustTarget.mdl"
private string ATTACH_POINT="hand left"
endglobals

private struct Data
unit target
unit caster
timer tim
effect sfx
integer lvl
endstruct

private function End takes nothing returns nothing
local timer t=GetExpiredTimer()
local Data d=GetTimerData(t)
call UnitRemoveAbility(d.target,AID_SPELLBOOK)
call UnitRemoveAbility(d.target,BID_BONUS_DAMAGE)
call DestroyEffect(d.sfx)
call ReleaseTimer(d.tim)
call d.destroy()
set t=null
endfunction

private function Cast takes nothing returns nothing
local Data d=Data.create()
set d.target=GetSpellTargetUnit()
set d.caster=GetTriggerUnit()
set d.tim=NewTimer()
set d.lvl=GetUnitAbilityLevel(d.caster,AID_EMPOWER)
if GetUnitAbilityLevel(d.target,AID_SPELLBOOK)>0 then
call SimError(GetOwningPlayer(d.caster),"This unit already has a buff.")
call ReleaseTimer(d.tim)
call d.destroy()
else
set d.sfx=AddSpecialEffectTarget(SFX,d.target,ATTACH_POINT)
call UnitAddAbility(d.target,AID_SPELLBOOK)
call SetUnitAbilityLevel(d.target,AID_SPLASH,d.lvl)
call SetUnitAbilityLevel(d.target,AID_BONUS_DAMAGE,d.lvl)
call SetTimerData(d.tim,d)
call TimerStart(d.tim,DURATION,false,function End)
endif
endfunction

private function SpellAbilityId takes nothing returns boolean
return GetSpellAbilityId()==AID_EMPOWER
endfunction

private function Init takes nothing returns nothing
local trigger t = CreateTrigger()
local integer i = 0
loop
call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
call SetPlayerAbilityAvailable(Player(i),AID_SPELLBOOK,false)
set i = i + 1
exitwhen i==bj_MAX_PLAYERS
endloop
call TriggerAddCondition(t, Condition(function SpellAbilityId))
call TriggerAddAction(t, function Cast)
Prealod
call AbilityPreload(AID_EMPOWER)
call AbilityPreload(AID_SPELLBOOK)
call AbilityPreload(AID_SPLASH)
call AbilityPreload(AID_BONUS_DAMAGE)
set t = null
endfunction
endlibrary
))

((код jass

library KnightsCharge initializer Init uses AbilityPreload, TimerUtils
globals
private integer AID_KNIGHTS_CHARGE='A000'
private integer AID_DUMMY_STUN='A001'
private integer BID_KNIGHTS_CHARGE='B000'
private string AO_DUMMY_STUN="thunderbolt"
private string ABILITY_EFFECT="Abilities\\Spells\\Items\\AIsp\\SpeedTarget.mdl"
private string STUN_EFFECT="Abilities\\Spells\\Human\\FlakCannons\\FlakTarget.mdl"
private string ATTACH_POINT="origin"
private real DURATION=2.
private real RADIUS=200.
private real PEREODIC=0.03125
endglobals

private struct Data
unit caster
group gr
timer tim
effect sfx
real dur
endstruct

function Pereodic takes nothing returns nothing
local timer t=GetExpiredTimer()
local group w=CreateGroup()
local unit f
local Data d=GetTimerData(t)
if GetUnitAbilityLevel(d.caster,BID_KNIGHTS_CHARGE)>0 and d.dur>0. then
set d.dur=d.dur-PEREODIC
call GroupEnumUnitsInRange(w,GetUnitX(d.caster),GetUnitY(d.caster),RADIUS,null)
loop
set f=FirstOfGroup(w)
exitwhen f==null
if not IsUnitInGroup(f,d.gr) and GetUnitState(f,UNIT_STATE_LIFE)>0.4 and IsUnitEnemy(f,GetOwningPlayer(d.caster)) and not IsUnitType(f,UNIT_TYPE_STRUCTURE) and not IsUnitType(f,UNIT_TYPE_MECHANICAL) and not IsUnitType(f,UNIT_TYPE_MAGIC_IMMUNE)then
call GroupAddUnit(d.gr,f)
call DummyCast(GetOwningPlayer(d.caster),f,AID_DUMMY_STUN,1,"thunderbolt")
call DestroyEffect(AddSpecialEffectTarget(STUN_EFFECT,f,ATTACH_POINT))
endif
call GroupRemoveUnit(w,f)
endloop
call DestroyGroup(w)
else
call DestroyEffect(d.sfx)
call ReleaseTimer(d.tim)
call d.destroy()
endif
set t=null
set w=null
set f=null
endfunction

function Cast takes nothing returns nothing
local Data d=Data.create()
set d.caster=GetTriggerUnit()
set d.tim=NewTimer()
set d.gr=CreateGroup()
set d.sfx=AddSpecialEffectTarget(ABILITY_EFFECT,d.caster,ATTACH_POINT)
set d.dur=DURATION
call SetTimerData(d.tim,d)
call TimerStart(d.tim,PEREODIC,true,function Pereodic)
endfunction

private function SpellAbilityId takes nothing returns boolean
return GetSpellAbilityId()==AID_KNIGHTS_CHARGE
endfunction

private function Init takes nothing returns nothing
local trigger t = CreateTrigger()
local integer i = 0
loop
call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
set i = i + 1
exitwhen i==bj_MAX_PLAYER_SLOTS
endloop
call TriggerAddCondition(t, Condition(function SpellAbilityId))
call TriggerAddAction(t, function Cast)
Prealod
call AbilityPreload(AID_KNIGHTS_CHARGE)
call AbilityPreload(AID_DUMMY_STUN)
set t = null
endfunction
endlibrary
))