function Casting takes nothing returns nothing
local timer t = GetExpiredTimer()
local unit u = LoadUnitHandleBJ(1, GetHandleId(t), udg_CastHash)
local integer i = LoadIntegerBJ(0, GetHandleId(u), udg_CastHash)
local string s
local integer i1 = GetUnitUserData(u)
local integer i2 = 0
local integer i3 = 0
local integer i4 = 0
local integer fl = 0
local integer i5 = 0
local location array p
set i2 = i / 10
set i3 = i1 / i2
set i4 = 10 - i3
set i5 = 10 - i4
set s = "|c00388CBA"
set fl = 1
loop
exitwhen fl > i5
set s = ( s + "•" )
set fl = fl + 1
endloop
set s = ( s + "|c00612937")
set fl = 1
loop
exitwhen fl > i4
set s = ( s + "•")
set fl = fl + 1
endloop
call IssueImmediateOrderBJ( u, "stop" )
call SetUnitAnimation( u, "channel" )
set p[1] = GetUnitLoc(u)
set p[2] = PolarProjectionBJ(p[1], -55.00, 0)
call CreateTextTagLocBJ( s, p[2], 180.00, 11.00, 50.00, 50.00, 100, 0 )
call ShowTextTagForceBJ( false, GetLastCreatedTextTag(), GetPlayersAll() )
call ShowTextTagForceBJ( true, GetLastCreatedTextTag(), GetForceOfPlayer(GetOwningPlayer(u)) )
call RemoveLocation(p[2])
call RemoveLocation(p[1])
call SetTextTagPermanentBJ( GetLastCreatedTextTag(), false )
call SetTextTagLifespanBJ( GetLastCreatedTextTag(), 0.04 )
call SetTextTagFadepointBJ( GetLastCreatedTextTag(), 0.04 )
call SetTextTagAgeBJ( GetLastCreatedTextTag(), 0.00 )
call SetUnitUserData( u, ( GetUnitUserData(u) - 2 ) )
if ((i1 - 2) <= 0 ) then
call SetUnitAnimation( u, "Spell" )
call GroupRemoveUnitSimple( u, udg_CASTING_GROUP )
else
endif
set fl = 1
loop
exitwhen fl > udg_BUFF_COUNT
if ( UnitHasBuffBJ(u, udg_DB_Buff[fl]) == true ) and ( LoadRealBJ(4,fl, udg_BUFF_STATS) != 0) then
call GroupRemoveUnitSimple(u, udg_CASTING_GROUP )
call SetUnitUserData( u, 500 )
else
endif
set fl = fl + 1
endloop
call FlushChildHashtable(udg_СastHash, GetHandleId(t))
call FlushChildHashtable(udg_СastHash, GetHandleId(u))
set i1 = 0
set i2 = 0
set i3 = 0
set i4 = 0
set i5 = 0
set fl = 0
set u = null
call DestroyTimer(t)
set s = ""
set i = 0
endfunction
ругань идет на
call FlushChildHashtable(udg_СastHash, GetHandleId(t))
call FlushChildHashtable(udg_СastHash, GetHandleId(u))
причем только на ту, которая стоит первой в скрипте, я пробовал их менять местами. На вторую по счету нет никакой ругани а на первую - Отсутствует Название.