Explorateur Lua [v1.0]

--[[ Explorateur Lua v1.0 ]]--



function init()
    info={}
    for name in pairs(tfm.get.room.playerList) do eventNewPlayer(name) end
end

function eventNewPlayer(name)

    ui.addTextArea(0, "", name, 150, 50, 500, 300, 0x27373f, 0x27373f, 1, true)     -- fond1
    ui.addTextArea(1, "", name, 150, 75, 500, 275, 0x324650, 0x27373f, 1, true)     -- fond2
    ui.addTextArea(2, "", name, 175, 85, 450, 20, 0x27373f, 0x27373f, 1, true)      -- chemin
    ui.addTextArea(3, "", name, 175, 120, 140, 200, 0x27373f, 0x27373f, 1, true)    -- liste noms
    ui.addTextArea(4, "", name, 330, 120, 140, 200, 0x27373f, 0x27373f, 1, true)    -- liste types
    ui.addTextArea(5, "", name, 485, 120, 140, 200, 0x27373f, 0x27373f, 1, true)    -- liste valeurs

    info[name] = {}
    info[name].path = {"_G"}
    eventTextAreaCallback(2, name, 1)
end


function eventTextAreaCallback(id, name, call)

    if id==2 then
        local i = #info[name].path - tonumber(call)
        for k=1,i do table.remove(info[name].path) end
        open(name)
    elseif id == 3 then
        table.insert(info[name].path, tonumber(call) or call)
        open(name)
    end


end


function open(name)
    local path = info[name].path
    local tab, path = folder(table.copy(info[name].path))
    info[name].path = path
    local files = ""
    local typ = ""
    local values = ""
    local way = ""


    for key, val in pairs(tab) do
        files = files.."<a href='event:"..tostring(key).."'>"..tostring(key).."</a>\n"
        values = values..tostring(val)..'\n'
        typ = typ..type(val)..'\n'
    end
    for key, val in ipairs(path) do
        way = way.."<a href='event:"..tostring(key).."'>"..val..".</a>"
    end

    ui.updateTextArea(2, way, name)
    ui.updateTextArea(3, files, name)
    ui.updateTextArea(4, typ, name)
    ui.updateTextArea(5, values, name)



end


function folder(path, tab, way)

    tab = tab or _G
    way = way or {"_G"}

    if path[2] then

        if type(tab[path[2]]) == "table" then
            tab = tab[path[2]]
            table.insert(way, path[2])
            table.remove(path, 2)
            return folder(path, tab, way)
        else
            print(string.gsub (string.gsub (tostring(tab[path[2]]), '<', '&lt;'), '>', '&gt;'))
        end
    end

    return tab, way
end



function table.copy(tab)
    local res = {}
    for key, val in pairs(tab) do
        res[key] = val
    end
    return res
end

init()