Roblox Click Gui Script

if loaded then
    error("it's already running!",0)
    return
end

pcall(function()
    getgenv().loaded = true
    game.StarterGui:SetCore("SendNotification", {
    Title = "Loaded!"; -- the title (ofc)
    Text = "Click GUI has loaded! Enjoy!"; -- what the text says (ofc)t.
    Duration = 2; -- how long the notification should in secounds
    })
end)

local function getClickCounter()
    local result = 0
    for _, object in next, game:GetDescendants() do
        if object:IsA("ClickDetector") then
            result = result + 1
        end
    end
    return result
end

local function getTouchCounter()
    local result = 0
    for _, object in next, game:GetDescendants() do
        if object:IsA("TouchTransmitter") then
            result = result + 1
        end
    end
    return result
end

local ClickGUI = Instance.new("ScreenGui")
local ClickFrame = Instance.new("Frame")
local SecondClickFrame= Instance.new("Frame")
local FireClick = Instance.new("TextButton")
local FirePause = Instance.new("TextButton")
local MaxActive = Instance.new("TextButton")
local DestroyButton = Instance.new("TextButton")
local FireSound = Instance.new("TextButton")
local ShowSelectionClick = Instance.new("TextButton")
local ShowSelectionTouch = Instance.new("TextButton")
local RandomPitch = Instance.new("TextButton")
local TriggerTouch = Instance.new("TextButton")
local UnlockParts = Instance.new("TextButton")
local KickMe = Instance.new("TextButton")
local ReasonText = Instance.new("TextBox")
local ClickCount = Instance.new("TextLabel")
local TouchCount = Instance.new("TextLabel")
local TitleTex = Instance.new("TextLabel")

local isOpen = false

-- 1st Grid = 0
-- 2nd Grid = 25
-- 3rd Grid = 50

-- Properties

ClickGUI.Name = "ClickGUI"
ClickGUI.Parent = game.CoreGui

ClickFrame.Name = "ClickFrame"
ClickFrame.Parent = ClickGUI
ClickFrame.Active = true
ClickFrame.BackgroundColor3 = Color3.fromRGB(0, 90, 247)
ClickFrame.BackgroundTransparency = 0.25
ClickFrame.Position = UDim2.new(0.75, 0, 0.2, 0)
ClickFrame.Size = UDim2.new(0, 310, 0, 155)
ClickFrame.Draggable = true

SecondClickFrame.Name = "SecondClickFrame"
SecondClickFrame.Parent = ClickFrame
SecondClickFrame.BackgroundColor3 = Color3.new(1, 1, 1)
SecondClickFrame.BackgroundTransparency = 0.25
SecondClickFrame.Position = UDim2.new(0.03, 0, 0.15, 0)
SecondClickFrame.Size = UDim2.new(0, 290, 0, 126)

FireSound.Name = "FireSound"
FireSound.Parent = SecondClickFrame
FireSound.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
FireSound.Position = UDim2.new(0, 0, 0, 0)
FireSound.Size = UDim2.new(0, 66, 0, 18)
FireSound.Font = Enum.Font.SourceSans
FireSound.Text = "Fire All Sounds"
FireSound.TextColor3 = Color3.new(1, 1, 1)
FireSound.TextScaled = true
FireSound.TextSize = 14
FireSound.TextWrapped = true
FireSound.MouseButton1Click:connect(function()
local Click = click_detector or fireclickdetector
    for _, object in next, game:GetDescendants() do
        if object.parent.Name == "play" and object:IsA("ClickDetector") then
            Click(object, 1)
        end
    end
end)

FireClick.Name = "FireClick"
FireClick.Parent = SecondClickFrame
FireClick.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
FireClick.Position = UDim2.new(0, 0, 0, 25)
FireClick.Size = UDim2.new(0, 66, 0, 18)
FireClick.Font = Enum.Font.SourceSans
FireClick.Text = "Fire Click Detectors"
FireClick.TextColor3 = Color3.new(1, 1, 1)
FireClick.TextScaled = true
FireClick.TextSize = 14
FireClick.TextWrapped = true
FireClick.MouseButton1Click:connect(function()
local Click = click_detector or fireclickdetector
    for _, object in next, game:GetDescendants() do
        if object:IsA("ClickDetector") then
            Click(object, 1)
        end
    end
end)

