Recycling - how would you do it?

library ArrayIntegers

globals
  private integer DummyID = 'e000'
  // Raw code of the dummy
endglobals

//! textmacro Recycle takes INSTANCE,UNIT
   if(IsUnitType($UNIT$,UNIT_TYPE_DEAD)==true)then
     set Integer=GetUnitUserData(DummyUnit[GetUnitUserData($UNIT$)])
   endif
//! endtextmacro

globals
  private unit array ArrayUnit
  private unit array DummyUnit
  private integer Integer=0
endglobals

function GetUnitArrayInteger takes unit whichUnit,boolean showAsDebug returns integer
 debug if(showAsDebug==true)then
  debug call BJDebugMsg(I2S(GetUnitUserData(whichUnit)))
 debug endif
return GetUnitUserData(whichUnit)
endfunction

function SetUnitArrayInteger takes unit whichUnit,integer customValue returns nothing
  set Integer=Integer+1
  set ArrayUnit[Integer]=whichUnit
  
   set DummyUnit[customValue]=CreateUnit(GetOwningPlayer(whichUnit), DummyID, 0, 0, 0)
   //! runtextmacro Recycle("Integer","ArrayUnit[Integer]")
   call SetUnitUserData(ArrayUnit[Integer],customValue)
endfunction

endlibrary

library ArrayIntegers

globals
 private unit array Unit
 private unit array Selected
 private integer array Index
 private integer MaxIndex = 0
 private integer Indexes = 0
 private integer RecycleIndex = 0
 private integer Array = 0
 private player SPlayer
endglobals

function GetUnitArrayInteger takes unit whichUnit returns integer
  return GetUnitUserData(whichUnit)
endfunction

private function RecyclePeriodic takes nothing returns nothing
 local integer i = 0
  
  loop
   exitwhen i > Indexes
    if GetWidgetLife(Unit[i]) < .405 then
     set Array = GetUnitUserData(Unit[i]) - 1
     set RecycleIndex = RecycleIndex + 1
     debug call BJDebugMsg("|c00008080ArrayIntegers:|r Recycling.. (" + I2S(RecycleIndex) + " times recycled.)")
    endif
   set i = i + 1
  endloop
endfunction

function SetUnitArrayInteger takes unit whichUnit, integer CustomValue returns nothing
  set Array = Array + 1
  set Unit[Array] = whichUnit
  set Index[Array] = CustomValue
  set Indexes = Indexes + 1
  if CustomValue > MaxIndex then
   set MaxIndex = CustomValue
  endif
  call SetUnitUserData(Unit[Array], CustomValue)
endfunction

private function SetSelectedGroup takes nothing returns nothing
    set Selected[GetPlayerId(SPlayer)] = GetEnumUnit()
endfunction

private function SetSelected takes nothing returns boolean
    local group g = CreateGroup()
    set SPlayer = GetTriggerPlayer()
    call EnumUnitsSelected(GetTriggerPlayer(), null, function SetSelectedGroup)
    set SPlayer = null
    return false
endfunction

//************************
// Debuging stuff        *
//************************

function DisplayInt takes unit whichUnit returns nothing
// This function displays the unit you want's ArrayInteger
  call BJDebugMsg(I2S(GetUnitArrayInteger(whichUnit)))
endfunction

function DisplayStats takes nothing returns nothing
// This function displays all stats of the game
   call BJDebugMsg("|c00008080*******************************************|r")
   call BJDebugMsg("|c00008080Biggest index ever:|r " + I2S(MaxIndex))
   call BJDebugMsg("|c00008080Indexes in use:|r " + I2S(Indexes))
   call BJDebugMsg("|c00008080Times Recycled:|r " + I2S(RecycleIndex))
   call BJDebugMsg("|c00008080*******************************************|r")
endfunction

function DisplaySelectedInt takes player Owner returns nothing
// This function displays the player's selected unit's ArrayInteger
local integer I = GetPlayerId(Owner)
  call BJDebugMsg(I2S(GetUnitArrayInteger(Selected[i])))
endfunction

//************************
// End of debug stuff    *
//************************

function InitTrig_ArrayIntegers takes nothing returns nothing
   local trigger t = CreateTrigger()
   local integer i = 0
   
   call TimerStart(CreateTimer(), .50, true, function RecyclePeriodic)
   call TriggerRegisterPlayerSelectionEventBJ(t, Player(i), true)
   call TriggerAddCondition(t, Condition(function SetSelected))
endfunction

endlibrary