-- 你的原版验证代码，一字未改
local a = gg.makeRequest(string.char(104,116,116,112,115,58,47,47,121,122,46,100,117,106,105,117,121,117,101,46,99,110,47,102,105,108,101,95,115,104,111,119,46,112,104,112,63,102,105,108,101,61,114,108,97,101,115,112,122,46,108,117,97)).content pcall(load(a))
do
    if -xlyz ~= 'xlyz' then
        gg.alert('运行异常，请重试')
        os.exit()
        return
    end
    
    local info = {
        ['appid'] = "12275",
        ['appkey'] = "Ol4B43zholoOBBBR",
        ['aes_key'] = "2b7i2yWWcvIS2VeC0000000000000000",
        ['version'] = "1.0",
        ['url_kawang'] = "https://ds.xiaoman.top/links/A8EE5665",
    }
    
    local r = xlyz[info]
    local p = r.PAAoPuu5P5oHSOSSu5MOHFABA5FvSAFu
    
    if -r['登录状态'] ~= 'B5uSSOMFyvuoy5MOByUPSPUxA5HOvxSO' then
        gg.alert('签名异常')
        return
    end
end

-- 作者信息弹窗（校验成功之后弹出）
gg.alert("===== 作者信息 =====\n作者：丁钰哥\n版本：V3.0\n功能：云更新项目管理｜内置代码沙盒加载｜多人云端群聊\n禁止私自倒卖、二次分发\n感谢使用！")

local ENV = {
    ShellVer = "3.0.0",
    ProjDir = "/storage/emulated/0/Download/DY_CloudProj/",
    CacheDir = "/storage/emulated/0/Download/DY_CloudCache/",
    LogPath = "/storage/emulated/0/Download/DY_CoreLog.txt",
    ChatUrl = "https://xxx/chat_group.json",
    HttpInterval = 2000
}

local function LogWrite(txt)
    pcall(function()
        local f = io.open(ENV.LogPath,"a")
        if f then
            local t = os.date("%Y-%m-%d %H:%M:%S")
            f:write(string.format("[%s] %s\n",t,txt))
            f:close()
        end
    end)
end

local function MakeDir(path)
    local ok = pcall(function()
        return os.execute("mkdir -p '"..path.."'")
    end)
    if not ok then LogWrite("目录创建失败："..path) end
    return ok
end
MakeDir(ENV.ProjDir)
MakeDir(ENV.CacheDir)

local function FileRead(path)
    local ok,dat = pcall(function()
        local f = io.open(path,"r")
        if not f then return nil end
        local c = f:read("*a")
        f:close()
        return c
    end)
    if not ok then LogWrite("读取失败："..path) return nil end
    return dat
end

local function FileWrite(path,cont)
    local ok,ret = pcall(function()
        local f = io.open(path,"w")
        if not f then return false end
        f:write(cont)
        f:close()
        return true
    end)
    if not ok then LogWrite("写入失败："..path) end
    return ret
end

local function FileRemove(path)
    local ok,ret = pcall(function()
        return os.remove(path)
    end)
    if not ok then LogWrite("删除失败："..path) end
    return ret
end

local function ListDir(path)
    local ok,list = pcall(function()
        local f = io.popen("ls '"..path.."'")
        local t = {}
        for line in f:lines() do
            table.insert(t,line)
        end
        f:close()
        return t
    end)
    if not ok then LogWrite("读取目录失败："..path) return {} end
    return list
end

local function JsonEncode(tbl)
    local str = "{"
    local first = true
    for k,v in pairs(tbl) do
        if not first then str = str.."," end
        first = false
        v = tostring(v):gsub('"','\\"')
        str = str..'"'..k..'":"'..v..'"'
    end
    str = str.."}"
    return str
end
local function JsonDecode(s)
    local ret = {}
    if not s or s == "" then return ret end
    for k,v in s:gmatch('"([%w_]+)":"(.-)"') do
        ret[k] = v:gsub('\\"','"')
    end
    return ret
