mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-17 13:53:45 +03:00
Upload
This commit is contained in:
lifestorm
56
lua/pac3/extra/client/contraption.lua
Normal file
56
lua/pac3/extra/client/contraption.lua
Normal file
@@ -0,0 +1,56 @@
|
||||
--[[
|
||||
| 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 L = pace.LanguageString
|
||||
|
||||
pace.AddTool(L"spawn as props", function(part)
|
||||
local data = pacx.PartToContraptionData(part)
|
||||
net.Start("pac_to_contraption")
|
||||
net.WriteTable(data)
|
||||
net.SendToServer()
|
||||
end)
|
||||
|
||||
function pacx.PartToContraptionData(part, tbl)
|
||||
tbl = tbl or {}
|
||||
|
||||
if part.is_model_part then
|
||||
local data = {}
|
||||
|
||||
local color = part:GetColor()
|
||||
local alpha = part:GetAlpha()
|
||||
|
||||
if part.ProperColorRange then
|
||||
data.clr = Color(color.r * 255, color.g * 255, color.b * 255, alpha * 255)
|
||||
else
|
||||
data.clr = Color(color.r, color.g, color.b, alpha * 255)
|
||||
end
|
||||
|
||||
data.ang = part:GetOwner():GetAngles()
|
||||
data.pos = part:GetOwner():GetPos()
|
||||
data.mat = part:GetMaterial()
|
||||
data.mdl = part:GetModel()
|
||||
data.skn = part:GetSkin()
|
||||
|
||||
local size = part:GetSize()
|
||||
data.scale = part:GetScale()*size
|
||||
|
||||
data.id = part.UniqueID
|
||||
|
||||
table.insert(tbl, data)
|
||||
end
|
||||
|
||||
for key, part in ipairs(part:GetChildren()) do
|
||||
if part.is_model_part then
|
||||
pacx.PartToContraptionData(part, tbl)
|
||||
end
|
||||
end
|
||||
|
||||
return tbl
|
||||
end
|
||||
17
lua/pac3/extra/client/init.lua
Normal file
17
lua/pac3/extra/client/init.lua
Normal file
@@ -0,0 +1,17 @@
|
||||
--[[
|
||||
| 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/
|
||||
--]]
|
||||
|
||||
pacx = pacx or {}
|
||||
|
||||
include("pac3/extra/shared/init.lua")
|
||||
|
||||
include("contraption.lua")
|
||||
include("pac2_compat.lua")
|
||||
include("wire_expression_extension.lua")
|
||||
590
lua/pac3/extra/client/pac2_compat.lua
Normal file
590
lua/pac3/extra/client/pac2_compat.lua
Normal file
@@ -0,0 +1,590 @@
|
||||
--[[
|
||||
| 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 bones = {
|
||||
["pelvis"] = "valvebiped.bip01_pelvis",
|
||||
["spine"] = "valvebiped.bip01_spine",
|
||||
["spine 2"] = "valvebiped.bip01_spine1",
|
||||
["spine 3"] = "valvebiped.bip01_spine2",
|
||||
["spine 4"] = "valvebiped.bip01_spine4",
|
||||
["neck"] = "valvebiped.bip01_neck1",
|
||||
["head"] = "valvebiped.bip01_head1",
|
||||
["right clavicle"] = "valvebiped.bip01_r_clavicle",
|
||||
["right upper arm"] = "valvebiped.bip01_r_upperarm",
|
||||
["right upperarm"] = "valvebiped.bip01_r_upperarm",
|
||||
["right forearm"] = "valvebiped.bip01_r_forearm",
|
||||
["right hand"] = "valvebiped.bip01_r_hand",
|
||||
["left clavicle"] = "valvebiped.bip01_l_clavicle",
|
||||
["left upper arm"] = "valvebiped.bip01_l_upperarm",
|
||||
["left upperarm"] = "valvebiped.bip01_l_upperarm",
|
||||
["left forearm"] = "valvebiped.bip01_l_forearm",
|
||||
["left hand"] = "valvebiped.bip01_l_hand",
|
||||
["right thigh"] = "valvebiped.bip01_r_thigh",
|
||||
["right calf"] = "valvebiped.bip01_r_calf",
|
||||
["right foot"] = "valvebiped.bip01_r_foot",
|
||||
["right toe"] = "valvebiped.bip01_r_toe0",
|
||||
["left thigh"] = "valvebiped.bip01_l_thigh",
|
||||
["left calf"] = "valvebiped.bip01_l_calf",
|
||||
["left foot"] = "valvebiped.bip01_l_foot",
|
||||
["left toe"] = "valvebiped.bip01_l_toe0",
|
||||
}
|
||||
|
||||
local function translate_bone(bone)
|
||||
if bones[bone] then return bones[bone] end
|
||||
if not bone.lower then debug.Trace() return "" end
|
||||
bone = bone:lower()
|
||||
for key, val in pairs(bones) do
|
||||
if bone == val then
|
||||
return key
|
||||
end
|
||||
end
|
||||
|
||||
return bone
|
||||
end
|
||||
|
||||
function pacx.ConvertPAC2Config(data, name)
|
||||
local _out = {}
|
||||
|
||||
local base = pac.CreatePart("group")
|
||||
base:SetName(name or "pac2 outfit")
|
||||
|
||||
for key, data in pairs(data.parts) do
|
||||
if data.sprite.Enabled then
|
||||
local part = pac.CreatePart("sprite")
|
||||
part:SetParent(base)
|
||||
part.pac2_part = data
|
||||
part:SetName(data.name .. " sprite")
|
||||
|
||||
part:SetBone(translate_bone(data.bone))
|
||||
|
||||
part:SetColor(Vector(data.sprite.color.r, data.sprite.color.g, data.sprite.color.b))
|
||||
part:SetAlpha(data.sprite.color.a / 255)
|
||||
|
||||
part:SetPosition(data.offset*1)
|
||||
part:SetAngles(data.angles*1)
|
||||
--part:SetAngleVelocity(Angle(data.anglevelocity.p, -data.anglevelocity.r, data.anglevelocity.y)*0.5)
|
||||
|
||||
part:SetMaterial(data.sprite.material)
|
||||
part:SetSizeX(data.sprite.x)
|
||||
part:SetSizeY(data.sprite.y)
|
||||
part:SetEyeAngles(data.eyeangles)
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part.Name .. " weapon class")
|
||||
part_:SetParent(part)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
|
||||
if data.light.Enabled then
|
||||
local part = pac.CreatePart("light")
|
||||
part:SetParent(base)
|
||||
part.pac2_part = data
|
||||
part:SetName(data.name .. " light")
|
||||
|
||||
part:SetBone(translate_bone(data.bone))
|
||||
|
||||
part:SetColor(Vector(data.light.r, data.light.g, data.light.b))
|
||||
|
||||
part:SetPosition(data.offset*1)
|
||||
part:SetAngles(data.angles*1)
|
||||
--part:SetAngleVelocity(Angle(data.anglevelocity.p, -data.anglevelocity.r, data.anglevelocity.y)*0.5)
|
||||
|
||||
part:SetBrightness(data.light.Brightness)
|
||||
part:SetSize(data.light.Size)
|
||||
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part.Name .. " weapon class")
|
||||
part_:SetParent(part)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
|
||||
if data.text.Enabled then
|
||||
local part = pac.CreatePart("text")
|
||||
part:SetParent(base)
|
||||
part.pac2_part = data
|
||||
part:SetName(data.name .. " text")
|
||||
|
||||
part:SetBone(translate_bone(data.bone))
|
||||
|
||||
part:SetColor(Vector(data.text.color.r, data.text.color.g, data.text.color.b))
|
||||
part:SetAlpha(data.text.color.a / 255)
|
||||
|
||||
part:SetColor(Vector(data.text.outlinecolor.r, data.text.outlinecolor.g, data.text.outlinecolor.b))
|
||||
part:SetAlpha(data.text.outlinecolor.a / 255)
|
||||
|
||||
part:SetPosition(data.offset*1)
|
||||
part:SetAngles(data.angles*1)
|
||||
--part:SetAngleVelocity(Angle(data.anglevelocity.p, -data.anglevelocity.r, data.anglevelocity.y)*0.5)
|
||||
|
||||
part:SetOutline(data.text.outline)
|
||||
part:SetText(data.text.text)
|
||||
part:SetFont(data.text.font)
|
||||
part:SetSize(data.text.size)
|
||||
part:SetEyeAngles(data.eyeangles)
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part.Name .. " weapon class")
|
||||
part_:SetParent(part)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
|
||||
if data.trail.Enabled then
|
||||
local part = pac.CreatePart("trail")
|
||||
part:SetParent(base)
|
||||
part.pac2_part = data
|
||||
part:SetName(data.name .. " trail")
|
||||
part:SetBone(translate_bone(data.bone))
|
||||
|
||||
part:SetPosition(data.offset*1)
|
||||
part:SetAngles(data.angles*1)
|
||||
--part:SetAngleVelocity(Angle(data.anglevelocity.p, -data.anglevelocity.r, data.anglevelocity.y)*0.5)
|
||||
|
||||
part:SetStartSize(data.trail.startsize)
|
||||
|
||||
part:SetStartColor(Vector(data.trail.color.r, data.trail.color.g, data.trail.color.b))
|
||||
part:SetEndColor(Vector(data.trail.color.r, data.trail.color.g, data.trail.color.b))
|
||||
|
||||
part:SetStartAlpha(data.trail.color.a/255)
|
||||
part:SetEndAlpha(data.trail.color.a/255)
|
||||
|
||||
part:SetSpacing(0)
|
||||
|
||||
part:SetMaterial(data.trail.material)
|
||||
part:SetLength(data.trail.length)
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part.Name .. " weapon class")
|
||||
part_:SetParent(part)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
|
||||
if true or data.color.a ~= 0 and data.size ~= 0 and data.scale ~= vector_origin or data.effect.Enabled then
|
||||
local part = pac.CreatePart("model")
|
||||
part:SetParent(base)
|
||||
part.pac2_part = data
|
||||
part:SetName(data.name .. " model")
|
||||
part:SetBone(translate_bone(data.bone))
|
||||
|
||||
part:SetMaterial(data.material)
|
||||
|
||||
part:SetColor(Vector(data.color.r, data.color.g, data.color.b))
|
||||
part:SetAlpha(data.color.a / 255)
|
||||
|
||||
part:SetModel(data.model)
|
||||
part:SetSize(data.size)
|
||||
part:SetScale(data.scale*1)
|
||||
|
||||
part:SetPosition(data.offset*1)
|
||||
part:SetAngles(data.angles*1)
|
||||
--part:SetAngleVelocity(Angle(data.anglevelocity.p, -data.anglevelocity.r, data.anglevelocity.y)*0.5)
|
||||
|
||||
part:SetInvert(data.mirrored)
|
||||
part:SetFullbright(data.fullbright)
|
||||
part:SetEyeAngles(data.eyeangles)
|
||||
|
||||
if data.effect.Enabled then
|
||||
local part2 = pac.CreatePart("effect")
|
||||
part2:SetName(data.name .. " effect")
|
||||
part2:SetParent(part)
|
||||
part2:SetBone(translate_bone(data.bone))
|
||||
|
||||
part2:SetLoop(data.effect.loop)
|
||||
part2:SetRate(data.effect.rate)
|
||||
part2:SetEffect(data.effect.effect)
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part2.Name .. " weapon class")
|
||||
part_:SetParent(part2)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
|
||||
if data.clip.Enabled then
|
||||
local part2 = part:CreatePart("clip")
|
||||
part2:SetName(data.name .. " clip")
|
||||
if data.clip.bone and data.clip.bone ~= "" then
|
||||
part2:SetBone(data.clip.bone)
|
||||
end
|
||||
part2:SetParent(part)
|
||||
part2:SetPosition(data.clip.angles:Forward() * data.clip.distance)
|
||||
part2:SetAngles(data.clip.angles*-1)
|
||||
end
|
||||
|
||||
if data.animation.Enabled then
|
||||
local part2 = part:CreatePart("animation")
|
||||
part2:SetParent(part)
|
||||
part2:SetName(data.name .. " animation")
|
||||
part2:SetSequenceName(data.animation.sequence or "")
|
||||
part2:SetRate(data.animation.rate)
|
||||
part2:SetMin(data.animation.min)
|
||||
part2:SetMax(data.animation.max)
|
||||
part2:SetOffset(data.animation.offset)
|
||||
part2:SetPingPongLoop(data.animation.loopmode)
|
||||
part:AddChild(part2)
|
||||
end
|
||||
|
||||
if data.modelbones.Enabled then
|
||||
part:SetBoneMerge(data.modelbones.merge)
|
||||
part.pac2_modelbone = data.modelbones.redirectparent
|
||||
|
||||
for key, bone in pairs(data.modelbones.bones) do
|
||||
bone.size = tonumber(bone.size)
|
||||
if
|
||||
bone.scale == Vector(1,1,1) and
|
||||
bone.angles == Vector(0,0,0) and
|
||||
bone.offset == Vector(0,0,0) and
|
||||
bone.size == 1
|
||||
then goto CONTINUE end
|
||||
|
||||
local part2 = pac.CreatePart("bone")
|
||||
part2:SetName("model bone " .. part:GetName() .. " " .. key)
|
||||
part2:SetParent(part)
|
||||
part2:SetBone(part:GetOwner():GetBoneName(key))
|
||||
|
||||
part2:SetScale(bone.scale*1)
|
||||
part2:SetAngles(bone.angles*1)
|
||||
part2:SetPosition(bone.offset*1)
|
||||
|
||||
part2:SetSize(bone.size)
|
||||
::CONTINUE::
|
||||
end
|
||||
end
|
||||
|
||||
if data.weaponclass and data.weaponclass ~= "" then
|
||||
local part_ = pac.CreatePart("event")
|
||||
part_:SetName(part.Name .. " weapon class")
|
||||
part_:SetParent(part)
|
||||
part_:SetEvent("weapon_class")
|
||||
part_:SetOperator("find simple")
|
||||
part_:SetInvert(true)
|
||||
part_:SetArguments(data.weaponclass .. "@@" .. (data.hideweaponclass and "1" or "0"))
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
local part = pac.CreatePart("entity")
|
||||
part:SetParent(base)
|
||||
part:SetName("player")
|
||||
|
||||
part:SetColor(Vector(data.player_color.r, data.player_color.g, data.player_color.b))
|
||||
part:SetAlpha(data.player_color.a/255)
|
||||
part:SetMaterial(data.player_material)
|
||||
part:SetScale(data.overall_scale*1)
|
||||
part:SetDrawWeapon(data.drawwep)
|
||||
|
||||
for bone, data in pairs(data.bones) do
|
||||
local part_ = pac.CreatePart("bone")
|
||||
part_:SetParent(part)
|
||||
part_:SetName(bone .. " bone")
|
||||
part_:SetBone(translate_bone(bone))
|
||||
part_:SetSize(tonumber(data.size))
|
||||
part_:SetScale(data.scale*1)
|
||||
part_:SetPosition(data.offset*1)
|
||||
part_:SetAngles(data.angles*1)
|
||||
end
|
||||
|
||||
for key, part in pairs(pac.GetLocalParts()) do
|
||||
if part.pac2_part and part.pac2_part.parent and part.pac2_part.parent ~= "none" then
|
||||
for key, parent in pairs(pac.GetLocalParts()) do
|
||||
if parent:GetName() == (part.pac2_part.parent .. " model") then
|
||||
part:SetParent(parent)
|
||||
if parent.pac2_modelbone then
|
||||
part:SetBone(translate_bone(parent.pac2_modelbone))
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- hacks
|
||||
|
||||
for key, part in pairs(pac.GetLocalParts()) do
|
||||
part:SetParent(part:GetParent())
|
||||
end
|
||||
|
||||
return base
|
||||
end
|
||||
|
||||
local glon = {}
|
||||
|
||||
do
|
||||
local function Read(reader, rtabs)
|
||||
local t, pos = reader:Peek()
|
||||
if not t then
|
||||
error(string.format("Expected type ID at %s! (Got EOF)",
|
||||
pos))
|
||||
else
|
||||
local dt = decode_types[string.byte(t)]
|
||||
if not dt then
|
||||
error(string.format("Unknown type ID, %s!",
|
||||
string.byte(t)))
|
||||
else
|
||||
return dt(reader, rtabs or {0})
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
local decode_types
|
||||
decode_types = {
|
||||
-- \2\6omg\1\6omgavalue\1\1
|
||||
[2 ] = function(reader, rtabs) -- table
|
||||
local t, c, pos = {}, reader:Next()
|
||||
rtabs[#rtabs+1] = t
|
||||
local stage = false
|
||||
local key
|
||||
while true do
|
||||
c, pos = reader:Peek()
|
||||
if c == "\1" then
|
||||
if stage then
|
||||
error(string.format("Expected value to match key at %s! (Got EO Table)",
|
||||
pos))
|
||||
else
|
||||
reader:Next()
|
||||
return t
|
||||
end
|
||||
else
|
||||
if stage then
|
||||
t[key] = Read(reader, rtabs)
|
||||
else
|
||||
key = Read(reader, rtabs)
|
||||
end
|
||||
stage = not stage
|
||||
end
|
||||
end
|
||||
end,
|
||||
[3 ] = function(reader, rtabs) -- array
|
||||
local t, i, c, pos = {}, 1, reader:Next()
|
||||
rtabs[#rtabs+1] = t
|
||||
while true do
|
||||
c, pos = reader:Peek()
|
||||
if c == "\1" then
|
||||
reader:Next()
|
||||
return t
|
||||
else
|
||||
t[i] = Read(reader, rtabs)
|
||||
i = i+1
|
||||
end
|
||||
end
|
||||
end,
|
||||
[4 ] = function(reader) -- false boolean
|
||||
reader:Next()
|
||||
return false
|
||||
end,
|
||||
[5 ] = function(reader) -- true boolean
|
||||
reader:Next()
|
||||
return true
|
||||
end,
|
||||
[6 ] = function(reader) -- number
|
||||
local s, c, pos, e = "", reader:Next()
|
||||
while true do
|
||||
c = reader:Next()
|
||||
if not c then
|
||||
error(string.format("Expected \1 to end number at %s! (Got EOF!)",
|
||||
pos))
|
||||
elseif c == "\1" then
|
||||
break
|
||||
else
|
||||
s = s..c
|
||||
end
|
||||
end
|
||||
if s == "" then s = "0" end
|
||||
local n = tonumber(s)
|
||||
if not n then
|
||||
error(string.format("Invalid number at %s! (%q)",
|
||||
pos, s))
|
||||
end
|
||||
return n
|
||||
end,
|
||||
[7 ] = function(reader) -- string
|
||||
local s, c, pos, e = "", reader:Next()
|
||||
while true do
|
||||
c = reader:Next()
|
||||
if not c then
|
||||
error(string.format("Expected unescaped \1 to end string at position %s! (Got EOF)",
|
||||
pos))
|
||||
elseif e then
|
||||
if c == "\3" then
|
||||
s = s.."\0"
|
||||
else
|
||||
s = s..c
|
||||
end
|
||||
e = false
|
||||
elseif c == "\2" then
|
||||
e = true
|
||||
elseif c == "\1" then
|
||||
s = string.gsub(s, "\4", "\"") -- unescape quotes
|
||||
return s
|
||||
else
|
||||
s = s..c
|
||||
end
|
||||
end
|
||||
end,
|
||||
[8 ] = function(reader) -- Vector
|
||||
local x = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local y = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local z = decode_types[6](reader)
|
||||
return Vector(x, y, z)
|
||||
end,
|
||||
[9 ] = function(reader) -- Angle
|
||||
local p = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local y = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local r = decode_types[6](reader)
|
||||
return Angle(p, y, r)
|
||||
end,
|
||||
[13 ] = function(reader) -- ConVar
|
||||
return GetConVar(decode_types[7](reader))
|
||||
end,
|
||||
[15 ] = function(reader) -- Color
|
||||
local r = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local g = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local b = decode_types[6](reader)
|
||||
reader:StepBack()
|
||||
local a = decode_types[6](reader)
|
||||
return Color(r, g, b, a)
|
||||
end,
|
||||
[253] = function(reader) -- -math.huge
|
||||
reader:Next()
|
||||
return -math.huge
|
||||
end,
|
||||
[254] = function(reader) -- math.huge
|
||||
reader:Next()
|
||||
return math.huge
|
||||
end,
|
||||
[255] = function(reader, rtabs) -- Reference
|
||||
return rtabs[decode_types[6](reader) - 1]
|
||||
end,
|
||||
}
|
||||
local reader_meta = {}
|
||||
reader_meta.__index = reader_meta
|
||||
function reader_meta:Next()
|
||||
self.i = self.i+1
|
||||
self.c = string.sub(self.s, self.i, self.i)
|
||||
if self.c == "" then self.c = nil end
|
||||
self.p = string.sub(self.s, self.i+1, self.i+1)
|
||||
if self.p == "" then self.p = nil end
|
||||
return self.c, self.i
|
||||
end
|
||||
function reader_meta:StepBack()
|
||||
self.i = self.i-1
|
||||
self.c = string.sub(self.s, self.i, self.i)
|
||||
if self.c == "" then self.c = nil end
|
||||
self.p = string.sub(self.s, self.i+1, self.i+1)
|
||||
if self.p == "" then self.p = nil end
|
||||
return self.c, self.i
|
||||
end
|
||||
function reader_meta:Peek()
|
||||
return self.p, self.i+1
|
||||
end
|
||||
function glon.decode(data)
|
||||
if data == nil then
|
||||
return nil
|
||||
elseif not isstring(data) then
|
||||
error(string.format("Expected string to decode! (Got type %s)",
|
||||
type(data)
|
||||
))
|
||||
elseif data:len() == 0 then
|
||||
return nil
|
||||
end
|
||||
|
||||
|
||||
return Read(setmetatable({
|
||||
s = data,
|
||||
i = 0,
|
||||
c = string.sub(data, 0, 0),
|
||||
p = string.sub(data, 1, 1),
|
||||
}, reader_meta), {})
|
||||
end
|
||||
end
|
||||
|
||||
concommand.Add("pac_convert_pac2_outfits", function()
|
||||
if not file.IsDir("pac2_outfits", "DATA") then
|
||||
pac.Message("garrysmod/data/pac2_outfits/ does not exist")
|
||||
return
|
||||
end
|
||||
|
||||
local folders = select(2, file.Find("pac2_outfits/*", "DATA"))
|
||||
|
||||
if #folders == 0 then
|
||||
pac.Message("garrysmod/data/pac2_outfits/ is empty")
|
||||
return
|
||||
end
|
||||
|
||||
for _, uniqueid in ipairs(folders) do
|
||||
local owner_nick = file.Read("pac2_outfits/" .. uniqueid .. "/__owner.txt", "DATA")
|
||||
|
||||
if not owner_nick then
|
||||
owner_nick = pac.LocalPlayer:Nick()
|
||||
pac.Message("garrysmod/data/pac2_outfits/" .. uniqueid .. "/__owner.txt does not exist (it contains the player nickname) defaulting to " .. owner_nick)
|
||||
end
|
||||
|
||||
local folders = select(2, file.Find("pac2_outfits/" .. uniqueid .. "/*", "DATA"))
|
||||
|
||||
if #folders == 0 then
|
||||
pac.Message("garrysmod/data/pac2_outfits/" .. uniqueid .. "/ is empty")
|
||||
return
|
||||
end
|
||||
|
||||
for _, folder_name in ipairs(folders) do
|
||||
local name = file.Read("pac2_outfits/" .. uniqueid .. "/" .. folder_name .. "/name.txt", "DATA")
|
||||
local data = file.Read("pac2_outfits/" .. uniqueid .. "/" .. folder_name .. "/outfit.txt", "DATA")
|
||||
|
||||
if not name then
|
||||
pac.Message("garrysmod/data/pac2_outfits/" .. uniqueid .. "/" .. folder_name .. "/name.txt does not exist. defaulting to: " .. folder_name)
|
||||
end
|
||||
|
||||
if data then
|
||||
pace.ClearParts()
|
||||
|
||||
local ok, res = pcall(function() pacx.ConvertPAC2Config(glon.decode(data), name) end)
|
||||
if ok then
|
||||
file.CreateDir("pac3/pac2_outfits/")
|
||||
file.CreateDir("pac3/pac2_outfits/" .. uniqueid .. "/")
|
||||
|
||||
pace.SaveParts("pac2_outfits/" .. uniqueid .. "/" .. folder_name)
|
||||
else
|
||||
pac.Message("garrysmod/data/pac2_outfits/" .. uniqueid .. "/" .. folder_name .. "(" .. name .. ") failed to convert : " .. res)
|
||||
end
|
||||
else
|
||||
pac.Message("garrysmod/data/pac2_outfits/" .. uniqueid .. "/" .. folder_name .. "/data.txt does not exist. this file contains the outfit data")
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
pace.ClearParts()
|
||||
|
||||
pac.Message("pac2 outfits are stored under pac > load > pac2_outfits in the editor")
|
||||
pac.Message("you may need to restart the editor to see them")
|
||||
end)
|
||||
96
lua/pac3/extra/client/wire_expression_extension.lua
Normal file
96
lua/pac3/extra/client/wire_expression_extension.lua
Normal file
@@ -0,0 +1,96 @@
|
||||
--[[
|
||||
| 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 IsValid = IsValid
|
||||
|
||||
hook.Add("pac_Initialized", "pac_e2_extension", function()
|
||||
if E2Helper then
|
||||
E2Helper.Descriptions["pacSetKeyValue"] = "Sets a property value on given part. Part unique id is recommended but you can also input name."
|
||||
end
|
||||
end)
|
||||
|
||||
local function SetKeyValue(ply, ent, unique_id, key, val)
|
||||
local set = "Set" .. key
|
||||
|
||||
if ent == game.GetWorld() then ent = pac.WorldEntity end
|
||||
|
||||
local part = pac.GetPartFromUniqueID(pac.Hash(ply), unique_id)
|
||||
if not IsValid( part ) then return end
|
||||
|
||||
if part:GetRootPart():GetOwner() == ent then
|
||||
if key == "EventHide" then
|
||||
part:SetEventTrigger(ent, val > 0)
|
||||
else
|
||||
local t1 = type(part[key])
|
||||
local t2 = type(val)
|
||||
|
||||
if t1 == "boolean" and t2 == "number" then
|
||||
t2 = "boolean"
|
||||
val = val > 0
|
||||
end
|
||||
|
||||
if t1 == t2 then
|
||||
part[set](part, val)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
net.Receive("pac_e2_setkeyvalue_str", function()
|
||||
local ply = net.ReadEntity()
|
||||
|
||||
if ply:IsValid() then
|
||||
local ent = net.ReadEntity()
|
||||
local id = net.ReadString()
|
||||
local key = net.ReadString()
|
||||
local val = net.ReadString()
|
||||
|
||||
SetKeyValue(ply, ent, id, key, val)
|
||||
end
|
||||
end)
|
||||
|
||||
net.Receive("pac_e2_setkeyvalue_vec", function()
|
||||
local ply = net.ReadEntity()
|
||||
|
||||
if ply:IsValid() then
|
||||
local ent = net.ReadEntity()
|
||||
local id = net.ReadString()
|
||||
local key = net.ReadString()
|
||||
local val = net.ReadVector()
|
||||
|
||||
SetKeyValue(ply, ent, id, key, val)
|
||||
end
|
||||
end)
|
||||
|
||||
net.Receive("pac_e2_setkeyvalue_ang", function()
|
||||
local ply = net.ReadEntity()
|
||||
|
||||
if ply:IsValid() then
|
||||
local ent = net.ReadEntity()
|
||||
local id = net.ReadString()
|
||||
local key = net.ReadString()
|
||||
local val = net.ReadAngle()
|
||||
|
||||
SetKeyValue(ply, ent, id, key, val)
|
||||
end
|
||||
end)
|
||||
|
||||
net.Receive("pac_e2_setkeyvalue_num", function()
|
||||
local ply = net.ReadEntity()
|
||||
|
||||
if ply:IsValid() then
|
||||
local ent = net.ReadEntity()
|
||||
local id = net.ReadString()
|
||||
local key = net.ReadString()
|
||||
local val = net.ReadFloat()
|
||||
|
||||
SetKeyValue(ply, ent, id, key, val)
|
||||
end
|
||||
end)
|
||||
Reference in New Issue
Block a user