getobjecttag

-- The following functions were written by Smiley

function getobjecttag(m_objId)

    local m_object = getobject(m_objId)
    local object_map_id = readdword(m_object, 0x0)

    local map_pointer = 0x460678
    local map_base = readdword(map_pointer, 0x0)
    local map_tag_count = todec(endian(map_base, 0xC, 0x3))
    local tag_table_base = map_base + 0x28
    local tag_table_size = 0x20

    for i = 0, (map_tag_count - 1) do
        local tag_id = todec(endian(tag_table_base, 0xC + (tag_table_size * i), 0x3))

        if tag_id == object_map_id then
            local tag_class = readstring(tag_table_base, (tag_table_size * i), 0x3, 1)
            local tag_name_address = endian(tag_table_base, 0x10 + (tag_table_size * i), 0x3)
            local tag_name = readtagname("0x" .. tag_name_address)

            return tag_class, tag_name
        end
    end
end

function readstring(address, offset, length, endian)

    local char_table = {}
    local string = ""
    for i=0,length do
        if readbyte(address, (offset + (0x1 * i))) ~= 0 then
            table.insert(char_table, string.char(readbyte(address, (offset + (0x1 * i)))))
        end
    end
    for k,v in pairs(char_table) do
        if endian == 1 then
            string = v .. string
        else
            string = string .. v
        end
    end

    return string
end

function readtagname(address)

    local char_table = {}
    local i = 0
    local string = ""
    while readbyte(address, (0x1 * i)) ~= 0 do
        table.insert(char_table, string.char(readbyte(address, (0x1 * i))))
        i = i + 1
    end
    for k,v in pairs(char_table) do
        string = string .. v
    end

    return string
end

function endian(address, offset, length)

    local data_table = {}
    local data = ""
    for i=0,length do
        local hex = string.format("%X", readbyte(address, offset + (0x1 * i)))
        if tonumber(hex, 16) < 16 then
            hex = 0 .. hex
        end
        table.insert(data_table, hex)
    end
    for k,v in pairs(data_table) do
        data = v .. data
    end

    return data
end

function tohex(number)

    return string.format("%X", number)
end

function todec(number)

    return tonumber(number, 16)
end