-----------------------------
-- HACKER MENU SYSTEM (RÉGI KINÉZET)
-----------------------------

local p = game.Players.LocalPlayer
local uis = game:GetService("UserInputService")
local cam = workspace.CurrentCamera

local hackerGreen = Color3.fromRGB(0,255,0)
local hackerDark = Color3.fromRGB(10,10,10)

local gui = Instance.new("ScreenGui", p.PlayerGui)
gui.Name = "HackerMenu"

-----------------------------
-- MENU SHOW BUTTON
-----------------------------
local show = Instance.new("TextButton", gui)
show.Size = UDim2.new(0,160,0,45)
show.Position = UDim2.new(0,20,0,20)
show.Text = ">> Menü megnyitása <<"
show.BackgroundColor3 = hackerDark
show.TextColor3 = hackerGreen
show.BorderSizePixel = 3
show.BorderColor3 = hackerGreen
show.TextScaled = true
Instance.new("UICorner", show).CornerRadius = UDim.new(0,10)
show.Visible = false

-----------------------------
-- MAIN MENU FRAME
-----------------------------
local frame = Instance.new("ScrollingFrame", gui)
frame.Size = UDim2.new(0,320,0,450)
frame.Position = UDim2.new(0,20,0,80)
frame.BackgroundColor3 = Color3.fromRGB(10,10,10)
frame.BorderSizePixel = 4
frame.BorderColor3 = hackerGreen
frame.CanvasSize = UDim2.new(0,0,0,1500)
frame.ScrollBarThickness = 6
frame.ScrollBarImageColor3 = hackerGreen
Instance.new("UICorner", frame).CornerRadius = UDim.new(0,12)

local layout = Instance.new("UIListLayout", frame)
layout.Padding = UDim.new(0,6)

show.MouseButton1Click:Connect(function()
	frame.Visible = true
	show.Visible = false
end)

-----------------------------
-- BUTTON CREATOR
-----------------------------
local function btn(text)
    local b = Instance.new("TextButton", frame)
    b.Size = UDim2.new(1,-10,0,40)
    b.Text = "> " .. text .. " <"
    b.BackgroundColor3 = Color3.fromRGB(20,20,20)
    b.TextColor3 = hackerGreen
    b.BorderSizePixel = 3
    b.BorderColor3 = hackerGreen
    b.TextScaled = true
    Instance.new("UICorner", b).CornerRadius = UDim.new(0,10)

    local shadow = Instance.new("ImageLabel", b)
    shadow.Size = UDim2.new(1,0,1,0)
    shadow.BackgroundTransparency = 1
    shadow.Image = "rbxassetid://1316045217"
    shadow.ImageColor3 = hackerGreen
    shadow.ImageTransparency = 0.8

    return b
end

-----------------------------
-- TITLE
-----------------------------
local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(1,-10,0,50)
title.Text = "HACKER INTERFACE v1.0\nMade by jozsi40pro"
title.BackgroundColor3 = hackerDark
title.TextColor3 = hackerGreen
title.BorderSizePixel = 3
title.BorderColor3 = hackerGreen
title.TextScaled = true
Instance.new("UICorner", title).CornerRadius = UDim.new(0,10)

-----------------------------
-- MENU BUTTONS
-----------------------------
local hide = btn("Menü elrejtése / Hide Menu")
local infJumpBtn = btn("Infinity Jump / Végtelen ugrás")
local noclipBtn = btn("Faljárás / Noclip")
local espBtn = btn("Zöld körvonal ESP + név / Outline ESP + Name")
local tpBtn = btn("Teleportálás játékoshoz / Teleport to Player")
local xrayBtn = btn("Átlátás / X-Ray")
local spectateBtn = btn("Spectate menü / Spectate Menu")
local aimBtn = btn("AimBOT / Aim Assist")

hide.MouseButton1Click:Connect(function()
	frame.Visible = false
	show.Visible = true
end)

