-- Minimap --
Size = 0.15
Parts = {
	
}
Offset = Vector3.new(0,2000,0)
Collidable = false
TouchKill = true
Running = true
DoWait = false
Parenter = script
if script.ClassName == LocalScript then
	Parenter = Instance.new("Script",Workspace)
end
Admins = {"dogwarrior24","Reinitialized"}
AdOB = {}
Base = Instance.new("Part",Parenter)
Base.Name = "a"
Base.Anchored = true
Base.Size = Vector3.new(400,1,400)
Base.Position = Offset-Vector3.new(0,1,0)
Base.Locked = true
function Load(String)
	a,b = ypcall(loadstring(String))
	return a,b
end
function GetRecursiveChildren(Place)
	local Stuff = {}
	function GRC(P)
		for i,v in pairs(P:GetChildren()) do
			ypcall(function()
				GRC(v)
				table.insert(Stuff,v)
			end)
		end
	end
	GRC(Place)
	GRC = nil
	return Stuff
end
cy = function()
    local T = tick()
    coroutine.yield(coroutine.resume(coroutine.create(function() end)))
    return tick()-T
end
sleep = function(time)
    if not time or time == 0 then 
        time = cy()
    end
    local t = 0
    repeat
        local T = tick()
        coroutine.yield(coroutine.resume(coroutine.create(function() end)))
        t = t + (tick()-T)
    until t >= time
    return t
end
pass = function(func)
	coroutine.yield(coroutine.resume(coroutine.create(func)))
	return func
end
function PosToCF(Pos)
	return CFrame.new(
		Pos.X,
		Pos.Y,
		Pos.Z
	)
end
function GetFullCFrame(CF,Div)
	return CFrame.new(
		(CF.X*Div),
		(CF.Y*Div),
		(CF.Z*Div)
	)*CFrame.Angles(CF:toEulerAnglesXYZ())
end
function GetPosBy(Pos,Amount)
	return Vector3.new(
		Pos.X*Amount,
		Pos.Y*Amount,
		Pos.Z*Amount
	)
end
function Parts:GetParts()
	local STF = {}
	for i,v in pairs(Parts) do
		if type(v) == "table" then
			table.insert(STF,v)
		end
	end
	return STF
