Demi testing

plr = game.Players.LocalPlayer
mouse = plr:GetMouse()
part = nil
bp = nil
particles = nil
function clerp(a,b,c,d)
	for i = 0,d,.01 do
		a.CFrame = CFrame.new(b:lerp(c,i))
		wait()
	end
end
function slerp(a2,b2,c2,d2)
	for i2 = 0,d2,.01 do
		a2.CFrame = CFrame.new(b2:lerp(c2,i2))
		wait()
	end
end
mouse.KeyDown:connect(function(key)
	if key == "e" and plr.Character.Parent == workspace then
		plr.Character.Parent = workspace.Camera
		plr.Character.Archivable = true
		Instance.new("ForceField",plr.Character).Visible = false
		for y,t in pairs(plr.Character:GetChildren()) do
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
				t.Transparency = 1
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face.Transparency = 0.5
				end
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 0.5
			end
		end
	elseif key == "z" and plr.Character.Parent == workspace.Camera and part == nil then
		plr.Character.Torso.CFrame = CFrame.new(Vector3.new(mouse.hit.p.X,mouse.hit.p.Y+1.5,mouse.hit.p.Z),plr.Character.Torso.CFrame.p)
	elseif key == "x" and plr.Character.Parent == workspace.Camera and part == nil then
		if plr.Character.Torso.Anchored == true then
			for y,t in pairs(plr.Character:GetChildren()) do
				if t:IsA("Part") then
					t.Anchored = false
				end
			end
		else
			for y,t in pairs(plr.Character:GetChildren()) do
				if t:IsA("Part") then
					t.Anchored = true
				end
			end
		end
	elseif key == "c" and plr.Character.Parent == workspace.Camera and part ~= nil then
		local clone = part:Clone()
		clone.Parent = workspace
		clone.Anchored = false
		clone:ClearAllChildren()
		clone.CanCollide = true
		bp.Parent = clone
		particles.Parent = clone
		if part.Parent:FindFirstChildOfClass("Humanoid") then
			part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false
		end
		part:Destroy()
		part = clone
	elseif key == "t" and plr.Character.Parent == workspace.Camera and part == nil then
		plr.Character.Parent = workspace
		plr.Character.Archivable = false
		plr.Character:FindFirstChildOfClass("ForceField"):Remove()
		for y,t in pairs(plr.Character:GetChildren()) do
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
				t.Transparency = 0
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face.Transparency = 0
				end
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 0
			end
		end
	end
end)
mouse.Button1Down:connect(function()
	if plr.Character.Parent == workspace.Camera then
		if mouse ~= nil then
			if mouse.Target ~= nil then
				part = mouse.Target
				bp = Instance.new("BodyPosition",part)
				bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
				bp.Position = part.Position
				particles = Instance.new("ParticleEmitter",part)
				particles.Color = ColorSequence.new(Color3.new(0,0,0))
				particles.Size = NumberSequence.new(20)
				particles.Texture = "rbxassetid://1038410267"
				particles.VelocitySpread = 360
				particles.Speed = NumberRange.new(15)
				particles.RotSpeed = NumberRange.new(0)
				particles.Rotation = NumberRange.new(0)
				particles.Rate = 250
				particles.Lifetime = NumberRange.new(.2,.4)
				particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})
				dwn = true
			end
		end
		while dwn == true do
			wait()
			bp.Position = mouse.hit.p
			if part then
				if part.Parent:FindFirstChildOfClass("Humanoid") then
					part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true
				end
			end
		end
	end
