((код jass

============================================================
способность Tорнадо (tornado)
автор quq_CCCP, сделано для XGM.RU
версия на обычном jass, JNGP нетребуется
============================================================
Настройки
Требуются глобальные переменные со следующими именами:
unit udg_TempUnit (создается в меню переменные (Ctr+b), пишите просто TempUnit, приставку udg_ ставит сам редактор)
real udg_TempReal (аналогично, создайте эту премеменную)
hashtable udg_hash, хаштаблица, они должна быть инициализирована, те. в триггере инициализация вставьте эту строчку в Custom Script
set udg_hash = InitHashtable() <=== вот эту! стрелку копировать ненужно
============================================================
Теперь остальное

function GetTornadoAbilityId takes nothing returns integer
return 'A01W' тут равкод скилла торнадо, меняем на свой...
endfunction

function GetDummyId takes nothing returns integer
return 'hdum' равкод даммика в виде торнадо...
endfunction
function GetDamageCount takes unit caster, integer id returns real
return 60.00 * GetUnitAbilityLevel( caster, id ) + GetHeroAgi( caster, true ) * ( 0.50 * GetUnitAbilityLevel( caster, id ) )// формула рассчёта урона от торнадо
endfunction
вспомогательные функции
function GetTornadoRadius takes unit caster returns real
return 200.00 GetUnitAbilityLevel( caster, GetTornadoAbilityId ) * 50.00 + 100
endfunction

function abp takes real xa, real xb, real ya, real yb returns real
return 57.295827 * Atan2( yb - ya, xb - xa )
endfunction

function DistanceBewenUnits takes unit FirstUnit, unit SecondUnit returns real
local real dx = GetUnitX( SecondUnit ) - GetUnitX( FirstUnit )
local real dy = GetUnitY( SecondUnit ) - GetUnitY( FirstUnit )
return SquareRoot( dx * dx + dy * dy )
endfunction

function GetEnemyGroundAlive takes nothing returns boolean фильт юнитов, можно немного поменять...
return GetUnitState( GetFilterUnit( ), UNIT_STATE_LIFE ) > 0.00 and IsUnitEnemy( GetFilterUnit( ), bj_groupEnumOwningPlayer ) and IsUnitType( GetFilterUnit( ), UNIT_TYPE_ATTACKS_GROUND ) and GetUnitAbilityLevel( GetFilterUnit( ), 'Basl' ) == 0
endfunction
далее код лучше не трогать...

function Trig_Tornado_Conditions takes nothing returns boolean
return GetSpellAbilityId( ) == GetTornadoAbilityId( )
endfunction

function RemoveBackStabBuff takes nothing returns nothing
local timer t = GetExpiredTimer( )
call UnitRemoveAbility( LoadUnitHandle( udg_hash, GetHandleId( t ), 0 ), 'Aasl' )
call UnitRemoveAbility( LoadUnitHandle( udg_hash, GetHandleId( t ), 0 ), 'Basl' )
call FlushChildHashtable( udg_hash, GetHandleId( t ) )
call DestroyTimer( t )
set t = null
endfunction

function Wind_Damage_Enemy takes nothing returns nothing
local timer t = CreateTimer( )
local unit enemy = GetEnumUnit( )

if DistanceBewenUnits > GetTornadoRadius( udg_TempUnit ) / 2.00 then половинный урон
call UnitDamageTarget( udg_TempUnit, enemy, udg_TempReal / 2.00, false, false, ATTACK_TYPE_HERO, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_METAL_HEAVY_SLICE )
else полный урон
call UnitDamageTarget( udg_TempUnit, enemy, udg_TempReal, false, false, ATTACK_TYPE_HERO, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_METAL_HEAVY_SLICE )
endif

call UnitAddAbility( enemy, 'Aasl' )
call UnitAddAbility( enemy, 'Basl' )
call SaveUnitHandle( udg_hash, GetHandleId( t ), 0, enemy )
call TimerStart( t, 2.00, false, function RemoveBackStabBuff )
set t = null
endfunction

function Timer_Tornado_Move takes nothing returns nothing
local timer t = GetExpiredTimer( )
local integer HashId = GetHandleId( t )
local unit caster = LoadUnitHandle( udg_hash, HashId, 0 )
local unit dummy = LoadUnitHandle( udg_hash, HashId, 1 )
local real angle = LoadReal( udg_hash, HashId, 2 )
local integer range = LoadInteger( udg_hash, HashId, 3 )
local real DX = GetUnitX( dummy ) + 30.00 * Cos( angle * bj_DEGTORAD )
local real DY = GetUnitY( dummy ) + 30.00 * Sin( angle * bj_DEGTORAD )
local group grp
if range >= 30 then
call KillUnit( dummy )
call PauseTimer( t )
call DestroyTimer( t )
call FlushChildHashtable( udg_hash, HashId )

else
call SetUnitPosition( dummy, DX, DY )
set grp = CreateGroup( )
set bj_groupEnumOwningPlayer = GetOwningPlayer( caster )
call GroupEnumUnitsInRange( grp, DX, DY, GetTornadoRadius( caster ), Condition( function GetEnemyGroundAlive ) )
set udg_TempUnit = caster
set udg_TempReal = GetDamageCount( caster, GetTornadoAbilityId( ) )
call ForGroup( grp, function Wind_Damage_Enemy )
call DestroyGroup( grp )
call SaveInteger( udg_hash, HashId, 3, range + 1 )
endif

set caster = null
set dummy = null
set grp = null
set t = null
endfunction

function Trig_Tornado_Actions takes nothing returns nothing
local unit caster = GetSpellAbilityUnit( )
local real CastX = GetSpellTargetX( )
local real CastY = GetSpellTargetY( )
local real angle = abp( GetUnitX( caster ), CastX, GetUnitY( caster ), CastY )
local unit dummy = CreateUnit( GetOwningPlayer( caster ), GetDummtId( ), GetUnitX( caster ), GetUnitY( caster ), 0.00 )
local timer t = CreateTimer( )
local integer HashId = GetHandleId( t )

call SaveUnitHandle( udg_hash, HashId, 0, caster )
call SaveUnitHandle( udg_hash, HashId, 1, dummy )
call SaveReal( udg_hash, HashId, 2, angle )
call SaveInteger( udg_hash, HashId, 3, 0 )

call TimerStart( t, 0.04, true, function Timer_Tornado_Move )

set caster = null
set dummy = null
set t = null


endfunction
===========================================================================
function InitTrig_Tornado takes nothing returns nothing
local integer nPlayerIndex = 0
set gg_trg_Tornado = CreateTrigger( )
loop
exitwhen nPlayerIndex > bj_MAX_PLAYERS
call TriggerRegisterPlayerUnitEvent( gg_trg_Tornado, Player( nPlayerIndex ), EVENT_PLAYER_UNIT_SPELL_EFFECT, null )
set nPlayerIndex = nPlayerIndex + 1
endloop
call TriggerAddCondition( gg_trg_Tornado, Condition( function Trig_Tornado_Conditions ) )
call TriggerAddAction( gg_trg_Tornado, function Trig_Tornado_Actions )
endfunction
))