local Players = game:GetService("Players")
local StarterGui = game:GetService("StarterGui")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")

local player = Players.LocalPlayer
local camera = workspace.CurrentCamera

local settingsFolder = Instance.new("Folder")
settingsFolder.Name = "DrugSettings"
settingsFolder.Parent = player:WaitForChild("PlayerGui")

local deathPersistent = Instance.new("BoolValue")
deathPersistent.Name = "DeathPersistent"
deathPersistent.Parent = settingsFolder
deathPersistent.Value = false

local chosen = false

StarterGui:SetCore("SendNotification", {
	Title = "hey fucker",
	Text = "Do u wanna make yourself always on drugs  (Death persistent)",
	Duration = 999999999,
	Button1 = "Death Persistent",
	Button2 = "Non-Death Persistent",
	Callback = function(button)
		if chosen then return end
		chosen = true
		deathPersistent.Value = (button == "Death Persistent")
	end
})

StarterGui:SetCore("SendNotification", {
	Title = "made by m3taph0r1cally",
	Text = "this is made for PC, if you're on mobile shit is finna break, also bok is a dih sucker",
	Duration = 5
})

repeat task.wait() until chosen

local character
local humanoid
local root

local inverted = false
local inputDelay = 0.15
local lastMoveTime = 0
local delayedDir = Vector3.zero

local gui = Instance.new("ScreenGui")
gui.IgnoreGuiInset = true
gui.ResetOnSpawn = false
gui.Parent = player.PlayerGui

local frame = Instance.new("Frame")
frame.AnchorPoint = Vector2.new(0.5, 0.5)
frame.Position = UDim2.fromScale(0.5, 0.5)
frame.Size = UDim2.fromScale(1, 1)
frame.BackgroundTransparency = 1
frame.Parent = gui

local function distortScreen()
	local xScale = math.random(70, 100) / 100
	local yScale = math.random(70, 100) / 100
	TweenService:Create(
		frame,
		TweenInfo.new(0.4, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut),
		{Size = UDim2.fromScale(xScale, yScale)}
	):Play()
	task.delay(1, function()
		TweenService:Create(
			frame,
			TweenInfo.new(0.6, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut),
			{Size = UDim2.fromScale(1, 1)}
		):Play()
	end)
end

local function setupCharacter(char)
	character = char
	humanoid = char:WaitForChild("Humanoid")
	root = char:WaitForChild("HumanoidRootPart")
	if not deathPersistent.Value then
		inverted = false
	end
end

if player.Character then
	setupCharacter(player.Character)
end

player.CharacterAdded:Connect(setupCharacter)

RunService.RenderStepped:Connect(function(dt)
	if not humanoid or not root then return end

	if math.random(1, 120) == 1 then
		inverted = not inverted
		task.delay(0.5, function()
			inverted = not inverted
		end)
	end

	local moveDir = humanoid.MoveDirection

	if moveDir.Magnitude > 0 then
		if tick() - lastMoveTime > inputDelay then
			lastMoveTime = tick()
			delayedDir = moveDir
			if inverted then
				delayedDir = -delayedDir
			end
			if math.random(1,4) == 1 then
				delayedDir += Vector3.new(math.random(-1,1) * 0.4, 0, 0)
			end
		end
		humanoid:Move(delayedDir, true)
	end
end)

task.spawn(function()
	while true do
		task.wait(math.random(6,12))
		distortScreen()
	end
end)

local function createFallbackRig()
	local model = Instance.new("Model")
	model.Name = "m3taph0r1cally"

	local hrp = Instance.new("Part")
	hrp.Size = Vector3.new(2,2,1)
	hrp.Name = "HumanoidRootPart"
	hrp.Anchored = false
	hrp.Parent = model

	local head = Instance.new("Part")
	head.Size = Vector3.new(2,1,1)
	head.Name = "Head"
	head.Parent = model

	local weld = Instance.new("WeldConstraint")
	weld.Part0 = hrp
	weld.Part1 = head
	weld.Parent = hrp

	local hum = Instance.new("Humanoid")
	hum.Parent = model

	model.PrimaryPart = hrp
	model.Parent = workspace
	return model
end

local function createHallucination()
	local others = {}
	for _, plr in ipairs(Players:GetPlayers()) do
		if plr ~= player and plr.Character then
			table.insert(others, plr)
		end
	end

	local clone
	if #others == 0 then
		clone = createFallbackRig()
	else
		local target = others[math.random(#others)]
		clone = target.Character:Clone()
		for _, v in ipairs(clone:GetDescendants()) do
			if v:IsA("Script") or v:IsA("LocalScript") then
				v:Destroy()
			end
		end
		clone.Parent = workspace
	end

	local hroot = clone:FindFirstChild("HumanoidRootPart")
	if not hroot or not root then
		clone:Destroy()
		return
	end

	local behind = camera.CFrame.Position - camera.CFrame.LookVector * 14
	hroot.CFrame = CFrame.new(behind)

	local conn
	conn = RunService.RenderStepped:Connect(function()
		if not clone.Parent then
			conn:Disconnect()
			return
		end

		local dir = (root.Position - hroot.Position).Unit
		hroot.CFrame += dir * 0.05

		local _, onScreen = camera:WorldToViewportPoint(hroot.Position)
		if (hroot.Position - root.Position).Magnitude < 6 or onScreen then
			task.delay(0.5, function()
				if clone then clone:Destroy() end
			end)
			conn:Disconnect()
		end
	end)
end

task.spawn(function()
	while true do
		task.wait(math.random(8,15))
		if character and humanoid then
			createHallucination()
		end
	end
end)