end)
mouse.Button1Up:connect(function()
	dwn = false
	if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end
	if bp then bp:Destroy() end
	if particles then particles:Destroy() end
end)
base = Instance.new("ScreenGui",plr.PlayerGui)
bbg = Instance.new("BillboardGui",plr.Character.Head)
bbg.Size = UDim2.new(0,200,0,50)
bbg.StudsOffset = Vector3.new(0,3,0)
bbgTl = Instance.new("TextLabel",bbg)
bbgTl.BackgroundTransparency = 0.3
bbgTl.Size = UDim2.new(10,0,1,0)
bbgTl.Position = UDim2.new(-4.5,0,0,0)
bbgTl.Font = "Fantasy"
bbgTl.Text = " "
bbgTl.TextSize = 50
bbgTl.TextStrokeColor3 = Color3.new(1,1,1)
bbgTl.TextColor3 = Color3.new(0,0,0)
bbgTl.TextStrokeTransparency = 0
bbgTl.TextWrapped = true
plr.Chatted:connect(function(msg)
	bbgTl.Text = msg
	wait(5)
	if bbgTl.Text == msg then
		bbgTl.Text = " "
	end
end)
touchCounter = 0
while wait() do
	if plr.Character.Parent == workspace.Camera then
		local c = plr.Character:Clone()
		c:MakeJoints()
		for y,t in pairs(c:GetChildren()) do
			if t:IsA("Part") then
				t.CanCollide = false
				t.Anchored = true
				t.Transparency = .7
				t.TopSurface = "Neon"
				t.BottomSurface = "Neon"
				t.RightSurface = "Neon"
				t.LeftSurface = "Neon"
				t.FrontSurface = "Neon"
				t.BackSurface = "Neon"
				t.BrickColor = BrickColor.new("Crimson")
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face:Remove()
				elseif t.Name == "Torso" and t:FindFirstChild("roblox") then
					t.roblox:Remove()
				elseif t.Name == "HumanoidRootPart" then
					t:Remove()
				end
			else
				t:Remove()
			end
		end
		c.Parent = workspace
		game.Debris:AddItem(c,.05)
	end
end
-- x10Shield --
local me = game:GetService("Players").LocalPlayer
local ShieldSize = 5
local canCollide = false
local isLocked = false
local defaultTransparency = 1
local whitelist = {"", "", "", ""}

local scriptBreak = false
local followPart = me.Character.HumanoidRootPart
local actualList = {}
local playerList = {}
table.insert(playerList, me)
for i,v in pairs(game:GetService("Players"):GetPlayers()) do
		for _,wplay in pairs(whitelist) do
		if v.Name:lower() == wplay:lower() then
			table.insert(playerList, v)
		end
	end
end

local MainLocation = me.Character.Torso

function createShield()
	pcall(function()
		pcall(function()
			for i,v in pairs(MainLocation:GetChildren()) do
				if v.Name == "weinershield" then
					v:Destroy()
				end
			end
		end)
		local mod = Instance.new("Model", MainLocation)
		mod.Name = "weinershield"
		local p1 = Instance.new("Part", mod)
		p1.Name = "front"
		p1.Size = Vector3.new(ShieldSize,ShieldSize,1)
		p1.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y, followPart.Position.Z+(ShieldSize/2))
		local b = Instance.new("BlockMesh", p1)
		b.Scale = Vector3.new(1, 1, 0)
		local p2 = Instance.new("Part", mod)
		p2.Name = "back"
		p2.Size = Vector3.new(ShieldSize,ShieldSize,1)
		p2.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y, followPart.Position.Z-(ShieldSize/2))
		local b = Instance.new("BlockMesh", p2)
		b.Scale = Vector3.new(1, 1, 0)
		local p3 = Instance.new("Part", mod)
		p3.Name = "left"
		p3.Size = Vector3.new(1,ShieldSize,ShieldSize)
		p3.CFrame = CFrame.new(followPart.Position.X+(ShieldSize/2), followPart.Position.Y, followPart.Position.Z)
		local b = Instance.new("BlockMesh", p3)
		b.Scale = Vector3.new(0, 1, 1)
		local p4 = Instance.new("Part", mod)
		p4.Name = "right"
		p4.Size = Vector3.new(1,ShieldSize,ShieldSize)
		p4.CFrame = CFrame.new(followPart.Position.X-(ShieldSize/2), followPart.Position.Y, followPart.Position.Z)
		local b = Instance.new("BlockMesh", p4)
		b.Scale = Vector3.new(0, 1, 1)
		local p5 = Instance.new("Part", mod)
		p5.Name = "top"
		p5.Size = Vector3.new(ShieldSize,1,ShieldSize)
		p5.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y+(ShieldSize/2), followPart.Position.Z)
		local b = Instance.new("BlockMesh", p5)
		b.Scale = Vector3.new(1, 0, 1)
		local p6 = Instance.new("Part", mod)
		p6.Name = "bottom"
		p6.Size = Vector3.new(ShieldSize,1,ShieldSize)
		p6.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y-(ShieldSize/2), followPart.Position.Z)
		local b = Instance.new("BlockMesh", p6)
		b.Scale = Vector3.new(1, 0, 1)
		for i,v in pairs(mod:GetChildren()) do
			v.Anchored = true
			v.Transparency = defaultTransparency
			v.Material = "Neon"
			v.TopSurface = "Smooth"
			v.BottomSurface = "Smooth"
			v.CanCollide = canCollide
		end
		mod.ChildRemoved:connect(function(a)
			game:GetService("RunService").Stepped:wait()
			if a.ClassName == "Part" then
				createShield()
			end
		end)
	end)
