FolderManEarthwormSally

warn("earthworm sally made by ramin999232 bai")
if game:GetService("RunService"):IsClient()then error(".... You need to find h/ found, not 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...")

Player = game:GetService("Players").LocalPlayer
PlayerGui = Player.PlayerGui
Cam = workspace.CurrentCamera
Backpack = Player.Backpack
Character = Player.Character
Humanoid = Character.Humanoid
Mouse = Player:GetMouse()
RootPart = Character["HumanoidRootPart"]
Torso = Character["Torso"]
Head = Character["Head"]
RightArm = Character["Right Arm"]
LeftArm = Character["Left Arm"]
RightLeg = Character["Right Leg"]
LeftLeg = Character["Left Leg"]
RootJoint = RootPart["RootJoint"]
Neck = Torso["Neck"]
RightShoulder = Torso["Right Shoulder"]
LeftShoulder = Torso["Left Shoulder"]
RightHip = Torso["Right Hip"]
LeftHip = Torso["Left Hip"]
function EatSound()
    local sick = Instance.new("Sound",Character)
    sick.SoundId = "rbxassetid://625712280"
    sick.Pitch = 1
    sick.Name = "Eating"
    sick.MaxDistance = 150
    sick.Volume = 2
end

epic = Instance.new("Sound",Head)
epic.Playing = true
epic.Looped = true
epic.Volume = 5
epic.SoundId = "rbxassetid://3090964224"


IT = Instance.new
CF = CFrame.new
VT = Vector3.new
RAD = math.rad
C3 = Color3.new
UD2 = UDim2.new
BRICKC = BrickColor.new
ANGLES = CFrame.Angles
EULER = CFrame.fromEulerAnglesXYZ
COS = math.cos
ACOS = math.acos
SIN = math.sin
ASIN = math.asin
ABS = math.abs
MRANDOM = math.random
FLOOR = math.floor

--//=================================\\
--||          USEFUL VALUES
--\\=================================//

Animation_Speed = 3
Frame_Speed = 1 / 60 -- (1 / 30) OR (1 / 60)
local Speed = 45
local ROOTC0 = CF(0, 0, 0) * ANGLES(RAD(-90), RAD(0), RAD(180))
local NECKC0 = CF(0, 1, 0) * ANGLES(RAD(-90), RAD(0), RAD(180))
local RIGHTSHOULDERC0 = CF(-0.5, 0, 0) * ANGLES(RAD(0), RAD(90), RAD(0))
local LEFTSHOULDERC0 = CF(0.5, 0, 0) * ANGLES(RAD(0), RAD(-90), RAD(0))
local DAMAGEMULTIPLIER = 1
local ANIM = "Idle"
local ATTACK = false
local EQUIPPED = false
local HOLD = false
local COMBO = 1
local Rooted = false
local SINE = 0
local KEYHOLD = false
local CHANGE = 2 / Animation_Speed
local WALKINGANIM = false
local VALUE1 = false
local VALUE2 = false
local ROBLOXIDLEANIMATION = IT("Animation")
ROBLOXIDLEANIMATION.Name = "Roblox Idle Animation"
ROBLOXIDLEANIMATION.AnimationId = "http://www.roblox.com/asset/?id=180435571"
--ROBLOXIDLEANIMATION.Parent = Humanoid
local WEAPONGUI = IT("ScreenGui", PlayerGui)
WEAPONGUI.Name = "Weapon GUI"
local Effects = IT("Folder", Character)
Effects.Name = "Effects"
local ANIMATOR = Humanoid.Animator
local ANIMATE = Character.Animate
local UNANCHOR = true
local HITPOS = nil
local HITFLOOR = nil
local BODY = {}

--//=================================\\
--\\=================================//
function chatf(text)
    local chat = coroutine.wrap(function()
    if Character:FindFirstChild("TalkingBillBoard")~= nil then
        Character:FindFirstChild("TalkingBillBoard"):destroy()
    end
    local Bill = Instance.new("BillboardGui",Character)
    Bill.Size = UDim2.new(0,100,0,40)
    Bill.StudsOffset = Vector3.new(0,3,0)
    Bill.Adornee = Character.Head
    Bill.Name = "TalkingBillBoard"
    local Heh = Instance.new("TextLabel",Bill)
    Heh.BackgroundTransparency = 1
    Heh.BorderSizePixel = 0
    Heh.Text = ""
    Heh.Font = "Fantasy"
    Heh.TextSize = 40
    Heh.TextStrokeTransparency = 0
    Heh.Size = UDim2.new(1,0,0.5,0)
    coroutine.resume(coroutine.create(function()
        while Heh ~= nil do
            Swait()
            Heh.Position = UDim2.new(math.random(-.4,.4),math.random(-5,5),.05,math.random(-5,5))
            Heh.Rotation = math.random(-5,5)
            Heh.TextColor3 = Color3.new(50/255,0,0)
            Heh.TextStrokeColor3 = Color3.new(255/255,0,0)
        end
    end))
    for i = 1,string.len(text),1 do
        Swait()
        Heh.Text = string.sub(text,1,i)
    end
    Swait(90)--Re[math.random(1, 93)]
    for i = 0, 1, .025 do
        Swait()
        Bill.ExtentsOffset = Vector3.new(math.random(-i, i), math.random(-i, i), math.random(-i, i))
        Heh.TextStrokeTransparency = i
        Heh.TextTransparency = i
    end
    Bill:Destroy()
    end)
