Posterguy = "splatert2"
print("WubWubWubWubWub")
--
MessageGui = Instance.new("ScreenGui")
MessageGui.Parent = game.Players:FindFirstChild(Posterguy).PlayerGui
MessageGui.Name = "MessageGui"
Mframe = Instance.new("Frame")
Mframe.Parent = MessageGui
Mframe.Style = "RobloxRound"
Mframe.Size = UDim2.new(0, 200,0, 100)
MBox = Instance.new("TextBox")
MBox.Parent = Mframe
MBox.Size = UDim2.new(0, 150,0, 25)
MBox.Text = "Message Here"
MBox.BackgroundColor3 = Color3.new(255, 255, 255)
MSubmit = Instance.new("TextButton")
MSubmit.Parent = Mframe
MSubmit.Position = UDim2.new(0, 155,0, -2)
MSubmit.Size = UDim2.new(0, 30,0, 30)
MSubmit.Style = "RobloxButtonDefault"
MSubmit.Text = "Post"
MSubmit.TextColor3 = Color3.new(255, 255, 255)
ShutDownBttn = Instance.new("TextButton")
ShutDownBttn.Parent = Mframe
ShutDownBttn.Position = UDim2.new(0, 0,0, 30)
ShutDownBttn.Size = UDim2.new(0, 75,0, 25)
ShutDownBttn.Style = "RobloxButtonDefault"
ShutDownBttn.Text = "ShutDown"
ShutDownBttn.TextColor3 = Color3.new(255, 255, 255)
DurationBox = Instance.new("TextBox")
DurationBox.Parent = Mframe
DurationBox.Name = "Dur."
DurationBox.Position = UDim2.new(0, 5,0, 60)
DurationBox.Size = UDim2.new(0, 50,0, 25)
DurationBox.Text = "Duration(Secs.)"
DurationBox.TextWrapped = true
DurationBox.BackgroundColor3 = Color3.new(255,255,255)
DurationSet = Instance.new("TextButton")
DurationSet.Parent = Mframe
DurationSet.Position = UDim2.new(0, 60,0, 60)
DurationSet.Size = UDim2.new(0, 50,0, 26)
DurationSet.Style = "RobloxButtonDefault"
DurationSet.TextColor3 = Color3.new(255,255,255)
DurationSet.Text = "Set"
Duration = Instance.new("NumberValue")
Duration.Parent = game.Players:FindFirstChild(Posterguy)
Duration.Name = "Duration"


function PostMessage()
	local Newbz = game.Players:GetChildren()
for n = 1, #Newbz do

if Newbz[n].className == "Player"
then
PostGui = Instance.new("ScreenGui")
PostGui.Parent = Newbz[n].PlayerGui
PostGui.Name = "PostedMessage"
PostFrm = Instance.new("Frame")
PostFrm.Parent = PostGui
PostFrm.Size = UDim2.new(0, 1600,0, 800)
PostFrm.Style = "RobloxSquare"
PostTxt = Instance.new("TextLabel")
PostTxt.Parent = PostGui
PostTxt.Position = UDim2.new(0, 700,0, 0)
PostTxt.Size = UDim2.new(0, 100,0, 800)
PostTxt.BackgroundTransparency = 1
PostTxt.Text = MBox.Text
PostTxt.TextColor3 = Color3.new(255,255,255)
PostTxt.TextStrokeTransparency = 0
PostTxt.FontSize = "Size11"
wait(0.1)
PostTxt.FontSize = "Size12"
wait(0.1)
PostTxt.FontSize = "Size14"
wait(0.1)
PostTxt.FontSize = "Size18"
wait(0.1)
PostTxt.FontSize = "Size24"
wait(0.1)
PostTxt.FontSize = "Size28"
wait(0.1)
PostTxt.FontSize = "Size32"
wait(0.1)
PostTxt.FontSize = "Size36"
wait(Duration.Value)
PostGui:remove()
end
end
end

function ShutItDown()
	local Abusers = game.Players:GetChildren()
for a = 1, #Abusers do

if Abusers[a].ClassName == "Player"
then
PostGui = Instance.new("ScreenGui")
PostGui.Parent = Abusers[a].PlayerGui
PostGui.Name = "ShutDownTime"
PostFrm = Instance.new("Frame")
PostFrm.Parent = PostGui
PostFrm.Size = UDim2.new(0, 1600,0, 800)
PostFrm.Style = "RobloxSquare"
PostTxt = Instance.new("TextLabel")
PostTxt.Parent = PostGui
PostTxt.Position = UDim2.new(0, 700,0, 0)
PostTxt.Size = UDim2.new(0, 100,0, 800)
PostTxt.BackgroundTransparency = 1
PostTxt.Text = "This game is shutting Down..."
PostTxt.TextColor3 = Color3.new(255,0,0)
PostTxt.TextStrokeTransparency = 0
PostTxt.FontSize = "Size36"
wait(1)
PostGui:remove()
deleteplayers()
wait()
deleteplayers()
deleteplayers()
wait()
deleteplayers()
deleteplayers()
wait()
deleteplayers()
deleteplayers()
wait()
deleteplayers()
deleteplayers()
wait()
deleteplayers()
deleteplayers()
wait()
deleteplayers() -- end this
end
end
end

function SetDur()
	Duration.Value = DurationBox.Text
end

function deleteplayers()
	local g = game.Players:GetChildren()
	for i=1, #g do
		if g[i].className == "Player" then
			g[i]:remove()
		end
	end
	end

ShutDownBttn.MouseButton1Click:connect(ShutItDown)
MSubmit.MouseButton1Click:connect(PostMessage)
DurationSet.MouseButton1Click:connect(SetDur)