-- CORE SERVICES
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local LocalPlayer = Players.LocalPlayer
local PlayerGui = LocalPlayer:WaitForChild("PlayerGui")

-- CONFIGURATION
local SavedCoordinates = Vector3.new(146.71, -47.73, 64.00)
local HellMusicID = "113066313248356"

-- PREVENT MULTIPLE INSTANCES
local oldGui = PlayerGui:FindFirstChild("HellMakerGui")
if oldGui then oldGui:Destroy() end

-- REMOTE EVENTS
local PrivateServers = ReplicatedStorage:WaitForChild("PrivateServers")
local ModEvent = PrivateServers:WaitForChild("ModerationCommand")
local ActionEvent = PrivateServers:WaitForChild("ServerActions")
local HeadlineEvent = PrivateServers:WaitForChild("Headlines")

-- STATE
local hellActive = false
local loopConnections = {}
local bringLoopTask = nil
local musicLoopTask = nil

-- GUI SETUP
local ScreenGui = Instance.new("ScreenGui", PlayerGui)
ScreenGui.Name = "HellMakerGui"
ScreenGui.ResetOnSpawn = false
ScreenGui.IgnoreGuiInset = true

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.Size = UDim2.new(0, 240, 0, 310)
MainFrame.Position = UDim2.new(0.5, -120, 0.3, -155)
MainFrame.BackgroundColor3 = Color3.fromRGB(20, 10, 10)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true

Instance.new("UICorner", MainFrame).CornerRadius = UDim.new(0, 8)
local UIBorder = Instance.new("UIStroke", MainFrame)
UIBorder.Color = Color3.fromRGB(180, 0, 0)
UIBorder.Thickness = 2

-- TOP BAR
local TopBar = Instance.new("Frame", MainFrame)
TopBar.Size = UDim2.new(1, 0, 0, 36)
TopBar.BackgroundColor3 = Color3.fromRGB(40, 10, 10)
TopBar.BorderSizePixel = 0
Instance.new("UICorner", TopBar).CornerRadius = UDim.new(0, 8)

-- Fix bottom corners of TopBar
local TopBarCover = Instance.new("Frame", TopBar)
TopBarCover.Size = UDim2.new(1, 0, 0, 8)
TopBarCover.Position = UDim2.new(0, 0, 1, -8)
TopBarCover.BackgroundColor3 = Color3.fromRGB(40, 10, 10)
TopBarCover.BorderSizePixel = 0

local TitleLabel = Instance.new("TextLabel", TopBar)
TitleLabel.Size = UDim2.new(1, -12, 1, 0)
TitleLabel.Position = UDim2.new(0, 12, 0, 0)
TitleLabel.BackgroundTransparency = 1
TitleLabel.Text = "🔥 HELL MAKER"
TitleLabel.TextColor3 = Color3.fromRGB(255, 60, 60)
TitleLabel.TextSize = 13
TitleLabel.Font = Enum.Font.GothamBold
TitleLabel.TextXAlignment = Enum.TextXAlignment.Left

-- FUNCTIONS
local function bringPlayer(player)
    if player and player ~= LocalPlayer and player.UserId then
        ModEvent:FireServer("bring", tostring(player.UserId))
    end
end

local function cleanLoops()
    for _, conn in pairs(loopConnections) do if conn then conn:Disconnect() end end
    loopConnections = {}
    
    if bringLoopTask then task.cancel(bringLoopTask) bringLoopTask = nil end
    if musicLoopTask then task.cancel(musicLoopTask) musicLoopTask = nil end
end