chat()
end

function chatfunc(text)
    local chat = coroutine.wrap(function()
    if Character:FindFirstChild("TalkingBillBoard")~= nil then
        Character:FindFirstChild("TalkingBillBoard"):destroy()
    end
    local Bill = Instance.new("BillboardGui",Character)
    Bill.Size = UDim2.new(0,100,0,40)
    Bill.StudsOffset = Vector3.new(0,3,0)
    Bill.Adornee = Character.Head
    Bill.Name = "TalkingBillBoard"
    local Hehe = Instance.new("TextLabel",Bill)
    Hehe.BackgroundTransparency = 1
    Hehe.BorderSizePixel = 0
    Hehe.Text = ""
    Hehe.Font = "Garamond"
    Hehe.TextSize = 40
    Hehe.TextStrokeTransparency = 0
    Hehe.Size = UDim2.new(1,0,0.5,0)
    coroutine.resume(coroutine.create(function()
        while Hehe ~= nil do
            Swait()
            Hehe.Position = UDim2.new(math.random(-.4,.4),math.random(-5,5),.05,math.random(-5,5))
            Hehe.Rotation = math.random(-5,5)
            Hehe.TextColor3 = Color3.new(0,0,50/255)
            Hehe.TextStrokeColor3 = Color3.new(0,0,100/255)
        end
    end))
    for i = 1,string.len(text),1 do
        Swait()
        Hehe.Text = string.sub(text,1,i)
    end
    Swait(90)--Re[math.random(1, 93)]
    for i = 0, 1, .025 do
        Swait()
        Bill.ExtentsOffset = Vector3.new(math.random(-i, i), math.random(-i, i), math.random(-i, i))
        Hehe.TextStrokeTransparency = i
        Hehe.TextTransparency = i
    end
    Bill:Destroy()
    end)
chat()
end

--//=================================\\
--|| SAZERENOS' ARTIFICIAL HEARTBEAT
--\\=================================//

ArtificialHB = Instance.new("BindableEvent", script)
ArtificialHB.Name = "ArtificialHB"

script:WaitForChild("ArtificialHB")

frame = Frame_Speed
tf = 0
allowframeloss = false
tossremainder = false
lastframe = tick()
script.ArtificialHB:Fire()

game:GetService("RunService").Heartbeat:connect(function(s, p)
    tf = tf + s
    if tf >= frame then
        if allowframeloss then
            script.ArtificialHB:Fire()
            lastframe = tick()
        else
            for i = 1, math.floor(tf / frame) do
                script.ArtificialHB:Fire()
            end
        lastframe = tick()
        end
        if tossremainder then
            tf = 0
        else
            tf = tf - frame * math.floor(tf / frame)
        end
    end
end)

--//=================================\\
--\\=================================//

--//=================================\\
--||          SOME FUNCTIONS
--\\=================================//

function Raycast(POSITION, DIRECTION, RANGE, IGNOREDECENDANTS)
    return workspace:FindPartOnRay(Ray.new(POSITION, DIRECTION.unit * RANGE), IGNOREDECENDANTS)
end

function PositiveAngle(NUMBER)
    if NUMBER >= 0 then
        NUMBER = 0
    end
    return NUMBER
end

function NegativeAngle(NUMBER)
    if NUMBER <= 0 then
        NUMBER = 0
    end
    return NUMBER
end

function Swait(NUMBER)
    if NUMBER == 0 or NUMBER == nil then
        ArtificialHB.Event:wait()
    else
        for i = 1, NUMBER do
            ArtificialHB.Event:wait()
        end
    end
end

function CreateMesh(MESH, PARENT, MESHTYPE, MESHID, TEXTUREID, SCALE, OFFSET)
    local NEWMESH = IT(MESH)
    if MESH == "SpecialMesh" then
        NEWMESH.MeshType = MESHTYPE
        if MESHID ~= "nil" and MESHID ~= "" then
            NEWMESH.MeshId = "http://www.roblox.com/asset/?id="..MESHID
        end
        if TEXTUREID ~= "nil" and TEXTUREID ~= "" then
            NEWMESH.TextureId = "http://www.roblox.com/asset/?id="..TEXTUREID
        end
    end
    NEWMESH.Offset = OFFSET or VT(0, 0, 0)
    NEWMESH.Scale = SCALE
    NEWMESH.Parent = PARENT
    return NEWMESH