---------------------------------------------------------
-- INFINITY JUMP (FLY HELYETT)
---------------------------------------------------------

local infJump = false

infJumpBtn.MouseButton1Click:Connect(function()
    infJump = not infJump
    infJumpBtn.Text = infJump and "> Infinity Jump kikapcsolása <" or "> Infinity Jump / Végtelen ugrás <"
end)

uis.JumpRequest:Connect(function()
    if infJump then
        local char = p.Character
        if char then
            local hum = char:FindFirstChild("Humanoid")
            if hum then
                hum:ChangeState(Enum.HumanoidStateType.Jumping)
            end
        end
    end
end)

---------------------------------------------------------
-- NOCLIP
---------------------------------------------------------
local noclip = false
noclipBtn.MouseButton1Click:Connect(function()
	noclip = not noclip
	noclipBtn.Text = noclip and "> Faljárás kikapcsolása / Disable Noclip <" or "> Faljárás / Noclip <"

	task.spawn(function()
		while noclip do
			for _,v in pairs(p.Character:GetDescendants()) do
				if v:IsA("BasePart") then v.CanCollide = false end
			end
			task.wait()
		end
	end)
end)

---------------------------------------------------------
-- ESP
---------------------------------------------------------
local esp = false

espBtn.MouseButton1Click:Connect(function()
    esp = not esp
    espBtn.Text = esp and "> ESP kikapcsolása / Disable ESP <" or "> Zöld körvonal ESP + név / Outline ESP + Name <"

    for _,plr in pairs(game.Players:GetPlayers()) do
        if plr ~= p and plr.Character then
            local char = plr.Character

            for _,v in pairs(char:GetDescendants()) do
                if v:IsA("Highlight") or v.Name == "ESP_NAME" then
                    v:Destroy()
                end
            end

            if esp then
                local hl = Instance.new("Highlight")
                hl.Name = "ESP_OUTLINE"
                hl.FillTransparency = 1
                hl.OutlineTransparency = 0
                hl.OutlineColor = hackerGreen
                hl.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
                hl.Parent = char

                if char:FindFirstChild("Head") then
                    local gui = Instance.new("BillboardGui", char.Head)
                    gui.Name = "ESP_NAME"
                    gui.Size = UDim2.new(0,120,0,40)
                    gui.AlwaysOnTop = true

                    local label = Instance.new("TextLabel", gui)
                    label.Size = UDim2.new(1,0,1,0)
                    label.BackgroundTransparency = 1
                    label.TextColor3 = hackerGreen
                    label.TextScaled = true
                    label.Text = plr.Name
                end
            end
        end
    end
end)

---------------------------------------------------------
-- TELEPORT MENÜ
---------------------------------------------------------

local tpFrame = Instance.new("Frame", frame)
tpFrame.Size = UDim2.new(1,-10,0,260)
tpFrame.BackgroundColor3 = Color3.fromRGB(10,10,10)
tpFrame.BorderSizePixel = 3
tpFrame.BorderColor3 = hackerGreen
tpFrame.Visible = false
Instance.new("UICorner", tpFrame).CornerRadius = UDim.new(0,10)

local tpLayout = Instance.new("UIListLayout", tpFrame)
tpLayout.Padding = UDim.new(0,4)

local search = Instance.new("TextBox", tpFrame)
search.Size = UDim2.new(1,-10,0,35)
search.PlaceholderText = ">> Keresés játékosra / Search player <<"
search.BackgroundColor3 = Color3.fromRGB(20,20,20)
search.TextColor3 = hackerGreen
search.BorderSizePixel = 3
search.BorderColor3 = hackerGreen
search.TextScaled = true
Instance.new("UICorner", search).CornerRadius = UDim.new(0,10)

