offline
Опыт:
8,074
Активность:
|
Заказчик: Impertus
Название: Пламенное сердце
Уровни: 1 При желании, можно сделать многоуровневую
MUI: да
Исполнение: Jass
Тип: channel
JNGP: да
Глобальные переменные: Самоинициализируются (8+4) Без Хеш-таблицы
Описание: Герой начинает сгорать в собственном пламени, теряя 10% от текущего здоровья в сек. в течении 7 сек. и нанося такой же урон всем врагам в 400 аое и половинный урон в 400-800 аое. Чаннел, если прервать - герой будет продолжать гореть,но урон врагам не будет наноситься; если же герой умирает под воздействием этого эффекта (не прерванного), то он взрывается, нанося всем (и своим и чужим) урон в размере величины макс запаса жизни.
Исправлено: Урон наносится каждые 0.1 сек. При этом враги получают 10% урона за 1 сек.
» Код
library FlamingHeart
globals
private timer array Timer
private unit array Caster
private integer array nUse
private boolean array Booms
private integer array Loop
private real array damage
private integer N = 0
private integer i
private constant string Channel = "channel"
// настройки //
private constant string EFFECT_BOOM = "Objects\\Spawnmodels\\Other\\NeutralBuildingExplosion\\NeutralBuildingExplosion.mdl"
private constant string EFFECT_DAMAGE = "Environment\\LargeBuildingFire\\LargeBuildingFire2.mdl"
private constant string EFFECT_DAMAGE_ATTACH = "chest"
endglobals
define {
// настройки //
private SPELL = 'A000'
private N_SECONDS = 70 // только integer! Время действия (умноженное на 10), в сек. - должно совпадать со значением в РО
private DAMAGE_PRECENT = 10.0 // Урон, в % от текущего здоровья героя
private AERA_MAX = 400.0 // Радиус полного урона
private AREA_MIN = 800.0 // Радиус половины урона
private AREA_BOOM = 500.0 // Радиус урона при взрыве
// Типы нанесенного урона
private TYPE_ATTACK = ATTACK_TYPE_MAGIC
private TYPE_DAMAGE = DAMAGE_TYPE_FIRE
}
function Trig_FlamingHeart_Filter takes nothing returns boolean
return (GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.00)and(IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Caster[i])))and(IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false)
endfunction
function Trig_FlamingHeart_FilterALL takes nothing returns boolean
return (GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE) > 0.00)and(IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false)
endfunction
function Trig_FlamingHeart_Group takes nothing returns nothing
call UnitDamageTarget( Caster[i], GetEnumUnit(), damage[i], true, false, TYPE_ATTACK, TYPE_DAMAGE, WEAPON_TYPE_WHOKNOWS )
call DestroyEffect ( AddSpecialEffectTarget ( EFFECT_DAMAGE, GetEnumUnit(), EFFECT_DAMAGE_ATTACH ) )
endfunction
function Trig_FlamingHeart_Timer takes nothing returns nothing
set i = 1
whilenot GetExpiredTimer()==Timer[i] {
i++ }
local real HP = GetUnitState(Caster[i], UNIT_STATE_LIFE)
if GetUnitCurrentOrder(Caster[i]) == OrderId(Channel) {
local real x = GetUnitX (Caster[i])
local real y = GetUnitY (Caster[i])
local group g = CreateGroup()
local boolexpr f = Condition (function Trig_FlamingHeart_Filter)
set Loop[i] = Loop[i] - 1
if Loop[i] == 0 {
set damage[i] = HP*DAMAGE_PRECENT/2000
set Loop[i] = 10
}
// Максимальный урон
call GroupEnumUnitsInRange ( g, x, y, AERA_MAX, f )
call ForGroup ( g, function Trig_FlamingHeart_Group )
// Средний урон
call GroupEnumUnitsInRange ( g, x, y, AREA_MIN, f )
call ForGroup ( g, function Trig_FlamingHeart_Group )
else
if HP <= 0. and Booms[i] then
set x = GetUnitX (Caster[i])
set y = GetUnitY (Caster[i])
set g = CreateGroup ()
set f = Condition (function Trig_FlamingHeart_FilterALL)
call GroupEnumUnitsInRange ( g, x, y, AREA_BOOM, f )
set damage[i] = GetUnitState ( Caster[i], UNIT_STATE_MAX_LIFE )
call ForGroup ( g, function Trig_FlamingHeart_Group )
call DestroyEffect ( AddSpecialEffect ( EFFECT_BOOM, x, y ) )
set nUse[i] = 0
else
set Booms[i] = false
endif
}
set nUse[i] = nUse[i] - 1
if nUse[i] >= 0 then
call SetUnitState ( Caster[i], UNIT_STATE_LIFE, HP - damage[i] )
endif
if nUse[i] <= 0 then
call DestroyTimer (Timer[i])
set Timer[i] = Timer[N]
set Timer[N] = null
set Caster[i] = Caster[N]
set Caster[N] = null
set nUse[i] = nUse[N]
set nUse[N] = 0
set Booms[i] = Booms[N]
set Booms[N] = false
set Loop[i] = Loop[N]
set Loop[N] = 0
set damage[i] = damage[N]
set damage[N] = 0
N--
endif
call DestroyBoolExpr (f)
call GroupClear (g)
call DestroyGroup (g)
set f = null
set g = null
endfunction
function Trig_FlamingHeart_Actions takes nothing returns nothing
N++
set Timer[N] = CreateTimer ()
set Caster[N] = GetTriggerUnit()
set nUse[N] = N_SECONDS
set Booms[N] = true
set Loop[N] = 10
set damage[N] = GetUnitState ( GetTriggerUnit(), UNIT_STATE_LIFE )*DAMAGE_PRECENT/2000
call TimerStart ( Timer[N], 0.1, true, function Trig_FlamingHeart_Timer )
endfunction
//===========================================================================
function Trig_FlamingHeart_Conditions takes nothing returns boolean
return ( GetSpellAbilityId() == SPELL )
endfunction
function InitTrig_FlamingHeart takes nothing returns nothing
set gg_trg_FlamingHeart = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_FlamingHeart, EVENT_PLAYER_UNIT_SPELL_CHANNEL )
call TriggerAddCondition( gg_trg_FlamingHeart, Condition( function Trig_FlamingHeart_Conditions ) )
call TriggerAddAction( gg_trg_FlamingHeart, function Trig_FlamingHeart_Actions )
endfunction
endlibrary
Функция для замедления.
Кидаю карту с примером.
inadequate_, добавил: если юнит уже находится по воздействием этого замедления, то эффект обновляется на новый.
Данное замедление учитывает другие факторы замедления и ускорения.
» Код
library Slows
// Обращение к функции:
// call SlowUnit (u, s, tm)
// u - Юнит
// s - коэффициент замедления (1.0 будет 100%)
// tm - интервал сброса замедления на 1%
// Пример: call SlowUnit (GetTriggerUnit(), 1.0, 0.1)
globals
private timer array Timer
private unit array Caster
private real array SLOW
private integer N = 0
private integer i
endglobals
private function SlowUnit_Timer takes nothing returns nothing
set i = 1
whilenot GetExpiredTimer()==Timer[i] {
i++ }
local real speed = GetUnitDefaultMoveSpeed(Caster[i])
if SLOW[i] <= 0. then
call SetUnitMoveSpeed ( Caster[i], speed )
set Timer[i] = Timer[N]
set Caster[i] = Caster[N]
set Caster[N] = null
call DestroyTimer (Timer[N])
set Timer[N] = null
N--
else
call SetUnitMoveSpeed ( Caster[i], speed*(1-SLOW[i]) )
set SLOW[i] = SLOW[i] - 0.01
endif
endfunction
function SlowUnit takes unit u, real s, real tm returns nothing
local boolean b = true
if N > 0 then
set i = 1
loop { exitwhen i > N
if Caster[i] == u then
set SLOW[i] = s
call TimerStart ( Timer[i], tm, true, function SlowUnit_Timer )
set b = false
endif
i++ }
endif
if b {
N++
set Timer[N] = CreateTimer ()
set Caster[N] = u
set SLOW[N] = s
call TimerStart ( Timer[N], tm, true, function SlowUnit_Timer )
}
endfunction
endlibrary
Если надо, то можно сделать, чтобы при втором наложении эффект суммировался (по силе замедления => времени)
Закинул карту-пример
Отредактировано DaeDR, 13.04.2012 в 07:36.
|
12.04.2012, 17:49
