alternatives to the relation part of gamecache

globals
    integer udg_SU_Usage = 0

    //Indicates which unit an SU integer currently works for
    string array udg_SU_Unit
    //An array of strings, one for each unit: 
    //Used to effectively associate gamecache values to a unit without any I2S.
    string array udg_SU_String
    //Internal stack of currently free units.
    location udg_SU_Free = null

    //The following are arrays of data associated with each SU integer.
    //They can of course be accessed directly by doing set udg_SU_Integer1[my_SU_unit]
    //but I consider it much better programming practice to use the available 
    //Set/Get functions. (The use of Get functions will be optimized with Vex's script optimizer)

    //To add more arrays is perfectly ok: Just remember to update the SU_Destroy function to
    //correctly nullify those additional arrays.
    integer array udg_SU_Integer1
    integer array udg_SU_Integer2
    integer array udg_SU_Integer3

    real array udg_SU_Real1
    real array udg_SU_Real2
    real array udg_SU_Real3

    unit array udg_SU_Unit1
    unit array udg_SU_Unit2
    unit array udg_SU_Unit3
endglobals

function SU_IntegerAbility1 takes nothing returns integer
    return 'A000'
endfunction

function SU_IntegerAbility2 takes nothing returns integer
    return 'A001'
endfunction

function SU_PushFree takes integer i returns nothing
    //Internal function for putting an SU integer onto the list of free SU integers
    if udg_SU_Free == null then
        set udg_SU_Free = SU_Location_IntLoc(i, null)
    else
        set udg_SU_Free = SU_Location_IntLoc(i, udg_SU_Free)
    endif
endfunction

function SU_PopFree takes nothing returns integer
    //Internal function for removing an SU integer onto the list of free SU integers
    local integer free = 0
    local location front = udg_SU_Free
    if udg_SU_Free == null then
        call BJDebugMsg("|cffff0000Critical SmartUnit Error:|r No more handles available")
        //Return 0, which actually means no-unit
        return 0
    endif
    set free = SU_GetLocationX_Int(front)
    set udg_SU_Free = SU_GetLocationY_Loc(front)
    call RemoveLocation(front)
    set udg_SU_UsedTimers = udg_SU_UsedTimers + 1
    return free
endfunction

function SU_InitB takes nothing returns nothing
    //Prevent the init from timing out
    local integer i = 4096
    loop
        exitwhen i == 8192
        call SU_PushFree(i)
        set i = i+1
    endloop
endfunction

function SU_Init takes nothing returns nothing
    local integer i = 0
    loop
        exitwhen i == 4096
        call SU_PushFree(i)
        set i = i+1
    endloop
    call ExecuteFunc("SU_InitB")
endfunction

function SU_New takes unit u returns integer
    local integer i = SU_PopFree()
    local integer a = i / 90
    local integer b = i - (i/90) * 90

    call UnitAddAbility(u, SU_IntegerAbility1())
    if a > 0 then
        call SetUnitAbilityLevel(u, SU_IntegerAbility1(), a)
    else
        call UnitRemoveAbility(u, SU_IntegerAbility1())
    endif

    call UnitAddAbility(u, SU_IntegerAbility2())
    if b > 0 then
        call SetUnitAbilityLevel(u, SU_IntegerAbility2(), b)
    else
        call UnitRemoveAbility(u, SU_IntegerAbility2())
    endif

    set udg_SU_Unit[i] = u
    set udg_SU_Usage = udg_SU_Usage + 1
    return i
endfunction

function SU_Convert takes unit u returns integer
    local integer i = (GetUnitAbilityLevel(u, SU_IntegerAbility1()) * 90) + GetUnitAbilityLevel(u, SU_IntegerAbility2())
    if i > 0 then
        return i
    return SU_New(u)
endfunction

function SU_Release takes integer u returns nothing
    call SetUnitAbilityLevel(udg_SU_Unit[u], SU_IntegerAbility1(), 0)
    call SetUnitAbilityLevel(udg_SU_Unit[u], SU_IntegerAbility2(), 0)
    set udg_SU_Unit[u] = null

    set udg_SU_Integer1[u] = 0
    set udg_SU_Integer2[u] = 0
    set udg_SU_Integer3[u] = 0
    
    set udg_SU_Real1[u] = 0
    set udg_SU_Real2[u] = 0
    set udg_SU_Real3[u] = 0
    
    set udg_SU_Unit1[u] = null
    set udg_SU_Unit2[u] = null
    set udg_SU_Unit3[u] = null

    //If using gamecache, may want to autoclear the cache
    //call FlushStoredMission(CSCache(), udg_SU_String[u])

    set udg_SU_Usage = udg_SU_Usage - 1
    call SU_PushFree(u)
endfunction

//All get functions take an "SU" integer and returns a value attached to it.
function SU_GetString takes integer i returns string
    return udg_SU_String[i]
endfunction

function SU_GetInt1 takes integer i returns integer
    return udg_SU_Integer1[i]
endfunction

function SU_GetInt2 takes integer i returns integer
    return udg_SU_Integer2[i]
endfunction

function SU_GetInt3 takes integer i returns integer
    return udg_SU_Integer3[i]
endfunction

function SU_GetReal1 takes integer i returns real
    return udg_SU_Real1[i]
endfunction

function SU_GetReal2 takes integer i returns real
    return udg_SU_Real2[i]
endfunction

function SU_GetReal3 takes integer i returns real
    return udg_SU_Real3[i]
endfunction

function SU_GetUnit1 takes integer i returns unit
    return udg_SU_Unit1[i]
endfunction

function SU_GetUnit2 takes integer i returns unit
    return udg_SU_Unit2[i]
endfunction

function SU_GetUnit3 takes integer i returns unit
    return udg_SU_Unit3[i]
endfunction

//Set functions

//All set functions take an "SU" integer and attaches a value to it.
function SU_SetInt1 takes integer i, integer value returns nothing
    set udg_SU_Integer1[i] = value
endfunction

function SU_SetInt2 takes integer i, integer value returns nothing
    set udg_SU_Integer2[i] = value
endfunction

function SU_SetInt3 takes integer i, integer value returns nothing
    set udg_SU_Integer3[i] = value
endfunction

function SU_SetReal1 takes integer i, real value returns nothing
    set udg_SU_Real1[i] = value
endfunction

function SU_SetReal2 takes integer i, real value returns nothing
    set udg_SU_Real2[i] = value
endfunction

function SU_SetReal3 takes integer i, real value returns nothing
    set udg_SU_Real3[i] = value
endfunction

function SU_SetUnit1 takes integer i, unit value returns nothing
    set udg_SU_Unit1[i] = value
endfunction

function SU_SetUnit2 takes integer i, unit value returns nothing
    set udg_SU_Unit2[i] = value
endfunction

function SU_SetUnit3 takes integer i, unit value returns nothing
    set udg_SU_Unit3[i] = value
endfunction