end
wait(5)
function updateShield()
	pcall(function()
		char = me.Character
		for i,v in pairs(MainLocation:findFirstChild("weinershield"):GetChildren()) do
			v.Anchored = true
			v.Transparency = defaultTransparency
			v.Material = "Neon"
			v.TopSurface = "Smooth"
			v.BottomSurface = "Smooth"
			v.CanCollide = canCollide
		end
		MainLocation:findFirstChild("weinershield").front.Size = Vector3.new(ShieldSize,ShieldSize,1)
		MainLocation:findFirstChild("weinershield").front.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y, followPart.Position.Z+(ShieldSize/2))
		MainLocation:findFirstChild("weinershield").back.Size = Vector3.new(ShieldSize,ShieldSize,1)
		MainLocation:findFirstChild("weinershield").back.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y, followPart.Position.Z-(ShieldSize/2))
		MainLocation:findFirstChild("weinershield").left.Size = Vector3.new(1,ShieldSize,ShieldSize)
		MainLocation:findFirstChild("weinershield").left.CFrame = CFrame.new(followPart.Position.X+(ShieldSize/2), followPart.Position.Y, followPart.Position.Z)
		MainLocation:findFirstChild("weinershield").right.Size = Vector3.new(1,ShieldSize,ShieldSize)
		MainLocation:findFirstChild("weinershield").right.CFrame = CFrame.new(followPart.Position.X-(ShieldSize/2), followPart.Position.Y, followPart.Position.Z)
		MainLocation:findFirstChild("weinershield").top.Size = Vector3.new(ShieldSize,1,ShieldSize)
		MainLocation:findFirstChild("weinershield").top.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y+(ShieldSize/2), followPart.Position.Z)
		MainLocation:findFirstChild("weinershield").bottom.Size = Vector3.new(ShieldSize,1,ShieldSize)
		MainLocation:findFirstChild("weinershield").bottom.CFrame = CFrame.new(followPart.Position.X, followPart.Position.Y-(ShieldSize/2), followPart.Position.Z)
	end)
end


local function CreateRegion3FromLocAndSize(Position, Size)
	local SizeOffset = Size/2
	local Point1 = Position - SizeOffset
	local Point2 = Position + SizeOffset
	return Region3.new(Point1, Point2)
end

createShield()
game:GetService("RunService").Heartbeat:connect(function()
	if not scriptBreak then
		local me = game:GetService("Players").LocalPlayer
		local char = workspace:findFirstChild(me.Name)
		actualList = {}
		for i,v in pairs(playerList) do
			pcall(function()
				table.insert(actualList, workspace:findFirstChild(v.Name))
			end)
		end
		if MainLocation:findFirstChild("weinershield") ~= nil then
			updateShield()
		else
			createShield()
		end
		pcall(function()
			local Region = CreateRegion3FromLocAndSize(followPart.Position, Vector3.new(ShieldSize+1,ShieldSize+1,ShieldSize+1))
			for _,Part in pairs(workspace:FindPartsInRegion3WithIgnoreList(Region,actualList,math.huge)) do
				if Part.Name ~= "Base" and not Part:isDescendantOf(MainLocation:findFirstChild("weinershield")) then
					Part:Destroy()
				end
			end
		end)
		pcall(function()
			for i,v in pairs(actualList) do
				if v:findFirstChild("Humanoid") ~= nil then
					v.Humanoid.MaxHealth = math.huge
					v.Humanoid.Health = math.huge
				else
					Instance.new("Humanoid", v)
				end
			end
		end)
	end
end)

wait(10)
local p = game.Players.LocalPlayer
local char = p.Character
local hed = char.Head
local LocalPlayer = p

local Player = game.Players.localPlayer
local Character = p.Character
local LeftArm2 = Character["Left Arm"]
local RightArm2 = Character["Right Arm"]
local LeftLeg2 = Character["Left Leg"]
local RightLeg2 = Character["Right Leg"]
local Head2 = Character.Head
local Torso2 = Character.Torso

--created by SoldierJoao
--Credits to metabee for the knives edit

mse = Player:GetMouse()

