demon of insanity FE

--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
	print("FE Compatibility code V2 by Mokiros")
	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)
	    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
			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,false)
	    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)
		if RobloxHandled then return end
		--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})
	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

   wait(1)
local p = game:GetService("Players")
pp = p.LocalPlayer--The variable is named after your small 'thing'.
local ChatService = game:GetService("Chat")
local mouse = pp:GetMouse()
local skidspace = game:GetService("Workspace") --This is a script intended for script builder
plr = skidspace[pp.Name] --You have to deal with all this idiots; Just like school.
local hum = plr:FindFirstChildOfClass("Humanoid")
hum.WalkSpeed = 11.5*6
hum.DisplayDistanceType = "None"
function ChatFunction(loc, msg)
    local ChatGuiPart1 = Instance.new("BillboardGui",loc)
    ChatGuiPart1.Name = "ChatGui"
    ChatGuiPart1.AlwaysOnTop = true
    ChatGuiPart1.ExtentsOffset = Vector3.new(0, 5, 0)
    ChatGuiPart1.Size = UDim2.new(0, 200, 0, 50)
    local ChatGuiPart2 = Instance.new("TextLabel")
    ChatGuiPart2.BorderColor3 = Color3.new(1, 0, 0)
    ChatGuiPart2.BorderSizePixel = 3
    ChatGuiPart2.BackgroundColor3 = Color3.new(255, 255, 255)
    ChatGuiPart2.Size = UDim2.new(0, 200, 0, 50)
    ChatGuiPart2.Font = Enum.Font.Arcade
    ChatGuiPart2.FontSize = Enum.FontSize.Size14
    ChatGuiPart2.TextColor3 = Color3.new(1, 0, 0)
    ChatGuiPart2.TextWrapped = true
    ChatGuiPart2.Parent = ChatGuiPart1
    ChatGuiPart2.Text = msg
    wait()
    --ChatGuiPart1:Destroy()
end

--------------------------------------------------
--186942568
local theme = Instance.new("Sound",pp.Character)
theme.Name = "Girei"
theme.SoundId = "rbxassetid://324905722"
theme.Volume = 3
theme.Looped = true
theme:Play()

--------------------------------------------------

for _,v in pairs(plr:GetChildren()) do
    if v:IsA("Accessory") or v:IsA("Hat") or v:IsA("Shirt") or v:IsA("Pants") or v:IsA("CharacterMesh") then
        v:Destroy()
    end
end

bc = plr["Body Colors"]
black = BrickColor.new("Really black")
bc.LeftArmColor = black
bc.LeftLegColor = black
bc.RightArmColor = black
bc.RightLegColor = black
bc.TorsoColor = black
bc.HeadColor = black

sbt = Instance.new("SelectionBox",plr.Torso)
sbt.Adornee = sbt.Parent
sbt.LineThickness = 0.01
sbra = Instance.new("SelectionBox",plr["Right Arm"])
sbra.Adornee = sbra.Parent
sbra.LineThickness = 0.01
sbla = Instance.new("SelectionBox",plr["Left Arm"])
sbla.Adornee = sbla.Parent
sbla.LineThickness = 0.01
sbrl = Instance.new("SelectionBox",plr["Right Leg"])
sbrl.Adornee = sbrl.Parent
sbrl.LineThickness = 0.01
sbll = Instance.new("SelectionBox",plr["Left Leg"])
sbll.Adornee = sbll.Parent
sbll.LineThickness = 0.01
--sbh = Instance.new("SelectionBox",plr.Head)
--sbh.Adornee = sbh.Parent


sbt.Color3 = Color3.new(math.random(), math.random(), math.random())
sbra.Color3 = Color3.new(math.random(), math.random(), math.random())
sbla.Color3 = Color3.new(math.random(), math.random(), math.random())
sbrl.Color3 = Color3.new(math.random(), math.random(), math.random())
sbll.Color3 = Color3.new(math.random(), math.random(), math.random())
--sbh.Color3 = Color3.new(math.random(), math.random(), math.random())
    local Title1 = Instance.new("BillboardGui",plr.Head)
    Title1.Adornee = plr.Head
    Title1.AlwaysOnTop = true
    Title1.Size = UDim2.new(0, 200, 0, 50)
    local Title2 = Instance.new("TextLabel")
    Title2.BackgroundTransparency = 1
    Title2.Position = UDim2.new(0, 0, -0.899999976, 0)
    Title2.Size = UDim2.new(0, 200, 0, 50)
    Title2.Font = Enum.Font.Arcade
    Title2.FontSize = Enum.FontSize.Size24
    Title2.Text = "Demon of Insanity"
    Title2.TextColor3 = Color3.new(1, 0, 0)
    Title2.TextScaled = true
    Title2.TextWrapped = true
    Title2.Parent = Title1

