local player = game.Players.LocalPlayer
local gui = Instance.new("ScreenGui", player.PlayerGui)
gui.Name = "PainelArabe"
gui.ResetOnSpawn = false

local TweenService = game:GetService("TweenService")

local loadFrame = Instance.new("Frame", gui)
loadFrame.Size = UDim2.new(0.5,0,0.25,0)
loadFrame.Position = UDim2.new(0.25,0,0.35,0)
loadFrame.BackgroundColor3 = Color3.fromRGB(20,20,20)
loadFrame.BorderSizePixel = 0

local leftBar = Instance.new("Frame", loadFrame)
leftBar.Size = UDim2.new(0.02,0,1,0)
leftBar.BackgroundColor3 = Color3.fromRGB(255,0,0)

local rightBar = Instance.new("Frame", loadFrame)
rightBar.Size = UDim2.new(0.02,0,1,0)
rightBar.Position = UDim2.new(0.98,0,0,0)
rightBar.BackgroundColor3 = Color3.fromRGB(255,0,0)

local title = Instance.new("TextLabel", loadFrame)
title.Size = UDim2.new(1,0,0.3,0)
title.Position = UDim2.new(0,0,-0.35,0)
title.BackgroundTransparency = 1
title.Font = Enum.Font.GothamBlack
title.TextScaled = true
title.Text = "ARÁBE SCRIPT"
title.TextColor3 = Color3.new(1,1,1)

local loadText = Instance.new("TextLabel", loadFrame)
loadText.Size = UDim2.new(1,0,1,0)
loadText.BackgroundTransparency = 1
loadText.Font = Enum.Font.GothamBold
loadText.TextScaled = true
loadText.TextColor3 = Color3.new(1,1,1)
loadText.Text = "Carregando... 0%"

task.spawn(function()
	while true do
		for i = 0,255 do
			local c = Color3.fromHSV(i/255,1,1)
			title.TextColor3 = c
			leftBar.BackgroundColor3 = c
			rightBar.BackgroundColor3 = c
			task.wait(0.03)
		end
	end
end)

for i = 1,100 do
	loadText.Text = "Carregando... "..i.."%"
	task.wait(0.05)
end

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0.4,0,0.25,0)
main.Position = UDim2.new(0.3,0,-0.5,0)
main.BackgroundColor3 = Color3.fromRGB(25,25,25)
main.BorderSizePixel = 0
main.Visible = false

local leftBarMenu = leftBar:Clone()
leftBarMenu.Parent = main
leftBarMenu.Size = UDim2.new(0.02,0,1,0)

local rightBarMenu = rightBar:Clone()
rightBarMenu.Parent = main
rightBarMenu.Size = UDim2.new(0.02,0,1,0)
rightBarMenu.Position = UDim2.new(0.98,0,0,0)

local speedTitle = Instance.new("TextLabel", main)
speedTitle.Size = UDim2.new(1,0,0.2,0)
speedTitle.BackgroundTransparency = 1
speedTitle.Font = Enum.Font.GothamBlack
speedTitle.TextScaled = true
speedTitle.Text = "ARÁBE script speed"
speedTitle.TextColor3 = Color3.new(1,1,1)

task.spawn(function()
	while true do
		for i = 0,255 do
			local c = Color3.fromHSV(i/255,1,1)
			speedTitle.TextColor3 = c
			leftBarMenu.BackgroundColor3 = c
			rightBarMenu.BackgroundColor3 = c
			task.wait(0.03)
		end
	end
end)

local speedBox = Instance.new("TextBox", main)
speedBox.Size = UDim2.new(0.8,0,0.3,0)
speedBox.Position = UDim2.new(0.1,0,0.25,0)
speedBox.PlaceholderText = "Digite a velocidade"
speedBox.Font = Enum.Font.Gotham
speedBox.TextScaled = true
speedBox.BackgroundColor3 = Color3.fromRGB(35,35,35)
speedBox.TextColor3 = Color3.new(1,1,1)

local apply = Instance.new("TextButton", main)
apply.Size = UDim2.new(0.8,0,0.25,0)
apply.Position = UDim2.new(0.1,0,0.6,0)
apply.Text = "Aplicar"
apply.Font = Enum.Font.GothamBlack
apply.TextScaled = true
apply.TextColor3 = Color3.new(1,1,1)
apply.BackgroundColor3 = Color3.fromRGB(50,50,50)

local offBtn = Instance.new("TextButton", main)
offBtn.Size = UDim2.new(0.5,0,0.2,0)
offBtn.Position = UDim2.new(0.25,0,0.88,0)
offBtn.Text = "OFF"
offBtn.Font = Enum.Font.GothamBlack
offBtn.TextScaled = true
offBtn.BackgroundColor3 = Color3.fromRGB(80,0,0)
offBtn.TextColor3 = Color3.new(1,1,1)

local onBtn = Instance.new("TextButton", gui)
onBtn.Size = UDim2.new(0.15,0,0.07,0)
onBtn.Position = UDim2.new(0.02,0,0.85,0)
onBtn.Text = "ON"
onBtn.Font = Enum.Font.GothamBlack
onBtn.TextScaled = true
onBtn.BackgroundColor3 = Color3.fromRGB(0,120,0)
onBtn.TextColor3 = Color3.new(1,1,1)
onBtn.Visible = false

local function abrirMenu()
	main.Visible = true
	TweenService:Create(
		main,
		TweenInfo.new(0.5, Enum.EasingStyle.Quad, Enum.EasingDirection.Out),
		{Position = UDim2.new(0.3,0,0.35,0)}
	):Play()
end

local function fecharMenu()
	local t = TweenService:Create(
		main,
		TweenInfo.new(0.5, Enum.EasingStyle.Quad, Enum.EasingDirection.In),
		{Position = UDim2.new(0.3,0,-0.5,0)}
	)
	t:Play()
	t.Completed:Connect(function()
		main.Visible = false
	end)
end

apply.MouseButton1Click:Connect(function()
	local num = tonumber(speedBox.Text)
	if num then
		local hum = player.Character and player.Character:FindFirstChildWhichIsA("Humanoid")
		if hum then
			hum.WalkSpeed = num
		end
	end
end)

offBtn.MouseButton1Click:Connect(function()
	fecharMenu()
	onBtn.Visible = true
end)

onBtn.MouseButton1Click:Connect(function()
	abrirMenu()
	onBtn.Visible = false
end)

loadFrame:Destroy()
abrirMenu()