Advanced NoClip(With extra features)

local plr = game.Players.LocalPlayer
local Char = plr.Character or plr.CharacterAdded:Wait()
local Humanoid = Char:WaitForChild("Humanoid")
local DefaultWalkSpeed = Humanoid.WalkSpeed
local DefaultJumpPower = Humanoid.JumpPower
local DefaultGravity = game.Workspace.Gravity
local Mouse = plr:GetMouse()
local UIS = game:GetService("UserInputService")
Mouse.TargetFilter = Char

local PlayersSelection = Instance.new("SelectionBox")
PlayersSelection.Color3 = Color3.fromRGB(0,255,0)
PlayersSelection.Name = plr.Name.."'sSelection"
PlayersSelection.SurfaceColor3 = PlayersSelection.Color3
PlayersSelection.SurfaceTransparency = 0.5
PlayersSelection.Visible = true
PlayersSelection.Parent = game.Workspace

--!DON'T CHANGE ANYTHING DOWN PAST THIS POINT UNLESS YOUR KNOW WHAT YOUR DOING!--
--!DOING SO MAY RESULT IN THE SCRIPT NOT WORKING CORRECTLY OR NOT RUNNING AT ALL!--

local NoClip_By_retr0_11001 = Instance.new("ScreenGui")
local NoClipMain = Instance.new("Frame")
local NoClipName = Instance.new("TextLabel")
local OptionsFrame = Instance.new("ScrollingFrame")
local TemplateButton = Instance.new("Frame")
local TemplateInput = Instance.new("Frame")
TemplateButton.Size = UDim2.new(0,TemplateButton.AbsoluteSize.X,0,TemplateButton.AbsoluteSize.Y)
TemplateInput.Size = TemplateButton.Size
local SettingName = Instance.new("TextLabel")
local ToggleButton = Instance.new("TextButton")
local InputBox = Instance.new("TextBox")
local MenuKey = Enum.KeyCode.F2

NoClip_By_retr0_11001.Name = "NoClip_By_retr0_11001"
NoClip_By_retr0_11001.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
NoClip_By_retr0_11001.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
NoClip_By_retr0_11001.ResetOnSpawn = false

NoClipMain.Name = "NoClipMain"
NoClipMain.Parent = NoClip_By_retr0_11001
NoClipMain.AnchorPoint = Vector2.new(1, 0.5)
NoClipMain.BackgroundColor3 = Color3.new(0.113725, 0.0313726, 0.0313726)
NoClipMain.BorderColor3 = Color3.new(0, 0, 0)
NoClipMain.BorderSizePixel = 0
NoClipMain.Position = UDim2.new(0.98, 0, 0.5, 0)
NoClipMain.Size = UDim2.new(0.300000012, 0, 0.5, 0)
NoClipMain.Active = true

NoClipName.Name = "NoClipName"
NoClipName.Parent = NoClipMain
NoClipName.BackgroundColor3 = Color3.new(0.243137, 0.243137, 0.243137)
NoClipName.BorderSizePixel = 0
NoClipName.Size = UDim2.new(1, 0, 0.100000001, 0)
NoClipName.Font = Enum.Font.GothamBlack
NoClipName.Text = "Exploit Menu:"
NoClipName.TextColor3 = Color3.new(1, 1, 1)
NoClipName.TextScaled = true
NoClipName.TextSize = 14
NoClipName.TextWrapped = true

OptionsFrame.Name = "OptionsFrame"
OptionsFrame.Parent = NoClipMain
OptionsFrame.AnchorPoint = Vector2.new(0.5, 0.5)
OptionsFrame.BackgroundColor3 = Color3.new(0.243137, 0.243137, 0.243137)
OptionsFrame.BorderColor3 = Color3.new(1, 0, 0)
OptionsFrame.Position = UDim2.new(0.5, 0, 0.550000012, 0)
OptionsFrame.Size = UDim2.new(0.949999988, 0, 0.850000024, 0)
OptionsFrame.BottomImage = ""
OptionsFrame.CanvasSize = UDim2.new(0, 0, 0, 0)
OptionsFrame.ScrollBarThickness = 5
OptionsFrame.TopImage = ""

