peanut

--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do
	local RealPlayer = RealPlayer
	script.Parent = RealPlayer.Character

	--Fake event to make stuff like Mouse.KeyDown work
	local Disconnect_Function = function(this)
		this[1].Functions[this[2]] = nil
	end
	local Disconnect_Metatable = {__index={disconnect=Disconnect_Function,Disconnect=Disconnect_Function}}
	local FakeEvent_Metatable = {__index={
		Connect = function(this,f)
			local i = tostring(math.random(0,10000))
			while this.Functions[i] do
				i = tostring(math.random(0,10000))
			end
			this.Functions[i] = f
			return setmetatable({this,i},Disconnect_Metatable)
		end
	}}
	FakeEvent_Metatable.__index.connect = FakeEvent_Metatable.__index.Connect
	local function fakeEvent()
		return setmetatable({Functions={}},FakeEvent_Metatable)
	end

	--Creating fake input objects with fake variables
	local FakeMouse = {Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
	FakeMouse.keyUp = FakeMouse.KeyUp
	FakeMouse.keyDown = FakeMouse.KeyDown
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
		CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
	end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function TriggerEvent(self,ev,...)
		for _,f in pairs(self[ev].Functions) do
			f(...)
		end
	end
	FakeMouse.TriggerEvent = TriggerEvent
	UIS.TriggerEvent = TriggerEvent

	--Client communication
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"
	Event.OnServerEvent:Connect(function(plr,io,rbxHandled)
		if plr~=RealPlayer then return end
		FakeMouse.Target = io.Target
		FakeMouse.Hit = io.Hit
		if not io.isMouse then
			local b = io.UserInputState == Enum.UserInputState.Begin
			UIS:TriggerEvent(b and "InputBegan" or "InputEnded",io,rbxHandled)
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return FakeMouse:TriggerEvent(b and "Button1Down" or "Button1Up")
			end
			if io.UserInputType == Enum.UserInputType.MouseButton2 then
				return FakeMouse:TriggerEvent(b and "Button2Down" or "Button2Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			FakeMouse:TriggerEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			--UIS:TriggerEvent(b and "InputBegan" or "InputEnded",io,rbxHandled)
		end
	end)
	Event.Parent = NLS([==[local Event = script:WaitForChild("UserInput_Event")
	local Mouse = owner:GetMouse()
	local UIS = game:GetService("UserInputService")
	local input = function(io,RobloxHandled)
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target},RobloxHandled)
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)

	local h,t
	--Give the server mouse data every second frame, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	local HB = game:GetService("RunService").Heartbeat
	while true do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
		--Wait 2 frames
		for i=1,2 do
			HB:Wait()
		end
	end]==],script)

	----Sandboxed game object that allows the usage of client-side methods and services
	--Real game object
	local RealGame = game

	--Metatable for fake service
	local FakeService_Metatable = {
		__index = function(self,k)
			local s = rawget(self,"_RealService")
			if s then
				return typeof(s[k])=="function"
					and function(_,...)return s[k](s,...)end or s[k]
			end
		end,
		__newindex = function(self,k,v)
			local s = rawget(self,"_RealService")
			if s then s[k]=v end
		end
	}
	local function FakeService(t,RealService)
		t._RealService = typeof(RealService)=="string" and RealGame:GetService(RealService) or RealService
		return setmetatable(t,FakeService_Metatable)
	end

	--Fake game object
	local FakeGame = {
		GetService = function(self,s)
			return rawget(self,s) or RealGame:GetService(s)
		end,
		Players = FakeService({
			LocalPlayer = FakeService({GetMouse=function(self)return FakeMouse end},Player)
		},"Players"),
		UserInputService = FakeService(UIS,"UserInputService"),
		ContextActionService = FakeService(CAS,"ContextActionService"),
		RunService = FakeService({
			_btrs = {},
			RenderStepped = RealGame:GetService("RunService").Heartbeat,
			BindToRenderStep = function(self,name,_,fun)
				self._btrs[name] = self.Heartbeat:Connect(fun)
			end,
			UnbindFromRenderStep = function(self,name)
				self._btrs[name]:Disconnect()
			end,
		},"RunService")
	}
	rawset(FakeGame.Players,"localPlayer",FakeGame.Players.LocalPlayer)
	FakeGame.service = FakeGame.GetService
	FakeService(FakeGame,game)
	--Changing owner to fake player object to support owner:GetMouse()
	game,owner = FakeGame,FakeGame.Players.LocalPlayer