TriggerTouch.Name = "TriggerTouch"
TriggerTouch.Parent = SecondClickFrame
TriggerTouch.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
TriggerTouch.Position = UDim2.new(0, 224.5, 0, 0)
TriggerTouch.Size = UDim2.new(0, 66, 0, 18)
TriggerTouch.Font = Enum.Font.SourceSans
TriggerTouch.Text = "Trigger Touch Interests"
TriggerTouch.TextColor3 = Color3.new(1, 1, 1)
TriggerTouch.TextScaled = true
TriggerTouch.TextSize = 14
TriggerTouch.TextWrapped = true
TriggerTouch.MouseButton1Click:connect(function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v:IsA("TouchTransmitter") then
            firetouchinterest(game.Players.LocalPlayer.Character.HumanoidRootPart, v.Parent, 0) --0 is touch
            task.wait(.01)
            firetouchinterest(game.Players.LocalPlayer.Character.HumanoidRootPart, v.Parent, 1) -- 1 is untouch
        end
    end
end)

UnlockParts.Name = "UnlockParts"
UnlockParts.Parent = SecondClickFrame
UnlockParts.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
UnlockParts.Position = UDim2.new(0, 224.5, 0, 25)
UnlockParts.Size = UDim2.new(0, 66, 0, 18)
UnlockParts.Font = Enum.Font.SourceSans
UnlockParts.Text = "Unlock Parts"
UnlockParts.TextColor3 = Color3.new(1, 1, 1)
UnlockParts.TextScaled = true
UnlockParts.TextSize = 14
UnlockParts.TextWrapped = true
UnlockParts.MouseButton1Click:connect(function()
    function unlockEverything(a)
        for n,o in pairs(a:GetChildren())do
            if (o:IsA("BasePart")) then
                o.Locked = false
            end
            unlockEverything(o)
        end
    end
    unlockEverything(Workspace)
end)

FirePause.Name = "ClickPause"
FirePause.Parent = SecondClickFrame
FirePause.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
FirePause.Position = UDim2.new(0, 75, 0, 0)
FirePause.Size = UDim2.new(0, 66, 0, 18)
FirePause.Font = Enum.Font.SourceSans
FirePause.Text = "Pause Sounds"
FirePause.TextColor3 = Color3.new(1, 1, 1)
FirePause.TextScaled = true
FirePause.TextSize = 14
FirePause.TextWrapped = true
FirePause.MouseButton1Click:connect(function()
local Click = click_detector or fireclickdetector
    for _, object in next, game:GetDescendants() do
        if object.parent.Name == "Stop" and object:IsA("ClickDetector") then
            Click(object, 1)
        end
    end
end)

RandomPitch.Name = "RandomPitch"
RandomPitch.Parent = SecondClickFrame
RandomPitch.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
RandomPitch.Position = UDim2.new(0, 75, 0, 25)
RandomPitch.Size = UDim2.new(0, 66, 0, 18)
RandomPitch.Font = Enum.Font.SourceSans
RandomPitch.Text = "Random Pitch"
RandomPitch.TextColor3 = Color3.new(1, 1, 1)
RandomPitch.TextScaled = true
RandomPitch.TextSize = 14
RandomPitch.TextWrapped = true
RandomPitch.MouseButton1Click:connect(function()
    for i, object in pairs(game.Workspace:GetDescendants()) do
        if object:IsA("Sound") then
            object.PlaybackSpeed = math.random(1, 3);
        end
    end
end)

