function PolledWait takes real duration returns nothing
    local timer t
    local real  timeRemaining

    if (duration > 0) then
        set t = CreateTimer()
        call TimerStart(t, duration, false, null)
        loop
            set timeRemaining = TimerGetRemaining(t)
            exitwhen timeRemaining <= 0

            // If we have a bit of time left, skip past 10% of the remaining
            // duration instead of checking every interval, to minimize the
            // polling on long waits.
            if (timeRemaining > bj_POLLED_WAIT_SKIP_THRESHOLD) then
                call TriggerSleepAction(0.1 * timeRemaining)
            else
                call TriggerSleepAction(bj_POLLED_WAIT_INTERVAL)
            endif
        endloop
        call DestroyTimer(t)
    endif
endfunction

function Trig_Stil_Franzy_Cast_Conditions takes nothing returns boolean
return GetSpellAbilityId() == 'A05Y'
endfunction

function StillFrenzyEffect takes nothing returns nothing
local timer t=GetExpiredTimer()
local unit u=LoadUnitHandle(udg_AssassinHash,GetHandleId(t),0)
local effect e=LoadEffectHandle(udg_AssassinHash,GetHandleId(t),1)
call UnitRemoveAbility(u,'A0C3')
call UnitRemoveAbility(u,'A0C2')
call DestroyEffect(e)
call FlushChildHashtable(udg_AssassinHash,GetHandleId(t))
call DestroyTimer(t)
set t=null
set u=null
set e=null
endfunction

function Trig_Stil_Franzy_Cast_Actions takes nothing returns nothing
local unit u = GetSpellAbilityUnit()
local effect e = AddSpecialEffectTarget("Abilities\\Spells\\Other\\Incinerate\\IncinerateBuff.mdl", u , "weapon")
local timer t = CreateTimer()
call UnitAddAbility( u, 'A0C2' )
call UnitAddAbility( u, 'A0C3' )
call SaveUnitHandle(udg_AssassinHash,GetHandleId(t),0,u)
call SaveEffectHandle(udg_AssassinHash,GetHandleId(t),1,e)
call TimerStart(t,7,false,function StillFrenzyEffect)
set e = null
set u = null
endfunction

//===========================================================================
function InitTrig_Stil_Franzy_Cast takes nothing returns nothing
    set gg_trg_Stil_Franzy_Cast = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Stil_Franzy_Cast, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Stil_Franzy_Cast, Condition( function Trig_Stil_Franzy_Cast_Conditions ) )
    call TriggerAddAction( gg_trg_Stil_Franzy_Cast, function Trig_Stil_Franzy_Cast_Actions )
endfunction