-- Made by 001 from v3rmillion.net.
-- Map Copy Script: Rewritten
AllowedClassnames = {'Part','WedgePart','SpawnLocation','UnionOperation','Seat','VehicleSeat','TrussPart'}
Settings = {
Copy = true, -- Using this option might cause lag in game but it doesn't remove the game.
Creator = '001', -- Created by 001 from V3rmillion.net.
EverythingAnchored = false, -- Anchors every part.
}
source = ""
newline = [[

]]
tablecheck = function(t,value) -- Function: tablecheck, Description: checks a table for a value, Variables: table (table), value (string).
for i,v in pairs(t) do
if v==value then
return true
end
end
return nil
end
printFunction = function(str) -- Function: printFunction, Description: Custom print function, Variables: print (string).
printconsole(str)
end
--[[ It turned out ifclass doesn't works, function removed.
ifclass = function(part, tabl, str)
for i,v in pairs(tabl) do
if v == part.ClassName then
printFunction(str)
end
end
end
]]--
copy = function(children) -- no time to document this,
local PartClass = children.ClassName
if tablecheck(AllowedClassnames, PartClass) then
local PartName = "P"..math.random(100,999)
printFunction(PartName.."=Instance.new('"..PartClass.."', Workspace)") -- Instance.new
upc=tostring('false')
if children:IsA'UnionOperation' then
upc=tostring(children.UsePartColor)
end
shape='"N"'
if children:IsA'Part' or children:IsA'SpawnLocation' or children:IsA'Seat' then
shape=tostring(children.Shape)
end
formfactor='"N"'
if children:IsA'Part' or children:IsA'WedgePart' or children:IsA'SpawnLocation' or children:IsA'Seat' then
formfactor=tostring(children.FormFactor)
end
local Anchored = tostring(children.Anchored)
local Locked = tostring(children.Locked)
local Name = children.Name
local Size = children.Size
local CanCollide = tostring(children.CanCollide)
local Archivable = tostring(children.Archivable)
local CFrame = children.CFrame
local Transparency = tonumber(children.Transparency)
local Reflectance = tonumber(children.Reflectance)
local Material = children.Material
local BrickColor = children.BrickColor

local fc = PartName..",'"..Name.."',"..tostring(Settings.EverythingAnchored)..","..shape..","..upc..","..CanCollide..","..Locked..","..Anchored..","..Archivable..","..formfactor..",{"..tostring(Size).."},{"..tostring(CFrame).."},'"..tostring(BrickColor).."',"..Transparency..","..tostring(Material)..","..Reflectance
printFunction("c("..fc..")")
printFunction("ss("..PartName..","..tostring(children.BackSurface)..","..tostring(children.BottomSurface)..","..tostring(children.FrontSurface)..","..tostring(children.LeftSurface)..","..tostring(children.RightSurface)..","..tostring(children.TopSurface)..")")
for i,v in pairs(children:GetChildren()) do
if v:IsA'Decal' then
printFunction("d("..v.Name..","..tonumber(v.Transparency)..",'"..tostring(v.Texture).."',"..tostring(v.Face)..",'"..tostring(v.Name).."')") -- Decal
elseif v:IsA'SpecialMesh' then
-- For mesh (d): p=part,t=meshid,te=meshtexture,face=size,n=name,ff=meshtype
printFunction("d("..PartName..",'"..tostring(v.MeshId).."','"..tostring(v.TextureId).."',{"..tostring(v.Scale).."},'"..tostring(v.Name).."',"..tostring(v.MeshType)..")") -- Mesh
end
end
end
end
local decryptFunc = [[
c=function(part,name,everythinganchored,shape,usepartcolor,cancollide,locked,anchored,archivable,formfactor,size,cframe,brickcolor,transparency,material,reflectance)
part.Name=name
function tabltostring(tabl)
s=''
for i,v in pairs(tabl) do
s=s..v
end
return s
end
function n(nu)
return tonumber(nu)
end
if part:IsA'Part' or part:IsA'SpawnLocation' or part:IsA'Seat' then
part.Shape=shape
end
if part:IsA'UnionOperation' then
part.UsePartColor=usepartcolor
end
part.CanCollide=cancollide
part.Locked=locked
if everythinganchored == true then
part.Anchored = true
else
part.Anchored = anchored
end
part.Archivable = archivable
if part:IsA'Part' or part:IsA'WedgePart' or part:IsA'SpawnLocation' or part:IsA'Seat' then
part.FormFactor=formfactor
end
part.Size = Vector3.new(n(size[1]),n(size[2]),n(size[3]))
part.CFrame = CFrame.new(n(cframe[1]),n(cframe[2]),n(cframe[3]),n(cframe[4]),n(cframe[5]),n(cframe[6]),n(cframe[7]),n(cframe[8]),n(cframe[9]),n(cframe[10]),n(cframe[11]),n(cframe[12]))
part.BrickColor = BrickColor.new(brickcolor)
part.Material = material
part.Transparency = transparency
part.Reflectance = reflectance
end
]]
local function magiclines( str )
if strConfusedub(-1)~="\n" then str=str.."\n" end
return str:gmatch("(.-)\n")
end
function findLoop(childre)
Instance.new('Model',game.Lighting).Name='Copy'
findLoop2 = function(children) -- Function: findLoop, Description: Just a find loop, Variables: children (Part).
for i,v in pairs(children:GetChildren()) do
if tablecheck(AllowedClassnames, v.ClassName) then
if Settings.Copy == true then
v:Clone().Parent = game.Lighting.Copy
else
v.Parent = game.Lighting.Copy
end
end
if v:FindFirstChild'HumanoidRootPart' ~= true then -- Anti player copy.
findLoop2(v)
end
end
end
findLoop2(childre)
wait(2)
for line in magiclines(decryptFunc) do
printFunction(line)
wait()
end
wait(4)
-- For mesh (d): p=part,t=meshid,te=meshtexture,face=size,n=name,ff=meshtype
printFunction("d=function(p,t,te,face,n,ff)if ff then me=Instance.new('SpecialMesh',p);me.MeshType=ff;me.MeshId=t;me.TextureId=te;me.Name=n;me.Scale=Vector3.new(face[1],face[2],face[3]); else xx=Instance.new('Decal',p);xx.Texture=te;xx.Transparency=t;xx.Face=face;xx.Name=n;end;end") -- Decal (d) function.
printFunction("ss=function(p,bs,bz,fs,ls,rs,ts)p.BackSurface=bs;p.BottomSurface=bz;p.FrontSurface=fs;p.LeftSurface=ls;p.RightSurface=rs;p.TopSurface=ts;end") -- SetSurface (ss) function.
for i,v in pairs(game.Lighting.Copy:GetChildren()) do
copy(v)
end
end

findLoop(game.Workspace)