-- DEX-like Tree ASCII → .txt dengan Properties
-- Support: Delta, Solara, Trigon, Electron, dll (selama ada writefile)

local MarketplaceService = game:GetService("MarketplaceService")

local function getGameName()
    local ok, res = pcall(function()
        return MarketplaceService:GetProductInfo(game.PlaceId).Name
    end)
    return ok and res or "UnknownGame"
end

local filename = string.format("DEX_Tree_%s_%s.txt", getGameName(), os.date("%Y%m%d_%H%M%S"))

local lines = {}

local icons = {
    branch = "├─ ",
    last   = "└─ ",
    indent = "│  ",
    prop   = "   ▸ "
}

-- Fungsi untuk mendapatkan properties yang penting
local function getProperties(obj)
    local props = {}
    local success, _ = pcall(function()
        -- Properties umum yang berguna
        local propList = {
            "Position", "Size", "CFrame", "Transparency", 
            "BrickColor", "Material", "Anchored", "CanCollide",
            "Text", "TextColor3", "BackgroundColor3", "Font",
            "Image", "ImageId", "Texture", "TextureId",
            "Value", "Volume", "PlaybackSpeed", "SoundId",
            "MeshId", "Scale", "Offset",
            "Health", "MaxHealth", "WalkSpeed", "JumpPower",
            "Enabled", "Visible", "Parent"
        }
        
        for _, propName in ipairs(propList) do
            local ok, val = pcall(function()
                return obj[propName]
            end)
            if ok and val ~= nil then
                local valStr = tostring(val)
                -- Batasi panjang string
                if #valStr > 50 then
                    valStr = valStr:sub(1, 47) .. "..."
                end
                table.insert(props, propName .. " = " .. valStr)
            end
        end
    end)
    
    return props
end

local function buildTree(obj, prefix, isRoot)
    -- Header object
    if isRoot then
        table.insert(lines, "🎮 " .. obj.ClassName .. " | " .. obj.Name)
    else
        table.insert(lines, prefix .. obj.ClassName .. " | " .. obj.Name)
    end
    
    -- Tambahkan properties
    local props = getProperties(obj)
    if #props > 0 then
        for _, prop in ipairs(props) do
            table.insert(lines, prefix .. icons.prop .. prop)
        end
    end
    
    -- Scan children
    local children = obj:GetChildren()
    for i = 1, #children do
        local isLast = (i == #children)
        local newPrefix = prefix .. (isLast and "    " or icons.indent)
        buildTree(children[i], newPrefix, false)
    end
end

-- Header file
table.insert(lines, "═══════════════════════════════════════════════════")
table.insert(lines, "  DEX EXPLORER TREE WITH PROPERTIES")
table.insert(lines, "  Game: " .. getGameName())
table.insert(lines, "  Date: " .. os.date("%Y-%m-%d %H:%M:%S"))
table.insert(lines, "═══════════════════════════════════════════════════")
table.insert(lines, "")

buildTree(game, "", true)

writefile(filename, table.concat(lines, "\n"))
print("✅ Tree dengan properties tersimpan sebagai: " .. filename)
print("📊 Total baris: " .. #lines)