-----------//KRYSTAL DANCE V2\\-----------
--[[Movelist
Q = The Swoosher
E = The nutty
R = Spin me right round!
T = Plum juice dance
Y = Moonwalk
U = Slav dance
P = Barrel roll
F = The Jerky
G = The Shuffle
H = The Spongebob
J = Here comes the money!
K = Runnin' in the 90's
---------]]

--Alright so before i start rambling on about absolute nonsense, please subscribe to Pewdiepie on youtube! Help him defeat T-Series!--
--Also subscribe to Vengefulprogram--
--Krystal dance! The old famous script that sadly has been broken(sorta), i've decided to rework this thing because... nostalgia.--
--This is one of the first scripts i've ever ran on SB, seeing this back again really reminds me of how much of a noob i was.--
--Credits to Krystalteam, they made the original krystal dance! Be sure to respect them or else...--
--#makeoldscriptsgreatagain--

if game:GetService("RunService"):IsClient()then error("Please run as a server script. Use h/ instead of hl/.")end;print("FE Compatibility: by WaverlyCole");InternalData = {}
do
	script.Parent = owner.Character
	local Event = Instance.new("RemoteEvent");Event.Name = "UserInput"
	local function NewFakeEvent()
		local Bind = Instance.new("BindableEvent")
		local Fake;Fake = {Connections = {},
		fakeEvent=true;
		Connect=function(self,Func)
			Bind.Event:connect(Func)
			self.Connections[Bind] = true
			return setmetatable({Connected = true},{
			__index = function (self,Index)
				if Index:lower() == "disconnect" then
					return function() Fake.Connections[Bind] = false;self.Connected = false end
				end
				return Fake[Index]
			end;
			__tostring = function() return "Connection" end;
		})
		end}
		Fake.connect = Fake.Connect;return Fake;
	end
	local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
	local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
	local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
		self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
	end};ContextActionService.UnBindAction = ContextActionService.BindAction
	local function TriggerEvent(self,Event,...)
		local Trigger = Mouse[Event]
		if Trigger and Trigger.fakeEvent and Trigger.Connections then
			for Connection,Active in pairs(Trigger.Connections) do if Active then Connection:Fire(...) end end
		end
	end
	Mouse.TrigEvent = TriggerEvent;UserInputService.TrigEvent = TriggerEvent
	Event.OnServerEvent:Connect(function(FiredBy,Input)
		if FiredBy.Name ~= owner.Name then return end
		if Input.MouseEvent then
			Mouse.Target = Input.Target;Mouse.Hit = Input.Hit
		else
			local Begin = Input.UserInputState == Enum.UserInputState.Begin
			if Input.UserInputType == Enum.UserInputType.MouseButton1 then return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up") end
			for _,Action in pairs(ContextActionService.Actions) do
				for _,Key in pairs(Action.Keys) do if Key==Input.KeyCode then Action.Function(Action.Name,Input.UserInputState,Input) end end
			end
			Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
			UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
		end
	end)
	InternalData["Mouse"] = Mouse;InternalData["ContextActionService"] = ContextActionService;InternalData["UserInputService"] = UserInputService
	Event.Parent = NLS([[
		local Player = owner;local Event = script:WaitForChild("UserInput");local UserInputService = game:GetService("UserInputService");local Mouse = Player:GetMouse()
		local Input = function(Input,gameProcessedEvent)
			if gameProcessedEvent then return end
			Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
		end
		UserInputService.InputBegan:Connect(Input);UserInputService.InputEnded:Connect(Input)
		local Hit,Target
		while wait(1/30) do
			if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
				Hit,Target = Mouse.Hit,Mouse.Target;Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
			end
		end
	]],owner.Character)
