SHARE
TWEET

Copy map

ipastetomuch Apr 7th, 2019 17 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ['GlobalShadows'] = 'BoolValue',
  2. ['GlobalShadows'] = 'BoolValue',
  3. ['OutdoorAmbient'] = 'Color3Value',
  4. ['Outlines'] = 'BoolValue',
  5. ['ShadowColor'] = 'Color3Value',
  6. ['TimeOfDay'] = 'StringValue',
  7. }
  8. StarterProp = {
  9. ['AutoJumpEnabled'] = 'BoolValue',
  10. ['CameraMaxZoomDistance'] = 'StringValue',
  11. ['CameraMinZoomDistance'] = 'StringValue',
  12. ['CameraMode'] = 'StringValue',
  13. ['DevCameraOcclusionMode'] = 'StringValue',
  14. ['DevComputerCameraMovementMode'] = 'StringValue',
  15. ['DevComputerMovementMode'] = 'StringValue',
  16. ['DevTouchCameraMovementMode'] = 'StringValue',
  17. ['DevTouchMovementMode'] = 'StringValue',
  18. ['EnableMouseLockOption'] = 'BoolValue',
  19. ['HealthDisplayDistance'] = 'StringValue',
  20. ['LoadCharacterAppearance'] = 'BoolValue',
  21. ['NameDisplayDistance'] = 'StringValue',
  22. }
  23. WorkspaceProp = {
  24. ['FilteringEnabled'] = 'BoolValue',
  25. ['Gravity'] = 'StringValue',
  26. }
  27. done = false
  28. lgui = Instance.new("ScreenGui", game:GetService'CoreGui':FindFirstChildOfClass'ScreenGui')
  29. spawn(function()
  30. --Loading GUI + Animation by Unverified
  31. lgui.Name = "Loading Screen"
  32. local lFrame = Instance.new("Frame",lgui)
  33. lFrame.BackgroundColor3 = Color3.new(85/255,85/255,85/255)
  34. lFrame.Size = UDim2.new(1,0,1,0)
  35. lFrame.BackgroundTransparency = 1 --closed
  36. local lBar = Instance.new("TextLabel",lFrame)
  37. lBar.BackgroundColor3 = Color3.new(27/255,42/255,53/255)
  38. lBar.BorderSizePixel = 0
  39. lBar.Position = UDim2.new(0.5,0,0.5,-27) --closed
  40. lBar.Size = UDim2.new(0,0,0,2) --closed
  41. lBar.Text = ""
  42. local lLoading = Instance.new("TextLabel",lFrame)
  43. lLoading.BackgroundTransparency = 1
  44. lLoading.Position = UDim2.new(0.5,-100,0.5,-75) --closed
  45. lLoading.Size = UDim2.new(0,200,0,50)
  46. lLoading.Font = Enum.Font.SourceSansItalic
  47. lLoading.Text = "Loading"
  48. lLoading.TextSize = 50
  49. lLoading.TextStrokeColor3 = Color3.new(71/255,71/255,71/255)
  50. lLoading.TextStrokeTransparency = 1 --closed
  51. lLoading.TextTransparency = 1 --closed
  52. local lTitle = Instance.new("TextLabel",lFrame)
  53. lTitle.BackgroundTransparency = 1
  54. lTitle.Position = UDim2.new(0.5,-200,0.5,-25) --closed
  55. lTitle.Size = UDim2.new(0,400,0,75)
  56. lTitle.Font = Enum.Font.SourceSans
  57. lTitle.Text = "SaveInstance V5"
  58. lTitle.TextSize = 60
  59. lTitle.TextStrokeColor3 = Color3.new(80/255,80/255,80/255)
  60. lTitle.TextStrokeTransparency = 1 --closed
  61. lTitle.TextTransparency = 1 --closed
  62. local lCredits = Instance.new("TextLabel",lFrame)
  63. lCredits.BackgroundTransparency = 1
  64. lCredits.Position = UDim2.new(0.5,-100,1,-60)
  65. lCredits.Size = UDim2.new(0,200,0,50)
  66. lCredits.Font = Enum.Font.SourceSans
  67. lCredits.Text = "Made by Harkinian and Moon with help of Unverified and xFunnieuss"
  68. lCredits.TextSize = 21
  69. lCredits.TextStrokeColor3 = Color3.new(47/255,47/255,47/255)
  70. lCredits.TextStrokeTransparency = 1 --closed
  71. lCredits.TextTransparency = 1 --closed
  72. lCredits.TextYAlignment = Enum.TextYAlignment.Bottom
  73.  
  74. --Animation part--
  75. for i=100,0,-1 do
  76. game:GetService("RunService").RenderStepped:wait()
  77. lFrame.BackgroundTransparency = i/100
  78. end
  79. wait(0.4)
  80. lBar:TweenSizeAndPosition(UDim2.new(0,300,0,2),UDim2.new(0.5,-150,0.5,-27),"Out","Quad",1,true)
  81. wait(1.1)
  82. lTitle:TweenPosition(UDim2.new(0.5,-200,0.5,-100),"Out","Quad",1,true)
  83. spawn(function()
  84. for i=100,0,-1 do
  85. game:GetService("RunService").RenderStepped:wait()
  86. lTitle.TextTransparency = i/100
  87. lTitle.TextStrokeTransparency = i/100
  88. end
  89. end)
  90. wait(1.5)
  91. lLoading:TweenPosition(UDim2.new(0.5,-100,0.5,-25),"Out","Quad",1,true)
  92. spawn(function()
  93. for i=1000,800,-1 do
  94. game:GetService("RunService").RenderStepped:wait()
  95. lLoading.TextStrokeTransparency = i/1000
  96. end
  97. end)
  98. spawn(function()
  99. for i=100,0,-1 do
  100. game:GetService("RunService").RenderStepped:wait()
  101. lLoading.TextTransparency = i/100
  102. end
  103. end)
  104. wait(1)
  105. spawn(function()
  106. for i=1000,900,-1 do
  107. game:GetService("RunService").RenderStepped:wait()
  108. lCredits.TextStrokeTransparency = i/1000
  109. end
  110. end)
  111. for i=100,0,-1 do
  112. game:GetService("RunService").RenderStepped:wait()
  113. lCredits.TextTransparency = i/100
  114. end
  115. done = true
  116. end)
  117. function makePropertyValues(tablepls, servicepls)
  118. local servprops = Instance.new('Folder', mainFolder)
  119. servprops.Name = servicepls..' Properties'
  120. for i,v in pairs(tablepls) do
  121. local meme = Instance.new(v, servprops)
  122. meme.Name = i
  123. if v == 'StringValue' then
  124. meme.Value = tostring(game:GetService(servicepls)[i])
  125. else
  126. meme.Value = game:GetService(servicepls)[i]
  127. end
  128. end
  129. end
  130. function createFolderWithParts(serv)
  131. local fold = Instance.new('Folder', mainFolder)
  132. fold.Name = serv.ClassName
  133. for i,v in pairs(serv:GetChildren()) do
  134. if not game:GetService'Players':GetPlayerFromCharacter(v) then
  135. pcall(function()
  136. if v:IsA'Terrain' then
  137. for x,d in pairs(v:GetChildren()) do
  138. d:Clone().Parent = fold
  139. end
  140. return
  141. end
  142. v:Clone().Parent = fold
  143. end)
  144. end
  145. end
  146. end
  147. function screwYouArchivable(same)
  148. pcall(function()
  149. same.Archivable = true
  150. end)
  151. for i,v in pairs(same:GetChildren()) do
  152. screwYouArchivable(v)
  153. end
  154. end
  155. function checkScript(inst)
  156. if inst:IsA'LocalScript' or inst:IsA'ModuleScript' then
  157. if ELYSIAN_INITIATED then
  158. local valuecount = 1
  159. local count = 1
  160. local sadmeme = tostring(decompile(inst))
  161. repeat
  162. local kek = Instance.new('StringValue', inst)
  163. kek.Name = 'Source'..valuecount
  164. kek.Value = string.sub(sadmeme,count,count + 99999)
  165. count = count + 100000
  166. valuecount = valuecount + 1
  167. until string.sub(sadmeme,count,count + 99999) == ''
  168. end
  169. end
  170. for i,v in pairs(inst:GetChildren()) do
  171. checkScript(v)
  172. end
  173. end
  174. mainFolder = Instance.new'Folder'
  175. mainFolder.Name = 'Place'
  176. screwYouArchivable(game)
  177. for i,v in pairs(game:GetChildren()) do
  178. createFolderWithParts(v)
  179. end
  180. if getnilinstances then
  181. local nilf = Instance.new('Folder', mainFolder)
  182. nilf.Name = 'NIL INSTANCES'
  183. for i,v in pairs(getnilinstances()) do
  184. screwYouArchivable(v)
  185. pcall(function()
  186. if v == mainFolder then return end
  187. v:Clone().Parent = nilf
  188. end)
  189. end
  190. end
  191. repeat wait'' until done == true
  192. if decompiler then
  193. checkScript(mainFolder)
  194. end
  195. terraind = Instance.new('Folder', mainFolder)
  196. terraind.Name = 'TerrainData'
  197. workspace:FindFirstChildOfClass'Terrain':CopyRegion(workspace:FindFirstChildOfClass'Terrain'.MaxExtents).Parent = terraind
  198. makePropertyValues(LightingProp, 'Lighting')
  199. makePropertyValues(StarterProp, 'StarterPlayer')
  200. makePropertyValues(WorkspaceProp, 'Workspace')
  201. local materials = {
  202.     "Asphalt",
  203.     "Basalt",
  204.     "Brick",
  205.     "Cobblestone",
  206.     "Concrete",
  207.     "CrackedLava",
  208.     "Glacier",
  209.     "Grass",
  210.     "Ground",
  211.     "Ice",
  212.     "LeafyGrass",
  213.     "Limestone",
  214.     "Mud",
  215.     "Pavement",
  216.     "Rock",
  217.     "Salt",
  218.     "Sand",
  219.     "Sandstone",
  220.     "Slate",
  221.     "Snow",
  222.     "WoodPlanks"
  223. }
  224.  
  225. local terrainColors = Instance.new("Folder",mainFolder)
  226. terrainColors.Name = "TerrainColors"
  227. for i,v in pairs(materials) do
  228.     local newColor = Instance.new("Color3Value",terrainColors)
  229.     newColor.Name = v
  230.     newColor.Value = workspace.Terrain:GetMaterialColor(Enum.Material[v])
  231. end
  232.  
  233. local TerrainProp = {
  234. ['WaterColor'] = 'Color3Value',
  235. ['WaterReflectance'] = 'StringValue',
  236. ['WaterTransparency'] = 'StringValue',
  237. ['WaterWaveSize'] = 'StringValue',
  238. ['WaterWaveSpeed'] = 'StringValue',
  239. }
  240.  
  241. local terrainProps = Instance.new("Folder",mainFolder)
  242. terrainProps.Name = "TerrainProps"
  243. for i,v in pairs(TerrainProp) do
  244.     local val = Instance.new(v,terrainProps)
  245.     val.Name = i
  246.     if v == "StringValue" then
  247.         val.Value = tostring(workspace.Terrain[i])
  248.     else
  249.         val.Value = workspace.Terrain[i]
  250.     end
  251. end
  252. game:GetService'TeleportService':SetTeleportSetting('SaveInstanceData', mainFolder)
  253. game:GetService'TeleportService':Teleport(gameId,nil,nil,lgui)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top