end

function CreatePart(FORMFACTOR, PARENT, MATERIAL, REFLECTANCE, TRANSPARENCY, BRICKCOLOR, NAME, SIZE, ANCHOR)
    local NEWPART = IT("Part")
    NEWPART.formFactor = FORMFACTOR
    NEWPART.Reflectance = REFLECTANCE
    NEWPART.Transparency = TRANSPARENCY
    NEWPART.CanCollide = false
    NEWPART.Locked = true
    NEWPART.Anchored = true
    if ANCHOR == false then
        NEWPART.Anchored = false
    end
    NEWPART.BrickColor = BRICKC(tostring(BRICKCOLOR))
    NEWPART.Name = NAME
    NEWPART.Size = SIZE
    NEWPART.Position = Torso.Position
    NEWPART.Material = MATERIAL
    NEWPART:BreakJoints()
    NEWPART.Parent = PARENT
    return NEWPART
end

function CreateSeat(FORMFACTOR, PARENT, MATERIAL, REFLECTANCE, TRANSPARENCY, BRICKCOLOR, NAME, SIZE, ANCHOR)
    local NEWPART = IT("Seat")
    NEWPART.formFactor = FORMFACTOR
    NEWPART.Reflectance = REFLECTANCE
    NEWPART.Transparency = TRANSPARENCY
    NEWPART.CanCollide = false
    NEWPART.Locked = true
    NEWPART.Anchored = true
    if ANCHOR == false then
        NEWPART.Anchored = false
    end
    NEWPART.BrickColor = BRICKC(tostring(BRICKCOLOR))
    NEWPART.Name = NAME
    NEWPART.Size = SIZE
    NEWPART.Position = Torso.Position
    NEWPART.Material = MATERIAL
    NEWPART:BreakJoints()
    NEWPART.Parent = PARENT
    return NEWPART
end

    local function weldBetween(a, b)
        local weldd = Instance.new("ManualWeld")
        weldd.Part0 = a
        weldd.Part1 = b
        weldd.C0 = CFrame.new()
        weldd.C1 = b.CFrame:inverse() * a.CFrame
        weldd.Parent = a
        return weldd
    end


function QuaternionFromCFrame(cf)
    local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components()
    local trace = m00 + m11 + m22
    if trace > 0 then
        local s = math.sqrt(1 + trace)
        local recip = 0.5 / s
        return (m21 - m12) * recip, (m02 - m20) * recip, (m10 - m01) * recip, s * 0.5
    else
        local i = 0
        if m11 > m00 then
            i = 1
        end
        if m22 > (i == 0 and m00 or m11) then
            i = 2
        end
        if i == 0 then
            local s = math.sqrt(m00 - m11 - m22 + 1)
            local recip = 0.5 / s
            return 0.5 * s, (m10 + m01) * recip, (m20 + m02) * recip, (m21 - m12) * recip
        elseif i == 1 then
            local s = math.sqrt(m11 - m22 - m00 + 1)
            local recip = 0.5 / s
            return (m01 + m10) * recip, 0.5 * s, (m21 + m12) * recip, (m02 - m20) * recip
        elseif i == 2 then
            local s = math.sqrt(m22 - m00 - m11 + 1)
            local recip = 0.5 / s return (m02 + m20) * recip, (m12 + m21) * recip, 0.5 * s, (m10 - m01) * recip
        end
    end
end

function QuaternionToCFrame(px, py, pz, x, y, z, w)
    local xs, ys, zs = x + x, y + y, z + z
    local wx, wy, wz = w * xs, w * ys, w * zs
    local xx = x * xs
    local xy = x * ys
    local xz = x * zs
    local yy = y * ys
    local yz = y * zs
    local zz = z * zs
    return CFrame.new(px, py, pz, 1 - (yy + zz), xy - wz, xz + wy, xy + wz, 1 - (xx + zz), yz - wx, xz - wy, yz + wx, 1 - (xx + yy))
end

