mirror of
https://github.com/lifestorm/wnsrc.git
synced 2025-12-18 22:23:46 +03:00
Upload
This commit is contained in:
lifestorm
344
lua/pac3/editor/client/wear.lua
Normal file
344
lua/pac3/editor/client/wear.lua
Normal file
@@ -0,0 +1,344 @@
|
||||
--[[
|
||||
| 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
|
||||
|
||||
function pace.IsPartSendable(part)
|
||||
|
||||
if part:HasParent() then return false end
|
||||
if not part:GetShowInEditor() then return false end
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
function pace.WearOnServer(filter)
|
||||
local toWear = {}
|
||||
|
||||
for key, part in pairs(pac.GetLocalParts()) do
|
||||
if pace.IsPartSendable(part) then
|
||||
table.insert(toWear, part)
|
||||
end
|
||||
end
|
||||
|
||||
local transmissionID = math.random(1, 0x7FFFFFFF)
|
||||
|
||||
for i, part in ipairs(toWear) do
|
||||
pace.SendPartToServer(part, {
|
||||
partID = i,
|
||||
totalParts = #toWear,
|
||||
transmissionID = transmissionID,
|
||||
temp_wear_filter = filter,
|
||||
})
|
||||
end
|
||||
end
|
||||
|
||||
function pace.ClearParts()
|
||||
pace.ClearUndo()
|
||||
pac.RemoveAllParts(true, true)
|
||||
pace.RefreshTree()
|
||||
|
||||
timer.Simple(0.1, function()
|
||||
if not pace.Editor:IsValid() then return end
|
||||
|
||||
if table.Count(pac.GetLocalParts()) == 0 then
|
||||
pace.Call("CreatePart", "group", L"my outfit")
|
||||
end
|
||||
|
||||
pace.TrySelectPart()
|
||||
end)
|
||||
end
|
||||
|
||||
|
||||
|
||||
do -- to server
|
||||
local function net_write_table(tbl)
|
||||
|
||||
local buffer = pac.StringStream()
|
||||
buffer:writeTable(tbl)
|
||||
|
||||
local data = buffer:getString()
|
||||
local ok, err = pcall(net.WriteStream, data)
|
||||
|
||||
if not ok then
|
||||
return ok, err
|
||||
end
|
||||
|
||||
return #data
|
||||
end
|
||||
|
||||
function pace.SendPartToServer(part, extra)
|
||||
local allowed, reason = pac.CallHook("CanWearParts", pac.LocalPlayer)
|
||||
|
||||
if allowed == false then
|
||||
pac.Message(reason or "the server doesn't want you to wear parts for some reason")
|
||||
return false
|
||||
end
|
||||
|
||||
if not pace.IsPartSendable(part) then return false end
|
||||
|
||||
local data = {part = part:ToTable()}
|
||||
|
||||
if extra then
|
||||
table.Merge(data, extra)
|
||||
end
|
||||
|
||||
data.owner = part:GetPlayerOwner()
|
||||
data.wear_filter = pace.CreateWearFilter()
|
||||
|
||||
net.Start("pac_submit")
|
||||
|
||||
local bytes, err = net_write_table(data)
|
||||
|
||||
if not bytes then
|
||||
pace.Notify(false, "unable to transfer data to server: " .. tostring(err or "too big"), pace.pac_show_uniqueid:GetBool() and string.format("%s (%s)", part:GetName(), part:GetPrintUniqueID()) or part:GetName())
|
||||
return false
|
||||
end
|
||||
|
||||
net.SendToServer()
|
||||
pac.Message(('Transmitting outfit %q to server (%s)'):format(part.Name or part.ClassName or '<unknown>', string.NiceSize(bytes)))
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
function pace.RemovePartOnServer(name, server_only, filter)
|
||||
local data = {part = name, server_only = server_only, filter = filter}
|
||||
|
||||
if name == "__ALL__" then
|
||||
pace.CallHook("RemoveOutfit", pac.LocalPlayer)
|
||||
end
|
||||
|
||||
net.Start("pac_submit")
|
||||
local ret,err = net_write_table(data)
|
||||
if ret == nil then
|
||||
pace.Notify(false, "unable to transfer data to server: "..tostring(err or "too big"), name)
|
||||
return false
|
||||
end
|
||||
net.SendToServer()
|
||||
|
||||
return true
|
||||
end
|
||||
end
|
||||
|
||||
do -- from server
|
||||
function pace.WearPartFromServer(owner, part_data, data, doItNow)
|
||||
pac.dprint("received outfit %q from %s with %i number of children to set on %s", part_data.self.Name or "", tostring(owner), table.Count(part_data.children), part_data.self.OwnerName or "")
|
||||
|
||||
if pace.CallHook("WearPartFromServer", owner, part_data, data) == false then return end
|
||||
|
||||
local dupepart = pac.GetPartFromUniqueID(data.player_uid, part_data.self.UniqueID)
|
||||
|
||||
if dupepart:IsValid() then
|
||||
pac.dprint("removing part %q to be replaced with the part previously received", dupepart.Name)
|
||||
dupepart:Remove()
|
||||
end
|
||||
|
||||
local dupeEnt
|
||||
|
||||
-- safe guard
|
||||
if data.is_dupe then
|
||||
local id = tonumber(part_data.self.OwnerName)
|
||||
dupeEnt = Entity(id or -1)
|
||||
if not dupeEnt:IsValid() then
|
||||
return
|
||||
end
|
||||
end
|
||||
|
||||
local function load_outfit()
|
||||
if dupeEnt and not dupeEnt:IsValid() then return end
|
||||
|
||||
dupepart = pac.GetPartFromUniqueID(data.player_uid, part_data.self.UniqueID)
|
||||
|
||||
if dupepart:IsValid() then
|
||||
pac.dprint("removing part %q to be replaced with the part previously received ON callback call", dupepart.Name)
|
||||
dupepart:Remove()
|
||||
end
|
||||
|
||||
owner.pac_render_time_exceeded = false
|
||||
|
||||
-- specify "level" as 1 so we can delay CalcShowHide recursive call until we are ready
|
||||
local part = pac.CreatePart(part_data.self.ClassName, owner, part_data, false, 1)
|
||||
|
||||
if data.is_dupe then
|
||||
part.dupe_remove = true
|
||||
end
|
||||
|
||||
if owner == pac.LocalPlayer then
|
||||
pace.CallHook("OnWoreOutfit", part)
|
||||
end
|
||||
|
||||
part:CallRecursive('OnWorn')
|
||||
part:CallRecursive('PostApplyFixes')
|
||||
|
||||
if part.UpdateOwnerName then
|
||||
part:UpdateOwnerName(true)
|
||||
part:CallRecursive("CalcShowHide", true)
|
||||
end
|
||||
|
||||
owner.pac_fix_show_from_render = SysTime() + 1
|
||||
end
|
||||
|
||||
if doItNow then
|
||||
load_outfit()
|
||||
end
|
||||
|
||||
return load_outfit
|
||||
end
|
||||
|
||||
function pace.RemovePartFromServer(owner, part_name, data)
|
||||
pac.dprint("%s removed %q", tostring(owner), part_name)
|
||||
|
||||
if part_name == "__ALL__" then
|
||||
pac.RemovePartsFromUniqueID(data.player_uid)
|
||||
|
||||
pace.CallHook("RemoveOutfit", owner)
|
||||
pac.CleanupEntityIgnoreBound(owner)
|
||||
else
|
||||
local part = pac.GetPartFromUniqueID(data.player_uid, part_name)
|
||||
|
||||
if part:IsValid() then
|
||||
part:Remove()
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function pace.HandleReceiveData(data, doitnow)
|
||||
local T = type(data.part)
|
||||
|
||||
if T == "table" then
|
||||
return pace.WearPartFromServer(data.owner, data.part, data, doitnow)
|
||||
elseif T == "string" then
|
||||
return pace.RemovePartFromServer(data.owner, data.part, data)
|
||||
else
|
||||
ErrorNoHalt("PAC: Unhandled "..T..'!?\n')
|
||||
end
|
||||
end
|
||||
|
||||
net.Receive("pac_submit", function()
|
||||
if not pac.IsEnabled() then return end
|
||||
|
||||
net.ReadStream(ply, function(data)
|
||||
if not data then
|
||||
pac.Message("message from server timed out")
|
||||
return
|
||||
end
|
||||
|
||||
local buffer = pac.StringStream(data)
|
||||
local data = buffer:readTable()
|
||||
|
||||
if type(data.owner) ~= "Player" or not data.owner:IsValid() then
|
||||
pac.Message("received message from server but owner is not valid!? typeof " .. type(data.owner) .. ' || ', data.owner)
|
||||
return
|
||||
end
|
||||
|
||||
if pac.IsPacOnUseOnly() and data.owner ~= pac.LocalPlayer then
|
||||
pace.HandleOnUseReceivedData(data)
|
||||
else
|
||||
pace.HandleReceiveData(data, true)
|
||||
end
|
||||
end)
|
||||
end)
|
||||
|
||||
function pace.Notify(allowed, reason, name)
|
||||
name = name or "???"
|
||||
|
||||
if allowed == true then
|
||||
pac.Message(string.format('Your part %q has been applied', name))
|
||||
else
|
||||
chat.AddText(Color(255, 255, 0), "[PAC3] ", Color(255, 0, 0), string.format('The server rejected applying your part (%q) - %s', name, reason))
|
||||
end
|
||||
end
|
||||
|
||||
net.Receive("pac_submit_acknowledged", function(umr)
|
||||
pace.Notify(net.ReadBool(), net.ReadString(), net.ReadString())
|
||||
end)
|
||||
|
||||
do
|
||||
local function LoadUpDefault()
|
||||
if next(pac.GetLocalParts()) then
|
||||
pac.Message("not wearing autoload outfit, already wearing something")
|
||||
elseif pace.IsActive() then
|
||||
pac.Message("not wearing autoload outfit, editor is open")
|
||||
else
|
||||
local autoload_file = "autoload"
|
||||
local autoload_result = hook.Run("PAC3Autoload", autoload_file)
|
||||
|
||||
if autoload_result ~= false then
|
||||
if isstring(autoload_result) then
|
||||
autoload_file = autoload_result
|
||||
end
|
||||
|
||||
pac.Message("Wearing " .. autoload_file .. "...")
|
||||
pace.LoadParts(autoload_file)
|
||||
pace.WearParts()
|
||||
end
|
||||
end
|
||||
|
||||
pac.RemoveHook("Think", "pac_request_outfits")
|
||||
pac.Message("Requesting outfits in 8 seconds...")
|
||||
|
||||
timer.Simple(8, function()
|
||||
pac.Message("Requesting outfits...")
|
||||
RunConsoleCommand("pac_request_outfits")
|
||||
end)
|
||||
end
|
||||
|
||||
local function Initialize()
|
||||
pac.RemoveHook("KeyRelease", "pac_request_outfits")
|
||||
|
||||
if not pac.LocalPlayer:IsValid() then
|
||||
return
|
||||
end
|
||||
|
||||
if not pac.IsEnabled() then
|
||||
pac.RemoveHook("Think", "pac_request_outfits")
|
||||
pace.NeverLoaded = true
|
||||
return
|
||||
end
|
||||
|
||||
LoadUpDefault()
|
||||
end
|
||||
|
||||
hook.Add("pac_Enable", "pac_LoadUpDefault", function()
|
||||
if not pace.NeverLoaded then return end
|
||||
pace.NeverLoaded = nil
|
||||
LoadUpDefault()
|
||||
end)
|
||||
|
||||
local frames = 0
|
||||
|
||||
pac.AddHook("Think", "pac_request_outfits", function()
|
||||
if RealFrameTime() > 0.2 then -- lag?
|
||||
return
|
||||
end
|
||||
|
||||
frames = frames + 1
|
||||
|
||||
if frames > 400 then
|
||||
if not xpcall(Initialize, ErrorNoHalt) then
|
||||
pac.RemoveHook("Think", "pac_request_outfits")
|
||||
pace.NeverLoaded = true
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
pac.AddHook("KeyRelease", "pac_request_outfits", function()
|
||||
local me = pac.LocalPlayer
|
||||
|
||||
if me:IsValid() and me:GetVelocity():Length() > 50 then
|
||||
frames = frames + 200
|
||||
|
||||
if frames > 400 then
|
||||
Initialize()
|
||||
end
|
||||
end
|
||||
end)
|
||||
end
|
||||
Reference in New Issue
Block a user