Lelitons menu

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local Debris = game:GetService("Debris")

local LP = Players.LocalPlayer
local Mouse = LP:GetMouse()
local Char = LP.Character or LP.CharacterAdded:Wait()
local HRP = Char:WaitForChild("HumanoidRootPart")
local Humanoid = Char:WaitForChild("Humanoid")

--------------------------------------------------
-- STATES
--------------------------------------------------
local boxEnabled = true
local ritualEnabled = false
local rocketEnabled = false
local grappleEnabled = false
local wallClimbEnabled = false

local flying = false
local grappling = false
local climbing = false
local boxDebounce = false

--------------------------------------------------
-- SETTINGS
--------------------------------------------------
local BOX_FORCE = 65
local RITUAL_SPIN = math.rad(6)
local RITUAL_RISE = 0.6
local ROCKET_SPEED = 16

local GRAPPLE_FORCE = 120
local GRAPPLE_FORCE_MIN = 40
local GRAPPLE_FORCE_MAX = 220

local WALL_CHECK_DISTANCE = 3
local WALL_CLIMB_SPEED = 35

--------------------------------------------------
-- GUI ROOT
--------------------------------------------------
local gui = Instance.new("ScreenGui", game.CoreGui)
gui.Name = "BarkRobloxGUI"

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0,300,0,420)
main.Position = UDim2.new(0.5,-150,0.5,-210)
main.BackgroundColor3 = Color3.fromRGB(20,20,20)
main.Active = true
main.Draggable = true

-- TOP BAR
local top = Instance.new("Frame", main)
top.Size = UDim2.new(1,0,0,40)
top.BackgroundColor3 = Color3.fromRGB(30,30,30)

local title = Instance.new("TextLabel", top)
title.Size = UDim2.new(1,-50,1,0)
title.Position = UDim2.new(0,10,0,0)
title.Text = "Lelitons menu" -- ✅ Titel geändert
title.TextXAlignment = Enum.TextXAlignment.Left
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1
title.TextScaled = true

local closeBtn = Instance.new("TextButton", top)
closeBtn.Size = UDim2.new(0,40,1,0)
closeBtn.Position = UDim2.new(1,-40,0,0)
closeBtn.Text = "X"
closeBtn.TextScaled = true
closeBtn.BackgroundColor3 = Color3.fromRGB(170,0,0)

-- SCROLL FRAME
local scroll = Instance.new("ScrollingFrame", main)
scroll.Position = UDim2.new(0,0,0,40)
scroll.Size = UDim2.new(1,0,1,-40)
scroll.CanvasSize = UDim2.new(0,0,0,0)
scroll.ScrollBarImageTransparency = 0
scroll.ScrollBarThickness = 6
scroll.AutomaticCanvasSize = Enum.AutomaticSize.Y
scroll.BackgroundTransparency = 1

local layout = Instance.new("UIListLayout", scroll)
layout.Padding = UDim.new(0,10)

local padding = Instance.new("UIPadding", scroll)
padding.PaddingTop = UDim.new(0,10)
padding.PaddingBottom = UDim.new(0,10)
padding.PaddingLeft = UDim.new(0,10)
padding.PaddingRight = UDim.new(0,10)

-- BUTTON MAKER
local function makeButton(text)
	local b = Instance.new("TextButton")
	b.Size = UDim2.new(1,0,0,45)
	b.Text = text
	b.TextScaled = true
	b.BackgroundColor3 = Color3.fromRGB(40,40,40)
	b.TextColor3 = Color3.new(1,1,1)
	b.Parent = scroll
	return b
end

--------------------------------------------------
-- BUTTONS (ALLE FEATURES)
--------------------------------------------------
local boxBtn     = makeButton("BOXEN: AN")
local ritualBtn  = makeButton("RITUAL: AUS")
local rocketBtn  = makeButton("ROCKET: AUS")
local grappleBtn = makeButton("GRAPPLE: AUS")
local wallBtn    = makeButton("WALLCLIMB: AUS")

--------------------------------------------------
-- BUTTON LOGIC
--------------------------------------------------
boxBtn.MouseButton1Click:Connect(function()
	boxEnabled = not boxEnabled
	boxBtn.Text = boxEnabled and "BOXEN: AN" or "BOXEN: AUS"
	boxBtn.BackgroundColor3 = boxEnabled and Color3.fromRGB(0,170,0) or Color3.fromRGB(40,40,40)
end)

ritualBtn.MouseButton1Click:Connect(function()
	ritualEnabled = not ritualEnabled
	ritualBtn.Text = ritualEnabled and "RITUAL: AN" or "RITUAL: AUS"
	ritualBtn.BackgroundColor3 = ritualEnabled and Color3.fromRGB(255,70,70) or Color3.fromRGB(40,40,40)
end)

wallBtn.MouseButton1Click:Connect(function()
	wallClimbEnabled = not wallClimbEnabled
	wallBtn.Text = wallClimbEnabled and "WALLCLIMB: AN" or "WALLCLIMB: AUS"
	wallBtn.BackgroundColor3 = wallClimbEnabled and Color3.fromRGB(0,170,0) or Color3.fromRGB(40,40,40)
end)

--------------------------------------------------
-- CLOSE / ESC
--------------------------------------------------
local guiOpen = true
local function toggleGUI()
	guiOpen = not guiOpen
	main.Visible = guiOpen
end

closeBtn.MouseButton1Click:Connect(toggleGUI)
UserInputService.InputBegan:Connect(function(input, gpe)
	if gpe then return end
	if input.KeyCode == Enum.KeyCode.Escape then
		toggleGUI()
	end
end)