end

-- END

local SPEED = 110

local runService = game:GetService("RunService")
local userInput = game.UserInputService
local collectionService = game:GetService("CollectionService")

local character: Model = RealPlayer.Character or RealPlayer.CharacterAdded:Wait()
local mouse = owner:GetMouse()

local noKill = false
local shouldMove = true
local blink = false
local blinked = false
local willMove = false
local goFast = false

local raycastParams = RaycastParams.new()
raycastParams.FilterDescendantsInstances = {character}
raycastParams.FilterType = Enum.RaycastFilterType.Exclude

local humanoid: Humanoid = character:WaitForChild("Humanoid")
local lastPosition = humanoid.RootPart.Position

for _,x in ipairs(character:GetDescendants()) do
	if x:IsA("Accessory") or x:IsA("Decal") or x:IsA("Sound") then
		x:Destroy()
	end

	if x:IsA("BasePart") and x ~= humanoid.RootPart and not x:FindFirstAncestorWhichIsA("Tool") then
		x.Transparency = 1
	end
end

for _,char in ipairs(workspace:GetChildren()) do
	if char:IsA("Model") and char:FindFirstChildWhichIsA("Humanoid") then
		raycastParams:AddToFilter(char)
	end
end

local teleporting = Instance.new("BoolValue")
teleporting.Name = "Teleporting"
teleporting.Parent = character

local looked = Instance.new("BoolValue")
looked.Name = "Looked"
looked.Parent = character

local canmove = Instance.new("BoolValue")
canmove.Name = "CanMove"
canmove.Parent = character

local moveSounds = {
	"rbxassetid://15869750783",
	"rbxassetid://15869752342",
	--"rbxassetid://15869754306"
}