--Commented neatness stops here, along with all other forms of organization.

for i = 1,50 do
    wait(0.0005)
    game:GetService("Lighting").Brightness = game:GetService("Lighting").Brightness - 0.2
end
    ChatFunction(pp.Character.Head, "The Demon of Insanity has arrived, this world is now mine.")
    wait(3)
    pp.Character.Head.ChatGui:Destroy()
    --game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "My incarnation is complete. The Demon of Insanity is here.","Red")
game:GetService("Lighting").Brightness = 0

function md()
    ChatFunction(pp.Character.Head, "This world shall be rid of all sanity!")
    --game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "This world shall be rid of all sanity!","Red")
    game:GetService("Lighting").Ambient = Color3.new(255/255, 0/255, 0,255)
    game:GetService("Lighting").TimeOfDay = 24000004
local destruction = Instance.new("Part")
destruction.Touched:connect(function(hit)
    if hit.Parent:FindFirstChildOfClass("Humanoid") then
        if hit.Parent.Name == pp.Name or hit.Parent.Parent.Name == pp.Name then
        else
        hit.Parent:FindFirstChildOfClass("Humanoid").Health = 0
end
    end
end)
destruction.Parent = plr
destruction.Material = Enum.Material.Ice
destruction.BrickColor = BrickColor.new("Maroon")
destruction.Transparency = 0.25
destruction.CFrame = plr["Right Arm"].CFrame
destruction.Shape = Enum.PartType.Ball
destruction.Size = Vector3.new(4, 4, 4)
destruction.BackSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.RightSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.TopSurface = Enum.SurfaceType.SmoothNoOutlines
destruction.CanCollide = false
destruction.Color = Color3.new(0.458824, 0, 0)
local bp = Instance.new("BodyPosition",destruction)
bp.MaxForce = Vector3.new(10000, 10000, 10000)
position = mouse.Hit
bp.Position = mouse.Hit.p
wait(2.5)
destruction.Anchored = true
local boom = Instance.new("Sound",pp.Character)
boom.SoundId = "rbxassetid://144699494"
boom.Pitch = 0.45
boom:Play()
boom.Volume = 10
for i = 1,75 do
    wait(0.00005)
destruction.CFrame = position
destruction.Size = Vector3.new(4, 4, 4) * i*0.75
destruction.CFrame = position
destruction.Transparency = 0.25 * (i/18)
end
    pp.Character.Head.ChatGui:Destroy()
destruction:Destroy()
end


mouse.KeyDown:connect(function(key)
    if key == "q" then
        md()
    end
end)



local player = game.Players.LocalPlayer
local pchar = player.Character
local mouse = player:GetMouse()
local cam = workspace.CurrentCamera
root = plr.HumanoidRootPart

local rad = math.rad
bodyparts = {}
local keysDown = {}
local flySpeed = 0
local MAX_FLY_SPEED = 150

local canFly = false
local flyToggled = false

local forward, side = 0, 0
local lastForward, lastSide = 0, 0

local floatBP = Instance.new("BodyPosition")
floatBP.maxForce = Vector3.new(0, math.huge, 0)
local flyBV = Instance.new("BodyVelocity")
flyBV.maxForce = Vector3.new(9e9, 9e9, 9e9)
local turnBG = Instance.new("BodyGyro")
turnBG.maxTorque = Vector3.new(math.huge, math.huge, math.huge)

mouse.KeyDown:connect(function(key)
        keysDown[key] = true

        if key == "f" then
                flyToggled = not flyToggled

        if not flyToggled then
                stanceToggle = "Normal"
                floatBP.Parent = nil
                flyBV.Parent = nil
                turnBG.Parent = nil
                root.Velocity = Vector3.new()
                pchar:FindFirstChildOfClass("Humanoid").PlatformStand = false
        end
end

end)
mouse.KeyUp:connect(function(key)
        keysDown[key] = nil
end)

