一个非常简单的堆栈代码（供参考）

eff

[jass]    integer  array              SYS_BlotStack
    integer                     SYS_BlotTop = 8191
    integer                     SYS_BlotIndex

    unit     array              SYS_Blot
    integer  array              SYS_BlotCode
    integer  array              SYS_BlotData_I00
    integer  array              SYS_BlotData_I01
    integer  array              SYS_BlotData_I02
    integer  array              SYS_BlotData_I03
    integer  array              SYS_BlotData_I04

//=========================================
function FlushBlotData takes integer index returns nothing
    set SYS_Blot[index] = null
    set SYS_BlotCode[index] = 0
    set SYS_BlotData_I00[index] = 0
    set SYS_BlotData_I01[index] = 0
    set SYS_BlotData_I02[index] = 0
    set SYS_BlotData_I03[index] = 0
    set SYS_BlotData_I04[index] = 0
endfunction

function ReleaseBlot takes unit b returns nothing
    local integer bIndex = GetUnitUserData(b)
    set SYS_BlotStack[SYS_BlotTop] = bIndex
    set SYS_BlotTop = SYS_BlotTop + 1
    call FlushBlotData(bIndex)
endfunction

function InitBlot takes unit u,real tInv returns integer
    local integer bIndex
    if(SYS_BlotStack[SYS_BlotTop]==null)then
        set SYS_BlotStack[SYS_BlotTop] = SYS_BlotTop
        set bIndex = SYS_BlotTop
    else
        set bIndex = SYS_BlotStack[SYS_BlotTop]
    endif
    set SYS_BlotTop = SYS_BlotTop - 1
    call FlushBlotData(bIndex)
    set SYS_Blot[bIndex] = u
    return bIndex
endfunction[/jass]

蟋有的蟀

虽然看起来很简洁
不过对于我这种纯踢er来说还是看不懂