function QuaternionSlerp(a, b, t)
    local cosTheta = a[1] * b[1] + a[2] * b[2] + a[3] * b[3] + a[4] * b[4]
    local startInterp, finishInterp;
    if cosTheta >= 0.0001 then
        if (1 - cosTheta) > 0.0001 then
            local theta = ACOS(cosTheta)
            local invSinTheta = 1 / SIN(theta)
            startInterp = SIN((1 - t) * theta) * invSinTheta
            finishInterp = SIN(t * theta) * invSinTheta
        else
            startInterp = 1 - t
            finishInterp = t
        end
    else
        if (1 + cosTheta) > 0.0001 then
            local theta = ACOS(-cosTheta)
            local invSinTheta = 1 / SIN(theta)
            startInterp = SIN((t - 1) * theta) * invSinTheta
            finishInterp = SIN(t * theta) * invSinTheta
        else
            startInterp = t - 1
            finishInterp = t
        end
    end
    return a[1] * startInterp + b[1] * finishInterp, a[2] * startInterp + b[2] * finishInterp, a[3] * startInterp + b[3] * finishInterp, a[4] * startInterp + b[4] * finishInterp
end

function Clerp(a, b, t)
    local qa = {QuaternionFromCFrame(a)}
    local qb = {QuaternionFromCFrame(b)}
    local ax, ay, az = a.x, a.y, a.z
    local bx, by, bz = b.x, b.y, b.z
    local _t = 1 - t
    return QuaternionToCFrame(_t * ax + t * bx, _t * ay + t * by, _t * az + t * bz, QuaternionSlerp(qa, qb, t))
end

function CreateFrame(PARENT, TRANSPARENCY, BORDERSIZEPIXEL, POSITION, SIZE, COLOR, BORDERCOLOR, NAME)
    local frame = IT("Frame")
    frame.BackgroundTransparency = TRANSPARENCY
    frame.BorderSizePixel = BORDERSIZEPIXEL
    frame.Position = POSITION
    frame.Size = SIZE
    frame.BackgroundColor3 = COLOR
    frame.BorderColor3 = BORDERCOLOR
    frame.Name = NAME
    frame.Parent = PARENT
    return frame
end

function CreateLabel(PARENT, TEXT, TEXTCOLOR, TEXTFONTSIZE, TEXTFONT, TRANSPARENCY, BORDERSIZEPIXEL, STROKETRANSPARENCY, NAME)
    local label = IT("TextLabel")
    label.BackgroundTransparency = 1
    label.Size = UD2(1, 0, 1, 0)
    label.Position = UD2(0, 0, 0, 0)
    label.TextColor3 = TEXTCOLOR
    label.TextStrokeColor3 = BRICKC"Cyan".Color
    label.TextStrokeTransparency = STROKETRANSPARENCY
    label.TextTransparency = TRANSPARENCY
    label.FontSize = TEXTFONTSIZE
    label.Font = TEXTFONT
    label.BorderSizePixel = BORDERSIZEPIXEL
    label.TextScaled = false
    label.Text = TEXT
    label.Name = NAME
    label.Parent = PARENT
    return label
end

function NoOutlines(PART)
    PART.TopSurface, PART.BottomSurface, PART.LeftSurface, PART.RightSurface, PART.FrontSurface, PART.BackSurface = 10, 10, 10, 10, 10, 10
end

function CreateWeldOrSnapOrMotor(TYPE, PARENT, PART0, PART1, C0, C1)
    local NEWWELD = IT(TYPE)
    NEWWELD.Part0 = PART0
    NEWWELD.Part1 = PART1
    NEWWELD.C0 = C0
    NEWWELD.C1 = C1
    NEWWELD.Parent = PARENT
    return NEWWELD
end

local S = IT("Sound")
function CreateSound(ID, PARENT, VOLUME, PITCH, DOESLOOP)
    local NEWSOUND = nil
    coroutine.resume(coroutine.create(function()
        NEWSOUND = S:Clone()
        NEWSOUND.Parent = PARENT
        NEWSOUND.Volume = VOLUME
        NEWSOUND.Pitch = PITCH
        NEWSOUND.SoundId = "http://www.roblox.com/asset/?id="..ID
        NEWSOUND:play()
        NEWSOUND.Name = "Audio"
        if DOESLOOP == true then
            NEWSOUND.Looped = true
        else
            repeat Swait() until NEWSOUND.Playing == false
            NEWSOUND:remove()
        end
    end))
    return NEWSOUND
end

function CFrameFromTopBack(at, top, back)
    local right = top:Cross(back)
    return CF(at.x, at.y, at.z, right.x, top.x, back.x, right.y, top.y, back.y, right.z, top.z, back.z)
end

