function B_Actions takes nothing returns nothing
    local unit bc = GetSpellAbilityUnit()
    local unit bb
    local location bcp = GetUnitLoc(bc)
    local location bbp = GetSpellTargetLoc()
    local real ba = AngleBetweenPoints(bcp, bbp)
    local real bo = 50.00
    local integer bh = 3
    local real br = 800.00
    local integer bd = GetRandomInt(30,40)
    // -----------------------------------------------------------------------
    call TriggerSleepAction( 0.80 )
    call CreateNUnitsAtLoc( 1, 'e000', GetOwningPlayer(bc), bcp, ba )
    set bb = GetLastCreatedUnit()
    call GroupAddUnit( udg_B_group, bb)
    // -----------------------------------------------------------------------
    call SaveRealBJ( ba, (GetHandleIdBJ(bb)), StringHashBJ("angle"), udg_B_table )
    call SaveIntegerBJ( bh, (GetHandleIdBJ(bb)), StringHashBJ("hits"), udg_B_table )
    call SaveRealBJ( br, (GetHandleIdBJ(bb)), StringHashBJ("range"), udg_B_table )
    call SaveIntegerBJ( bd, (GetHandleIdBJ(bb)), StringHashBJ("dmg"), udg_B_table )
    call SaveUnitHandleBJ( bc, (GetHandleIdBJ(bb)), StringHashBJ("caster"), udg_B_table )
    call SaveUnitHandleBJ( bb, (GetHandleIdBJ(bb)), StringHashBJ("bullet"), udg_B_table )
    // -----------------------------------------------------------------------
    call RemoveLocation(bcp)
    call RemoveLocation(bbp)
    call EnableTrigger( gg_trg_move_b )
endfunction

    // это НЕ bj функция:
    call CreateNUnitsAtLoc( 1, 'e000', GetOwningPlayer(bc), bcp, ba )
    // а здесь пытаемся вернуть результат работы bj функции:
    set bb = GetLastCreatedUnit()

local unit bb=CreateUnit(Player(pl),'e000',X,Y,ba)

function Duration takes nothing returns nothing
local timer t=GetExpiredTimer() //истёкший таймер
local integer pl=LoadInteger(udg_B_table,GetHandleId(t),1)
local real ba=LoadReal(udg_B_table,GetHandleId(t),2)
local real X=LoadReal(udg_B_table,GetHandleId(t),3)
local real Y=LoadReal(udg_B_table,GetHandleId(t),4)
local unit bb=CreateUnit(Player(pl),'e000',X,Y,ba)
call GroupAddUnit(udg_B_group,bb)
call EnableTrigger(gg_trg_move_b)
call FlushChildHashtable(udg_B_table,GetHandleId(t)) //чистим категорию
//call PauseTimer(t) так как он однократно должен сработать, то можно пропустить это действие
call DestroyTimer(t) //очистка памяти игры — не забываем про оптимизацию
set t=null
endfunction

function B_Actions takes nothing returns nothing
local timer t=CreateTimer() //создаём таймер
local unit bc=GetSpellAbilityUnit()
local location bbp=GetSpellTargetLoc()
local real ba=bj_RADTODEG*Atan2(GetLocationY(bbp)-GetUnitY(bc),GetLocationX(bbp)-GetUnitX(bc))
//Кстати я буду нумеровать ячейке по порядку, а потому что мне так нравится))
call SaveInteger(udg_B_table,GetHandleId(t),1,GetPlayerId(GetOwningPlayer(bc))) //сохраняем ID игрока (Владельца bc)
call Savereal(udg_B_table,GetHandleId(t),2,ba)
call Savereal(udg_B_table,GetHandleId(t),3,GetUnitX(bc))
call Savereal(udg_B_table,GetHandleId(t),4,GetUnitY(bc))
//А дальше я не знаю, нужны ли тебе эти действия, но я их оставлю — сам разбирайся
call SaveReal(udg_B_table,GetHandleId(bb),StringHash("angle"),ba)
call SaveInteger(udg_B_table,GetHandleId(bb),StringHash("hits"),3)
call SaveReal(udg_B_table,GetHandleId(bb), StringHash("range"),800.)
call SaveInteger(udg_B_table,GetHandleId(bb),StringHash("dmg"),GetRandomInt(30,40))
call SaveUnitHandle(udg_B_table,GetHandleId(bb),StringHash("caster"),bc)
call SaveUnitHandle(bb,GetHandleId(bb),StringHash("bullet"),bb)
call TimerStart(t,0.8,true,function Duration) 
//ну вот, теперь переносим все действия, которые нужно задержать на 0.8 сек в функцию Duration
//Не забываем обнулить "объектные" переменные (не относится к: integer, real, boolean, player и возможно еще что-нибудь)
call RemoveLocation(bbp)
set bbp=null
set t=null 
set bb=null
set bc=null
endfunction