SHARE
TWEET

Place Steal - AJ

a guest Jul 15th, 2019 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --SETTINGS--
  2. gameId = 1337 --put your starter place id here
  3. --end of settings
  4. LightingProp = {
  5. ['Ambient'] = 'Color3Value',
  6. ['Brightness'] = 'StringValue',
  7. ['ColorShift_Bottom'] = 'Color3Value',
  8. ['ColorShift_Top'] = 'Color3Value',
  9. ['FogColor'] = 'Color3Value',
  10. ['FogEnd'] = 'StringValue',
  11. ['FogStart'] = 'StringValue',
  12. ['GeographicLatitude'] = 'StringValue',
  13. ['GlobalShadows'] = 'BoolValue',
  14. ['GlobalShadows'] = 'BoolValue',
  15. ['OutdoorAmbient'] = 'Color3Value',
  16. ['Outlines'] = 'BoolValue',
  17. ['ShadowColor'] = 'Color3Value',
  18. ['TimeOfDay'] = 'StringValue',
  19. }
  20. StarterProp = {
  21. ['AutoJumpEnabled'] = 'BoolValue',
  22. ['CameraMaxZoomDistance'] = 'StringValue',
  23. ['CameraMinZoomDistance'] = 'StringValue',
  24. ['CameraMode'] = 'StringValue',
  25. ['DevCameraOcclusionMode'] = 'StringValue',
  26. ['DevComputerCameraMovementMode'] = 'StringValue',
  27. ['DevComputerMovementMode'] = 'StringValue',
  28. ['DevTouchCameraMovementMode'] = 'StringValue',
  29. ['DevTouchMovementMode'] = 'StringValue',
  30. ['EnableMouseLockOption'] = 'BoolValue',
  31. ['HealthDisplayDistance'] = 'StringValue',
  32. ['LoadCharacterAppearance'] = 'BoolValue',
  33. ['NameDisplayDistance'] = 'StringValue',
  34. }
  35. WorkspaceProp = {
  36. ['FilteringEnabled'] = 'BoolValue',
  37. ['Gravity'] = 'StringValue',
  38. }
  39. function makePropertyValues(tablepls, servicepls)
  40. local servprops = Instance.new('Folder', mainFolder)
  41. servprops.Name = servicepls..' Properties'
  42. for i,v in pairs(tablepls) do
  43. local meme = Instance.new(v, servprops)
  44. meme.Name = i
  45. if v == 'StringValue' then
  46. meme.Value = tostring(game:GetService(servicepls)[i])
  47. else
  48. meme.Value = game:GetService(servicepls)[i]
  49. end
  50. end
  51. end
  52. function createFolderWithParts(serv)
  53. local fold = Instance.new('Folder', mainFolder)
  54. fold.Name = serv.ClassName
  55. for i,v in pairs(serv:GetChildren()) do
  56. if not game:GetService'Players':GetPlayerFromCharacter(v) then
  57. pcall(function()
  58. if v:IsA'Terrain' then
  59. for x,d in pairs(v:GetChildren()) do
  60. d:Clone().Parent = fold
  61. end
  62. return
  63. end
  64. v:Clone().Parent = fold
  65. end)
  66. end
  67. end
  68. end
  69. function screwYouArchivable(same)
  70. pcall(function()
  71. same.Archivable = true
  72. end)
  73. for i,v in pairs(same:GetChildren()) do
  74. screwYouArchivable(v)
  75. end
  76. end
  77. function checkScript(inst)
  78. if inst:IsA'LocalScript' or inst:IsA'ModuleScript' then
  79. if ELYSIAN_INITIATED then
  80. local valuecount = 1
  81. local count = 1
  82. local sadmeme = tostring(decompile(inst))
  83. repeat
  84. local kek = Instance.new('StringValue', inst)
  85. kek.Name = 'Source'..valuecount
  86. kek.Value = string.sub(sadmeme,count,count + 99999)
  87. count = count + 100000
  88. valuecount = valuecount + 1
  89. until string.sub(sadmeme,count,count + 99999) == ''
  90. end
  91. end
  92. for i,v in pairs(inst:GetChildren()) do
  93. checkScript(v)
  94. end
  95. end
  96. mainFolder = Instance.new'Folder'
  97. mainFolder.Name = 'Place'
  98. screwYouArchivable(game)
  99. for i,v in pairs(game:GetChildren()) do
  100. createFolderWithParts(v)
  101. end
  102. if getnilinstances then
  103. local nilf = Instance.new('Folder', mainFolder)
  104. nilf.Name = 'NIL INSTANCES'
  105. for i,v in pairs(getnilinstances()) do
  106. screwYouArchivable(v)
  107. pcall(function()
  108. if v == mainFolder then return end
  109. v:Clone().Parent = nilf
  110. end)
  111. end
  112. end
  113. checkScript(mainFolder)
  114. terraind = Instance.new('Folder', mainFolder)
  115. terraind.Name = 'TerrainData'
  116. workspace:FindFirstChildOfClass'Terrain':CopyRegion(workspace:FindFirstChildOfClass'Terrain'.MaxExtents).Parent = terraind
  117. makePropertyValues(LightingProp, 'Lighting')
  118. makePropertyValues(StarterProp, 'StarterPlayer')
  119. makePropertyValues(WorkspaceProp, 'Workspace')
  120. game:GetService'TeleportService':SetTeleportSetting('SaveInstanceData', mainFolder)
  121. game:GetService'TeleportService':Teleport(gameId)
  122.  
  123. SaveInstance function (execute this if you want to save specific objects ONLY)
  124. Code:
  125. gameId = 1337 --your starter place here
  126.  
  127.  
  128. dat = nil
  129. function _G.SaveInstance(instancememe)
  130. if game:GetService'TeleportService':GetTeleportSetting'SaveInstanceData' == nil then
  131. dat = Instance.new'Folder'
  132. dat.Name = 'Instance'
  133. game:GetService'TeleportService':SetTeleportSetting('SaveInstanceData', dat)
  134. end
  135. if instancememe ~= nil then
  136. instancememe.Archivable = true
  137. local instancememe = instancememe:Clone()
  138. if instancememe:IsA'LocalScript' or instancememe:IsA'ModuleScript' and ELYSIAN_INITIATED then
  139. local valuecount = 1
  140. local count = 1
  141. local sadmeme = tostring(decompile(instancememe))
  142. repeat
  143. local kek = Instance.new('StringValue', instancememe)
  144. kek.Name = 'Source'..valuecount
  145. kek.Value = string.sub(sadmeme,count,count + 99999)
  146. count = count + 100000
  147. valuecount = valuecount + 1
  148. until string.sub(sadmeme,count,count + 99999) == ''
  149. end
  150. instancememe.Parent = dat
  151. return 'Copied instance successfully.'
  152. end
  153. end
  154. function _G.finish()
  155. if game:GetService'TeleportService':GetTeleportSetting'SaveInstanceData' ~= nil then
  156. game:GetService'TeleportService':Teleport(gameId)
  157. end
  158. end
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
 
Top