ROBLOX Scripting | CLIENT Multi Server Shout (Global Message)

-- Made by Tweakified, Neonblox Games
-- Video: https://www.youtube.com/watch?v=3J7gPp0NNP4
-- Client script, to be placed inside a local script under the main gui:
-- Gui: https://www.roblox.com/library/5374032781

local ScreenGui = script.Parent

local MessageCreation = ScreenGui:WaitForChild("Message Creation")
local CreationMainFrame = MessageCreation:WaitForChild("MainFrame")
local CreationDataFrame = CreationMainFrame:WaitForChild("DataFrame")
local CloseButton1 = CreationDataFrame:WaitForChild("CloseButton")
local CreationMessageText = CreationDataFrame:WaitForChild("MessageText")
local CreationSendButton = CreationDataFrame:WaitForChild("SendButton")
local CloseButton2 = MessageCreation:WaitForChild("OpenClose"):WaitForChild("Frame"):WaitForChild("TextButton")

local DisplayMainFrame = ScreenGui:WaitForChild("Message Display")
local DisplayDataFrame = DisplayMainFrame:WaitForChild("Frame")
local DisplayMessageText = DisplayDataFrame:WaitForChild("MessageText")
local DisplayTitle = DisplayDataFrame:WaitForChild("Title")

local ReplicatedStorage = game:GetService("ReplicatedStorage")
local GlobalMessageDisplay = ReplicatedStorage:WaitForChild("GlobalMessageDisplay")
local GlobalMessageNewMessage = ReplicatedStorage:WaitForChild("GlobalMessageNewMessage")
local GlobalMessageResponse = ReplicatedStorage:WaitForChild("GlobalMessageResponse")

local OpenCreation = false

local function CreationOpenClose()
    CreationMainFrame.Visible = not CreationMainFrame.Visible
    OpenCreation = not OpenCreation
end

local function DisplayOpenClose()
    DisplayMainFrame.Visible = not DisplayMainFrame.Visible
end

CloseButton1.MouseButton1Click:Connect(CreationOpenClose)
CloseButton2.MouseButton1Click:Connect(CreationOpenClose)

CreationSendButton.MouseButton1Click:Connect(function()
    if CreationSendButton.Text == "Send" then
        CreationSendButton.Text = "Sending"

        local TempText = CreationMessageText.Text
        GlobalMessageNewMessage:FireServer(TempText)
    end
end)

GlobalMessageResponse.OnClientEvent:Connect(function(Response, NewText)
    if Response == nil then
        CreationSendButton.Text = "Send"
        CreationMessageText.Text = ""

        CreationOpenClose()
    else
        CreationSendButton.Text = Response
        CreationMessageText.Text = NewText

        wait(5)
        CreationSendButton.Text = "Send"
    end
end)

GlobalMessageDisplay.OnClientEvent:Connect(function(Data)
    DisplayOpenClose()

    DisplayTitle.Text = "Global Message - ".. Data[1]
    DisplayMessageText.Text = Data[2]

    wait(5)
    DisplayOpenClose()
end)