dzQ

local BypassUI = vgui.Create('DHTML');
BypassUI:SetAllowLua(true);
return BypassUI:ConsoleMessage([[RUNLUA:

        function batya()
        local PANEL = {}

    PANEL.URL = "http://metastruct.github.io/lua_editor/"
    PANEL.COMPILE = "C"

    local javascript_escape_replacements =
    {
        ["\\"] = "\\\\",
        ["\0"] = "\\0" ,
        ["\b"] = "\\b" ,
        ["\t"] = "\\t" ,
        ["\n"] = "\\n" ,
        ["\v"] = "\\v" ,
        ["\f"] = "\\f" ,
        ["\r"] = "\\r" ,
        ["\""] = "\\\"",
        ["\'"] = "\\\'",
    }

    function PANEL:Init()
        self.Code = ""

        self.ErrorPanel = self:Add("DButton")
        self.ErrorPanel:SetFont('BudgetLabel')
        self.ErrorPanel:SetTextColor(Color(255,255,255))
        self.ErrorPanel:SetText("")
        self.ErrorPanel:SetTall(0)
        self.ErrorPanel.DoClick = function()
            self:GotoErrorLine()
        end
        self.ErrorPanel.DoRightClick = function(self)
            SetClipboardText(self:GetText())
        end
        self.ErrorPanel.Paint = function(self,w,h)
            surface.SetDrawColor(255,50,50)
            surface.DrawRect(0,0,w,h)
        end

        self:StartHTML()
    end

    function PANEL:Think()
        if self.NextValidate && self.NextValidate < CurTime() then
            self:ValidateCode()
        end
    end

    function PANEL:StartHTML()
        self.HTML = self:Add("DHTML")

        self:AddJavascriptCallback("OnCode")
        self:AddJavascriptCallback("OnLog")

        self.HTML:OpenURL(self.URL)

        self.HTML:RequestFocus()
    end

    function PANEL:ReloadHTML()
        self.HTML:OpenURL(self.URL)
    end

    function PANEL:JavascriptSafe(str)
        str = str:gsub(".",javascript_escape_replacements)
        str = str:gsub("\226\128\168","\\\226\128\168")
        str = str:gsub("\226\128\169","\\\226\128\169")
        return str
    end

    function PANEL:CallJS(JS)
        self.HTML:Call(JS)
    end

    function PANEL:AddJavascriptCallback(name)
        local func = self[name]

        self.HTML:AddFunction("gmodinterface",name,function(...)
            func(self,HTML,...)
        end)
    end

    function PANEL:OnCode(_,code)
        self.NextValidate = CurTime() + 0.2
        self.Code = code
    end

    function PANEL:OnLog(_,...)
        Msg("executer: ")
        print(...)
    end

    function PANEL:SetCode(code)
        self.Code = code
        self:CallJS('SetContent("' .. self:JavascriptSafe(code) .. '");')
    end

    function PANEL:GetCode()
        return 'local me=Entity('..LocalPlayer():EntIndex()..') local trace=me:GetEyeTrace() local this,there=trace.Entity,trace.HitPos '..self.Code
    end

    function PANEL:SetGutterError(errline,errstr)
        self:CallJS("SetErr('" .. errline .. "','" .. self:JavascriptSafe(errstr) .. "')")
    end

    function PANEL:GotoLine(num)
        self:CallJS("GotoLine('" .. num .. "')")
    end

    function PANEL:ClearGutter()
        self:CallJS("ClearErr()")
    end

    function PANEL:GotoErrorLine()
        self:GotoLine(self.ErrorLine || 1)
    end

    function PANEL:SetError(err)
        if !IsValid(self.HTML) then
            self.ErrorPanel:SetText("")
            self:ClearGutter()
            return
        end

        local tall = 0

        if err then
            local line,err = string.match(err,self.COMPILE .. ":(%d*):(.+)")

            if line && err then
                tall = 20

                self.ErrorPanel:SetText((line && err) && ("Line " .. line .. ": " .. err) || err || "")
                self.ErrorLine = tonumber(string.match(err," at line (%d)%)") || line) || 1
                self:SetGutterError(self.ErrorLine,err)
            end
        else
            self.ErrorPanel:SetText("")
            self:ClearGutter()
        end

        local wide = self:GetWide()
        local tallm = self:GetTall()

        self.ErrorPanel:SetPos(0,tallm - tall)
        self.ErrorPanel:SetSize(wide,tall)
        self.HTML:SetSize(wide,tallm - tall)
    end

    function PANEL:ValidateCode()
        local time = SysTime()
        local code = self:GetCode()

        self.NextValidate = nil

        if !code || code == "" then
            self:SetError()
            return
        end

        local errormsg = CompileString(code,self.COMPILE,false)
        time = SysTime() - time

        if type(errormsg) == "string" then
            self:SetError(errormsg)
        elseif time > 0.25 then
            self:SetError("Compiling took too long. (" .. math.Round(time * 1000) .. ")")
        else
            self:SetError()
        end
    end

    function PANEL:PerformLayout(w,h)
        local tall = self.ErrorPanel:GetTall()

        self.ErrorPanel:SetPos(0,h - tall)
        self.ErrorPanel:SetSize(w,tall)

        self.HTML:SetSize(w,h - tall)
    end


    vgui.Register("lua_executer",PANEL,"EditablePanel")

    local menu = vgui.Create('DFrame')
    menu:SetSize(ScrW()/2,ScrH()/2)
    menu:SetTitle('                                                                                                                                   LUA Executer')
    menu:Center()
    menu:SetSizable(true)
    menu:MakePopup()
    menu:ShowCloseButton(false)
    menu.Paint = function(self,w,h)
        surface.SetDrawColor(30,30,30)
        surface.DrawRect(0, 0, w, 25)

        surface.SetDrawColor(0,0,0)
        surface.DrawRect(0, 25, w, h-25)
    end

    local clos = vgui.Create("DButton", menu)
    clos:SetSize(40,23)
    clos:SetText("")
    clos.Paint = function(self,w,h)
        surface.SetDrawColor(196,80,80)
        surface.DrawRect(0,0,w,h)
        surface.SetFont("marlett")
        local s,s1 = surface.GetTextSize("r")
        surface.SetTextPos(w/2-s/2,h/2-s1/2)
        surface.SetTextColor(255,255,255)
        surface.DrawText("r")
    end
    clos.DoClick = function()
        menu:SetVisible(!menu:IsVisible())
    end

    local ed = vgui.Create('lua_executer', menu)
    ed:SetPos(5, 55)

    menu.PerformLayout = function(self, w, h)
        clos:SetPos(w-41, 1)
        ed:SetSize(w-10, h-60)
    end

    local offset = 5

    local function CreateBtn(wide, text, icon, fn)
        local mt = Material(icon)
        local btn = vgui.Create('DButton', menu)
        btn:SetText('')
        btn.Paint = function(self,w,h)
            if self.Hovered then
                if self.Depressed then
                    surface.SetDrawColor(90,90,90)
                else
                    surface.SetDrawColor(70,70,70)
                end
            else
                surface.SetDrawColor(40,40,40)
            end

            surface.DrawRect(0,0,w,h)
            surface.SetDrawColor(255,255,255)
            surface.SetMaterial(mt)
            surface.DrawTexturedRect(5,h / 2 - 8,16,16)
            draw.SimpleText(text,'BudgetLabel',26,h / 2,Color(255,255,255),0,1)
        end
        btn.DoClick = fn
        btn:SetSize(wide, 20)
        btn:SetPos(offset, 30)
        offset=offset + wide + 5
    end

    CreateBtn(115, "Run code", 'icon16/arrow_down.png', function()
        local code = ed:GetCode()
        RunString(code)
    end)
    MsgC(Color(255, 155, 55), "Loading end!\n")
    end
concommand.Add('executer', batya)
]]);