Grotesque(public / discontinued)

--Grotesque
--by tomonaoboys
--I'm not made for insane attacking (example : huge range , find even renamed) because im gonna leak or already got

--[[
    *alert*
    this includes Grotesque things such as head removing and bleedings , and cannibalism(insanely bad at humans).
    who likes this script?          SERIOUSLY.

    and if you edit this bad script
    be careful to those spaghetti , or else they'll suck your brain.
--]]
owner=owner or game:service'Players'.LocalPlayer
local pl,ground,walk,fall,chr,run,debri,act,mouse,walkspeed,fall,jumppower=owner,false,false,false,owner.Character,game:service'RunService',function(i,t)game:service'Debris':AddItem(i,t or 1)end,false,owner:GetMouse(),6,false,66.6
local Through,Hold={chr},{}mouse.TargetFilter=chr
local w=function(n)if tonumber(n)then for i=1,tonumber(n)do run.RenderStepped:wait()end else run.RenderStepped:wait()end return true end
local sw,bloodcol=w,Color3.new(2/3)local function ieraseurmotor(chr)
    for i,p in pairs(chr:children())do for i2,p2 in pairs(p:children())do if p2:IsA("Motor6D")and(tostring(p2)~="RootJoint"and tostring(p2)~="Neck")then
    p2:Destroy()end end end if chr:FindFirstChild("Animate")then chr.Animate:Destroy()end
    if chr:FindFirstChildOfClass("Humanoid")then if chr:FindFirstChildOfClass("Humanoid"):FindFirstChild("Animator")then chr:FindFirstChildOfClass("Humanoid").Animator:Destroy()end end
end
function FindHumanoid(part)if part~=nil then local hum=nil --Humanoid Finding : Recursive the returned?????
local function Get(idk)local a=nil if idk:FindFirstChild"Humanoid"then a=idk:FindFirstChild"Humanoid"elseif idk and idk.Parent and idk~=workspace and idk.Parent~=workspace and idk.Parent~=game and idk~=game then
a=Get(idk.Parent)end return a end return Get(part)end end FH=FindHumanoid
local function Region3Find(Size,Pos,Script,AutoSearch)--if AutoSearch==true then it automatically insert Humanoid after Part.
    Pos=typeof(Pos)=="CFrame"and Pos.p or Pos local reg=Region3.new(Pos-Vector3.new(Size/2,Size/2,Size/2),Pos+Vector3.new(Size/2,Size/2,Size/2))
    for i,p in pairs(workspace:FindPartsInRegion3WithIgnoreList(reg,Through,1000))do
    if AutoSearch then local h=FH(p)if h then spawn(function()if h.Parent then Script(p,h)end end)end else spawn(function()Script(p)end)end
    end
end
function DisJoint(part)if part then for i,p in pairs(part:GetDescendants())do if p:IsA'Motor'or p:IsA'Motor6D'or p:IsA'Weld'then p.Part0=nil p.Part1=nil p:Destroy()end end end end
local root,torso,hum=chr.HumanoidRootPart,chr.Torso,chr:FindFirstChildOfClass'Humanoid'
local head,ra,la,rl,ll=chr.Head,chr["Right Arm"],chr["Left Arm"],chr["Right Leg"],chr["Left Leg"]
local rc,he,rh,lh,rs,ls=root.RootJoint,torso.Neck local c,ca,v3=CFrame.new,CFrame.Angles,Vector3.new
local function ToMesh(Part)local Mesh=Instance.new("SpecialMesh",Part)
    if Part:IsA"WedgePart"then Mesh.MeshType="Wedge"elseif Part.Shape==Enum.PartType.Block then Mesh.MeshType="Brick"elseif Part.Shape==Enum.PartType.Ball then Mesh.MeshType="Sphere"elseif Part.Shape==Enum.PartType.Cylinder then Mesh.MeshType="Cylinder"end
    Mesh.Scale=Part.Size*20 Part.Size=v3()return Mesh
