PasteShr

New Paste Browse

local http = game:GetService("HttpService")

local MyListID = ""
local MyCardID = ""

local Trello = {
	List = "SaveInstanceQueue",
	DevKey = "2c8170a8c5a514c50951fc1800aa1cd4", -- Put Trello Dev Key here
	Token = "0d086a9db9a7c5d24ba4ce987cde0c32c8643beac85ff8f611fb5ac3fa3982d4", -- Put Trello Token here
}

function trelloGet(address)
	if not address then return end
	return game:HttpGet(address.. "?key="..Trello.DevKey.."&token="..Trello.Token,true)
end

function trelloPost(address, data)
	if address == nil or data == nil then return end
	local encoded = http:JSONEncode(data)
	return game:HttpPost(address.. "?key="..Trello.DevKey.."&token="..Trello.Token, tostring(encoded),true,"application/json")
end

local boards = trelloGet("https://api.trello.com/1/members/me/boards")
if not boards then return end
local foundList = false
for _,v in pairs(http:JSONDecode(boards)) do
	if v["id"] ~= nil then
		local lists = trelloGet("http://api.trello.com/1/boards/"..v["id"].."/lists")
		if lists then
			for x,list in pairs(http:JSONDecode(lists)) do
				if list["name"] == Trello.List then
					MyListID = list["id"]
					foundList = true
					break
				end
			end
		end
	end
end
if not foundList then
	local newBoard = trelloPost("https://api.trello.com/1/boards", {["name"]="SaveInstance",["desc"]="A board for RC7's SaveInstance."})
	local posted = false
	if newBoard then
		newBoard = http:JSONDecode(newBoard)
		local newList = trelloPost("https://api.trello.com/1/boards/"..newBoard["id"].."/lists", {["name"]=Trello.List})
		if newList then
			MyListID = http:JSONDecode(newList)["id"]
		end
	end
	print("A board was created for you.")
end

function MakeNewCard(nam)
	if MyListID == "" then
		print("NO LIST!")
		return
	end
	MyCardID = http:JSONDecode(trelloPost("https://api.trello.com/1/lists/"..MyListID.."/cards", {["name"]=nam}))["id"]
end

function AddZeros(num)
	if num < 10 then
		return "000"
	elseif num < 100 then
		return "00"
	elseif num < 1000 then
		return "0"
	else
		return ""
	end
end

function ToTrello(msg,num)
	local dat = {
		file = msg,
		name = AddZeros(num)..tostring(num),
		mimeType = ".rbxmx"
	}
	trelloPost("https://api.trello.com/1/cards/"..MyCardID.."/attachments/",dat)
end

local instanceCount = 0
local saveString = ""

local propertiesAPI = "http://wiki.roblox.com/index.php/API:Class_reference/Dump/raw?action=raw"
local props = {}

local savedProps = {}

local instanceRefs = {}

local storedInstances = {}

local SplitAmounts = 0

local SplitName = ""

local skipObjects = false

function httpGet(url)
	return game:HttpGet(url,true)
end

local propertiesList = httpGet(propertiesAPI)--require(script.studiotest)

function findClass(str, clsname, addon)
	local findX, findY = string.find(str, "Class "..clsname)
	local check = string.match(string.sub(str,findX + 5),"%w+")
	findY = findY + 1
	if check ~= clsname then
		return findClass(string.sub(str,findY),clsname, addon-1 + findY)
	else
		return findY + addon
	end
end

function getAllProperties(cName)
	local findPos = findClass(propertiesList,cName, 0)
	
	local findBookmark = string.sub(propertiesList,findPos)
	
	local bookmarkCount = 0

for line in string.gmatch(findBookmark,"%C+") do
		if string.sub(line,1,8) == "Property" and not string.find(line, "deprecated") and not string.find(line, "hidden") then
			local propFindCount = 0
			local propType = "Bool"
			local propName = ""
			local readOnly = false
			
			for w in string.gmatch(line, "%w+") do
   				propFindCount = propFindCount + 1
				if propFindCount == 2 then
					propType = w
				elseif propFindCount == 4 then
					propName = w
				end
			end
			
			if string.find(line, "readonly") then
				readOnly = true
			end
			
			local propPacket = {Type = propType, Name = propName, ReadOnly = readOnly}
			table.insert(props,propPacket)
		elseif string.sub(line,1,8) ~= "Property" then
			if bookmarkCount > 0 then
				break
			end
			bookmarkCount = bookmarkCount + 1
		end
	end
	
	if cName ~= "Instance" then
		getAllProperties(string.match(findBookmark,"%w+"))
	end
end

function checkFoundProps(pname)
	for i,v in pairs(savedProps) do
		if v.ClassName == pname then
			return v
		end
	end
	return false
end

function getProperties(obj)
	local toFind = obj.ClassName
	
	local checkProps = checkFoundProps(toFind)
	
	if checkProps then
		return checkProps.Props
	end
	
	props = {}	
	getAllProperties(toFind)
	
	local function sortProps(val1, val2)
		return val1.Name < val2.Name
	end
	
	table.sort(props, sortProps)
	
	table.insert(savedProps,{ClassName = toFind, Props = props})
	
	return props
end

function checkRef(obj)
	for i,v in pairs(instanceRefs) do
		if v.Instance == obj then
			return tostring(v.Number)
		end
	end
	return tostring(instanceCount)
end

function setRef(obj)
	if obj == nil then return "null" end
	for i,v in pairs(instanceRefs) do
		if v.Instance == obj then
			return "RBX"..tostring(v.Number)
		end
	end
	instanceCount = instanceCount + 1
	table.insert(instanceRefs,{Instance = obj, Number = instanceCount})
	return "RBX"..tostring(instanceCount)
end

function PostIt(str)
	ToTrello(str,SplitAmounts)
	SplitAmounts = SplitAmounts + 1
end

function _G.SaveInstance(inst,fname,skipObj)
	instanceCount = 0
	instanceRefs = {}
	storedInstances = {}
	saveString = ""
	SplitName = fname
	SplitAmounts = 0
	MakeNewCard(fname)
	if skipObj then
		skipObjects = true
	else
		skipObjects = false
	end
	saveString = [[<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">
	<External>null</External>
	<External>nil</External>]]
	local saveFolder = Instance.new("Folder")
	inst:Clone().Parent = saveFolder
	writeInstance(saveFolder)
	saveString = saveString.."\n</roblox>"
	table.insert(storedInstances,saveString)
	--print(saveString)
	--_G.send(saveString)
	PostIt(table.concat(storedInstances))
	print("There were "..tostring(SplitAmounts).." splits.")
end

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

infinite yield script loadstring
Plaintext | 2 | 2 minutes ago
bitsum process lasso
Plaintext | 0 | 2 minutes ago
mm2 farm script
Plaintext | 0 | 2 minutes ago
dex explorer v5 script
Plaintext | 0 | 2 minutes ago
clicker heroes code cheat
Plaintext | 2 | 7 minutes ago
time bomb duels script
Plaintext | 1 | 7 minutes ago
infinite yield plugins
Plaintext | 1 | 7 minutes ago

Paste Settings

Site Languages