local function updateFly()




        if not flyToggled then return end

        lastForward = forward
        lastSide = side

        forward = 0
        side = 0

        if keysDown.w then
                forward = forward + 1
        end
        if keysDown.s then
                forward = forward - 1
        end
        if keysDown.a then
                side = side - 1
        end
        if keysDown.d then
                side = side + 1
        end

        canFly = (forward ~= 0 or side ~= 0)

        if canFly then
                stanceToggle = "Floating"
                turnBG.Parent = root
                floatBP.Parent = nil
                flyBV.Parent = root

                flySpeed = flySpeed + 1 + (flySpeed / MAX_FLY_SPEED)
                if flySpeed > MAX_FLY_SPEED then flySpeed = MAX_FLY_SPEED end
        else
                floatBP.position = root.Position
                floatBP.Parent = root

                flySpeed = flySpeed - 1
                if flySpeed < 0 then flySpeed = 0 end
        end

        local camCF = cam.CoordinateFrame
        local in_forward = canFly and forward or lastForward
        local in_side = canFly and side or lastSide

        flyBV.velocity = ((camCF.lookVector * in_forward) + (camCF * CFrame.new(in_side,in_forward * 0.2, 0).p) - camCF.p) * flySpeed

        turnBG.cframe = camCF * CFrame.Angles(-rad(forward * (flySpeed / MAX_FLY_SPEED)), 0,0)
end

game:service'RunService'.RenderStepped:connect(function()
        if flyToggled then
                pchar:FindFirstChildOfClass("Humanoid").PlatformStand = true
        end
        updateFly()
end)



function bringforthe()
if mouse.Target.Parent:FindFirstChildOfClass("Humanoid") then
ChatFunction(pp.Character.Head, "Your existence has brought my attention, so I have brought you.")
    --game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "Your existence has brought my attention, so I have brought you.","Red")
    local bodyposition = Instance.new("BodyPosition",mouse.Target)
    bodyposition.MaxForce = Vector3.new(10000, 10000, 10000)
    bodyposition.Position = plr["Right Arm"].Position
    wait(5)
    bodyposition:Destroy()
        pp.Character.Head.ChatGui:Destroy()
    end
    end



mouse.KeyDown:connect(function(key)
    if key == "r" then
        bringforthe()
    end
end)




function relay()
    ChatFunction(pp.Character.Head, "Foolish mortals, my methods of transportation are far more superior.")
--game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "Foolish mortals, my methods of transportation are far more superior.","Red")
local r1 = Instance.new("Part")
r1.Parent = plr
r1.BrickColor = BrickColor.new("Really black")
r1.CFrame = CFrame.new(-7, 2.25, 71, 0, -1, 0, -1, 0, 0, 0, 0, -1)
r1.CFrame = mouse.Hit
r1.Rotation = Vector3.new(-180, 0, 90)
r1.Shape = Enum.PartType.Cylinder
r1.Size = Vector3.new(0.5, 3, 3)
r1.BackSurface = Enum.SurfaceType.SmoothNoOutlines
r1.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
r1.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
r1.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
r1.RightSurface = Enum.SurfaceType.SmoothNoOutlines
r1.TopSurface = Enum.SurfaceType.SmoothNoOutlines
r1.Color = Color3.new(0.0666667, 0.0666667, 0.0666667)
r1.Anchored = true
plr.Torso.CFrame = CFrame.new(r1.CFrame.x, r1.CFrame.y + 5, r1.CFrame.z)
for i = 1,100 do
    wait(0.005)
    r1.Transparency = r1.Transparency + 0.01
end
r1:Destroy()
    pp.Character.Head.ChatGui:Destroy()
end

mouse.KeyDown:connect(function(key)
    if key == "b" then
        relay()
    end
end)




function ps()
    ChatFunction(pp.Character.Head, "The term 'Personal Space', is one of the few terms humans have made that is actually smart.")
--game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "Your term 'Personal Space', is one of the terms humans have made that is actually smart.","Red")
    local push = Instance.new("Part")
push.Touched:connect(function(hit)
    if hit.Parent:FindFirstChildOfClass("Humanoid") then
        if hit.Parent.Name == pp.Name or hit.Parent.Parent.Name == pp.Name then
        else
        hit.Parent:FindFirstChildOfClass("Humanoid").Health = 0
end
    end
end)
push.Parent = game.Workspace
push.Material = Enum.Material.Neon
push.BrickColor = BrickColor.new("Really black")
push.Transparency = 0.25
push.Shape = Enum.PartType.Ball
push.Size = Vector3.new(8, 8, 8)
push.BackSurface = Enum.SurfaceType.SmoothNoOutlines
push.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
push.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
push.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
push.RightSurface = Enum.SurfaceType.SmoothNoOutlines
push.CanCollide = false
push.Anchored = false
push.TopSurface = Enum.SurfaceType.SmoothNoOutlines
push.CFrame = plr.Torso.CFrame
wait(0.05)
local weld = Instance.new("Weld",push)
weld.Part0 = push
--weld.C0 = push.CFrame:inverse()
weld.Part1 = plr.Torso
--weld.C1 = plr.Torso.CFrame:inverse()
wait(1.5)
push:Destroy()
    pp.Character.Head.ChatGui:Destroy()