local back = Instance.new("TextButton", tpFrame)
back.Size = UDim2.new(1,-10,0,35)
back.Text = "> Vissza / Back <"
back.BackgroundColor3 = Color3.fromRGB(20,20,20)
back.TextColor3 = hackerGreen
back.BorderSizePixel = 3
back.BorderColor3 = hackerGreen
back.TextScaled = true
Instance.new("UICorner", back).CornerRadius = UDim.new(0,10)

back.MouseButton1Click:Connect(function()
    tpFrame.Visible = false
    tpBtn.Text = "> Teleportálás játékoshoz / Teleport to Player <"
end)

local function updateList()
    for _,v in pairs(tpFrame:GetChildren()) do
        if v:IsA("TextButton") and v ~= back then
            v:Destroy()
        end
    end

    local text = search.Text:lower()

    for _,plr in pairs(game.Players:GetPlayers()) do
        if plr ~= p and plr.Name:lower():find(text) then

            local b = Instance.new("TextButton", tpFrame)
            b.Size = UDim2.new(1,-10,0,30)
            b.Text = "> Teleport: "..plr.Name.." <"
            b.BackgroundColor3 = Color3.fromRGB(20,20,20)
            b.TextColor3 = hackerGreen
            b.BorderSizePixel = 3
            b.BorderColor3 = hackerGreen
            b.TextScaled = true
            Instance.new("UICorner", b).CornerRadius = UDim.new(0,10)

            b.MouseButton1Click:Connect(function()
                local c = p.Character
                if c and plr.Character and plr.Character:FindFirstChild("HumanoidRootPart") then
                    c.HumanoidRootPart.CFrame = plr.Character.HumanoidRootPart.CFrame + Vector3.new(0,2,0)
                end
            end)
        end
    end
end

search:GetPropertyChangedSignal("Text"):Connect(updateList)

tpBtn.MouseButton1Click:Connect(function()
    tpFrame.Visible = not tpFrame.Visible
    tpBtn.Text = tpFrame.Visible and "> Teleport menü bezárása / Close Teleport Menu <" or "> Teleportálás játékoshoz / Teleport to Player <"

    if tpFrame.Visible then
        updateList()
    end
end)

---------------------------------------------------------
-- X-RAY
---------------------------------------------------------
local xray = false
local originalTransparency = {}

xrayBtn.MouseButton1Click:Connect(function()
	xray = not xray
	xrayBtn.Text = xray and "> Átlátás kikapcsolása / Disable X-Ray <" or "> Átlátás / X-Ray <"

	if xray then
		for _,v in pairs(workspace:GetDescendants()) do
			if v:IsA("BasePart") then
				originalTransparency[v] = v.Transparency
				v.Transparency = 0.7
			end
		end
	else
		for part,trans in pairs(originalTransparency) do
			if part and part.Parent then
				part.Transparency = trans
			end
		end
		originalTransparency = {}
	end
end)

---------------------------------------------------------
-- SPECTATE MENÜ
---------------------------------------------------------

local spectateFrame = Instance.new("Frame", frame)
spectateFrame.Size = UDim2.new(1,-10,0,260)
spectateFrame.BackgroundColor3 = Color3.fromRGB(10,10,10)
spectateFrame.BorderSizePixel = 3
spectateFrame.BorderColor3 = hackerGreen
spectateFrame.Visible = false
Instance.new("UICorner", spectateFrame).CornerRadius = UDim.new(0,10)

local spectateLayout = Instance.new("UIListLayout", spectateFrame)
spectateLayout.Padding = UDim.new(0,4)

local spectateSearch = Instance.new("TextBox", spectateFrame)
spectateSearch.Size = UDim2.new(1,-10,0,35)
spectateSearch.PlaceholderText = ">> Spectate játékos keresése <<"
spectateSearch.BackgroundColor3 = Color3.fromRGB(20,20,20)
spectateSearch.TextColor3 = hackerGreen
spectateSearch.BorderSizePixel = 3
spectateSearch.BorderColor3 = hackerGreen
spectateSearch.TextScaled = true
Instance.new("UICorner", spectateSearch).CornerRadius = UDim.new(0,10)

