//////////////////////////////
// Настройка способности //
//////////////////////////////
constant function Bonus_Spell_Rawcode takes integer spell returns integer
if(spell == 1) then
return 'A001' // Равкод способности "Повышение атаки"
else
endif
if(spell == 2) then
return 'A002' // Равкод способности "Повышение защиты"
else
endif
if(spell == 3) then
return 'A003' // Равкод способности "Повышение силы"
else
endif
if(spell == 4) then
return 'A004' // Равкод способности "Повышение скорости боя"
else
endif
return 'A001' // Для убирания бага(можно любой равкод)
endfunction
constant function Bonus_Spell_Time takes integer time returns real
if(time == 1) then
return 60. // Время действия 1 уровни способности
else
endif
if(time == 2) then
return 60. // Время действия 2 уровни способности
else
endif
if(time == 3) then
return 60. // Время действия 3 уровни способности
else
endif
return 60. // Для убирания бага(можно любое число)
endfunction
constant function Bonus_Spell_Id takes nothing returns integer
return 'A000' // Равкод способности, которую кастуют
endfunction
//////////////////////////////
// Сам код //
//////////////////////////////
function Bonus_Spell_Conditions takes nothing returns boolean
return GetSpellAbilityId() == Bonus_Spell_Id()
endfunction
function Bonus_Spell_Remove takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer h = GetHandleId(t)
local integer array index
local unit u = LoadUnitHandle(udg_Hash,h,1)
set index[1] = 1
set index[2] = 4
loop
exitwhen index[1] > index[2]
call UnitRemoveAbility(u, Bonus_Spell_Rawcode(index[1]))
set index[1] = index[1] + 1
endloop
call FlushChildHashtable(udg_Hash,h)
set t = null
set u = null
set h = 0
set index[1] = 0
set index[2] = 0
endfunction
function Bonus_Spell_Actions takes nothing returns nothing
local timer t = CreateTimer()
local integer h = GetHandleId(t)
local integer array index
local integer level = GetUnitAbilityLevel(GetSpellAbilityUnit(), Bonus_Spell_Id())
set index[1] = 1
set index[2] = 4
loop
exitwhen index[1] > index[2]
call UnitAddAbility(GetSpellAbilityUnit(), Bonus_Spell_Rawcode(index[1]))
call SetUnitAbilityLevel(GetSpellAbilityUnit(), Bonus_Spell_Rawcode(index[1]), level)
set index[1] = index[1] + 1
endloop
call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl", GetUnitX(GetSpellAbilityUnit()), GetUnitY(GetSpellAbilityUnit())))
call TimerStart(t, Bonus_Spell_Time(level), false, function Bonus_Spell_Remove)
call SaveUnitHandle(udg_Hash,h,1,GetSpellAbilityUnit())
set t = null
set h = 0
set index[1] = 0
set index[2] = 0
set level = 0
endfunction
//===========================================================================
function InitTrig_Bonus_Spell takes nothing returns nothing
// Загрузка способности(для убирания лага) и вообще создание триггера <img rel="usm" src="http://warcraft3ft.info/image/smiles/smile.gif" border="0" align="absmiddle" alt=":)" />
local unit u = CreateUnit(Player(0), 'eswp', 0., 0., 0.)
local integer array index
set index[1] = 1
set index[2] = 4
loop
exitwhen index[1] > index[2]
call UnitAddAbility(u, Bonus_Spell_Rawcode(index[1]))
call SetUnitAbilityLevel(u, Bonus_Spell_Rawcode(index[1]), 3)
set index[1] = index[1] + 1
endloop
call RemoveUnit(u)
call Preload("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl")
call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\BattleRoar\\RoarCaster.mdl", 0., 0.))
set gg_trg_Bonus_Spell = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Bonus_Spell, EVENT_PLAYER_UNIT_SPELL_EFFECT )
call TriggerAddCondition(gg_trg_Bonus_Spell, Condition(function Bonus_Spell_Conditions))
call TriggerAddAction(gg_trg_Bonus_Spell, function Bonus_Spell_Actions)
set u = null
set index[1] = 0
set index[2] = 0
endfunction