MaxActive.Name = "MaxActivation"
MaxActive.Parent = SecondClickFrame
MaxActive.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
MaxActive.Position = UDim2.new(0, 149, 0, 0)
MaxActive.Size = UDim2.new(0, 66, 0, 18)
MaxActive.Font = Enum.Font.SourceSans
MaxActive.Text = "Max Activation"
MaxActive.TextColor3 = Color3.new(1, 1, 1)
MaxActive.TextScaled = true
MaxActive.TextSize = 14
MaxActive.TextWrapped = true
MaxActive.MouseButton1Click:connect(function()
    for _, object in next, game:GetDescendants() do
        if object:IsA("ClickDetector") and object then
            object.MaxActivationDistance = 1000000
        end
    end
end)

ShowSelectionClick.Name = "ShowSelection"
ShowSelectionClick.Parent = SecondClickFrame
ShowSelectionClick.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
ShowSelectionClick.Position = UDim2.new(0, 149, 0, 25)
ShowSelectionClick.Size = UDim2.new(0, 66, 0, 18)
ShowSelectionClick.Font = Enum.Font.SourceSans
ShowSelectionClick.Text = "Show Selection Click"
ShowSelectionClick.TextColor3 = Color3.new(1, 1, 1)
ShowSelectionClick.TextScaled = true
ShowSelectionClick.TextSize = 14
ShowSelectionClick.TextWrapped = true
ShowSelectionClick.MouseButton1Click:connect(function()
    if not isOpen then
        for _, object in next, game:GetDescendants() do
            if object:IsA("ClickDetector") and object.parent:FindFirstChild("SelectionBox") == nil then
                local selectionbox = Instance.new("SelectionBox", object.parent)
                selectionbox.Adornee = object.parent
            end
        end
        ShowSelectionClick.Text = "Hide Selection Click"
    else
        for _, object in next, game:GetDescendants() do
            if object:IsA("ClickDetector") and object.parent:FindFirstChild("SelectionBox") ~= nil then
                object.parent:FindFirstChild("SelectionBox"):Destroy()
            end
        end
        ShowSelectionClick.Text = "Show Selection Click"
    end
    isOpen = not isOpen
end)

ShowSelectionTouch.Name = "ShowSelectionTouch"
ShowSelectionTouch.Parent = SecondClickFrame
ShowSelectionTouch.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
ShowSelectionTouch.Position = UDim2.new(0, 0, 0, 50)
ShowSelectionTouch.Size = UDim2.new(0, 66, 0, 18)
ShowSelectionTouch.Font = Enum.Font.SourceSans
ShowSelectionTouch.Text = "Show Selection Touch"
ShowSelectionTouch.TextColor3 = Color3.new(1, 1, 1)
ShowSelectionTouch.TextScaled = true
ShowSelectionTouch.TextSize = 14
ShowSelectionTouch.TextWrapped = true
ShowSelectionTouch.MouseButton1Click:connect(function()
    if not isOpen then
        for _, object in next, game:GetDescendants() do
            if object:IsA("TouchTransmitter") and object.parent:FindFirstChild("SelectionBox") == nil then
                local selectionbox = Instance.new("SelectionBox", object.parent)
                selectionbox.Adornee = object.parent
            end
        end
        ShowSelectionTouch.Text = "Hide Selection Touch"
    else
        for _, object in next, game:GetDescendants() do
            if object:IsA("TouchTransmitter") and object.parent:FindFirstChild("SelectionBox") ~= nil then
                object.parent:FindFirstChild("SelectionBox"):Destroy()
            end
        end
        ShowSelectionTouch.Text = "Show Selection Touch"
    end
    isOpen = not isOpen
end)

RandomPitch.Name = "RandomPitch"
RandomPitch.Parent = SecondClickFrame
RandomPitch.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
RandomPitch.Position = UDim2.new(0, 75, 0, 25)
RandomPitch.Size = UDim2.new(0, 66, 0, 18)
RandomPitch.Font = Enum.Font.SourceSans
RandomPitch.Text = "Random Pitch"
RandomPitch.TextColor3 = Color3.new(1, 1, 1)
RandomPitch.TextScaled = true
RandomPitch.TextSize = 14
RandomPitch.TextWrapped = true
RandomPitch.MouseButton1Click:connect(function()
    for i, object in pairs(game.Workspace:GetDescendants()) do
        if object:IsA("Sound") then
            object.PlaybackSpeed = math.random(1, 3);
        end
    end
end)

