用lua来写游戏脚本的确是一件很方便的事情，但是有时候需要用到枚举类型时就有点麻烦了，因为lua里时没有枚举型变量这个东西的，所以要使用枚举还 得自己转换一下，我写了一个函数用来做这种转换：

function CreatEnumTable(tbl, index)
    assert(IsTable(tbl))
    local enumtbl = {}
    local enumindex = index or 0
    for i, v in ipairs(tbl) do
        enumtbl[v] = enumindex + i
    end
    return enumtbl
end

在需要用到枚举变量的地方只要这样用就行了：
EnumTable =
{
    "ET1",
    "ET2",
}

EnumTable = CreatEnumTable(EnumTable )
print(EnumTable.ET1)
print(EnumTable.ET2)

输出为：
1
2

当然，也可以指定下标从多少开始，
比如从10开始，只要把上面创建枚举表的语句换成下面这样就可以了：
EnumTable = CreatEnumTable(EnumTable, 10)

在《Programming in Lua》一书中提到了一个双端队列的实现方法，我把它拿来改进了一下用在了我正在制作的一个RPG游戏里，用起觉得 来还不错，加了一个GetSize()来取得List的大小，这个在游戏制作中用处还是很大的^_^

源代码如下：
CList = class()

function CList:ctor()
        self.m_list = { first = 0, last = -1 }
end

function CList:PushFront(value)
        local first = self.m_list.first - 1
        self.m_list.first = first
        self.m_list[first] = value
end

function CList:PushBack(value)
        local last = self.m_list.last + 1
        self.m_list.last = last
        self.m_list[last] = value
end

function CList:PopFront()
        local first = self.m_list.first
        if first > self.m_list.last then return nil end
        local value = self.m_list[first]
        self.m_list[first] = nil
        self.m_list.first = first + 1
        return value
end

function CList:PopBack()
        local last = self.m_list.last
        if self.m_list.first > last then return nil end
        local value = self.m_list[last]
        self.m_list[last] = nil
        self.m_list.last = last - 1
        return value
end

function CList:GetSize()
        if self.m_list.first > self.m_list.last then
                return 0
        else
                return math.abs(self.m_list.last - self.m_list.first) + 1
        end
end

在最前面的那句CList = class() 这里使用了云风写的一个class函数创建一个类，
这个函数可以在云风的博客上找到，为了方便起见我就在这里先抄一下了：

local _class={}

function class(super)
        local class_type={}
        class_type.ctor=false
        class_type.super=super
        class_type.new=function(...)
                        local obj={}
                        do
                                local create
                                create = function(c,...)
                                        if c.super then
                                                create(c.super,...)
                                        end
                                        if c.ctor then
                                                c.ctor(obj,...)
                                        end
                                end

                                create(class_type,...)
                        end
                        setmetatable(obj,{ __index=_class[class_type] })
                        return obj
                end
        local vtbl={}
        _class[class_type]=vtbl

        setmetatable(class_type,{__newindex=
                function(t,k,v)
                        vtbl[k]=v
                end
        })

        if super then
                setmetatable(vtbl,{__index=
                        function(t,k)
                                local ret=_class[super][k]
                                vtbl[k]=ret
                                return ret
                        end
                })
        end

        return class_type
end