function Trig_Cast_spell_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'AHtc' ) ) then
        return false
    endif
    return true
endfunction

function Trig_Cast_spell_Func002Func001C takes nothing returns boolean
    if ( not ( UnitItemInSlotBJ(GetSpellAbilityUnit(), GetForLoopIndexA()) != null ) ) then
        return false
    endif
    if ( not ( GetItemLevel(UnitItemInSlotBJ(GetSpellAbilityUnit(), GetForLoopIndexA())) == 5 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Cast_spell_Func003C takes nothing returns boolean
    if ( not ( 'i' >= 1 ) ) then
        return false
    endif
    return true
endfunction

function Trig_Cast_spell_Actions takes nothing returns nothing
    set i = 0
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = 6
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        if ( Trig_Cast_spell_Func002Func001C() ) then
            set i = ( i + 1 )
        else
            call DoNothing(  )
        endif
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    if ( Trig_Cast_spell_Func003C() ) then
        call DoNothing(  )
    else
        call IssueImmediateOrderBJ( GetSpellAbilityUnit(), "stop" )
    endif
endfunction

//===========================================================================
function InitTrig_Cast_spell takes nothing returns nothing
    set gg_trg_Cast_spell = CreateTrigger(  )
    local integer i = 0
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Cast_spell, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Cast_spell, Condition( function Trig_Cast_spell_Conditions ) )
    call TriggerAddAction( gg_trg_Cast_spell, function Trig_Cast_spell_Actions )
endfunction

function Cast_spell_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'AHtc'
endfunction

function Cast_spell_Actions takes nothing returns nothing
    local unit    u = GetSpellAbilityUnit()
    local item    m = null
    local integer i = 0
    local integer k = 0
    loop
        exitwhen i > 5 or k > 1
        set m = UnitItemInSlot(u, i)
        if m != null then
            if GetItemLevel(m) == 5 then
                set k = k + 1
            endif
        endif
        set i = i + 1
    endloop
    if k < 1 then
        call IssueImmediateOrder(u, "stop")
    endif
    set u = null
    set m = null
endfunction

//===========================================================================
function InitTrig_Cast_spell takes nothing returns nothing
    local trigger tr = CreateTrigger()
    call TriggerAddAction(tr, function Cast_spell_Actions)
    call TriggerAddCondition(tr, Condition(function Cast_spell_Conditions))
    call TriggerRegisterAnyUnitEventBJ(tr, EVENT_PLAYER_UNIT_SPELL_CAST)
    set tr = null
endfunction