globals
hashtable Hash = InitHashtable()
endglobals
function FGA2 takes nothing returns nothing
local unit enu = GetEnumUnit()
local real x1 = GetUnitX(enu)
local real y1 = GetUnitY(enu)
local location l = Location(x1,y1)
local real angle = AngleBetweenPoints(l, t)
local real x2 = x1 + 5*Cos(angle)
local real y2 = y1 + 5*Sin(angle)
local real dist = DistanceBetweenPoints(l, t)
local real lif = GetUnitState(enu, UNIT_STATE_LIFE)
local real nlif = lif - 4
if IsUnitAlly(enu, p) == true and IsUnitType(enu, UNIT_TYPE_HERO) == true then
if dist>100 then
call SetUnitPosition(enu, x2, y2)
endif
call SetUnitState(enu, UNIT_STATE_LIFE, nlif)
endif
call RemoveLocation(l)
set l = null
set enu = null
endfunction
function Trig_Styag_Actions takes nothing returns nothing
local timer t = GetExpiredTimer()
local player p = LoadPlayerHandle(Hash, GetHandleId(t), 1)
local location to = LoadLocationHandle(Hash, GetHandleId(t), 2)
// я лол незнаю как значение локалок в ФорГроуп отправить <img rel="usm" src="http://warcraft3ft.info/image/smiles/smile.gif" border="0" align="absmiddle" alt=":)">
call ForGroup(g, function FGA2)
set t = null
set p = null
set to = null
endfunction
function FGA takes nothing returns nothing
if IsUnitAlly(GetEnumUnit(), p) == true then
call PauseUnit(GetEnumUnit(), true)
endif
endfunction
function FGA3 takes nothing returns nothing
if IsUnitAlly(GetEnumUnit(), p) == true then
local unit enumm = GetEnumUnit()
local real life = GetUnitState(enumm, UNIT_STATE_LIFE)
local real nlife = life - 200
call SetUnitState(enumm, UNIT_STATE_LIFE, nlife)
call PauseUnit(enumm, false)
set enumm = null
endif
endfunction
function TimeEnd takes nothing returns nothing
local timer t = GetExpiredTimer()
local timer t2 = LoadTimerHandle(Hash, GetHandleId(t), 4)
local group g = LoadGroupHandle(Hash, GetHandleId(t), 1)
local player p = LoadPlayerHandle(Hash, GetHandleId(t), 2)
local location to = LoadLocationHandle(Hash, GetHandleId(t), 3)
local unit dumm1 = CreateUnitAtLoc( p,'h000', to, bj_UNIT_FACING )
call UnitApplyTimedLife(dumm1, 'BTLF', 3.00)
call FlushChildHashtable(Hash, t1)
call FlushChildHashtable(Hash, t2)
call DestroyTimer(t2)
// я лол незнаю как значение локалок в ФорГроуп отправить <img rel="usm" src="http://warcraft3ft.info/image/smiles/smile.gif" border="0" align="absmiddle" alt=":)">
call ForGroup(g, function FGA3)
call RemoveLocation(t)
call GroupClear(g)
call DestroyGroup(g)
call DestroyTimer(t)
call RemoveLocation(t)
call RemoveUnit(dumm1)
set time = null
set to = null
set dumm1 = null
set p = null
set g = null
endfunction
function Trig_Use_Actions takes nothing returns nothing
local location t = GetSpellTargetLoc()
local unit u = GetSpellAbilityUnit()
local player p = GetOwningPlayer(u)
local group g = CreateGroup()
local timer time = CreateTimer()
local unit dumm1
local unit dumm2
local timer time2
if GetSpellAbilityId() == 'A000' then
call GroupEnumUnitsInRangeOfLoc(g,t,500, null)
// я лол незнаю как значение локалок в ФорГроуп отправить <img rel="usm" src="http://warcraft3ft.info/image/smiles/smile.gif" border="0" align="absmiddle" alt=":)">
call ForGroup(g, function FGA)
set dumm1 = CreateUnitAtLoc( p,'h001', t, bj_UNIT_FACING )
call UnitApplyTimedLife(dumm1, 'BTLF', 5.00)
set dumm2 CreateUnitAtLoc( p,'h002', t, bj_UNIT_FACING )
call UnitApplyTimedLife( dumm2, 'BTLF', 3.00)
call EnableTrigger(gg_trg_Styag)
call SaveGroupHandle(Hash, GetHandleId(time), 1, g)
call SavePlayerHandle(Hash, GetHandleId(time), 2, p)
call SaveLocationHandle(Hash, GetHandleId(time), 3, t)
call SavePlayerHandle(Hash, GetHandleId(time2), 1, p)
call SaveLocationHandle(Hash, GetHandleId(time2), 2, t)
call SaveLocationHandle(Hash, GetHandleId(time), 4, time2)
call TimerStart(time, 5, false, function TimeEnd)
call TimerStart(time2, .10, true, function Trig_Styag_Actions)
endif
set p = null
set u = null
set dumm1 = null
set dumm2 = null
set g = null
set t = null
set time = null
endfunction
//===========================================================================
function InitTrig_Use takes nothing returns nothing
set gg_trg_Use = CreateTrigger()
call TriggerRegisterAnyUnitEventBJ( gg_trg_Use, EVENT_PLAYER_UNIT_SPELL_CHANNEL )
call TriggerAddAction( gg_trg_Use, function Trig_Use_Actions )
endfunction