end
local SHR = "Enum.PartType."
function TrackParts()
	Base.Position = Offset-Vector3.new(0,1,0)
	for i,v in pairs(Parts) do
		ypcall(function()
			if v.Part:IsDescendantOf(Workspace) then
				if not v.Dragging then
					v.Pos.FormFactor = 'Custom'
					v.Pos.Anchored = true
					v.Pos.BrickColor = v.Part.BrickColor
					v.Mesh.Parent = v.Pos
					v.Pos.Locked = true
					v.Pos.TopSurface = "Smooth"
					v.Pos.BottomSurface = "Smooth"
					for i,d in pairs(v.Other) do
						if d.SR then
							d:Update()
						else
							d.O:Destroy()
							table.remove(v.Other,i)
						end
					end
					v.Pos.Transparency = v.Part.Transparency
					v.Mesh.Scale = Vector3.new(Size,Size,Size)
					v.Pos.Size = v.Part.Size
					if Collidable then
						if v.Part.CanCollide then
							v.Pos.CanCollide = true
						else
							v.Pos.CanCollide = false
						end
					else
						v.Pos.CanCollide = false
					end
					if v.Part:findFirstChild("Mesh") then
						local M = v.Part.Mesh
						if M.ClassName == "SpecialMesh" then
							v.Mesh.MeshType = M.MeshType
							v.Mesh.MeshId = M.MeshId
							v.Mesh.TextureId = M.TextureId
							v.Mesh.VertexColor = M.VertexColor
							v.Mesh.Scale = Vector3.new(Size+((M.Scale.X-1)*Size),Size+((M.Scale.Y-1)*Size),Size+((M.Scale.Z-1)*Size))
						elseif M.ClassName == "BlockMesh" then
							v.Mesh.MeshType = "Brick"
							v.Mesh.VertexColor = M.VertexColor
							v.Mesh.Scale = Vector3.new(Size+((M.Scale.X-1)*Size),Size+((M.Scale.Y-1)*Size),Size+((M.Scale.Z-1)*Size))
						elseif M.ClassName == "CylinderMesh" then
							v.Mesh.MeshType = "Head"
							v.Mesh.VertexColor = M.VertexColor
							v.Mesh.Scale = Vector3.new(Size+((M.Scale.X-1)*Size),Size+((M.Scale.Y-1)*Size),Size+((M.Scale.Z-1)*Size))
						end
					else
						if v.Part.ClassName == "Part" then
							if tostring(v.Part.Shape) == "Enum.PartType.Block" then
								v.Mesh.MeshType = "Brick"
							elseif tostring(v.Part.Shape) == "Enum.PartType.Ball" then
								if not FoundBall then
									FoundBall = true
									print("Found a ball!!!")
								end
								v.Mesh.MeshType = "Sphere"
							elseif tostring(v.Part.Shape) == "Enum.PartType.Cylinder" then
								v.Mesh.MeshType = "Head"
							else
								v.Mesh.MeshType = "Brick"
							end
						elseif v.Part.ClassName == "WedgePart" then
							v.Mesh.MeshType = "Wedge"
						else
							v.Mesh.MeshType = "Brick"
						end
					end
					if v.Part.Name == "Torso" then
						v.Mesh.MeshType = "FileMesh"
						v.Mesh.MeshId = "rbxasset://fonts/torso.mesh"
					end
					if v.Part.Name == "Left Arm" or v.Part.Name == "Right Arm" or v.Part.Name == "Left Leg" or v.Part.Name == "Right Leg" then
						v.Mesh.MeshType = "FileMesh"
						v.Mesh.MeshId = "rbxasset://fonts/leftarm.mesh"
					end
					v.Pos.CFrame = GetFullCFrame(v.Part.CFrame,Size)+Offset
				end 
			else
				if v.Pos:IsDescendantOf(Parenter) then
					game:GetService("Debris"):AddItem(v.Pos,0)
				else
					table.remove(Parts,i)
					--print("Removed " ..v.Part.Name)
				end
			end
		end)
	end
end
function FindPart(p)
	for i,v in pairs(Parts) do
		if v.Pos == p or v.Part == p then
			return v
		end
	end
	return nil
end
if script.ClassName == "LocalScript" then
	local Player = game.Players.LocalPlayer
	local Mouse = Player:GetMouse()
	script:Destroy()
	local MsDown = false
	Mouse.Button1Down:connect(function()
		MsDown = true
		print(tostring(Mouse.Target:GetFullName()))
		local P = FindPart(Mouse.Target) 
		if P then
			print("Found target!")
			repeat wait()
				P.Part.CFrame = CFrame.new(Mouse.Hit.X/Size,Mouse.Hit.Y/Size,Mouse.Hit.Z/Size)-Offset
			until not MsDown
		else
			print("Couldnt find target")
		end
	end)
	Mouse.Button1Up:connect(function()
		MsDown = false
	end)
