function CastSpell takes unit caster,unit target,ability spell,integer level  returns nothing
    local unit u
    set u=CreateUnit(GetOwningPlayer(caster),'nwad',GetUnitX(target),GetUnitY(target),0)  
    call ShowUnitHide(u)
    call UnitApplyTimedLife(u,3.00,'BTLF')
    call UnitAddAbilityBJ(u,spell)
    call IssueTargetOrder(u,"Подскажите функцию для ордера",target)
    set u=null
endfunction

function CastSpell takes unit caster, unit target, integer spell, integer level, string order returns nothing
    local unit u = CreateUnit(GetOwningPlayer(caster), 'nwad', GetUnitX(target), GetUnitY(target), 0)  
    call UnitApplyTimedLife(u, 'BTLF', 2)
    call UnitAddAbility(u, spell)
    call SetUnitAbilityLevel(u, spell, level)
    call IssueTargetOrder(u, order, target)
    set u=null
endfunction