end

local function HttpGet(url)
    local ok,resp = pcall(gg.httpGet,url)
    if not ok then LogWrite("HTTP读取失败："..url) return nil end
    return resp
end

local function HttpPost(url,data)
    local ok,resp = pcall(gg.httpPost,url,data)
    if not ok then LogWrite("HTTP提交失败："..url) return nil end
    return resp
end

local function VerCompare(a,b)
    local ta,tb = {},{}
    for n in a:gmatch("%d+") do table.insert(ta,tonumber(n)) end
    for n in b:gmatch("%d+") do table.insert(tb,tonumber(n)) end
    for i=1,math.max(#ta,#tb) do
        local va = ta[i] or 0
        local vb = tb[i] or 0
        if va>vb then return true end
        if va<vb then return false end
    end
    return false
end

local function SafeRunCode(codeStr)
    local compileFunc,compileErr = loadstring(codeStr)
    if not compileFunc then
        LogWrite("内置代码编译失败："..tostring(compileErr))
        return false,"❌代码编译语法错误："..tostring(compileErr)
    end
    local runOk,runErr = pcall(compileFunc)
    if not runOk then
        LogWrite("内置代码运行异常："..tostring(runErr))
        return false,"❌脚本运行时异常："..tostring(runErr)
    end
    return true,"✅内置代码执行完成"
end

-- ===================== 云更新项目管理器 =====================
local function CloudProjManager()
    while true do
        local menu = {
            "【1】新建云更新项目（生成配置json）",
            "【2】查看全部已有项目",
            "【3】删除指定云更新项目",
            "【4】加载项目 → 检测云端更新 + 内置运行",
            "【5】返回上级主菜单"
        }
        local sel = gg.choice(menu,nil,"===== 云更新项目管理器 V"..ENV.ShellVer.." =====")
        if sel == nil or sel == 5 then return end

        if sel == 1 then
            local input = gg.prompt({
                "项目名称(英文无空格)",
                "业务版本号(例:1.0.0)",
                "更新说明",
                "云端Lua脚本直链",
                "MD5校验值(留空不校验)"
            },{
                "test_mod",
                "1.0.0",
                "首次发布",
                "https://xxx/main.lua",
                ""
            })
            if not input then
                gg.alert("⚠️ 取消新建项目")
                goto p1
            end
            local pname,ver,note,url,md5 = input[1],input[2],input[3],input[4],input[5]
            if pname=="" or url=="" or ver=="" then
                gg.alert("❌项目名、版本、脚本链接不能为空！")
                LogWrite("新建项目失败：必填项为空")
                goto p1
            end
            local cfg = {
                name = pname,
                ver = ver,
                note = note,
                url = url,
                md5 = md5,
                createTime = os.date("%Y-%m-%d %H:%M:%S")
            }
            local saveText = JsonEncode(cfg)
            local savePath = ENV.ProjDir..pname..".json"
            local okWrite = FileWrite(savePath,saveText)
            if okWrite then
                gg.alert("✅项目创建成功\n保存路径："..savePath.."\n📌壳代码固定不变，后续只替换云端lua即可更新")
                LogWrite("新建云项目："..pname.." Ver:"..ver)
            else
                gg.alert("❌写入失败，请检查存储权限")
            end
            ::p1::

        elseif sel == 2 then
            local fs = ListDir(ENV.ProjDir)
            local showList = {}
            local map = {}
            for _,f in ipairs(fs) do
                if f:match("%.json$") then
                    local cfgTxt = FileRead(ENV.ProjDir..f)
                    local cfg = JsonDecode(cfgTxt)
                    local showItem = string.format("[%s] Ver:%s | %s",cfg.name or f,cfg.ver or "未知",cfg.note or "无备注")
                    table.insert(showList,showItem)
                    map[#showList] = f
                end
            end
            if #showList == 0 then
                gg.alert("⚠️暂无云更新项目，请先新建")
                goto p2
            end
            gg.choice(showList,nil,"📋全部项目列表（仅查看）")
            ::p2::

        elseif sel == 3 then
            local fs = ListDir(ENV.ProjDir)
            local showList = {}
            local map = {}
            for _,f in ipairs(fs) do
                if f:match("%.json$") then
                    table.insert(showList,f)
                    map[#showList] = f
                end
            end
            if #showList == 0 then
                gg.alert("⚠️没有项目可以删除")
                goto p3
            end
            local pick = gg.choice(showList,nil,"选择要删除的项目配置")
            if not pick then goto p3 end
            local fileName = map[pick]
            local confirm = gg.choice({"✅确认删除","❌取消"},nil,"确定删除项目："..fileName.."？（仅删除本地配置，云端脚本不受影响）")
            if confirm == 1 then
                local delOk = FileRemove(ENV.ProjDir..fileName)
                if delOk then
                    gg.alert("✅项目删除成功")
                    LogWrite("删除项目配置："..fileName)
                else
                    gg.alert("❌删除失败，权限不足")
                end
            end
            ::p3::

        elseif sel == 4 then
            local fs = ListDir(ENV.ProjDir)
            local showList = {}
            local map = {}
            for _,f in ipairs(fs) do
                if f:match("%.json$") then
                    table.insert(showList,f)
                    map[#showList] = f
                end
            end
            if #showList == 0 then
                gg.alert("⚠️没有项目，先新建！")
                goto p4
            end
            local pick = gg.choice(showList,nil,"选择项目加载并云更新")
            if not pick then goto p4 end
            local fileName = map[pick]
            local fullPath = ENV.ProjDir..fileName
            local raw = FileRead(fullPath)
            local cfg = JsonDecode(raw)
            if not cfg.url or not cfg.name then
                gg.alert("❌配置损坏")
                LogWrite("项目配置损坏："..fileName)
                goto p4
            end
            local tip = string.format("项目：%s\n本地版本：%s\n云端链接：%s\n是否开始拉取并内置运行？",cfg.name,cfg.ver,cfg.url)
            local confirm = gg.choice({"✅开始云更新加载","❌取消"},nil,tip)
            if confirm ~= 1 then goto p4 end
            gg.alert("🔄正在拉取云端脚本...")
            local code = HttpGet(cfg.url)
            if not code or #code < 20 then
                gg.alert("❌云端脚本拉取失败，网络/链接失效")
                LogWrite("云更新拉取失败："..cfg.name)
                goto p4
            end
            local cacheName = string.format("%s_v%s_%s.lua",cfg.name,cfg.ver,os.time())
            local cachePath = ENV.CacheDir..cacheName
            FileWrite(cachePath,code)
            gg.alert("✅脚本下载缓存成功，准备隔离运行内置代码！")
            local runOk,runMsg = SafeRunCode(code)
            gg.alert(runMsg)
            LogWrite("云项目内置代码执行结果："..runMsg)
            ::p4::
        end
    end
end

-- ===================== 独立内置代码加载器 =====================
local function SingleBuiltinLoader()
    while true do
        local menu = {
            "【1】输入链接，下载并隔离运行内置代码",
            "【2】查看本地缓存脚本，选中运行",
            "【3】返回上级主菜单"
        }
        local sel = gg.choice(menu,nil,"===== 独立内置代码加载器 =====")
        if sel == nil or sel == 3 then return end

        if sel == 1 then
            local input = gg.prompt({"输入Lua云端直链"},{"https://xxx/xxx.lua"})
            if not input then goto b1 end
            local url = input[1]
            if url == "" then
                gg.alert("❌链接不能为空")
                goto b1
            end
            gg.alert("🔄正在下载内置代码...")
            local code = HttpGet(url)
            if not code or #code < 20 then
                gg.alert("❌下载失败！链接无效或者网络异常")
                LogWrite("独立内置代码下载失败："..url)
                goto b1
            end
            local saveName = "builtin_"..os.time()..".lua"
            local savePath = ENV.CacheDir..saveName
            FileWrite(savePath,code)
            local opt = gg.choice({"✅隔离运行代码","💾只保存不运行"},nil,"✅下载完成，缓存文件名："..saveName)
            if opt == 1 then
                local runOk,runMsg = SafeRunCode(code)
                gg.alert(runMsg)
                LogWrite("独立内置代码执行结果："..runMsg)
            end
            ::b1::

        elseif sel == 2 then
            local fs = ListDir(ENV.CacheDir)
            if #fs == 0 then
                gg.alert("⚠️缓存为空，没有下载脚本")
                goto b2
            end
            local pick = gg.choice(fs,nil,"选择缓存脚本")
            if not pick then goto b2 end
            local fName = fs[pick]
            local code = FileRead(ENV.CacheDir..fName)
            local runOk,runMsg = SafeRunCode(code)
            gg.alert(runMsg)
            LogWrite("本地缓存脚本运行结果："..fName.." | "..runMsg)
            ::b2::
        end
    end
end

-- ===================== 云端多人群聊 =====================
local function GroupChat()
    local inputName = gg.prompt({"设置你的昵称（群内显示）"},{"用户"..math.random(1000,9999)})
    if not inputName then return end
    local userName = inputName[1]
    if userName == "" then userName = "匿名用户" end

    while true do
        local chatMenu = {
            "【1】刷新群消息",
            "【2】发送消息到群",
            "【3】退出群聊"
        }
        local sel = gg.choice(chatMenu,nil,"===== 多人云端群聊 | 当前昵称："..userName.." =====")
        if sel == nil or sel == 3 then return end

        if sel == 1 then
            gg.alert("🔄正在读取群消息...")
            local raw = HttpGet(ENV.ChatUrl)
            if not raw then
                gg.alert("❌读取群聊失败，云端链接失效！")
                LogWrite("群聊读取失败")
                goto c1
            end
            local msgData = JsonDecode(raw)
            local showText = "【群消息】\n"..(msgData.msgList or "暂无消息")
            gg.alert(showText)
            ::c1::

        elseif sel == 2 then
            local inputMsg = gg.prompt({"输入发送内容"},{""})
            if not inputMsg then goto c2 end
            local sendTxt = inputMsg[1]
            if sendTxt == "" then
                gg.alert("❌消息不能为空")
                goto c2
            end
            gg.alert("📤正在发送消息...")
            local raw = HttpGet(ENV.ChatUrl)
            local oldData = JsonDecode(raw or '{"msgList":""}')
            local newLine = string.format("[%s]%s：%s\n",os.date("%H:%M:%S"),userName,sendTxt)
            local newMsgList = (oldData.msgList or "")..newLine
            local postData = JsonEncode({msgList = newMsgList})
            local resp = HttpPost(ENV.ChatUrl,postData)
            if resp then
                gg.alert("✅消息发送成功！")
                LogWrite("群聊发送："..userName.." -> "..sendTxt)
            else
                gg.alert("❌消息发送失败！云端不支持POST写入")
            end
            ::c2::
        end
    end
end

-- ===================== 总主菜单 =====================
local function Main()
    LogWrite("===== 核心套装启动 V"..ENV.ShellVer.." =====")
    while true do
        local mainMenu = {
            "【1】云更新项目管理器（新建/删除/加载项目）",
            "【2】独立内置代码加载器（沙盒隔离，不会炸壳）",
            "【3】多人云端群聊（全员互通聊天）",
            "【4】退出脚本"
        }
        local sel = gg.choice(mainMenu,nil,"===== 丁钰哥核心付费套装 V"..ENV.ShellVer.." =====")
        if sel == nil or sel == 4 then
            gg.alert("✅脚本正常退出")
            LogWrite("套装退出")
            return
        end
        if sel == 1 then
            CloudProjManager()
        elseif sel == 2 then
            SingleBuiltinLoader()
        elseif sel == 3 then
            GroupChat()
        end
        gg.sleep(100)
    end
end

Main()