TemplateButton.Name = "TemplateButton"
TemplateButton.Parent = NoClipMain
TemplateButton.BackgroundColor3 = Color3.new(0.113725, 0.113725, 0.113725)
TemplateButton.BorderSizePixel = 0
TemplateButton.Size = UDim2.new(1, 0, 0.300000012, 0)
TemplateButton.Visible = false

SettingName.Name = "SettingName"
SettingName.Parent = TemplateButton
SettingName.BackgroundColor3 = Color3.new(1, 1, 1)
SettingName.BackgroundTransparency = 1
SettingName.Size = UDim2.new(1, 0, 0.200000003, 0)
SettingName.Font = Enum.Font.SourceSansBold
SettingName.Text = "SETTING NAME HERE"
SettingName.TextColor3 = Color3.new(1, 1, 1)
SettingName.TextScaled = true
SettingName.TextSize = 14
SettingName.TextWrapped = true

ToggleButton.Name = "ToggleButton"
ToggleButton.Parent = TemplateButton
ToggleButton.AnchorPoint = Vector2.new(0.5, 0.5)
ToggleButton.BackgroundColor3 = Color3.new(0, 0, 0)
ToggleButton.BorderColor3 = Color3.new(1, 1, 1)
ToggleButton.Position = UDim2.new(0.5, 0, 0.600000024, 0)
ToggleButton.Size = UDim2.new(0.899999976, 0, 0.699999988, 0)
ToggleButton.Font = Enum.Font.SourceSansBold
ToggleButton.Text = "ON/OFF HERE"
ToggleButton.TextColor3 = Color3.new(1, 1, 1)
ToggleButton.TextScaled = true
ToggleButton.TextSize = 14
ToggleButton.TextWrapped = true

TemplateInput.Name = "TemplateInput"
TemplateInput.Parent = NoClipMain
TemplateInput.BackgroundColor3 = Color3.new(0.113725, 0.113725, 0.113725)
TemplateInput.BorderSizePixel = 0
TemplateInput.Size = UDim2.new(1, 0, 0.300000012, 0)
TemplateInput.Visible = false

SettingClone = SettingName:Clone()
SettingClone.Parent = TemplateInput

InputBox.Name = "InputBox"
InputBox.Parent = TemplateInput
InputBox.BackgroundColor3 = Color3.fromRGB(0,0,0)
InputBox.Size = UDim2.new(0.899999976, 0, 0.699999988, 0)
InputBox.Position = UDim2.new(0.5, 0, 0.600000024, 0)
InputBox.AnchorPoint = Vector2.new(0.5,0.5)
InputBox.Font = Enum.Font.SourceSansBold
InputBox.PlaceholderText = "Enter Something"
InputBox.BorderSizePixel = 0
InputBox.TextScaled = true
InputBox.TextColor3 = Color3.fromRGB(255,255,255)
InputBox.Text = ""

local MouseEnabled = false
local OverMenu = false
local Add = true
local PhysicsService = game:GetService("PhysicsService")
local CollisionGroupName = "NoClipCollision"
local CollectionService = game:GetService("CollectionService")
local MenuOpen = true
local ShowObjects = true

local UILayout = Instance.new("UIGridLayout")
UILayout.CellPadding = UDim2.fromOffset(0,5)
UILayout.CellSize = UDim2.new(1,0,0,TemplateButton.AbsoluteSize.Y)
UILayout.SortOrder = Enum.SortOrder.LayoutOrder
UILayout.Parent = OptionsFrame

local PartStoreFolder = Instance.new("Folder",game.ReplicatedStorage)
PartStoreFolder.Name = "MyPartStore"
PartStoreFolder.Parent = game.Lighting
local MainSetting

