Upload

lua/pac3/core/client/parts/command.lua

@@ -0,0 +1,102 @@
+--[[
+| This file was obtained through the combined efforts
+| of Madbluntz & Plymouth Antiquarian Society.
+|
+| Credits: lifestorm, Gregory Wayne Rossel JR.,
+| 	Maloy, DrPepper10 @ RIP, Atle!
+|
+| Visit for more: https://plymouth.thetwilightzone.ru/
+--]]
+
+local BUILDER, PART = pac.PartTemplate("base")
+
+PART.ClassName = "command"
+
+PART.Group = "advanced"
+PART.Icon = "icon16/application_xp_terminal.png"
+
+BUILDER:StartStorableVars()
+	BUILDER:GetSet("String", "", {editor_panel = "string"})
+	BUILDER:GetSet("UseLua", false)
+	BUILDER:GetSet("ExecuteOnWear", false)
+	BUILDER:GetSet("ExecuteOnShow", true)
+BUILDER:EndStorableVars()
+
+local sv_allowcslua = GetConVar("sv_allowcslua")
+local function canRunLua()
+	return sv_allowcslua:GetBool() or pac.AllowClientsideLUA
+end
+
+function PART:OnWorn()
+	if self:GetExecuteOnWear() then
+		self:Execute()
+	end
+end
+
+function PART:OnShow(from_rendering)
+	if not from_rendering and self:GetExecuteOnShow() then
+		self:Execute()
+	end
+end
+
+function PART:SetUseLua(b)
+	self.UseLua = b
+	self:SetString(self:GetString())
+end
+
+function PART:SetString(str)
+	if self.UseLua and canRunLua() and self:GetPlayerOwner() == pac.LocalPlayer then
+		self.func = CompileString(str, "pac_event")
+	end
+
+	self.String = str
+end
+
+function PART:GetCode()
+	return self.String
+end
+
+function PART:SetCode(str)
+	self.String = str
+end
+
+function PART:ShouldHighlight(str)
+	return _G[str] ~= nil
+end
+
+function PART:GetNiceName()
+	if self.UseLua then
+		return ("lua: " .. self.String)
+	end
+	return "command: " .. self.String
+end
+
+function PART:Execute()
+	local ent = self:GetPlayerOwner()
+
+	if ent == pac.LocalPlayer then
+		if self.UseLua and self.func then
+			if canRunLua() then
+				local status, err = pcall(self.func)
+
+				if not status then
+					self:SetError(err)
+					ErrorNoHalt(err .. "\n")
+				end
+			else
+				local msg = "clientside lua is disabled (sv_allowcslua 0)"
+				self:SetError(msg)
+				pac.Message(tostring(self) .. " - ".. msg)
+			end
+		else
+			if hook.Run("PACCanRunConsoleCommand", self.String) == false then return end
+			if IsConCommandBlocked(self.String) then
+				self:SetError("Concommand is blocked")
+				return
+			end
+			ent:ConCommand(self.String)
+		end
+	end
+end
+
+BUILDER:Register()