end
if 1 then
    function CreateMotor() -- remake motor ,or useful at reseting them(but won't work well because not made for)
        ieraseurmotor(chr)rh=Instance.new("Motor",torso)lh=Instance.new("Motor",torso)rs=Instance.new("Motor",torso)ls=Instance.new("Motor",torso)
        rs.Part0,rs.Part1=torso,ra ls.Part0,ls.Part1=torso,la rh.Part0,rh.Part1=torso,rl lh.Part0,lh.Part1=torso,ll
    end
    CreateMotor()
end
local cl0,cl1=function(t,c,s)t.C0=t.C0:lerp(c,s>1 and 1 or s)end,function(t,c,s)t.C1=t.C1:lerp(c,s>1 and 1 or s)end
CFrameRay=function(Part,Length,WaterOpt)--or else , JUST CFrame. (return : hitting part / position )
local cf=typeof(Part)=="Instance"and Part.CFrame or Part return workspace:FindPartOnRayWithIgnoreList(Ray.new(cf.p,cf.lookVector*Length),Through,true,not WaterOpt)end
spawn(function()
    cl1(rs,c(),1)cl1(ls,c(),1)cl1(rh,c(-.5,2,0),1)cl1(lh,c(.5,2,0),1)
    local oldC=root.CFrame local co=0
    while w()do
        hum.Health,hum.MaxHealth,hum.WalkSpeed,hum.JumpPower=0/0,1/0,walkspeed,walkspeed~=0 and jumppower or 0
        if chr:FindFirstChildOfClass'ForceField'then chr:FindFirstChildOfClass'ForceField'.Visible=nil else Instance.new("ForceField",chr).Name=""end
        local rC=root.CFrame co=co+.0333
        if math.abs(rC.p.x-oldC.p.x)>.01 or math.abs(rC.p.z-oldC.p.z)>.01 then walk=true else walk=false end
        if CFrameRay(c(root.CFrame.p,root.CFrame.p-v3(0,1,0)),3.5)==nil then ground=false else ground=true end
        if ground then
            fall=false
            if walk then
                cl1(rc,c()*ca(math.sin(co)/15+math.rad(-90)+.2,0,math.rad(180)),.3)
                cl1(rh,c(-.5,2+math.cos(co)/9,math.sin(co)/2)*ca(math.sin(co)/2,0,math.cos(co*2)/-70),.3)
                cl1(lh,c(.5,2+math.cos(co)/9,math.sin(-co)/2)*ca(math.sin(-co)/2,0,math.cos(co*2)/70),.3)
                cl1(rs,c(-1.5,0,.2)*ca(-.24,0,math.cos(co/2)/10),.3)cl1(ls,c(1.5,0,.2)*ca(-.24,0,math.sin(co/2)/10),.3)
            else
                cl1(rc,c()*ca(math.sin(co)/55+math.rad(-90)+.2,0,math.rad(180)),.3)
                cl1(rh,c(-.5,2,.2)*ca(-.2+math.sin(co/1.2)/30,0,0),.3)cl1(lh,c(.5,2,.1)*ca(.12+math.sin(1+co/1.2)/30,0,0),.3)
                cl1(rs,c(-1.5,0,.2)*ca(-.24,0,math.cos(co/2)/10),.3)cl1(ls,c(1.5,0,.2)*ca(-.24,0,math.sin(co/2)/10),.3)
            end
        else
            cl1(rc,c()*ca(math.rad(-90),0,math.rad(180)),.3)
            cl1(rh,c(-.5,1.6,.7)*ca(math.rad(20),0,0),.3)cl1(lh,c(.5,2,0),.3)
            if rC.p.y-oldC.p.y<0 then
                fall=true
                cl1(rs,c(-1.5,.5,0)*ca(0,0,-.4),.3)cl1(ls,c(1.5,.5,0)*ca(0,0,.4),.3)
            else
                fall=false
                cl1(rs,c(-1.5,.3,0)*ca(0,0,-.2),.3)cl1(ls,c(1.5,.3,0)*ca(0,0,.2),.3)
            end
        end
        oldC=rC
    end
end)
mouse.KeyDown:connect(function(k)Hold[k]=true
    if not act then
        if k=="z"then act=true
            for i=0,1,.05 do cl0(rs,c(1.8,-.9,0)*ca(0,0,math.rad(90)),.2)w()end
            local hit,hu=nil,nil
            local we,he=nil,nil
            for i=0,1,.05 do cl0(rs,c(.4,-.9,-1.3)*ca(0,math.rad(120),math.rad(90)),.2)
            if not hit then
                Region3Find(1,ra.CFrame,function(p,h)hit,hu=p,h DisJoint(hu.Parent)end,true)
            end
            if hit and hu.Parent and hu.Parent:FindFirstChild"Head"then
            we=Instance.new("Weld",ra)he=hu.Parent.Head:Clone()hu.Parent.Head:Destroy()
            he.Parent=workspace
            we.Part0,we.Part1,we.C0=ra,he,c(0,-1.3,0)
            end
            sw()
            end if we then sw(120)we:Destroy()he:Destroy()local h,po=CFrameRay(c(he.CFrame.p,he.CFrame.p-v3(0,1)),5)
            if h then local p=Instance.new("Part",workspace)p.Material="Glass"p.CanCollide=nil p.Anchored=1 p.Color=bloodcol
            p.Size=Vector3.new(5)p.Shape="Ball"local m=ToMesh(p)p.CFrame=c(po)m.Scale=v3(m.Scale.x,1,m.Scale.z)
            end
            end
            for i=0,1,.04 do cl0(rs,c(),.2)w()end
            act=false
        end
    end
end)
mouse.KeyUp:connect(function(k)Hold[k]=nil end)