--WACKYEFFECT({EffectType = "", Size = VT(1,1,1), Size2 = VT(0,0,0), Transparency = 0, Transparency2 = 1, CFrame = CF(), MoveToPos = nil, RotationX = 0, RotationY = 0, RotationZ = 0, Material = "Neon", Color = C3(1,1,1), SoundID = nil, SoundPitch = nil, SoundVolume = nil})
function WACKYEFFECT(Table)
    local TYPE = (Table.EffectType or "Sphere")
    local SIZE = (Table.Size or VT(1,1,1))
    local ENDSIZE = (Table.Size2 or VT(0,0,0))
    local TRANSPARENCY = (Table.Transparency or 0)
    local ENDTRANSPARENCY = (Table.Transparency2 or 1)
    local CFRAME = (Table.CFrame or Torso.CFrame)
    local MOVEDIRECTION = (Table.MoveToPos or nil)
    local ROTATION1 = (Table.RotationX or 0)
    local ROTATION2 = (Table.RotationY or 0)
    local ROTATION3 = (Table.RotationZ or 0)
    local MATERIAL = (Table.Material or "Neon")
    local COLOR = (Table.Color or C3(1,1,1))
    local TIME = (Table.Time or 45)
    local SOUNDID = (Table.SoundID or nil)
    local SOUNDPITCH = (Table.SoundPitch or nil)
    local SOUNDVOLUME = (Table.SoundVolume or nil)
    coroutine.resume(coroutine.create(function()
        local PLAYSSOUND = false
        local SOUND = nil
        local EFFECT = CreatePart(3, Effects, MATERIAL, 0, TRANSPARENCY, BRICKC("Pearl"), "Effect", VT(1,1,1), true)
        if SOUNDID ~= nil and SOUNDPITCH ~= nil and SOUNDVOLUME ~= nil then
            PLAYSSOUND = true
            SOUND = CreateSound(SOUNDID, EFFECT, SOUNDVOLUME, SOUNDPITCH, false)
        end
        EFFECT.Color = COLOR
        local MSH = nil
        if TYPE == "Sphere" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "Sphere", "", "", SIZE, VT(0,0,0))
        elseif TYPE == "Block" then
            MSH = IT("BlockMesh",EFFECT)
            MSH.Scale = VT(SIZE.X,SIZE.X,SIZE.X)
        elseif TYPE == "Box" then
            MSH = IT("BlockMesh",EFFECT)
            MSH.Scale = SIZE
        elseif TYPE == "Wave" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "20329976", "", SIZE, VT(0,0,-SIZE.X/8))
        elseif TYPE == "Ring1" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "559831844", "", VT(SIZE.X,SIZE.X,0.1), VT(0,0,0))
        elseif TYPE == "Ring2" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "1050196336", "", VT(SIZE.X,SIZE.X,0.1), VT(0,0,0))
        elseif TYPE == "Ring3" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "471124075", "", VT(SIZE.X,SIZE.X,0.1), VT(0,0,0))
        elseif TYPE == "Slash" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "662586858", "", VT(SIZE.X/10,0,SIZE.X/10), VT(0,0,0))
        elseif TYPE == "Round Slash" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "662585058", "", VT(SIZE.X/10,0,SIZE.X/10), VT(0,0,0))
        elseif TYPE == "Swirl" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "1051557", "", SIZE, VT(0,0,0))
        elseif TYPE == "Skull" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "4770583", "", SIZE, VT(0,0,0))
        elseif TYPE == "Crystal" then
            MSH = CreateMesh("SpecialMesh", EFFECT, "FileMesh", "9756362", "", SIZE, VT(0,0,0))
        end
        if MSH ~= nil then
            local MOVESPEED = nil
            if MOVEDIRECTION ~= nil then
                MOVESPEED = (CFRAME.p - MOVEDIRECTION).Magnitude/TIME
            end
            local GROWTH = SIZE - ENDSIZE
            local TRANS = TRANSPARENCY - ENDTRANSPARENCY
            if TYPE == "Block" then
                EFFECT.CFrame = CFRAME*ANGLES(RAD(MRANDOM(0,360)),RAD(MRANDOM(0,360)),RAD(MRANDOM(0,360)))
            else
                EFFECT.CFrame = CFRAME
            end
            for LOOP = 1, TIME do
                Swait()
                MSH.Scale = MSH.Scale - GROWTH/TIME
                if TYPE == "Wave" then
                    MSH.Offset = VT(0,0,-MSH.Scale.X/8)
                end
                EFFECT.Transparency = EFFECT.Transparency - TRANS/TIME
                if TYPE == "Block" then
                    EFFECT.CFrame = CFRAME*ANGLES(RAD(MRANDOM(0,360)),RAD(MRANDOM(0,360)),RAD(MRANDOM(0,360)))
                else
                    EFFECT.CFrame = EFFECT.CFrame*ANGLES(RAD(ROTATION1),RAD(ROTATION2),RAD(ROTATION3))
                end
                if MOVEDIRECTION ~= nil then
                    local ORI = EFFECT.Orientation
                    EFFECT.CFrame = CF(EFFECT.Position,MOVEDIRECTION)*CF(0,0,-MOVESPEED)
                    EFFECT.Orientation = ORI
                end
            end
            if PLAYSSOUND == false then
                EFFECT:remove()
            else
                repeat Swait() until SOUND.Playing == false
                EFFECT:remove()
            end
        else
            if PLAYSSOUND == false then
                EFFECT:remove()
            else
                repeat Swait() until SOUND.Playing == false
                EFFECT:remove()
            end
        end
    end))