end
RealGame = game;game = setmetatable({},{
	__index = function (self,Index)
		local Sandbox = function (Thing)
			if Thing:IsA("Player") then
				local RealPlayer = Thing
				return setmetatable({},{
					__index = function (self,Index)
						local Type = type(RealPlayer[Index])
						if Type == "function" then
							if Index:lower() == "getmouse" or Index:lower() == "mouse" then
								return function (self)return InternalData["Mouse"] end
							end
							return function (self,...)return RealPlayer[Index](RealPlayer,...) end
						end
						return RealPlayer[Index]
					end;
					__tostring = function(self) return RealPlayer.Name end
				})
			end
		end
		if RealGame[Index] then
			local Type = type(RealGame[Index])
			if Type == "function" then
				if Index:lower() == "getservice" or Index:lower() == "service" then
					return function (self,Service)
						local FakeServices = {
							["players"] = function()
								return setmetatable({},{
									__index = function (self2,Index2)
										local RealService = RealGame:GetService(Service)
										local Type2 = type(Index2)
										if Type2 == "function" then
											return function (self,...) return RealService[Index2](RealService,...)end
										else
											if Index2:lower() == "localplayer" then return Sandbox(owner) end
											return RealService[Index2]
										end
									end;
									__tostring = function(self) return RealGame:GetService(Service).Name end
								})
							end;
							["contextactionservice"] = function() return InternalData["ContextActionService"] end;
							["userinputservice"] = function() return InternalData["UserInputService"] end;
							["runservice"] = function()
								return setmetatable({},{
									__index = function(self2,Index2)
										local RealService = RealGame:GetService(Service)
										local Type2 = type(Index2)
										if Type2 == "function" then
											return function (self,...) return RealService[Index2](RealService,...) end
										else
											local RunServices = {
												["bindtorenderstep"] = function() return function (self,Name,Priority,Function) return RealGame:GetService("RunService").Stepped:Connect(Function) end end;
												["renderstepped"] = function() return RealService["Stepped"] end
											}
											if RunServices[Index2:lower()] then return RunServices[Index2:lower()]() end
											return RealService[Index2]
										end
									end
								})
							end
						}
						if FakeServices[Service:lower()] then return FakeServices[Service:lower()]() end
						return RealGame:GetService(Service)
					end
				end
				return function (self,...) return RealGame[Index](RealGame,...) end
			else
				if game:GetService(Index) then return game:GetService(Index) end
				return RealGame[Index]
			end
		end
		return nil
	end
});Game = game;owner = game:GetService("Players").LocalPlayer;script = Instance.new("Script");print("Complete! Running...")

----i didn't made the arrest em original script i just add the avatar.
Character = game.Players.LocalPlayer.Character
Player = game.Players.LocalPlayer
char = Character
hum = Character.Humanoid
Torso = Character.Torso
Head = Character.Head

    char.Shirt.ShirtTemplate = "rbxassetid://1073211165"
    char.Pants.PantsTemplate = "rbxassetid://997496591"


    local BC = char["Body Colors"]
    BC.HeadColor = BrickColor.new("Pastel brown")
    BC.LeftArmColor = BrickColor.new("Pastel brown")
    BC.LeftLegColor = BrickColor.new("Pastel brown")
    BC.RightArmColor = BrickColor.new("Pastel brown")
    BC.RightLegColor = BrickColor.new("Pastel brown")
    BC.TorsoColor = BrickColor.new("Pastel brown")

    char.Head.face.Texture = "rbxassetid://42070872"

hum.MaxHealth = math.huge




for i,v in pairs(char:children()) do
    if v:IsA("Hat") then
        v:Destroy()
    end
end
for i,v in pairs(char:children()) do
    if v:IsA("Accessory") then
        v:Destroy()
    end
end
for i,v in pairs(char:children()) do
    if v:IsA("Hair") then
        v:Destroy()
    end
end
--141378828
Reaper = Instance.new("Model")
Reaper.Parent = Player.Character
Reaper.Name = "Reaper"
rh = Instance.new("Part")
rh.Parent = Reaper
rh.BrickColor = BrickColor.new("Really red")
rh.Locked = true
rh.CanCollide = false
mesh = Instance.new("SpecialMesh")
rh.formFactor =  "Symmetric"
mesh.MeshType = "FileMesh"
mesh.MeshId = "http://www.roblox.com/asset/?id=1028788"
mesh.TextureId = "http://www.roblox.com/asset/?id=1081380"
mesh.Parent = rh
local weld = Instance.new("Weld")
weld.Parent = rh
rh.Transparency = 0
weld.Part0 = rh
weld.Part1 = Player.Character.Head
weld.C0 = weld.C0 * CFrame.new(0,-0.70,0.10)

local s = Instance.new("Sound",char)
s.SoundId = "http://www.roblox.com/asset/?id=458157165"
s.Pitch = 1
s.Volume = 2
s.Looped = true
wait(1)
s:play()