end


function aieou()
    if mouse.Target.Parent:FindFirstChildOfClass("Humanoid") then
        if mouse.Target.Parent:FindFirstChild("Torso") then


            for i,v in pairs(mouse.Target.Parent:GetChildren()) do
                if v:IsA("Part") then
                    if v.Name == "Torso" then

                        --game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "Your torso, it will make a fine addition to my collection.","Red")

mouse.Target.Parent:FindFirstChild("Torso").Size = Vector3.new(1, 1, 1)
                    else
                        v:Destroy()

                    end
                end
            end
        end

    end
end


function minion()
    if mouse.Target.Parent:FindFirstChildOfClass("Humanoid") then
ChatFunction(pp.Character.Head, "You're now my minion, "..mouse.Target.Parent.Name..", now kill in my name.")
    --game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "You're now my minion, "..mouse.Target.Parent.Name..", now kill in my name.","Red")
wait(2.5)
    pp.Character.Head.ChatGui:Destroy()
minion = mouse.Target.Parent
local push = Instance.new("Part")
push.Touched:connect(function(hit)
    if hit.Parent:FindFirstChildOfClass("Humanoid") then
        if hit.Parent.Name == pp.Name or hit.Parent.Parent.Name == pp.Name or hit.Parent.Name == mouse.Target.Parent.Name or hit.Parent.Parent.Name == mouse.Target.Parent.Name then
        else
ChatFunction(minion.Head, "Master "..pp.Name..", I have killed for you, in your name.")
    --game:GetService("Chat"):Chat(minion.Head, "Master "..pp.Name..", I have killed for you, in your name.","Red")
        hit.Parent:FindFirstChildOfClass("Humanoid").Health = 0
        wait(1.5)
        minion.Head.ChatGui:Destroy()
end
    end
end)
    local Minion1 = Instance.new("BillboardGui",mouse.Target.Parent:FindFirstChild("Head"))
    Minion1.Adornee = mouse.Target.Parent:FindFirstChild("Head")
    Minion1.AlwaysOnTop = true
    Minion1.Size = UDim2.new(0, 200, 0, 50)
    local Minion2 = Instance.new("TextLabel")
    Minion2.BackgroundTransparency = 1
    Minion2.Position = UDim2.new(0, 0, -0.899999976, 0)
    Minion2.Size = UDim2.new(0, 200, 0, 50)
    Minion2.Font = Enum.Font.Arcade
    Minion2.FontSize = Enum.FontSize.Size24
    Minion2.Text = "Minion of Insanity"
    Minion2.TextColor3 = Color3.new(0.333333, 0.666667, 0.498039)
    Minion2.TextScaled = true
    Minion2.TextWrapped = true
    Minion2.Parent = Minion1
push.Parent = mouse.Target.Parent
push.Material = Enum.Material.Neon
push.BrickColor = BrickColor.new("Really black")
push.Transparency = 0.25
push.Shape = Enum.PartType.Ball
push.Size = Vector3.new(8, 8, 8)
push.BackSurface = Enum.SurfaceType.SmoothNoOutlines
push.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
push.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
push.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
push.RightSurface = Enum.SurfaceType.SmoothNoOutlines
push.CanCollide = false
push.Anchored = false
push.TopSurface = Enum.SurfaceType.SmoothNoOutlines
push.CFrame = mouse.Target.Parent:FindFirstChild("Torso").CFrame
wait(0.05)
local weld = Instance.new("Weld",push)
weld.Part0 = push
--weld.C0 = push.CFrame:inverse()
weld.Part1 = mouse.Target.Parent:FindFirstChild("Torso")
--weld.C1 = plr.Torso.CFrame:inverse()
end
end

mouse.KeyDown:connect(function(key)
    if key == "v" then
minion()
end
end)

mouse.KeyDown:connect(function(key)
    if key == "g" then
        aieou()
    end
end)

mouse.KeyDown:connect(function(key)
    if key == "e" then
        ps()
    end
end)



function possessed()
    if mouse.Target.Parent:FindFirstChildOfClass("Humanoid") then
        local possessee = mouse.Target.Parent
        local curse = Instance.new("Model")
        curse.Name = "Curse"
        curse.Parent = possessee
ChatFunction(possessee.Head, "Master "..pp.Name..", I shall be your servant, command me whenever you are ready.")
        --game:GetService("Chat"):Chat(possessee.Head, "Master "..pp.Name..", I shall be your servant, command me whenever you are ready.","Red")
    wait(3)
    possessee.Head.ChatGui:Destroy()
    end
end

mouse.KeyDown:connect(function(key)
if key == "z" then
possessed()

end
end)

