All abuse

🚀 ระบบแอดมิน Global Event (GUI/F2) สำหรับ Roblox

ระบบนี้อนุญาตให้แอดมิน (**sannnn5302** และ prim233510) เปิดใช้งานอีเวนต์ทั่วทั้งเซิร์ฟเวอร์ได้ผ่านการกดปุ่ม **F2** หรือเมนู GUI เท่านั้น (ยกเลิกการใช้คำสั่งแชท)

---

🛠️ Part 1: การตั้งค่าที่จำเป็น

ก่อนเพิ่มโค้ด ให้สร้างและตั้งค่าวัตถุเหล่านี้ใน Explorer:

• **RemoteEvent ชื่อ DiscoTrigger** (ใน ReplicatedStorage): ใช้สำหรับ Server → Client (แจ้งเตือนเหตุการณ์)
• **RemoteEvent ชื่อ AdminCommandEvent** (ใน ReplicatedStorage): **<<< RemoteEvent ใหม่!** ใช้สำหรับ Client → Server (ส่งคำสั่งจาก GUI)
• **Part ชื่อ DiscoFloor** (ใน Workspace)
• **Sound ชื่อ DiscoMusic** (ใน ReplicatedStorage): SoundId: rbxassetid://142376088
• **Sound ชื่อ UnderwaterAmbiance** (ใน ReplicatedStorage): SoundId: rbxassetid://177465360
• **ScreenGui ชื่อ AdminMenu** (ใน StarterGui)
  • ภายใน AdminMenu สร้าง **Frame** ชื่อ **MenuFrame** (ตั้งค่า Visible เป็น False)
  • ภายใน MenuFrame สร้าง **TextButton** ชื่อ: DiscoButton, UnderwaterButton, SwimAirButton, และ CloseButton

---

🔑 Part 2: Server Script (ใน ServerScriptService)

โค้ดนี้รับคำสั่งจาก GUI และสั่งงานเหตุการณ์ทั่วทั้งเซิร์ฟเวอร์

ตำแหน่ง: **Script** ใน ServerScriptService