end

function Shatter(Part)
    if Part.Transparency == 0 then
        local SOUNDPART = CreatePart(3, Effects, "Neon", 0, 1, Part.BrickColor, "OOF", VT(0,0,0))
        Debris:AddItem(SOUNDPART,5)
        CreateSound("84005018", SOUNDPART, 3, MRANDOM(8,12)/10, false)
        local SIZE = Part.Size.X + Part.Size.Y + Part.Size.Z
        local SIZESET = SIZE/4
        local XOffset = Part.Size.X*1.5/SIZESET
        local YOffset = Part.Size.Y*1.5/SIZESET
        local ZOffset = Part.Size.Z*1.5/SIZESET
        for x = 1, math.ceil(XOffset) do
            for y = 1, math.ceil(YOffset) do
                for z = 1, math.ceil(ZOffset) do
                    local SHARD = CreatePart(3, Effects, "Neon", 0, 0, Part.BrickColor, "Shard", VT(SIZE,SIZE,SIZE)/10, false)
                    SHARD.CanCollide = true
                    SHARD.CFrame = Part.CFrame*CF((Part.Size.X/2-x/4),(Part.Size.Y/2-y/4),(Part.Size.Z/2-z/4))
                    SHARD.Velocity = VT(MRANDOM(-15,15),MRANDOM(-15,15),MRANDOM(-15,15))*3
                    Debris:AddItem(SHARD,MRANDOM(10,25)/3)
                end
            end
        end
    end
    Part:remove()
end

function MakeForm(PART,TYPE)
    if TYPE == "Cyl" then
        local MSH = IT("CylinderMesh",PART)
    elseif TYPE == "Ball" then
        local MSH = IT("SpecialMesh",PART)
        MSH.MeshType = "Sphere"
    elseif TYPE == "Wedge" then
        local MSH = IT("SpecialMesh",PART)
        MSH.MeshType = "Wedge"
    end
end

Debris = game:GetService("Debris")

function CastProperRay(StartPos, EndPos, Distance, Ignore)
    local DIRECTION = CF(StartPos,EndPos).lookVector
    return Raycast(StartPos, DIRECTION, Distance, Ignore)
end

function turnto(position)
    RootPart.CFrame=CFrame.new(RootPart.CFrame.p,VT(position.X,RootPart.Position.Y,position.Z)) * CFrame.new(0, 0, 0)
end

function ezweld(P1,P2,CFRAME)
    local ezweld = CreateWeldOrSnapOrMotor("Weld",Character,P1,P2,CFRAME,CF(0,0,0))
end

function CreateCylinder(FORMFACTOR, PARENT, MATERIAL, REFLECTANCE, TRANSPARENCY, BRICKCOLOR, NAME, SIZE, ANCHOR)
    local NEWPART = IT("Part")
    NEWPART.formFactor = FORMFACTOR
    NEWPART.Reflectance = REFLECTANCE
    NEWPART.Transparency = TRANSPARENCY
    NEWPART.CanCollide = false
    NEWPART.Locked = true
    NEWPART.Anchored = true
    if ANCHOR == false then
        NEWPART.Anchored = false
    end
    NEWPART.BrickColor = BRICKC(tostring(BRICKCOLOR))
    NEWPART.Name = NAME
    NEWPART.Size = SIZE
    NEWPART.Position = Torso.Position
    NEWPART.Material = MATERIAL
    NEWPART:BreakJoints()
    MakeForm(NEWPART,"Cyl")
    NEWPART.Parent = PARENT
    return NEWPART
end

function CreateBall(FORMFACTOR, PARENT, MATERIAL, REFLECTANCE, TRANSPARENCY, BRICKCOLOR, NAME, SIZE, ANCHOR)
    local NEWPART = IT("Part")
    NEWPART.formFactor = FORMFACTOR
    NEWPART.Reflectance = REFLECTANCE
    NEWPART.Transparency = TRANSPARENCY
    NEWPART.CanCollide = false
    NEWPART.Locked = true
    NEWPART.Anchored = true
    if ANCHOR == false then
        NEWPART.Anchored = false
    end
    NEWPART.BrickColor = BRICKC(tostring(BRICKCOLOR))
    NEWPART.Name = NAME
    NEWPART.Size = SIZE
    NEWPART.Position = Torso.Position
    NEWPART.Material = MATERIAL
    NEWPART:BreakJoints()
    MakeForm(NEWPART,"Ball")
    NEWPART.Parent = PARENT
    return NEWPART