local function initiateHellSequence()
    hellActive = not hellActive
    local masterBtn = MainFrame:FindFirstChild("HellMakerBtn")
    
    if hellActive then
        if masterBtn then 
            masterBtn.BackgroundColor3 = Color3.fromRGB(180, 0, 0)
            masterBtn.Text = "HELL ACTIVE (OFF)"
        end
        
        local hrp = LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart")
        if hrp then hrp.CFrame = CFrame.new(SavedCoordinates) end
        
        -- Initial Environment Setup
        ActionEvent:FireServer("music", HellMusicID)
        HeadlineEvent:FireServer("🔥👹🔥welcome to hell🔥👹🔥")
        
        for _, p in ipairs(Players:GetPlayers()) do bringPlayer(p) end
        
        -- 0.1s Bring Loop
        bringLoopTask = task.spawn(function()
            while hellActive do
                for _, p in ipairs(Players:GetPlayers()) do bringPlayer(p) end
                task.wait(0.1)
            end
        end)
        
        -- Music Protection Loop (Ensures music stays locked to HellMusicID)
        musicLoopTask = task.spawn(function()
            while hellActive do
                ActionEvent:FireServer("music", HellMusicID)
                task.wait(1) -- Checks/forces every 1 second
            end
        end)
        
        cleanLoops()
        for _, p in ipairs(Players:GetPlayers()) do
            if p ~= LocalPlayer then
                table.insert(loopConnections, p.CharacterAdded:Connect(function()
                    if hellActive then task.defer(function() bringPlayer(p) end) end
                end))
            end
        end
        
        table.insert(loopConnections, Players.PlayerAdded:Connect(function(p)
            if p ~= LocalPlayer then
                table.insert(loopConnections, p.CharacterAdded:Connect(function()
                    if hellActive then task.defer(function() bringPlayer(p) end) end
                end))
            end
        end))
    else
        if masterBtn then 
            masterBtn.BackgroundColor3 = Color3.fromRGB(50, 20, 20)
            masterBtn.Text = "INITIALIZE HELL"
        end
        cleanLoops()
    end
end

-- BUTTON BUILDER
local btnCount = 0
local function createMenuButton(text, bgCol, callback)
    local btn = Instance.new("TextButton", MainFrame)
    btn.Size = UDim2.new(0, 100, 0, 30)
    local col = btnCount % 2
    local row = math.floor(btnCount / 2)
    btn.Position = UDim2.new(0, 14 + (col * 110), 0, 95 + (row * 38))
    btn.BackgroundColor3 = bgCol
    btn.BorderSizePixel = 0
    btn.Text = text:upper()
    btn.TextColor3 = Color3.fromRGB(240, 240, 240)
    btn.TextSize = 10
    btn.Font = Enum.Font.GothamBold
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 5)
    btn.MouseButton1Click:Connect(callback)
    btnCount = btnCount + 1
    return btn
end

-- MASTER BUTTON
local HellMakerBtn = Instance.new("TextButton", MainFrame)
HellMakerBtn.Name = "HellMakerBtn"
HellMakerBtn.Size = UDim2.new(0, 210, 0, 38)
HellMakerBtn.Position = UDim2.new(0.5, -105, 0, 48)
HellMakerBtn.BackgroundColor3 = Color3.fromRGB(50, 20, 20)
HellMakerBtn.BorderSizePixel = 0
HellMakerBtn.Text = "INITIALIZE HELL"
HellMakerBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
HellMakerBtn.TextSize = 12
HellMakerBtn.Font = Enum.Font.GothamBold
Instance.new("UICorner", HellMakerBtn).CornerRadius = UDim.new(0, 5)
HellMakerBtn.MouseButton1Click:Connect(initiateHellSequence)

-- UTILITY BUTTONS
createMenuButton("Mute All", Color3.fromRGB(40, 25, 25), function()
    for _, p in ipairs(Players:GetPlayers()) do if p ~= LocalPlayer and p.UserId then ModEvent:FireServer("mute", tostring(p.UserId)) end end
end)

createMenuButton("RTools All", Color3.fromRGB(40, 25, 25), function()
    for _, p in ipairs(Players:GetPlayers()) do if p ~= LocalPlayer and p.UserId then ModEvent:FireServer("rtools", tostring(p.UserId)) end end
end)

createMenuButton("Kick All", Color3.fromRGB(80, 20, 20), function()
    for _, p in ipairs(Players:GetPlayers()) do if p ~= LocalPlayer and p.UserId then ModEvent:FireServer("kick", tostring(p.UserId)) end end
end)

createMenuButton("Clear Logs", Color3.fromRGB(30, 40, 30), function()
    task.spawn(function()
        for i = 1, 120 do 
            HeadlineEvent:FireServer("saved state") 
        end
    end)
end)

-- FULL PANEL DRAGGABLE WINDOW LOGIC
local dragging, dragStart, startPos

MainFrame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = MainFrame.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then dragging = false end
        end)
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
        local delta = input.Position - dragStart
        MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)