--------------------------------------------------
-- ROCKET TOOL
--------------------------------------------------
local rocketTool
rocketBtn.MouseButton1Click:Connect(function()
	rocketEnabled = not rocketEnabled
	rocketBtn.Text = rocketEnabled and "ROCKET: AN" or "ROCKET: AUS"
	rocketBtn.BackgroundColor3 = rocketEnabled and Color3.fromRGB(0,170,0) or Color3.fromRGB(40,40,40)

	if rocketEnabled and not rocketTool then
		rocketTool = Instance.new("Tool")
		rocketTool.Name = "Rocket"
		rocketTool.RequiresHandle = false
		rocketTool.Parent = LP.Backpack
		rocketTool.Activated:Connect(function() flying = true end)
		rocketTool.Deactivated:Connect(function() flying = false end)
	else
		flying = false
		if rocketTool then rocketTool:Destroy() rocketTool = nil end
	end
end)

--------------------------------------------------
-- GRAPPLE TOOL (NUR PARTS)
--------------------------------------------------
local grappleTool
grappleBtn.MouseButton1Click:Connect(function()
	grappleEnabled = not grappleEnabled
	grappleBtn.Text = grappleEnabled and "GRAPPLE: AN" or "GRAPPLE: AUS"
	grappleBtn.BackgroundColor3 = grappleEnabled and Color3.fromRGB(0,170,0) or Color3.fromRGB(40,40,40)

	if grappleEnabled and not grappleTool then
		grappleTool = Instance.new("Tool")
		grappleTool.Name = "Grapple"
		grappleTool.RequiresHandle = false
		grappleTool.Parent = LP.Backpack

		grappleTool.Activated:Connect(function()
			if grappling then return end
			local targetPart = Mouse.Target
			if not targetPart or not targetPart:IsA("BasePart") then return end
			if targetPart:FindFirstAncestorOfClass("Model") and
				Players:GetPlayerFromCharacter(targetPart:FindFirstAncestorOfClass("Model")) then return end

			grappling = true
			local targetPos = Mouse.Hit.Position
			local rope = Instance.new("Part")
			rope.Anchored = true
			rope.CanCollide = false
			rope.Color = Color3.new(1,1,1)
			rope.Material = Enum.Material.Neon
			rope.Parent = workspace

			local bv = Instance.new("BodyVelocity")
			bv.MaxForce = Vector3.new(1e6,1e6,1e6)
			bv.Parent = HRP

			local conn
			conn = RunService.Heartbeat:Connect(function()
				if not grappling then
					conn:Disconnect()
					return
				end
				local dir = (targetPos - HRP.Position)
				local dist = dir.Magnitude
				if dist < 6 then
					grappling = false
					bv:Destroy()
					rope:Destroy()
					conn:Disconnect()
					return
				end
				bv.Velocity = dir.Unit * GRAPPLE_FORCE
				rope.Size = Vector3.new(0.15,0.15,dist)
				rope.CFrame = CFrame.lookAt((HRP.Position + targetPos)/2, targetPos)
			end)
		end)
	else
		grappling = false
		if grappleTool then grappleTool:Destroy() grappleTool=nil end
	end
end)

--------------------------------------------------
-- BOXEN
--------------------------------------------------
HRP.Touched:Connect(function(hit)
	if not boxEnabled or boxDebounce then return end
	local c = hit.Parent
	local hrp2 = c and c:FindFirstChild("HumanoidRootPart")
	if hrp2 and c ~= Char then
		boxDebounce = true
		local bv = Instance.new("BodyVelocity")
		bv.MaxForce = Vector3.new(1e6,1e6,1e6)
		bv.Velocity = (HRP.Position - hrp2.Position).Unit * BOX_FORCE + Vector3.new(0,25,0)
		bv.Parent = HRP
		Debris:AddItem(bv,0.2)
		task.delay(0.7,function() boxDebounce = false end)
	end
end)

--------------------------------------------------
-- MAIN LOOP
--------------------------------------------------
RunService.Heartbeat:Connect(function()
	-- Ritual
	if ritualEnabled then
		HRP.CFrame *= CFrame.Angles(0, math.rad(6), 0)
		HRP.CFrame += Vector3.new(0,0.6,0)
	end
	-- Rocket Fly
	if flying and rocketTool then
		local dir = (Mouse.Hit.Position - HRP.Position).Unit
		HRP.AssemblyLinearVelocity = dir * ROCKET_SPEED
	end
	-- Wall Climb
	if wallClimbEnabled and UserInputService:IsKeyDown(Enum.KeyCode.W) then
		local rayParams = RaycastParams.new()
		rayParams.FilterDescendantsInstances = {Char}
		rayParams.FilterType = Enum.RaycastFilterType.Blacklist
		local result = workspace:Raycast(HRP.Position, HRP.CFrame.LookVector * WALL_CHECK_DISTANCE, rayParams)
		if result and result.Instance and result.Instance:IsA("BasePart") then
			HRP.AssemblyLinearVelocity = Vector3.new(
				HRP.AssemblyLinearVelocity.X,
				WALL_CLIMB_SPEED,
				HRP.AssemblyLinearVelocity.Z
			)
		end
	end
end)

--------------------------------------------------
-- RESPAWN
--------------------------------------------------
LP.CharacterAdded:Connect(function(c)
	Char = c
	HRP = c:WaitForChild("HumanoidRootPart")
	Humanoid = c:WaitForChild("Humanoid")
end)