NoClipMain.MouseEnter:Connect(function()
    OverMenu = true
    NoClipMain.MouseLeave:Wait()
    OverMenu = false
    PlayersSelection.Adornee = nil
end)

Mouse.Move:Connect(function()
    if MouseEnabled then
        if Mouse.Target ~= nil then
            PlayersSelection.Adornee = Mouse.Target
        else
            PlayersSelection.Adornee = nil
        end
    end
end)

local NamesFolder = {}

function SwapObject(Inst,Operation)
    if not Operation then Operation = "Remove" end

    if Operation == "Add" then
        local OrginName = Inst.Name
        Inst.Name = "Part"..#PartStoreFolder:GetChildren()
        NamesFolder[Inst.Name] = OrginName
        local Clone = Inst:Clone()
        Clone.Parent = PartStoreFolder
        Inst.Transparency = 0.5
        Inst.CanCollide = false
        Inst.Anchored = true
    elseif NamesFolder[Inst.Name] then
        local Orgin = PartStoreFolder:FindFirstChild(Inst.Name)
        Inst.Transparency = Orgin.Transparency
        Inst.CanCollide = Orgin.CanCollide
        Inst.Anchored = Orgin.Anchored
        local NAME = NamesFolder[Inst.Name]
        NamesFolder[Inst.Name] = nil
        Inst.Name = NAME
        Orgin:Destroy()
    end
end

UIS.InputBegan:Connect(function(Input,GameProc)
    if not MouseEnabled or OverMenu then return end
    if Input.UserInputType == Enum.UserInputType.MouseButton1 then
        local Target = Mouse.Target
        if Target then
            if Target:IsA("BasePart") or Target:IsA("UnionOperation") then
                if CollectionService:HasTag(Target,CollisionGroupName) and not Add then
                    CollectionService:RemoveTag(Target,CollisionGroupName)
                    SwapObject(Target)
                elseif not CollectionService:HasTag(Target,CollisionGroupName) and Add then
                    SwapObject(Target,"Add")
                    CollectionService:AddTag(Target,CollisionGroupName)
                end
            end
        end
    end
end)


function ToggleMouse(...)
    local Args = table.pack(...)
    local Keep = false
    local Obj = Args[1]

    for _,v in pairs(Args) do
        if typeof(v) == "table" and v.Keep then
            Keep = true
        end
    end

    if Keep == false or Keep == nil then
        if MouseEnabled then
            MouseEnabled = false
        else
            MouseEnabled = true
        end
    end

    if Obj:FindFirstChild("Active").Value then
        Obj.ToggleButton.BorderColor3 = Color3.fromRGB(255,0,0)
        Obj.ToggleButton.Text = "OFF"
        Obj.ToggleButton.TextColor3 = Obj.ToggleButton.BorderColor3
        Obj:FindFirstChild("Active").Value = false
    else
        Obj.ToggleButton.BorderColor3 = Color3.fromRGB(0,255,0)
        Obj.ToggleButton.Text = "ON"
        Obj.ToggleButton.TextColor3 = Obj.ToggleButton.BorderColor3
        Obj:FindFirstChild("Active").Value = true
    end
end

function ToggleMenu(ActionName,InputStat)
    if InputStat == Enum.UserInputState.End then
        if MenuOpen then
            MenuOpen = false
            NoClipMain:TweenPosition(UDim2.new(1.3,0,0.5,0),Enum.EasingDirection.In,Enum.EasingStyle.Bounce,1)
        else
            MenuOpen = true
            NoClipMain:TweenPosition(UDim2.new(0.98, 0, 0.5, 0),Enum.EasingDirection.Out,Enum.EasingStyle.Bounce,1)
        end
    end
end
game:GetService("ContextActionService"):BindAction("MenuToggle",ToggleMenu,false,MenuKey)