end

function CreateWedge(FORMFACTOR, PARENT, MATERIAL, REFLECTANCE, TRANSPARENCY, BRICKCOLOR, NAME, SIZE, ANCHOR)
    local NEWPART = IT("Part")
    NEWPART.formFactor = FORMFACTOR
    NEWPART.Reflectance = REFLECTANCE
    NEWPART.Transparency = TRANSPARENCY
    NEWPART.CanCollide = false
    NEWPART.Locked = true
    NEWPART.Anchored = true
    if ANCHOR == false then
        NEWPART.Anchored = false
    end
    NEWPART.BrickColor = BRICKC(tostring(BRICKCOLOR))
    NEWPART.Name = NAME
    NEWPART.Size = SIZE
    NEWPART.Position = Torso.Position
    NEWPART.Material = MATERIAL
    NEWPART:BreakJoints()
    MakeForm(NEWPART,"Wedge")
    NEWPART.Parent = PARENT
    return NEWPART
end
local naeeym2 = IT("BillboardGui",Character)
naeeym2.AlwaysOnTop = true
naeeym2.Size = UDim2.new(6,40,1,20)
naeeym2.StudsOffset = Vector3.new(0,3,0)
naeeym2.MaxDistance = 75
naeeym2.Adornee = Character.Torso
naeeym2.Name = "Name"
local tecks2 = IT("TextLabel",naeeym2)
tecks2.BackgroundTransparency = 1
tecks2.TextScaled = true
tecks2.BorderSizePixel = 0
tecks2.Text = "crunchy the worm"
tecks2.Font = "Arcade"
tecks2.TextSize = 70
tecks2.TextStrokeTransparency = 0.5
tecks2.TextColor3 = BRICKC"New Yeller".Color
tecks2.TextStrokeColor3 = BRICKC"Hot pink".Color
tecks2.Size = UDim2.new(1,0,0.5,0)
tecks2.Parent = naeeym2
local TagMoving = coroutine.wrap(function()
    for i = 1,"Inf" do
        tecks2.Text ="Earthworm sally"
        Swait(5)
        tecks2.Text = "Earthworm sally"
    end
end)
TagMoving()
local naeeym3 = IT("BillboardGui",Character)
naeeym3.AlwaysOnTop = true
naeeym3.Size = UDim2.new(5,35,2,15)
naeeym3.StudsOffset = Vector3.new(0,2,0)
naeeym3.MaxDistance = 75
naeeym3.Adornee = Character.Torso
naeeym3.Name = "Name"
local tecks3 = IT("TextLabel",naeeym3)
tecks3.BackgroundTransparency = 1
tecks3.TextScaled = true
tecks3.BorderSizePixel = 0
tecks3.Text = ""
tecks3.Font = "Arcade"
tecks3.TextSize = 30
tecks3.TextStrokeTransparency = 0.5
tecks3.TextColor3 = BRICKC"White".Color
tecks3.TextStrokeColor3 = BRICKC"Deep orange".Color
tecks3.Size = UDim2.new(1,0,0.5,0)
tecks3.Parent = naeeym3
---------------------------------------------
for i,v in pairs(Character:GetChildren()) do
    if v:IsA("Clothing") or v:IsA("Accessory") then
        v:Remove()
    else if v:IsA("Part") then
        v.Transparency = 1
        v.CanCollide = false
        end
    end
end
RightArm:Remove()
LeftArm:Remove()
RightLeg:Remove()
LeftLeg:Remove()
Head.face:Remove()
---------------------------------------------'
Eating = false
Eaten = 0
AllowSit = false
Networth = 0
local WormHead = CreatePart(3,Character,"SmoothPlastic",0,0,"Hot pink","OofHead",VT(4,4,4),false)
ezweld(WormHead,Torso,CF(0,0,0))
local Setg = CreateSeat(3,Character,"SmoothPlastic",0,1,"White","OofHead",VT(2,0.1,2),false)
ezweld(Setg,WormHead,CF(0,-2,0))
if AllowSit ==  false then
    Setg.Disabled = true
end
WormHead.CanCollide = true
local Fac = Instance.new("Decal",WormHead)
Fac.Face = "Front"
local RandomFace = math.random(1,3)
if RandomFace == 1 then
    Fac.Texture = "rbxassetid://15298379"
else if RandomFace == 2 then
    Fac.Texture = "rbxassetid://162136529"
else
    Fac.Texture = "rbxassetid://282463320"
