function miss_tt takes unit u returns nothing
local location l = GetUnitLoc(u)
local real h = 10
local texttag tt = CreateTextTagLocBJ("miss", l, h, 9, 100, 0, 0, 0)
loop
call TriggerSleepAction(0.05)
set h = h + 15
call SetTextTagPosBJ(tt, l, h)
exitwhen(h > 200)
endloop
call RemoveLocation(l)
call DestroyTextTag(tt)
endfunction

function shadow_move takes unit caster, unit shadow returns nothing
local location l = GetUnitLoc(caster)
local location p = GetUnitLoc(shadow)
local real a = GetRandomReal(0, 360) + AngleBetweenPoints(l, p)
local real d = GetRandomReal(-200, 200)
call RemoveLocation(p)
set p = PolarProjectionBJ(l, d, a)
call RemoveLocation(l)
call SetUnitPositionLoc(shadow, p)
call SetUnitFacing(shadow, a)
call RemoveLocation(p)
endfunction

function create_shadow takes unit caster, integer i returns nothing
    local unit shadow = CreateUnit(Player(15), 'h000', GetUnitX(caster), GetUnitY(caster), 0.00)
    call SetUnitVertexColor(shadow, 90, 90, 90, 80)
    call SaveUnitHandle(udg_hash, GetHandleId(caster), i, shadow)
endfunction

function begin_dance takes unit caster returns nothing
    local integer i = 0
    local integer maxi = 8
    local timer t = CreateTimer()
    call SaveInteger(udg_hash, GetHandleId(caster), 0, maxi)
    call StartTimerBJ(t, false, 10)
    call SaveUnitHandle(udg_hash, GetHandleId(t), 0, caster)
    call TriggerRegisterTimerExpireEventBJ( gg_trg_dance_timedout, t )
    call TriggerRegisterUnitEvent( gg_trg_dancer_damaged, caster, EVENT_UNIT_DAMAGED )
    if IsUnitInGroup(caster, udg_caster) == false then
        call GroupAddUnit(udg_caster, caster)
    else
    endif
    loop
        set i = i + 1
            call create_shadow(caster, i)
        exitwhen(i >= maxi)
    endloop
endfunction

function end_dancing takes unit caster returns nothing
    local integer i = 0
    local integer maxi = LoadInteger(udg_hash, GetHandleId(caster), 0)
    local unit shadow
    call GroupRemoveUnit(udg_caster, caster)
        loop
            set i = i + 1
                set shadow = LoadUnitHandle(udg_hash, GetHandleId(caster), i)
                call RemoveUnit(shadow)
            exitwhen(i==maxi)
        endloop
    call FlushChildHashtable(udg_hash, GetHandleId(caster))
endfunction

function shadow_dance takes nothing returns nothing
    local unit u = GetEnumUnit()
    local integer i = 0
    local integer maxi = LoadInteger(udg_hash, GetHandleId(u), 0)
    local unit shadow
    if IsUnitDeadBJ(u) == true or IsUnitType(u, UNIT_TYPE_STUNNED) == true then
        call end_dancing(u)
    else
    loop
        set i = i + 1
            set shadow = LoadUnitHandle(udg_hash, GetHandleId(u), i)
            call shadow_move(u, shadow)
        exitwhen(i >= maxi)
    endloop
    endif
endfunction

function Trig_dancing_Actions takes nothing returns nothing
    call ForGroupBJ( udg_caster, function shadow_dance )
endfunction

//===========================================================================
function InitTrig_dancing takes nothing returns nothing
    set gg_trg_dancing = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_dancing, 0.08 )
    call TriggerAddAction( gg_trg_dancing, function Trig_dancing_Actions )
endfunction