globals
    hashtable hash = InitHashtable()
endglobals

function deleteText takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer h = GetHandleId(t)
local texttag text = LoadTextTagHandle(hash, h, 0)
    call FlushChildHashtable(hash, h)
    call DestroyTimer(t)
    call DestroyTextTag(text)
set text = null
set t = null
endfunction
//Выше этих функции вставить
function CopyGroup takes group g returns group
    set bj_groupAddGroupDest = CreateGroup()
    call ForGroup(g, function GroupAddGroupEnum)
    return bj_groupAddGroupDest
endfunction
//Проверка на координату юнита
function RandomEnum takes nothing returns nothing
    local integer r = GetRandomInt(1,bj_groupRandomConsidered)
    local unit u = GetEnumUnit()
    if r != 1 then
        call GroupRemoveUnit(bj_groupAddGroupDest, u)
    else
        set bj_groupRandomCurrentPick = u
    endif
    set u = null
endfunction

function RandomFromGroup takes group g returns unit
    set bj_groupAddGroupDest = CopyGroup(g)
    set bj_groupRandomConsidered = CountUnitsInGroup(bj_groupAddGroupDest)
    call ForGroup(bj_groupAddGroupDest, function RandomEnum)
    call GroupClear(bj_groupAddGroupDest)
    call DestroyGroup(bj_groupAddGroupDest)
    return bj_groupRandomCurrentPick
endfunction