local moveSound = Instance.new("Sound")
moveSound.Parent = humanoid.RootPart or character:WaitForChild("HumanoidRootPart")
moveSound.Volume = 0.5
moveSound.SoundId = moveSounds[math.random(1,#moveSounds)]
moveSound.Looped = false
local blinkMoveSound = Instance.new("Sound")
blinkMoveSound.Parent = humanoid.RootPart or character:WaitForChild("HumanoidRootPart")
blinkMoveSound.Volume = 3
blinkMoveSound.SoundId = "rbxassetid://7785668624"

humanoid.MaxHealth = math.huge
humanoid.Health = humanoid.MaxHealth

humanoid.HealthDisplayType = Enum.HumanoidHealthDisplayType.AlwaysOn
humanoid.HealthDisplayDistance = math.huge
humanoid.WalkSpeed = SPEED
humanoid.RootPart.Transparency = 0

local mesh = Instance.new("SpecialMesh")
mesh.MeshId = "rbxassetid://7176615085"
mesh.TextureId = "rbxassetid://7176615317"
mesh.Scale = Vector3.new(0.02,0.02,0.02)
mesh.Offset = Vector3.new(0,0.6,0)
mesh.Parent = humanoid.RootPart



NLS([==[
local runService = game:GetService("RunService")
local userInput = game:GetService("UserInputService")
local mouse = owner:GetMouse()
local character = owner.Character or owner.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local teleporting = character:WaitForChild("Teleporting")
local looked = character:WaitForChild("Looked")
local canmove = character:WaitForChild("CanMove")

local part = Instance.new("Part")
part.Name = "Target"
part.CanCollide = false
part.CanQuery = false
part.CanTouch = false
part.Anchored = true
part.Size = Vector3.new(2,2,1)
part.Parent = character

local mesh = Instance.new("SpecialMesh")
mesh.MeshId = "rbxassetid://7176615085"
mesh.TextureId = "rbxassetid://7176615317"
mesh.Scale = Vector3.new(0.02,0.02,0.02)
mesh.Offset = Vector3.new(0,0.6,0)
mesh.Parent = part

runService.RenderStepped:Connect(function()
	if workspace.CurrentCamera then
		workspace.CurrentCamera.FieldOfView = 90
	end
	
	if looked.Value then
		if canmove.Value then
			userInput.MouseIcon = "rbxassetid://15821955138"
		else
			userInput.MouseIcon = "rbxassetid://15821823896"
		end
	else
		userInput.MouseIcon = ""
	end
	
	part.LocalTransparencyModifier = 0
	if teleporting.Value and mouse.Target then
		local distance = (mouse.Hit.Position - humanoid.RootPart.Position).Magnitude
		if distance > 80 then
			mesh.VertexColor = Vector3.new(1,0,0)
		else
			mesh.VertexColor = Vector3.new(0,1,0)
		end
		part.Transparency = 0.5
		part.Position = mouse.Hit.Position + Vector3.new(0,3,0)
	else
		part.Transparency = 1
	end
end)

]==],character)

local function createFilth(position: Vector3)
	local part = Instance.new("Part")
	part.Name = "Filth"
	part.Size = Vector3.new(0.1,10,10)
	part.CFrame = CFrame.new(position) * CFrame.Angles(0,0,math.rad(90))
	part.Anchored = true
	part.CanCollide = false
	part.CanQuery = true
	part.CanTouch = true
	part.Shape = Enum.PartType.Cylinder
	part.Material = Enum.Material.CorrodedMetal
	part.BrickColor = BrickColor.new("Black")
	part.Parent = workspace
	local texture = part:Clone()
	texture.Size += Vector3.new(0.1,0.1,0.1)
	texture.BrickColor = BrickColor.new("Really black")
	texture.Material = Enum.Material.SmoothPlastic
	texture.Transparency = 0.4
	texture.Anchored = false
	texture.CanQuery = false
	texture.CanTouch = false
	texture.Massless = true
	texture.Parent = part
	local weld = Instance.new("Weld")
	weld.Name = "FilthTextureWeld"
	weld.Parent = part
	weld.Part0 = part
	weld.Part1 = texture
	
	collectionService:AddTag(part,"Filth")
end

local function kill()
    if noKill then return end
	local parts = workspace:GetPartBoundsInRadius(humanoid.RootPart.Position,2)
	for _,part in ipairs(parts) do
		if part:IsA("BasePart") then
			local model = part:FindFirstAncestorWhichIsA("Model")
			if model == character then continue end
			local vHumanoid = model:FindFirstChildWhichIsA("Humanoid")
			if not vHumanoid or vHumanoid.Health <= 0 then continue end
			vHumanoid.MaxHealth = 1
			vHumanoid.Health = 0.1
			vHumanoid:TakeDamage(math.huge)
			model:BreakJoints()
			
			local vRoot = vHumanoid.RootPart or model.PrimaryPart or model:FindFirstChild("HumanoidRootPart")
			
			if vRoot then
				local sound = Instance.new("Sound")
				sound.SoundId = "rbxassetid://8464330434"
				sound.Volume = 2
				sound.Parent = vRoot
				sound:Play()
				
				local c
				c = sound.Ended:Connect(function()
					sound:Destroy()
					c:Disconnect()
				end)
			end
			
			break
		end
	end
end

character.DescendantAdded:Connect(function(x)
	if x:IsA("Accessory") or x:IsA("Decal") then
		x:Destroy()
	end

	if x:IsA("BasePart") and x ~= humanoid.RootPart and not x:FindFirstAncestorWhichIsA("Tool") then
		x.Transparency = 1
	end
end)

workspace.ChildAdded:Connect(function(char)
	if char:IsA("Model") and char:FindFirstChildWhichIsA("Humanoid") then
		raycastParams:AddToFilter(char)
	end
end)

userInput.InputBegan:Connect(function(input,chatted)
	if chatted then return end
	if input.KeyCode == Enum.KeyCode.Y then
	   noKill = not noKill
	end
	if input.UserInputType == Enum.UserInputType.MouseButton1 then
		
		if willMove then
			local distance = (mouse.Hit.Position - humanoid.RootPart.Position).Magnitude
			if distance > 80 then
				return
			end
			blinkMoveSound:Play()
			humanoid.RootPart.Position = mouse.Hit.Position + Vector3.new(0,3,0)
			kill()
			blinked = false
			willMove = false
		else
			kill()
		end
	end
	if input.UserInputType == Enum.UserInputType.MouseButton2 then
		if not willMove and blinked then
			willMove = true
		end
	end
	if input.KeyCode == Enum.KeyCode.F then
		local raycast = workspace:Raycast(humanoid.RootPart.Position,Vector3.new(0,-100,0),raycastParams)
		
		if raycast then
			createFilth(raycast.Position)
		end
	end
	if input.KeyCode == Enum.KeyCode.LeftShift then
		goFast = not goFast
	end
end)

coroutine.wrap(function()
	while task.wait(1) do
		if not shouldMove then
			blinked = true
		end
		blink = true
		task.wait(0.1)
		blink = false
	end
end)()

runService.Stepped:Connect(function()
	
	humanoid.Health = humanoid.MaxHealth
	
	shouldMove = true

	for _,human in ipairs(workspace:GetChildren()) do
		local vHumanoid = human:FindFirstChildWhichIsA("Humanoid")
		if not vHumanoid or not vHumanoid.RootPart or vHumanoid.Health <= 0 then continue end
		
		local raycastParams = RaycastParams.new()
		raycastParams.FilterDescendantsInstances = {character,human}
		raycastParams.FilterType = Enum.RaycastFilterType.Exclude
		
		local raycast = workspace:Raycast(
			humanoid.RootPart.Position,
			vHumanoid.RootPart.Position - humanoid.RootPart.Position,
			raycastParams
		)
		
		if raycast then continue end

		local distance_from_player = (humanoid.RootPart.Position - vHumanoid.RootPart.Position).Unit
		local look = vHumanoid.RootPart.CFrame.LookVector

		local dot = look:Dot(distance_from_player)

		local angle = math.deg(math.acos(dot))

		if angle < 100 / 2 then
			shouldMove = false
			break
		end
	end
	
	teleporting.Value = willMove
	looked.Value = not shouldMove
	canmove.Value = blinked

	if shouldMove then
		blinked = false
		if goFast then
			humanoid.WalkSpeed = SPEED * 2
		else
			humanoid.WalkSpeed = SPEED
		end
		if humanoid.MoveDirection.Magnitude > 0 then
			if not moveSound.IsPlaying then
				moveSound.SoundId = moveSounds[math.random(1,#moveSounds)]
				moveSound:Play()
			end
		else
			if moveSound.IsPlaying then
				moveSound:Pause()
			end
		end
	else
		humanoid.WalkSpeed = 0
		moveSound:Pause()
	end
end)

for _,x in ipairs(collectionService:GetTagged("Filth")) do
	if not x:IsA("BasePart") then continue end

	x.Touched:Connect(function(part)
		local hit = part:FindFirstAncestorWhichIsA("Model")
		if not hit then return end
		local humanoid = hit:FindFirstChildWhichIsA("Humanoid")
		if not humanoid then return end
		humanoid.WalkSpeed *= 0.7
	end)
end

collectionService:GetInstanceAddedSignal("Filth"):Connect(function(x: Instance)
	if not x:IsA("BasePart") then return end
	
	x.Touched:Connect(function(part)
		local hit = part:FindFirstAncestorWhichIsA("Model")
		if not hit then return end
		local humanoid = hit:FindFirstChildWhichIsA("Humanoid")
		if not humanoid then return end
		humanoid.WalkSpeed *= 0.7
	end)
end)