globals
  // Номер свободной ячейки
  integer FreeCell = 0
  // Идентификатор самой последней ячейки(не последней выделенной, а именно последней)
  integer AbsMaxID = 0
  // Количество выделенных ячеек
  integer UnitCount = 0
  // Номер предыдущей свободной ячейки
  integer array PrevFreeCell
  // Сопсно хендл юнита
  unit array UnitHandle
endglobals

// Функция выделения идентификатора для юнита
function AllocateUnit takes unit u returns integer
  local integer result

  // Проверяем если переменная "u" пуста или количество выделенных объектов превысило допустимое значение, то выходим из функции и возвращаем 0
  if (u == null) or (UnitCount >= JASS_MAX_ARRAY_SIZE) then
    return (0)
  endif

  set result = FreeCell

  if (result == 0) then
    set AbsMaxID = AbsMaxID + 1
    set result = AbsMaxID
  else
    set FreeCell = PrevFreeCell[result]
  endif

  set PrevFreeCell[result] = -1
  set UnitHandle[result] = u
  set UnitCount = UnitCount + 1

  return (result)
endfunction

// Функция удаления идентификатора юнита
// ВАЖНО! Передаваемый идентификатор не должен быть ниже 1 и не выше JASS_MAX_ARRAY_SIZE(На данный момент равно 8192)
function DeallocateUnit takes integer unit_id returns nothing

  // Если идентификатор объекта равен нули или значение предыдущей свободной ячейки не равно -1, то выходим из функции(если передаваемый идентификатор не будет попадать в допустимые рамки(от 1 до 8192), то движок сам выйдет из функции, так как такой переменной просто не существует
  if (unit_id == 0) or (PrevFreeCell[unit_id] != -1) then
    return
  endif

  //ну тут всё понятно
  set UnitCount = UnitCount - 1
  set UnitHandle[unit_id] = null
  set PrevFreeCell[unit_id] = FreeCell
  set FreeCell = unit_id
endfunction