function curse()
ChatFunction(pp.Character.Head, "Servants! The time is now! Rid this world of all sanity!")
wait(2)
pp.Character.Head.ChatGui:Destroy()
--game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character, "Servants! The time is now! Rid this world of all sanity!","Red")
    for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
        if v:IsA("Model") then
            if v:FindFirstChild("Curse") then

                wait(0.5)
ChatFunction(v.Head, "Master "..pp.Name.." has commanded me to do this.")
--game:GetService("Chat"):Chat(v.Head, "Master "..pp.Name.." has commanded me to do this.","Red")
--bp = Instance.new("BodyPosition",v)
--bp.MaxForce = Vector3.new(10000, 10000, 10000)
--bp.Position = Vector3.new(0, 3, 0)
wait(4)
v.Head.ChatGui:Destroy()
local servantdestruction = Instance.new("Part")
servantdestruction.Parent = v
servantdestruction.Material = Enum.Material.Ice
servantdestruction.BrickColor = BrickColor.new("Maroon")
servantdestruction.Transparency = 0.25
servantdestruction.Shape = Enum.PartType.Ball
servantdestruction.Size = Vector3.new(4, 4, 4)
servantdestruction.BackSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.RightSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.TopSurface = Enum.SurfaceType.SmoothNoOutlines
servantdestruction.CanCollide = false
servantdestruction.Color = Color3.new(0.458824, 0, 0)
servantdestruction.Anchored = true
servantdestruction.CFrame = v.Torso.CFrame
wait(0.25)
servantdestruction.Touched:connect(function(hit)
    if hit.Parent:FindFirstChildOfClass("Humanoid") then
        if hit.Parent.Name == pp.Name or hit.Parent.Parent.Name == pp.Name then
        else
        hit.Parent:FindFirstChildOfClass("Humanoid").Health = 0
end
    end
end)
sboom = Instance.new("Sound",game:GetService("Workspace"))
sboom.SoundId = "rbxassetid://144699494"
sboom.Pitch = 0.45
sboom:Play()
sboom.Volume = 10
for i = 1,25 do
    wait(0.00005)
servantdestruction.CFrame = v.Torso.CFrame
servantdestruction.Size = Vector3.new(4, 4, 4) * i*0.5
servantdestruction.CFrame = v.Torso.CFrame
servantdestruction.Transparency = 0.60 * (i/18)
end
servantdestruction:Destroy()
wait(1.5)
ChatFunction(v.Head, "So this is what Master "..pp.Name.." is capable of.")
--game:GetService("Chat"):Chat(v.Head, "So this is what Master "..pp.Name.." is capable of.","Red")

            end
        end
    end
end

mouse.KeyDown:connect(function(key)
    if key == "x" then
        curse()
    end
end)

function clean()
for i,v in pairs(game:GetService("Workspace"):GetChildren()) do
    if v:IsA("Model") then
        if v:FindFirstChildOfClass("Humanoid") then
        else
            v:Destroy()
            if v:IsA("Part") then
                if v.Name == "Base" then
                else
                    v:Destroy()
                end
            end
        end
    end
end
end

mouse.KeyDown:connect(function(key)
    if key == "c" then
        clean()
    end
end)

mouse.KeyDown:connect(function(key)
    if key == "t" then --In case unnamed objects that you need the name of appear, or unnamed players, take this.
        print(mouse.Target.Name)
        print(mouse.Target.Parent.Name)
        print(mouse.Target.Parent.Parent.Name)
    end
end)

print("Demon of Insanity")
print()
warn("By DontBlinkDrWho")
print("-_-_-_-_-_-_-_-_-")
print()
print("Q = World Riddening.")
print("E = Personal space.")
print("R = Pull.")
print("T = Demons Knowledge.")
print("F = Stolen gift of Flight.")
print("G = Torsi attack (Shrinks torso, destroys everything else).")
print("Z = Servant.")
print("X = Servants curse.")
print("C = Clean.")
print("V = Minion.")

--This is the end of the script.
while wait() do
    hum.MaxHealth = math.huge -- God mode
    hum.Name = math.random(167.432) --Break other scripts (Especially on sb), killing you will be harder
    hum.Health = math.huge -- God mode
    sbt.Color3 = Color3.new(math.random(), math.random(), math.random())
sbra.Color3 = Color3.new(math.random(), math.random(), math.random())
sbla.Color3 = Color3.new(math.random(), math.random(), math.random())
sbrl.Color3 = Color3.new(math.random(), math.random(), math.random())
sbll.Color3 = Color3.new(math.random(), math.random(), math.random())
wait()
end