-- Script ใน ServerScriptService
local MessagingService = game:GetService("MessagingService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

-- --- Configuration ---
local DISCO_TOPIC = "GlobalEvents" 
local DISCO_DURATION = 300 -- 5 นาที
local UNDERWATER_DURATION = 600 -- 10 นาที
local SWIM_AIR_DURATION = 180 -- 3 นาที
local DISCO_TRIGGER = ReplicatedStorage:WaitForChild("RemoteEvent"):WaitForChild("DiscoTrigger")
local ADMIN_COMMAND_EVENT = ReplicatedStorage:WaitForChild("AdminCommandEvent") -- RemoteEvent ใหม่

-- **ADMIN LIST**
local ALLOWED_USERS = {
    ["sannnn5302"] = true,
    ["prim233510"] = true,
}

-- --- 1. Subscription (รับ Global Message) ---

local function onGlobalMessageReceived(message)
    local data = message.Data
    
    -- ส่งคำสั่งไปยัง Clients ใน Server นี้
    if data and data.Command == "StartDisco" then
        DISCO_TRIGGER:FireAllClients("StartDisco", data.Duration)
    elseif data and data.Command == "StopDisco" then
        DISCO_TRIGGER:FireAllClients("StopDisco")
    elseif data and data.Command == "StartUnderwater" then
        DISCO_TRIGGER:FireAllClients("StartUnderwater", data.Duration)
    elseif data and data.Command == "StopUnderwater" then
        DISCO_TRIGGER:FireAllClients("StopUnderwater")
    elseif data and data.Command == "StartSwimAir" then
        DISCO_TRIGGER:FireAllClients("StartSwimAir") 
    elseif data and data.Command == "StopSwimAir" then
        DISCO_TRIGGER:FireAllClients("StopSwimAir")
    end
end

pcall(function()
    MessagingService:SubscribeAsync(DISCO_TOPIC, onGlobalMessageReceived)
end)


-- --- 2. Publishing (ส่ง Global Message) ---

local function publishGlobalEvent(command, duration)
    local data = {
        Command = command,
        Duration = duration
    }
    
    pcall(function()
        MessagingService:PublishAsync(DISCO_TOPIC, data)
        print("Published '" .. command .. "' command to all servers.")
    end)
end


-- --- 3. Command Check (รับคำสั่งจาก GUI ผ่าน RemoteEvent) ---
ADMIN_COMMAND_EVENT.OnServerEvent:Connect(function(player, command)
    
    -- ตรวจสอบสิทธิ์แอดมิน
    if not ALLOWED_USERS[player.Name] then
        warn(player.Name .. " attempted to use admin command without authorization.")
        return
    end

    if command == "StartDisco" then 
        publishGlobalEvent("StartDisco", DISCO_DURATION) 
    elseif command == "StopDisco" then
        publishGlobalEvent("StopDisco")
    
    elseif command == "StartUnderwater" then
        publishGlobalEvent("StartUnderwater", UNDERWATER_DURATION) 
    elseif command == "StopUnderwater" then
        publishGlobalEvent("StopUnderwater")
        
    elseif command == "StartSwimAir" then
        publishGlobalEvent("StartSwimAir") 
        task.delay(SWIM_AIR_DURATION, function()
            publishGlobalEvent("StopSwimAir")
        end)
    elseif command == "StopSwimAir" then
        publishGlobalEvent("StopSwimAir")
    end
end)

---

✨ Part 3: Client Script (ใน StarterPlayerScripts)

โค้ดนี้จัดการ GUI, ปุ่ม F2, การซ่อนเมนูจากผู้เล่นทั่วไป, และการทำงานของ Event Effects

ตำแหน่ง: **LocalScript** ใน StarterPlayer > StarterPlayerScripts

-- LocalScript ใน StarterPlayerScripts
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local RunService = game:GetService("RunService")
local Lighting = game:GetService("Lighting")
local Player = Players.LocalPlayer

local ADMIN_COMMAND_EVENT = ReplicatedStorage:WaitForChild("AdminCommandEvent")
local DISCO_TRIGGER = ReplicatedStorage:WaitForChild("RemoteEvent"):WaitForChild("DiscoTrigger")

-- --- Configuration (Event Assets) ---
local DISCO_SOUND = ReplicatedStorage:WaitForChild("DiscoMusic")
local DISCO_PART = game.Workspace:WaitForChild("DiscoFloor")
local SHARED_EVENT_SOUND = ReplicatedStorage:WaitForChild("UnderwaterAmbiance") 

-- GUI References
local ADMIN_MENU = Player.PlayerGui:WaitForChild("AdminMenu")
local MENU_FRAME = ADMIN_MENU:WaitForChild("MenuFrame")

-- Stored original values for cleanup
local originalDiscoColor = DISCO_PART.Color
local originalFogColor = Lighting.FogColor
local originalFogEnd = Lighting.FogEnd
local originalAmbient = Lighting.Ambient
local originalWalkSpeed = 16 

-- State variables
local isDiscoActive = false
local isUnderwaterActive = false
local isSwimAirActive = false
local discoConnection = nil

-- **ADMIN LIST (ต้องตรงกับ Server)**
local ALLOWED_USERS = {
    ["sannnn5302"] = true,
    ["prim233510"] = true,
}

local isPlayerAdmin = ALLOWED_USERS[Player.Name]


-- --- GUI & Input Handlers ---

-- ฟังก์ชันสำหรับเปิด/ปิดเมนู
local function toggleMenu()
    if isPlayerAdmin then
        MENU_FRAME.Visible = not MENU_FRAME.Visible
    end
end

-- ฟังก์ชันเมื่อมีการกดปุ่ม F2
local function onInputBegan(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.F2 and not gameProcessed then
        toggleMenu()
    end
end

-- ฟังก์ชันสำหรับส่งคำสั่งผ่าน RemoteEvent
local function fireAdminCommand(commandName)
    if isPlayerAdmin and MENU_FRAME.Visible then
        ADMIN_COMMAND_EVENT:FireServer(commandName)
        -- ปิดเมนูหลังจากส่งคำสั่ง
        MENU_FRAME.Visible = false
    end
end


-- --- Shared Event Logic ---

-- Helper function to start shared sound/fog effects
local function startSharedVisuals()
    -- Only play the sound if neither Underwater nor SwimAir is active
    if not SHARED_EVENT_SOUND.Playing then
        SHARED_EVENT_SOUND:Play()
        Lighting.FogColor = Color3.new(0.5, 0.5, 1) -- Ethereal Blue Fog
        Lighting.FogEnd = 50 
    end
end

-- Helper function to stop shared sound/fog effects
local function stopSharedVisuals()
    -- Only stop if NEITHER event is active after the current one stops
    if not isUnderwaterActive and not isSwimAirActive then
        SHARED_EVENT_SOUND:Stop()
        Lighting.FogColor = originalFogColor
        Lighting.FogEnd = originalFogEnd
    end
end


-- --- 3 Separate Event Functions (เหมือนโค้ดเดิม) ---

local function startDisco(duration)
    if isDiscoActive then return end
    isDiscoActive = true
    DISCO_SOUND:Play()
    Lighting.Ambient = Color3.new(0, 0, 0)
    discoConnection = RunService.Heartbeat:Connect(function(dt)
        local hue = tick() * 0.15 % 1
        DISCO_PART.Color = Color3.fromHSV(hue, 1, 1)
    end)
    task.delay(duration, function()
        if isDiscoActive then stopDisco() end
    end)
end

local function stopDisco()
    if not isDiscoActive then return end
    isDiscoActive = false
    if discoConnection then
        discoConnection:Disconnect()
        discoConnection = nil
    end
    DISCO_SOUND:Stop()
    DISCO_PART.Color = originalDiscoColor
    Lighting.Ambient = originalAmbient
end

local function startUnderwater(duration)
    if isUnderwaterActive then return end
    isUnderwaterActive = true
    startSharedVisuals()
    if Player.Character and Player.Character:FindFirstChild("Humanoid") then
        Player.Character.Humanoid.WalkSpeed = 8
    end
    task.delay(duration, function()
        if isUnderwaterActive then 
            isUnderwaterActive = false 
            stopUnderwater()
        end
    end)
end

local function stopUnderwater()
    if Player.Character and Player.Character:FindFirstChild("Humanoid") then
        Player.Character.Humanoid.WalkSpeed = originalWalkSpeed
    end
    isUnderwaterActive = false 
    stopSharedVisuals()
end

local function startSwimAir()
    if isSwimAirActive then return end
    isSwimAirActive = true
    startSharedVisuals()
    local character = Player.Character
    if character and character:FindFirstChild("Humanoid") then
        character.Humanoid:ChangeState(Enum.HumanoidStateType.Freefall)
        workspace.Gravity = 50 
    end
end

local function stopSwimAir()
    local character = Player.Character
    if character and character:FindFirstChild("Humanoid") then
        character.Humanoid:ChangeState(Enum.HumanoidStateType.Jumping) 
    end
    workspace.Gravity = 196 
    isSwimAirActive = false 
    stopSharedVisuals()
end


-- --- Initialization and Connections ---

if not isPlayerAdmin then
    -- ซ่อน GUI และหยุด LocalScript สำหรับผู้เล่นที่ไม่ใช่แอดมิน
    ADMIN_MENU.Enabled = false
else
    -- เชื่อมต่อปุ่ม F2
    UserInputService.InputBegan:Connect(onInputBegan)

    -- เชื่อมต่อปุ่ม GUI
    MENU_FRAME:WaitForChild("DiscoButton").Text = "1. Start Disco"
    MENU_FRAME:WaitForChild("DiscoButton").MouseButton1Click:Connect(function()
        fireAdminCommand("StartDisco")
    end)

    MENU_FRAME:WaitForChild("UnderwaterButton").Text = "2. Start Underwater"
    MENU_FRAME:WaitForChild("UnderwaterButton").MouseButton1Click:Connect(function()
        fireAdminCommand("StartUnderwater")
    end)

    MENU_FRAME:WaitForChild("SwimAirButton").Text = "3. Start Swim in Air"
    MENU_FRAME:WaitForChild("SwimAirButton").MouseButton1Click:Connect(function()
        fireAdminCommand("StartSwimAir")
    end)
    
    -- ปุ่มปิดเมนู
    MENU_FRAME:WaitForChild("CloseButton").MouseButton1Click:Connect(function()
        MENU_FRAME.Visible = false
    end)

    -- คำสั่งเสริม: ปุ่ม Stop All (ถ้าคุณมี)
    local stopButton = MENU_FRAME:FindFirstChild("StopAllButton") 
    if stopButton then
        stopButton.Text = "STOP ALL EVENTS"
        stopButton.MouseButton1Click:Connect(function()
            fireAdminCommand("StopDisco")
            fireAdminCommand("StopUnderwater")
            fireAdminCommand("StopSwimAir")
        end)
    end
end


-- --- GLOBAL EVENT LISTENER ---
DISCO_TRIGGER.OnClientEvent:Connect(function(command, duration)
    if command == "StartDisco" then
        stopUnderwater() 
        stopSwimAir()
        startDisco(duration)
    elseif command == "StopDisco" then
        stopDisco()
    elseif command == "StartUnderwater" then
        stopDisco()
        stopSwimAir() 
        startUnderwater(duration)
    elseif command == "StopUnderwater" then
        stopUnderwater()
    elseif command == "StartSwimAir" then
        stopDisco()
        stopUnderwater() 
        startSwimAir()
    elseif command == "StopSwimAir" then
        stopSwimAir()
    end
end)