end
function Parts:Add(v)
	if v:IsA("BasePart") and v.Name ~= "disminimap" and v ~= Workspace.Terrain then
		local P = {
			Part = v,
			Pos = Instance.new("Part",Parenter),
			Mesh = Instance.new("SpecialMesh"),
			Other = {},
			Dragging = false
		}
		P.Pos.Name = "disminimap"
		P.Pos.CFrame = CFrame.new(10000,10000,10000)
		P.Pos.CanCollide = false
		P.Mesh.Parent = Part
		P.Pos.Transparency = P.Part.Transparency
		P.Mesh.Scale = Vector3.new(Size,Size,Size)
		P.Pos.Size = P.Part.Size
		P.Pos.Touched:connect(function(p)
			if TouchKill then
				wait(0.1)
				if p.Name ~= "disminimap" and p.Name ~= "Base" and p.Name ~= Base.Name then
					P.Part:breakJoints()
					--local O = (P.Pos.Position-p.Position)
					--P.Part.Velocity = P.Part.Velocity+((O/Size)*0.1)
				end
			end
		end)
		function P:Add(t)
			ypcall(function()
				if t:IsA("Decal") then
					local a = t:clone()
					a.Parent = P.Pos
					local S = {}
					S.O = a
					S.T = t
					S.SR = true
					function S:Update()
						a.Texture = t.Texture
						if not t:IsDescendantOf(Workspace) then
							S.SR = false
						end
					end
					table.insert(P.Other,S)
				end
				if t:IsA("PointLight") then
					local a = Instance.new("PointLight",P.Pos)
					a.Range = t.Range*Size
					local S = {}
					S.O = a
					S.T = t
					S.SR = true
					function S:Update()
						a.Range = t.Range*Size
						a.Color = t.Color
						a.Brightness = t.Brightness
						if not t:IsDescendantOf(P.Part) then
							S.SR = false
						end
					end
					table.insert(P.Other,S)
				end
				if t.ClassName == ("CylinderMesh") then
					print("Found CylinderMesh")
					local a = Instance.new("CylinderMesh",P.Pos)
					a.Scale = Vector3.new(Size+((t.Scale.X-1)*Size),Size+((t.Scale.Y-1)*Size),Size+((t.Scale.Z-1)*Size))
					local S = {}
					S.O = a
					S.T = t
					S.SR = true
					function S:Update()
						P.Mesh.Parent = nil
						a.Scale = Vector3.new(Size+((t.Scale.X-1)*Size),Size+((t.Scale.Y-1)*Size),Size+((t.Scale.Z-1)*Size))
						if not t:IsDescendantOf(P.Part) then
							S.SR = false
						end
					end
				end
			end)
		end
		for i,t in pairs(P.Part:GetChildren()) do
			P:Add(t)
		end
		P.Part.ChildAdded:connect(function(f)
			P:Add(f)
		end)
		table.insert(Parts,P)
	end
end
function Start()
	Workspace.DescendantAdded:connect(function(v)
		wait(0.1)
		Parts:Add(v)
	end)
	for i,v in pairs(GetRecursiveChildren(Workspace)) do
		Parts:Add(v)
	end
	for i,v in pairs(game.Players:GetPlayers()) do
		for i,g in pairs(Admins) do
			if v.Name == g then
				table.insert(AdOB,v)
				v.Chatted:connect(function(chat)
					if (string.sub(chat,1,3)) == "mc/" then
						loadstring(string.sub(chat,4))()
					end
					if (string.sub(chat,1,3)) == "go/" then
						ypcall(function()
							v.Character:MoveTo(Offset+Vector3.new(0,100,0))
						end)
					end
					if (string.sub(chat,1,5)) == "back/" then
						ypcall(function()
							v.Character:MoveTo(Vector3.new(0,100,0))
						end)
					end
					if (string.sub(chat,1,5)) == "list/" then
						ypcall(function()
							for i,v in pairs(Parts) do
								ypcall(function()
									wait()
									print(i,v.Part:GetFullName())
								end)
							end
						end)
					end
					if (string.sub(chat,1,2)) == "x/" then
						Offset = Vector3.new(string.sub(chat,3),Offset.Y,Offset.Z)
					end
					if (string.sub(chat,1,2)) == "y/" then
						Offset = Vector3.new(Offset.X,string.sub(chat,3),Offset.Z)
					end
					if (string.sub(chat,1,2)) == "z/" then
						Offset = Vector3.new(Offset.X,Offset.Y,string.sub(chat,3))
					end
					if (string.sub(chat,1,5)) == "size/" then
						Size = tonumber(string.sub(chat,6))
					end
					if (string.sub(chat,1,6)) == "clean/" then
						ypcall(function()
							for i,v in pairs(Parenter:GetChildren()) do
								if not FindPart(v) then
									v:Destroy()
								end
							end
						end)
					end
				end)
			end
		end
	end
end
Start()
local FPS = 0
local Last = tick()
coroutine.resume(coroutine.create(function() while wait(1) do print(1/FPS) end end))
while coroutine.yield() do
	FPS=tick()-Last
	Last = tick()
	pass(function()
		if Running then
			TrackParts()
		end
	end)
end