sound = Instance.new("Sound", Character)
sound.SoundId = "rbxassetid://242076158"
sound.Volume = 2.5
sound2 = Instance.new("Sound", Character)
sound2.SoundId = "rbxassetid://242076158"
sound2.Volume = 2.5
sound3 = Instance.new("Sound", Character)
sound3.SoundId = "rbxassetid://242076158"
sound3.Volume = 1.8
sound4 = Instance.new("Sound", Character)
sound4.SoundId = "rbxassetid://242076158"
sound4.Volume = 2
TSTheme = Instance.new("Sound", Character)
TSTheme.SoundId = "rbxassetid://242076158"
TSTheme.Volume = 2
canworld = true
mse.KeyDown:connect(function(key)
	key = key:lower()
	if key == "t" then
		if canworld == false then return end
		if canworld then
		canworld = false
		sound3:Play()
wait(2)
		sound:Play()
		sound4:Play()
		TSTheme:Play()

		local function spawnpart()
		sphere = Instance.new("Part")
		--game.Debris:AddItem(sphere,3)
		local sm = Instance.new("SpecialMesh", sphere)
		sm.MeshType = "Sphere"
		sphere.Transparency = 0.5
		sphere.Anchored = true
		sphere.CanCollide = false
		sphere.Material = "Neon"
		sphere.BrickColor = BrickColor.new("Black")
		end

		local function weld(lol)
			local weld = Instance.new("Weld", Player.Character.Torso)
			weld.Part0 = Player.Character.Torso
			weld.Part1 = lol
			weld.C0 = Player.Character.Torso.CFrame:inverse()
			weld.C1 = lol.CFrame:inverse()
		end
		wait()
		spawnpart()
			for i, v in pairs(game.Players:GetChildren()) do
			t = v.Character:FindFirstChild("Torso")
			if t then
				t.Anchored = true
				Player.Character:FindFirstChild("Torso").Anchored = false
			end
			RA = v.Character:FindFirstChild("Right Arm")
			if RA then
				RA.Anchored = true
				Player.Character:FindFirstChild("Right Arm").Anchored = false
			end
			LA = v.Character:FindFirstChild("Left Arm")
			if LA then
				LA.Anchored = true
				Player.Character:FindFirstChild("Left Arm").Anchored = false
			end
			RL = v.Character:FindFirstChild("Right Leg")
			if RL then
				RL.Anchored = true
				Player.Character:FindFirstChild("Right Leg").Anchored = false
			end
			LL = v.Character:FindFirstChild("Left Leg")
			if LL then
				LL.Anchored = true
				Player.Character:FindFirstChild("Left Leg").Anchored = false
			end
		end
		weld(sphere)
		cce = Instance.new("ColorCorrectionEffect", game.Lighting)
		cce.Saturation = -5
		--game.Debris:AddItem(cce, 5)
		sphere.Parent = Character.Torso
		for i = 1,3 do
			sphere.Size = sphere.Size + Vector3.new(50,50,50)
			wait()
			end
wait()
                        sphere:Destroy()
BeeSpeed = 0
		cce.Saturation = -0.1
		wait(0.3)
		cce.Saturation = -0.2
		wait(0.3)
		cce.Saturation = -0.3
		wait(0.2)
	        cce.Saturation = -1.5
                wait()
		end
	end
end
)


mse.KeyDown:connect(function(key)
	key = key:lower()
	if key == "y" then
canworld = true
		sound2:Play()
wait()
BeeSpeed = 1
		cce.Saturation = -1.3
		wait(0.5)
BeeSpeed = 1.2
		cce.Saturation = -0.5
		wait(0.5)
BeeSpeed = 1.4
		cce.Saturation = -0.4
		wait(0.3)
BeeSpeed = 1.5
		cce.Saturation = -0.2
		wait(0.2)
	        cce.Saturation = 0

		for i, v in pairs(game.Players:GetChildren()) do
		t = v.Character:FindFirstChild("Torso")
			if t then
				t.Anchored = false
			end
			RA = v.Character:FindFirstChild("Right Arm")
			if RA then
				RA.Anchored = false
			end
			LA = v.Character:FindFirstChild("Left Arm")
			if LA then
				LA.Anchored = false
			end
			RL = v.Character:FindFirstChild("Right Leg")
			if RL then
				RL.Anchored = false
			end
			LL = v.Character:FindFirstChild("Left Leg")
			if LL then
				LL.Anchored = false
			end
		end
BeeSpeed = 100
TSTheme:Stop()
end
end)