WIP SAVEINSTANCE

-- REMADE BY ANPHU04 (5/20/2018) --

--SETTINGS--
gameId = 1562190306 --put your starter place id here
--end of settings
LightingProp = {
	['Ambient'] = 'Color3Value',
	['Brightness'] = 'StringValue',
	['ColorShift_Bottom'] = 'Color3Value',
	['ColorShift_Top'] = 'Color3Value',
	['FogColor'] = 'Color3Value',
	['FogEnd'] = 'StringValue',
	['FogStart'] = 'StringValue',
	['GeographicLatitude'] = 'StringValue',
	['GlobalShadows'] = 'BoolValue',
	['GlobalShadows'] = 'BoolValue',
	['OutdoorAmbient'] = 'Color3Value',
	['Outlines'] = 'BoolValue',
	['ShadowColor'] = 'Color3Value',
	['TimeOfDay'] = 'StringValue',
}
StarterProp = {
	['AutoJumpEnabled'] = 'BoolValue',
	['CameraMaxZoomDistance'] = 'StringValue',
	['CameraMinZoomDistance'] = 'StringValue',
	['CameraMode'] = 'StringValue',
	['DevCameraOcclusionMode'] = 'StringValue',
	['DevComputerCameraMovementMode'] = 'StringValue',
	['DevComputerMovementMode'] = 'StringValue',
	['DevTouchCameraMovementMode'] = 'StringValue',
	['DevTouchMovementMode'] = 'StringValue',
	['EnableMouseLockOption'] = 'BoolValue',
	['HealthDisplayDistance'] = 'StringValue',
	['LoadCharacterAppearance'] = 'BoolValue',
	['NameDisplayDistance'] = 'StringValue',
}
WorkspaceProp = {
	['FilteringEnabled'] = 'BoolValue',
	['Gravity'] = 'StringValue',
}
function makePropertyValues(tablepls, servicepls)
	local servprops = Instance.new('Folder', mainFolder)
	servprops.Name = servicepls..' Properties'
	for i, v in pairs(tablepls) do
		local meme = Instance.new(v, servprops)
		meme.Name = i
		if v == 'StringValue' then
			meme.Value = tostring(game:GetService(servicepls)[i])
		else
			meme.Value = game:GetService(servicepls)[i]
		end
	end
end
function createFolderWithParts(serv)
	local fold = Instance.new('Folder', mainFolder)
	--fold.Name = serv.ClassName
	--[[local function scan(p)
		for i, v in pairs(p:GetChildren()) do
			if not game:GetService'Players':GetPlayerFromCharacter(v) then
				pcall(function()
					if v:IsA("Terrain") then
						for x, d in pairs(v:GetChildren()) do
							d:Clone().Parent = fold
						end
						return
					end
					v:Clone().Parent = fold
				end)
			end
			scan(v)
		end
	end
	scan(serv)]]
	for i,v in pairs(serv:GetChildren()) do
		if (v:IsA("BasePart") or v:IsA("Model")) and (not v:IsA("Terrain")) then
			if not game.Players:FindFirstChild(v.Name) then
				v:Clone().Parent = fold
			end
		end
	end
end
function screwYouArchivable(same)
	pcall(function()
		same.Archivable = true
	end)
	for i, v in pairs(same:GetChildren()) do
		screwYouArchivable(v)
	end
end
function checkScript(inst)
	if inst:IsA'LocalScript' or inst:IsA'ModuleScript' then
		if ELYSIAN_INITIATED then
			local valuecount = 1
			local count = 1
			local sadmeme = tostring(decompile(inst))
			repeat
				local kek = Instance.new('StringValue', inst)
				kek.Name = 'Source'..valuecount
				kek.Value = string.sub(sadmeme, count, count + 99999)
				count = count + 100000
				valuecount = valuecount + 1
			until string.sub(sadmeme, count, count + 99999) == ''
		end
	end
	for i, v in pairs(inst:GetChildren()) do
		checkScript(v)
	end
end
mainFolder = Instance.new'Folder'
mainFolder.Name = 'Place'
--screwYouArchivable(game)
screwYouArchivable(game.Workspace)
screwYouArchivable(game.Lighting)
screwYouArchivable(game.ReplicatedStorage)
--[[for i, v in pairs(game:GetChildren()) do
	createFolderWithParts(v)
end]]
createFolderWithParts(workspace)
createFolderWithParts(game.Lighting)
createFolderWithParts(game.ReplicatedStorage)
if getnilinstances then
	local nilf = Instance.new('Folder', mainFolder)
	nilf.Name = 'NIL INSTANCES'
	for i, v in pairs(getnilinstances()) do
		screwYouArchivable(v)
		pcall(function()
			if v == mainFolder then
				return
			end
			v:Clone().Parent = nilf
		end)
	end
end
checkScript(mainFolder)
terraind = Instance.new('Folder', mainFolder)
terraind.Name = 'TerrainData'
workspace:FindFirstChildOfClass'Terrain':CopyRegion(workspace:FindFirstChildOfClass'Terrain'.MaxExtents).Parent = terraind
makePropertyValues(LightingProp, 'Lighting')
makePropertyValues(StarterProp, 'StarterPlayer')
makePropertyValues(WorkspaceProp, 'Workspace')



-- DEBUGGING --
for i,a in pairs(mainFolder:GetChildren()) do
	for i,b in pairs(a:GetChildren()) do
		print(b.Name .." : ".. tostring(b.ClassName))
	end
end





game:GetService'TeleportService':SetTeleportSetting('SaveInstanceData', mainFolder)
game:GetService'TeleportService':Teleport(gameId)