KickMe.Name = "KickMe"
KickMe.Parent = SecondClickFrame
KickMe.BackgroundColor3 = Color3.new(0.5, 0.5, 0.5)
KickMe.Position = UDim2.new(0, 149, 0, 50)
KickMe.Size = UDim2.new(0, 66, 0, 18)
KickMe.Font = Enum.Font.SourceSans
KickMe.Text = "Kick Yourself"
KickMe.TextColor3 = Color3.new(1, 1, 1)
KickMe.TextScaled = true
KickMe.TextSize = 14
KickMe.TextWrapped = true
KickMe.MouseButton1Click:connect(function()
    game.Players.LocalPlayer:Kick(ReasonText.Text)
end)

ReasonText.Name = "ReasonText"
ReasonText.Parent = SecondClickFrame
ReasonText.Position = UDim2.new(0, 75, 0, 50)
ReasonText.Size = UDim2.new(0, 66, 0, 18)
ReasonText.Font = Enum.Font.SourceSans
ReasonText.Text = "ClickDetector"
ReasonText.TextColor3 = Color3.new(1, 1, 1)
ReasonText.TextScaled = true
ReasonText.TextSize = 14
ReasonText.TextWrapped = true

ClickCount.Name = "ClickCount"
ClickCount.Parent = SecondClickFrame
ClickCount.BackgroundTransparency = 1
ClickCount.Position = UDim2.new(0, 0, 0, 108.5)
ClickCount.Size = UDim2.new(0, 130, 0, 18)
ClickCount.Font = Enum.Font.SourceSans
ClickCount.Text = "Clickable Count: " .. getClickCounter()
ClickCount.TextColor3 = Color3.new(0, 0, 0)
ClickCount.TextSize = 17

TouchCount.Name = "TouchCount"
TouchCount.Parent = SecondClickFrame
TouchCount.BackgroundTransparency = 1
TouchCount.Position = UDim2.new(0, 0, 0, 97.5)
TouchCount.Size = UDim2.new(0, 130, 0, 18)
TouchCount.Font = Enum.Font.SourceSans
TouchCount.Text = "Touchable Count: " .. getTouchCounter()
TouchCount.TextColor3 = Color3.new(0, 0, 0)
TouchCount.TextSize = 17

DestroyButton.Name = "DestroyButton"
DestroyButton.Parent = SecondClickFrame
DestroyButton.BackgroundColor3 = Color3.fromRGB(231, 74, 3)
DestroyButton.BackgroundTransparency = 0.25
DestroyButton.Position = UDim2.new(0, 270, 0, -23)
DestroyButton.Size = UDim2.new(0, 20, 0, 18)
DestroyButton.Font = Enum.Font.SourceSans
DestroyButton.Text = "X"
DestroyButton.TextColor3 = Color3.new(1, 1, 1)
DestroyButton.TextScaled = true
DestroyButton.TextSize = 14
DestroyButton.TextWrapped = true
DestroyButton.MouseButton1Click:connect(function()
    ClickGUI:Destroy()
    pcall(function()
        getgenv().loaded = false
    end)
end)

TitleTex.Name = "TitleTex"
TitleTex.Parent = SecondClickFrame
TitleTex.BackgroundColor3 = Color3.new(1, 1, 1)
TitleTex.BackgroundTransparency = 1
TitleTex.Position = UDim2.new(0, 70, 0, -40)
TitleTex.Size = UDim2.new(0, 150, 0, 50)
TitleTex.Font = Enum.Font.SourceSans
TitleTex.Text = "Click GUI By Friskshift"
TitleTex.TextColor3 = Color3.new(1, 1, 1)
TitleTex.TextSize = 20