end
end
LatestP = WormHead
local EatPart = CreatePart(3,Character,"SmoothPlastic",0,1,"White","OofHead",VT(4,4,0),false)
ezweld(EatPart,WormHead,CF(0,0,2))
EatPart.Touched:Connect(function(nom)
    if Eating == true and nom.Name ~= "Base" and nom.Parent ~= Character and nom.Parent.Parent ~= Character and nom:IsA("Part") then
        nom:Remove()
        Humanoid.WalkSpeed = Humanoid.WalkSpeed + 0.1
        Eaten = Eaten + 1
        local bom = Character:FindFirstChild("Eating")
        if bom then
            bom:Play()
        end
        Networth = Networth +1
        if Eaten == 3 or Eaten > 3 then
            Eaten = 0
            local AP = CreatePart(3,Character,"SmoothPlastic",0,0,"Royal purple","Sitting",VT(4,4,4),false)
            ezweld(AP,LatestP,CF(0,-0.2,-3))
            AP.Massless = true
            Swait()
            AP.CanCollide = true
            Swait(2)
            AP:BreakJoints()
            local Rope = Instance.new("SpringConstraint",LatestP)
            local Attach = Instance.new("Attachment",LatestP)
            local Attach2 = Instance.new("Attachment",AP)
            Attach.Position = VT(0,0,2)
            Attach2.Position = VT(0,0,-2)
            Rope.Attachment0 = Attach
            Rope.Attachment1 = Attach2
            Rope.Visible = true
            Rope.Color = BRICKC("New Yeller")
            Rope.Coils = 3
            Rope.Radius = 0.1
            Rope.MaxLength = 1
            Rope.MinLength = 0
            Rope.MaxForce = 0.2
            Rope.LimitsEnabled = true
            LatestP = AP
        end
    end
end)

function ROARSound()
    ATTACK = true
    local Rawr = Character:FindFirstChild("ROAR")
    if Rawr then
        Rawr:Play()
        Fac.Texture = "rbxassetid://3108336859"
        Swait(40)
        if Eating == false then
            if RandomFace == 1 then
                Fac.Texture = "rbxassetid://15298379"
            else if RandomFace == 2 then
                Fac.Texture = "rbxassetid://162136529"
            else
                Fac.Texture = "rbxassetid://282463320"
            end
            end
        else
            Fac.Texture = "rbxassetid://7317691"
            end
    else
        local sick = Instance.new("Sound",Character)
        sick.SoundId = "rbxassetid://138271815"
        sick.Pitch = 1
        sick.Name = "ROAR"
        sick.MaxDistance = 150
        sick.Volume = 2
        sick:Play()
        Fac.Texture = "rbxassetid://3108336859"
        Swait(40)
        if Eating == false then
            if RandomFace == 1 then
                Fac.Texture = "rbxassetid://15298379"
            else if RandomFace == 2 then
                Fac.Texture = "rbxassetid://162136529"
            else
                Fac.Texture = "rbxassetid://282463320"
            end
            end
        else
            Fac.Texture = "rbxassetid://7317691"
        end
        end
    ATTACK = false
end
Mouse.KeyDown:Connect(function(k)
    if ATTACK == false then
        if k == "e" then
            ROARSound()
        else if k == "q" then
            if Eating == false then
                Eating = true
                Fac.Texture = "rbxassetid://2874875021"
            else if Eating == true then
                Eating = false
                if RandomFace == 1 then
                    Fac.Texture = "rbxassetid://15298379"
                else if RandomFace == 2 then
                    Fac.Texture = "rbxassetid://162136529"
                else
                    Fac.Texture = "rbxassetid://282463320"
                end
                end
            end
            end
        else if k == "m" then
            for i,v in pairs(Character:GetChildren()) do
                if v:IsA("Part") then
                    v.CanCollide = false
                    Swait(10)
                    v.CanCollide = true
                end
                end
        else if k == "r" then
            if AllowSit == false then
                warn("Sitting Allowed")
                AllowSit = true
                for i,v in pairs(Character:GetChildren()) do
                    if v:IsA("Seat") then
                        v.Disabled = false
                    end
                end
            else if AllowSit == true then
                warn("Sitting Not Allowed")
                AllowSit = false
                for i,v in pairs(Character:GetChildren()) do
                    if v:IsA("Seat") then
                        v.Disabled = true
                    end
                end
            end
            end
        end
        end
        end
        end
    end
end)
function Forced()
    local g = Character:FindFirstChildOfClass("Forcefield")
    if g then
        local fiel = Instance.new("ForceField",Character)
        fiel.Visible = false
    end
end
while true do
    Swait()
    Forced()
    Humanoid.HipHeight = 1
    Humanoid.MaxHealth = 500
    Humanoid.Health = Humanoid.MaxHealth
    local bom = Character:FindFirstChild("Eating")
    if not bom then
        EatSound()
    end
end