library Tornado

define TORNADO_SKILL_ID = 'A001' //RAW_CODE способности(Ctrl+D в редакторе объектов)
define TORNADO_DUMMY_ID = 'hN01' //RAW-CODE дамми юнита с моделью торнадо
define TORNADO_SPEED = 300.0 //скорость торнадо
define TORNADO_DURATION_LEVEL1 = 5.0 //длительность жизни торнадо
define TORNADO_DURATION_LEVEL2 = 6.5
define TORNADO_DURATION_LEVEL3 = 8.0
define TORNADO_DAMAGE_LEVEL1 = 15.0 //разовый урон от торнадо
define TORNADO_DAMAGE_LEVEL2 = 30.0
define TORNADO_DAMAGE_LEVEL3 = 45.0
define TORNADO_RADIUS = 300.0 //радиус захвата торнадо
define TORNADO_HEIGHT_MAX = 325.0 //макс высота подъёма
define TORNADO_SPEED_UP = 20.0 //скорость подбрасывания
define TORNADO_SPEED_DOWN = 25.0 //скорость падения
define TORNADO_HITABLE = true //возможность атаковать юнитов в воздухе

private group G
private hashtable Hash

private nothing onGroupCopyEnum()
{
GroupAddUnit(G, GetEnumUnit())
}

private nothing onTimerTick()
{
timer t = GetExpiredTimer()
integer handleid = GetHandleId(t)
unit caster = LoadUnitHandle(Hash, handleid, 0)
unit dummy = LoadUnitHandle(Hash, handleid, 1)
real duration = LoadReal(Hash, handleid, 2) - 0.02
real damage = LoadReal(Hash, handleid, 3)
real xspeed = LoadReal(Hash, handleid, 4)
real yspeed = LoadReal(Hash, handleid, 5)
group inair = LoadGroupHandle(Hash, handleid, 6)
group g = CreateGroup()
SetUnitX(dummy, GetUnitX(dummy) + xspeed * 0.02)
SetUnitY(dummy, GetUnitY(dummy) + yspeed * 0.02)
GroupEnumUnitsInRange(g, GetUnitX(dummy), GetUnitY(dummy), TORNADO_RADIUS, null)
GroupClear(G)
ForGroup(inair, function onGroupCopyEnum)
unit u
real fly
integer uhandleid
loop
{
u = FirstOfGroup(G)
exitwhen(u == null)
SetUnitFacing(u, GetUnitFacing(u)+15.0)
uhandleid = GetHandleId(u)
if(!IsUnitInGroup(u, g) or duration <= 0.0) //падаем
{
fly = LoadReal(Hash, uhandleid, 0)
fly = fly - TORNADO_SPEED_DOWN
if(fly <= 0.0)
{
fly = 0.0
FlushChildHashtable(Hash, GetHandleId(u))
GroupRemoveUnit(inair, u)
PauseUnit(u, false)
if(TORNADO_HITABLE == false)
{
SetUnitInvulnerable(u, false)
}
UnitRemoveAbility(u, 'Amrf')
}
SetUnitFlyHeight(u, fly, 1000.0)
SaveReal(Hash, uhandleid, 0, fly)
}
GroupRemoveUnit(G, u)
}
loop
{
u = FirstOfGroup(g)
exitwhen(u == null)
if(IsUnitEnemy(u, GetOwningPlayer(caster)) and !IsUnitType(u, UNIT_TYPE_MAGIC_IMMUNE) and GetWidgetLife(u) > 0.405 and !IsUnitType(u, UNIT_TYPE_FLYING))
{
if(!IsUnitInGroup(u, inair))
{
UnitDamageTarget(caster, u, damage, true, false, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
UnitAddAbility(u, 'Amrf')
PauseUnit(u, true)
if(TORNADO_HITABLE == false)
{
SetUnitInvulnerable(u, true)
}
GroupAddUnit(inair, u)
}
uhandleid = GetHandleId(u)
fly = LoadReal(Hash, uhandleid, 0)
fly = fly + TORNADO_SPEED_UP
if(fly >= TORNADO_HEIGHT_MAX)
{
fly = TORNADO_HEIGHT_MAX
}
SetUnitFlyHeight(u, fly, 1000.0)
SaveReal(Hash, uhandleid, 0, fly)
}
GroupRemoveUnit(g, u)
}
if(duration <= 0.0)
{
RemoveUnit(dummy)
if(FirstOfGroup(inair) == null)
{
DestroyTimer(t)
FlushChildHashtable(Hash, handleid)
}
} else
{
SaveReal(Hash, handleid, 2, duration)
SaveAgentHandle(Hash, handleid, 6, inair)
}

u = null
g = null
t = null
}

callback onUnitSpellEffect(TORNADO_SKILL_ID)
{
unit u = GetTriggerUnit()
real x = GetUnitX(u)
real y = GetUnitY(u)
unit dummy = CreateUnit(GetOwningPlayer(u), TORNADO_DUMMY_ID, x, y, 0.0)
integer level = GetUnitAbilityLevel(u, TORNADO_SKILL_ID)
real duration
real damage
if(level == 1)
{
duration = TORNADO_DURATION_LEVEL1
damage = TORNADO_DAMAGE_LEVEL1
} elseif(level == 2)
{
duration = TORNADO_DURATION_LEVEL2
damage = TORNADO_DAMAGE_LEVEL2
} elseif(level == 3)
{
duration = TORNADO_DURATION_LEVEL3
damage = TORNADO_DAMAGE_LEVEL3
} else
{
duration = 0.0
damage = 0.0
}
real atan = Atan2(GetSpellTargetY()-y, GetSpellTargetX()-x)
real xspeed = Cos(atan) * TORNADO_SPEED
real yspeed = Sin(atan) * TORNADO_SPEED
timer t = CreateTimer()
integer handleid = GetHandleId(t)
group inair = CreateGroup()
SaveAgentHandle(Hash, handleid, 0, u)
SaveAgentHandle(Hash, handleid, 1, dummy)
SaveReal(Hash, handleid, 2, duration)
SaveReal(Hash, handleid, 3, damage)
SaveReal(Hash, handleid, 4, xspeed)
SaveReal(Hash, handleid, 5, yspeed)
SaveAgentHandle(Hash, handleid, 6, inair)
TimerStart(t, 0.02, true, function onTimerTick)
t = null
u = null
dummy = null
inair = null
}

callback onInit()
{
G = CreateGroup()
Hash = InitHashtable()
}

endlibrary

http://puu.sh/3QQrE.png

http://puu.sh/3QQsU.png - на основе канала

http://rghost.ru/47813357

http://puu.sh/3QQIr.jpg