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))

local timer t = GetExpiredTimer()
local integer h = GetHandleId(t)

call FlushChildHashtable(udg_СastHash,h)