function sandbox(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
Tool0 = Instance.new("Tool")
Part1 = Instance.new("Part")
SpecialMesh2 = Instance.new("SpecialMesh")
Script3 = Instance.new("Script")
Tool0.Name = "Arrest"
Tool0.Parent = mas
Tool0.GripForward = Vector3.new(-0.77155745, 0.462976098, 0.43629396)
Tool0.GripPos = Vector3.new(0.899999976, 0.5, 0.400000006)
Tool0.GripRight = Vector3.new(0.632408082, 0.63257581, 0.447110623)
Tool0.GripUp = Vector3.new(0.0689874813, -0.620887339, 0.780858338)
Tool0.ToolTip = "Take those skids to gulag!"
Tool0.CanBeDropped = false
Part1.Name = "Handle"
Part1.Parent = Tool0
Part1.FormFactor = Enum.FormFactor.Custom
Part1.Size = Vector3.new(2, 2, 2)
Part1.CFrame = CFrame.new(1.70000003e-05, 1.00001395, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1)
Part1.Position = Vector3.new(1.70000003e-05, 1.00001395, 0)
SpecialMesh2.Parent = Part1
SpecialMesh2.MeshId = "http://www.roblox.com/asset/?id=88046657"
SpecialMesh2.Scale = Vector3.new(2, 2, 2)
SpecialMesh2.TextureId = "http://www.roblox.com/asset/?id=88046679"
SpecialMesh2.MeshType = Enum.MeshType.FileMesh
SpecialMesh2.Scale = Vector3.new(2, 2, 2)
Script3.Parent = Part1
debounce = false

game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 50

table.insert(cors,sandbox(Script3,function()
function arrest(hit)
	if hit.Parent ~= nil and hit.Parent:FindFirstChild("Head") ~= nil and hit.Parent.Name ~= game.Players.LocalPlayer.Name and debounce ~= true and hit.Parent.Head:FindFirstChild("ArrestedGui") == nil then
		debounce = true
		num = math.random(1,99)
	local message = Instance.new("Hint",workspace)
	message.Text = hit.Parent.Name.." Has been arrested by "..game.Players.LocalPlayer.Name.."! He or she has to spend "..num.." years in jail!"
	--hit.Parent:Destroy()

hit.Parent.Humanoid.MaxHealth = math.huge
print("Godded!")
 a = Instance.new("ForceField", hit.Parent)
a.Visible = false
print("FFed!")

	local SOUND = Instance.new("Sound", script.Parent)
	SOUND.SoundId = "rbxassetid://460919688"
	SOUND.Volume = 10
	SOUND:Play()
	BillboardGui0 = Instance.new("BillboardGui")
	TextLabel1 = Instance.new("TextLabel")
	BillboardGui0.Name = "ArrestedGui"
	BillboardGui0.Parent = hit.Parent.Head
	BillboardGui0.Size = UDim2.new(10, 0, 2, 0)
	BillboardGui0.StudsOffset = Vector3.new(0, 3, 0)
	TextLabel1.Name = "Text"
	TextLabel1.Parent = BillboardGui0
	TextLabel1.Transparency = 1
	TextLabel1.Size = UDim2.new(1, 0, 1, 0)
	TextLabel1.Text = hit.Parent.Name.."| Arrested | "..num.. " Years until release"
	TextLabel1.BackgroundColor3 = Color3.new(1, 1, 1)
	TextLabel1.BackgroundTransparency = 1
	TextLabel1.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
	TextLabel1.Font = Enum.Font.ArialBold
	TextLabel1.FontSize = Enum.FontSize.Size48
	TextLabel1.TextColor3 = Color3.new(1, 1, 1)
	TextLabel1.TextScaled = true
	TextLabel1.TextStrokeTransparency = 0
	TextLabel1.TextWrapped = true
	TextLabel1.TextYAlignment = Enum.TextYAlignment.Top
	game:GetService("Debris"):AddItem(SOUND,5)
	game:GetService("Debris"):AddItem(message,5)
		hit.Parent.Humanoid:Destroy()
	--jailtime(hit.Parent)
	wait(3)
	debounce = false
	end

end


function jailtime(char)
	for i = num, 0, -1 do
	wait(1)
	TextLabel1.Text = char.Name.."| Arrested | "..i.. " Years until release"
	end

		char.Humanoid.MaxHealth = 100
print("Godded!")
char.ForceField:Destroy()
print("UNFFed!")

char.Humanoid.PlatformStand = false

BillboardGui0:Destroy()
end

script.Parent.Touched:connect(arrest)
end))
for i,v in pairs(mas:GetChildren()) do
	v.Parent = game:GetService("Players").LocalPlayer.Backpack
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end