function ToggleRemove(Obj)
    ToggleMouse(Obj,{["Keep"] = true})
    if Add then
        Add = false
        PlayersSelection.Color3 = Color3.fromRGB(255,0,0)
        PlayersSelection.SurfaceColor3 = PlayersSelection.Color3
    else
        Add = true
        PlayersSelection.Color3 = Color3.fromRGB(0,255,0)
        PlayersSelection.SurfaceColor3 = PlayersSelection.Color3
    end
end

function ToggleShowList(Obj)
    ToggleMouse(Obj,{["Keep"] = true})
    if ShowObjects then
        ShowObjects = false
        TempFolder = Instance.new("Folder")
        TempFolder.Name = "SelectionFold"
        TempFolder.Parent = game.Workspace
        for _,v in pairs(CollectionService:GetTagged(CollisionGroupName)) do
            local Selection = PlayersSelection:Clone()
            Selection.Adornee = v
            Selection.Color3 = Color3.fromRGB(0,0,255)
            Selection.SurfaceColor3 = Selection.Color3
            Selection.Parent = TempFolder
        end
    else
        if TempFolder then TempFolder:Destroy() end
        ShowObjects = true
    end
end

function ResetNoClip(Inst)
    ToggleMouse(Inst,{["Keep"] = true})
    for _,v in pairs(CollectionService:GetTagged(CollisionGroupName)) do
        CollectionService:RemoveTag(v,CollisionGroupName)
        SwapObject(v)
        wait(0.1)
    end
    ToggleMouse(Inst,{["Keep"] = true})
end

