Comet Saveinstance.lua

-- stop skidding bro

getgenv().saveinstance = function(saving)
 local ScreenGui = Instance.new("ScreenGui")
 local TextLabel = Instance.new("TextLabel")
 
 ScreenGui.Parent = gethui()
 ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
 
 TextLabel.Parent = ScreenGui
 TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
 TextLabel.BorderSizePixel = 0
 TextLabel.Position = UDim2.new(1, -300, 0.5, -50)
 TextLabel.Size = UDim2.new(0, 300, 0, 100)
 TextLabel.Font = Enum.Font.FredokaOne
 TextLabel.Text = "If you have any questions or issues, make sure to report them by pinging @theunrealninja in the discord!"
 TextLabel.TextColor3 = Color3.fromRGB(0, 0, 0)
 TextLabel.TextScaled = true
 TextLabel.TextWrapped = true
 if not saving then saving = {workspace,game.Lighting,game.ReplicatedFirst,game.ReplicatedStorage,game.StarterGui,game.StarterPack,game.Teams} end 
 getgenv().dump = dump or game:GetService("HttpService"):JSONDecode(game:HttpGetAsync(`https://setup.rbxcdn.com/{game:HttpGetAsync("https://setup.rbxcdn.com/versionQTStudio")}-API-Dump.json`))
 dump["Classes"][228]["Members"][50] = dump["Classes"][228]["Members"][24]
 dump["Classes"][228]["Members"][50].Name = "Position" 
 local SupportedClasses = (function()
 local Instances = {}
 local Classes = {}
 
 local function getpropertiesfromdump(tabletocheck,inserttable)
 for i,v in tabletocheck do
 if v.MemberType == "Property" then
 local Tags = v.Tags
 if Tags then
 if not table.find(Tags,"Deprecated") and not table.find(Tags,"NotScriptable") and not table.find(Tags,"Hidden") then
 if v.ValueType.Category == "Enum" then
 table.insert(inserttable,{v.Name, "Enum"})
 else
 table.insert(inserttable,{v.Name, v.ValueType.Name})
 end
 end
 else
 if v.ValueType.Category == "Enum" then
 table.insert(inserttable,{v.Name, "Enum"})
 else
 table.insert(inserttable,{v.Name, v.ValueType.Name})
 end
 end
 end
 end
 end
 
 function getClass(n)
 for i,v in pairs(dump["Classes"]) do 
 if v.Name == n then 
 return v 
 end
 end
 end

 for i,v in dump.Classes do
 if v.Superclass == "<<<ROOT>>>" then
 getpropertiesfromdump(v.Members,Instances)
 else
 Classes[v.Name] = (function()
 local Properties = {}
 getpropertiesfromdump(v.Members,Properties)
 local re = getClass(v.Superclass)
 repeat 
 getpropertiesfromdump(re.Members,Properties)
 re = getClass(re.Superclass)
 until not re or re.Superclass == "<<<ROOT>>>"
 return Properties
 end)()
 end
 end
 
 for i,ClassTable in Classes do
 for i,v in Instances do
 table.insert(ClassTable,v)
 end
 end
 
 return Classes
 end)()
 table.insert(SupportedClasses["UnionOperation"],{"AssetId", "Content"})
 table.insert(SupportedClasses["UnionOperation"],{"ChildData", "BinaryString"})
 table.insert(SupportedClasses["UnionOperation"],{"FormFactor", "Enum"})
 table.insert(SupportedClasses["UnionOperation"],{"InitialSize", "Vector3"})
 table.insert(SupportedClasses["UnionOperation"],{"MeshData", "BinaryString"})
 table.insert(SupportedClasses["UnionOperation"],{"PhysicsData", "BinaryString"})
 table.insert(SupportedClasses["MeshPart"], {"PhysicsData", "BinaryString"})
 table.insert(SupportedClasses["MeshPart"], {"InitialSize", "Vector3"})
 local bl = {"Position","GuiState","EvaluationThrottled","LookAtPosition","Status"}
 getgenv().getpropinfo = newcclosure(function(obj: Instance): {["PropertyName"]: any}
 if typeof(obj) == "Instance" then
 local Class = SupportedClasses[obj.ClassName]
 local Properties = {}
 
 for i,v in Class do
 if not table.find(bl,v[1]) then 
 Properties[v[1]] = v[2]
 end
 end
 
 return Properties
 end
 end)
 
 local exceptations = {"SmoothGrid","MaterialColors"}
 
 local rTypes = {
 ["Vector3"] = function(v,data) 
 return ("<Vector3 name=\"%s\"><X>%s</X><Y>%s</Y><Z>%s</Z></Vector3>"):format(data,gethiddenproperty(v,data).X,gethiddenproperty(v,data).Y,gethiddenproperty(v,data).Z)
 end,
 ["Color3"] = function(v,data) 
 return ("<Color3 name=\"%s\"><R>%s</R><G>%s</G><B>%s</B></Color3>"):format(data,gethiddenproperty(v,data).R,gethiddenproperty(v,data).G,gethiddenproperty(v,data).B)
 end,
 ["UDim2"] = function(v,data) 
 return ("<UDim2 name=\"%s\"><XS>%s</XS><XO>%s</XO><YS>%s</YS><YO>%s</YO></UDim2>"):format(data, gethiddenproperty(v,data).X.Scale, gethiddenproperty(v,data).X.Offset, gethiddenproperty(v,data).Y.Scale, gethiddenproperty(v,data).Y.Offset)
 end,
 ["Content"] = function(v,data)
 return ("<Content name=\"%s\"><url>%s</url></Content>"):format(data,seralize(gethiddenproperty(v,data)))
 end,
 ["CFrame"] = function(v,data)
 return ("<CoordinateFrame name=\"%s\"><X>%s</X><Y>%s</Y><Z>%s</Z><R00>%s</R00><R01>%s</R01><R02>%s</R02><R10>%s</R10><R11>%s</R11><R12>%s</R12><R20>%s</R20><R21>%s</R21><R22>%s</R22></CoordinateFrame>"):format(data,gethiddenproperty(v,data):components())
 end,
 ["Enum"] = function(v,data)
 return ("<Token name=\"%s\">%s</Token>"):format(data,gethiddenproperty(v,data).Value)
 end,
 ["BinaryString"] = function(v,data)
 if table.find(exceptations,data) then
 return ("<![CDATA[%s]]>"):format(crypt.base64.encode(gethiddenproperty(v,data)))
 else
 return crypt.base64.encode(gethiddenproperty(v,data))
 end
 end,
 ["Instance"] = function(...) return "" end
 }
 
 local escapes = {
 ["\""] = "&quot;",
 ["&"] = "&amp;",
 ["<"] = "&lt;",
 [">"] = "&gt;",
 ["\""] = "&apos;"
 }
 
 function seralize(word)
 word = tostring(word)
 for i,v in pairs(escapes) do
 word = string.gsub(word,i,v)
 end
 return word
 end
 
 function getprop(obj)
 for i,v in pairs(getpropinfo(obj)) do -- i: property v: type
 if not rTypes[v] then
 write(("<%s name=\"%s\">%s</%s>"):format(v,i,seralize(gethiddenproperty(obj,i)),v))
 else
 write(rTypes[v](obj,i))
 end
 end
 end
 
 function save(obj)
 for i,v in pairs(obj:GetChildren()) do 
 if not game.Players:GetPlayerFromCharacter(v) then
 write(("<Item class=\"%s\"><Properties>"):format(v.ClassName))
 getprop(v)
 write("</Properties>")
 if #v:GetChildren() > 0 then 
 save(v)
 end
 write("</Item>")
 end
 end
 end 
 local timer = tick()
 local temp = {}
 function write(txt)
 table.insert(temp,txt)
 end
 write([[<roblox xmlns:xmime="http://www.w3.org/2005/05/xmlmime" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.roblox.com/roblox.xsd" version="4">]])

 for i,v in saving do task.wait()
 write(("<Item class=\"%s\"><Properties>"):format(v.ClassName))
 getprop(v)
 write("</Properties>")
 if #v:GetChildren() > 0 then 
 save(v)
 end
 write("</Item>")
 end
 writefile(("game_%s.rbxlx"):format(game.PlaceId),table.concat(temp," ").."</roblox>")
 print(("Done! Took %ss"):format(math.round((tick()-timer)*100)/100)) 
end