local spectateBack = Instance.new("TextButton", spectateFrame)
spectateBack.Size = UDim2.new(1,-10,0,35)
spectateBack.Text = "> Vissza / Back <"
spectateBack.BackgroundColor3 = Color3.fromRGB(20,20,20)
spectateBack.TextColor3 = hackerGreen
spectateBack.BorderSizePixel = 3
spectateBack.BorderColor3 = hackerGreen
spectateBack.TextScaled = true
Instance.new("UICorner", spectateBack).CornerRadius = UDim.new(0,10)

spectateBack.MouseButton1Click:Connect(function()
    spectateFrame.Visible = false
    spectateBtn.Text = "> Spectate menü / Spectate Menu <"
end)

local spectateActive = false
local spectateTarget = nil

local function updateSpectateList()
    for _,v in pairs(spectateFrame:GetChildren()) do
        if v:IsA("TextButton") and v ~= spectateBack then
            v:Destroy()
        end
    end

    local text = spectateSearch.Text:lower()

    for _,plr in pairs(game.Players:GetPlayers()) do
        if plr ~= p and plr.Name:lower():find(text) then

            local b = Instance.new("TextButton", spectateFrame)
            b.Size = UDim2.new(1,-10,0,30)
            b.Text = "> Nézés: "..plr.Name.." <"
            b.BackgroundColor3 = Color3.fromRGB(20,20,20)
            b.TextColor3 = hackerGreen
            b.BorderSizePixel = 3
            b.BorderColor3 = hackerGreen
            b.TextScaled = true
            Instance.new("UICorner", b).CornerRadius = UDim.new(0,10)

            b.MouseButton1Click:Connect(function()
                spectateTarget = plr
                spectateActive = true
                spectateBtn.Text = "> Spectate kikapcsolása / Disable Spectate <"
            end)
        end
    end
end

spectateSearch:GetPropertyChangedSignal("Text"):Connect(updateSpectateList)

spectateBtn.MouseButton1Click:Connect(function()
    if spectateActive then
        spectateActive = false
        spectateTarget = nil
        cam.CameraSubject = p.Character:FindFirstChild("Humanoid")
        spectateBtn.Text = "> Spectate menü / Spectate Menu <"
    else
        spectateFrame.Visible = not spectateFrame.Visible
        spectateBtn.Text = spectateFrame.Visible and "> Spectate menü bezárása / Close Spectate Menu <" or "> Spectate menü / Spectate Menu <"

        if spectateFrame.Visible then
            updateSpectateList()
        end
    end
end)

task.spawn(function()
    while true do
        if spectateActive and spectateTarget and spectateTarget.Character then
            local hum = spectateTarget.Character:FindFirstChild("Humanoid")
            if hum then
                cam.CameraSubject = hum
            end
        end
        task.wait(0.05)
    end
end)

---------------------------------------------------------
-- AIMBOT
---------------------------------------------------------
local aim = false

aimBtn.MouseButton1Click:Connect(function()
	aim = not aim
	aimBtn.Text = aim and "> AimBOT kikapcsolása / Disable AimBOT <" or "> AimBOT / Aim Assist <"

	task.spawn(function()
		while aim do
			local closestHead = nil
			local closestDist = math.huge

			for _,plr in pairs(game.Players:GetPlayers()) do
				if plr ~= p and plr.Character and plr.Character:FindFirstChild("Head") then
					local head = plr.Character.Head
					local pos, onScreen = cam:WorldToViewportPoint(head.Position)

					if onScreen then
						local mousePos = uis:GetMouseLocation()
						local dist = (Vector2.new(pos.X,pos.Y) - mousePos).Magnitude

						if dist < closestDist then
							closestDist = dist
							closestHead = head
						end
					end
				end
			end

			if closestHead then
				cam.CFrame = CFrame.new(cam.CFrame.Position, closestHead.Position)
			end

			task.wait(0.01)
		end
	end)
end)