function TPPlayer(Inst,EnterPressed)
    if EnterPressed then
        local PlayerToFind = Inst.InputBox.Text
        local Player
        if string.lower(PlayerToFind) == "random" then Player = game.Players:GetPlayers()[Random.new(tick()):NextInteger(1,#game.Players:GetPlayers())] else Player = game.Players:FindFirstChild(PlayerToFind) end
        if Player then
            if Player.Character then
                local LookVector = Player.Character.PrimaryPart.CFrame.LookVector
                Char:SetPrimaryPartCFrame(Player.Character.PrimaryPart.CFrame * CFrame.new(0,2,0))
            end
        end
    end
    Inst.InputBox.Text = ""
end

function SetPlayerWalkSpeed(Inst,EnterPressed)
    if not EnterPressed then return end
    local NewValue = Inst.InputBox.Text
    if not string.match(NewValue,"%a") then NewValue = tonumber(NewValue) elseif string.lower(NewValue) == "reset" then NewValue = DefaultWalkSpeed else return end
    Humanoid.WalkSpeed = NewValue
    Inst.InputBox.Text = ""
end

function SetPlayerJumpPower(Inst,EnterPressed)
    if not EnterPressed then return end
    local NewValue = Inst.InputBox.Text
    if not string.match(NewValue,"%a") then NewValue = tonumber(NewValue) elseif string.lower(NewValue) == "reset" then NewValue = DefaultJumpPower else return end
    local Humanoid = Char:FindFirstChild("Humanoid")
    Humanoid.JumpPower = NewValue
    Inst.InputBox.Text = ""
end

function SetGravity(Inst,EnterPressed)
    if not EnterPressed then return end
    local NewValue = Inst.InputBox.Text
    if not string.match(NewValue,"%a") then NewValue = tonumber(NewValue) elseif string.lower(NewValue) == "reset" then NewValue = DefaultGravity else return end
    game.Workspace.Gravity = NewValue
    Inst.InputBox.Text = ""
end

local DefaultSettingsForButton = {
    ["ToggleButton"] = {["BorderColor3"] = Color3.fromRGB(255,0,0),["Text"] = "OFF",["TextColor3"] = Color3.fromRGB(255,0,0)},
    ["SettingName"] = {["Text"] = "PLACEHOLDER:"},
    ["CONNECTIONS"] = {["ToggleButton"] = {"MouseButton1Up",ToggleMouse}}
}
DefaultSettingsForButton.__call = function(Tab)
    local TabToPass = {}
    for i,v in pairs(DefaultSettingsForButton) do
        if i ~= "__call" then
            if not Tab[i] then
                TabToPass[i] = v
            else
                TabToPass[i] = Tab[i]
            end
        end
    end
    return TabToPass
end

local DefaultSettingsForInput = {
    ["InputBox"] = {["PlaceholderText"] = "Enter A Player To Move To"},
    ["SettingName"] = {["Text"] = "TP Me To:"},
    ["CONNECTIONS"] = {["InputBox"] = {"FocusLost",TPPlayer}}
}
DefaultSettingsForInput.__call = function(Tab)
    local TabToPass = {}
    for i,v in pairs(DefaultSettingsForInput) do
        if i ~= "__call" then
            if not Tab[i] then
                TabToPass[i] = v
            else
                TabToPass[i] = Tab[i]
            end
        end
    end
    return TabToPass
end

function AddItem(Temp,Settings)
    if not Temp then Temp = TemplateButton end
    if not Settings then Settings = {} end
    if Temp == TemplateButton then
        setmetatable(Settings,DefaultSettingsForButton)
    elseif Temp == TemplateInput then
        setmetatable(Settings,DefaultSettingsForInput)
    end
    Settings = Settings(Settings)

    local NewSettingsFrame = Temp:Clone()
    for i,v in pairs(Settings) do
        for a,b in pairs(v) do
            if i ~= "CONNECTIONS" then
                local Is,ReturnValue = pcall(function()
                    NewSettingsFrame[i][a] = b
                end)
                if not Is then
                    warn("Setting errored, skipping!")
                end
            end
        end
    end

    NewSettingsFrame.Name = string.split(Settings.SettingName.Text,":")[1]
    NewSettingsFrame.Size = UDim2.new(1,0,0,NewSettingsFrame.AbsoluteSize.Y)

    local Active = Instance.new("BoolValue")
    Active.Name = "Active"
    Active.Value = false
    Active.Parent = NewSettingsFrame

    for i,v in pairs(Settings.CONNECTIONS) do
        NewSettingsFrame:FindFirstChild(i)[v[1]]:Connect(function(...)
            v[2](NewSettingsFrame,...)
        end)
    end

    NewSettingsFrame.Visible = true
    NewSettingsFrame.Parent = OptionsFrame
    OptionsFrame.CanvasSize = UDim2.new(0,0,0,UILayout.AbsoluteContentSize.Y)
end

AddItem(TemplateButton,{["SettingName"] = {["Text"] = "Toggle Mouse Active:"}})
AddItem(TemplateButton,{["SettingName"] = {["Text"] = "Toggle Remove From NoClip Objects:"},["CONNECTIONS"] = {["ToggleButton"] = {"MouseButton1Up",ToggleRemove}}})
AddItem(TemplateButton,{["SettingName"] = {["Text"] = "Show All NoClip Objects:"},["CONNECTIONS"] = {["ToggleButton"] = {"MouseButton1Up",ToggleShowList}}})
AddItem(TemplateButton,{["SettingName"] = {["Text"] = "Remove All NoClip Objects"},["CONNECTIONS"] = {["ToggleButton"] = {"MouseButton1Up",ResetNoClip}}})
AddItem(TemplateInput)
AddItem(TemplateInput,{["SettingName"] = {["Text"] = "Set Walkspeed:"},["InputBox"] = {["PlaceholderText"] = "Enter Your Walk Speed"},["CONNECTIONS"] = {["InputBox"] = {"FocusLost",SetPlayerWalkSpeed}}})
AddItem(TemplateInput,{["SettingName"] = {["Text"] = "Set JumpPower:"},["InputBox"] = {["PlaceholderText"] = "Enter Your Jump Power"},["CONNECTIONS"] = {["InputBox"] = {"FocusLost",SetPlayerJumpPower}}})
AddItem(TemplateInput,{["SettingName"] = {["Text"] = "Set Gravity:"},["InputBox"] = {["PlaceholderText"] = "Enter Gravity:"},["CONNECTIONS"] = {["InputBox"] = {"FocusLost",SetGravity}}})