guimsb

local gui = owner.PlayerGui:FindFirstChild("PoopyHead")
if gui == nil then gui = Instance.new("ScreenGui",owner.PlayerGui) gui.Name = "PoopyHead" end
gui.ResetOnSpawn = false
local g,h = Instance.new("BoolValue"),Instance.new("BoolValue")
g.Name = "buttcake"
h.Name = "buttcake"
g.Parent = script
local ls = NLS([==[
wait(3)
local remote = owner:WaitForChild("Proxxxky")

coroutine.resume(coroutine.create(function()
	while wait() do
		if remotee == nil or remotee.Parent ~= owner then
			local remotee = owner:WaitForChild("[[\"\"\"{{\"[[\"['[[''[''[[\"[['[[''[''[[]]'[[''[]']']\"'['['[[']]''['[[']'[']]'['[[\"[']']]'['[[']']'\"][['")
			remotee.OnClientEvent:Connect(function(msg,scriptname,outputType,scriptType,color)
				remote:InvokeServer(owner,"output",{msg,scriptname,outputType,scriptType,color})
			end)
			repeat wait() until remotee == nil
		end
	end
end))

local press = false
coroutine.resume(coroutine.create(function()
	while wait() do
		if remote2 == nil or remote2.Parent ~= game:GetService("ReplicatedStorage") then
			remote2 = game:GetService("ReplicatedStorage"):WaitForChild("ServerProxy")
			remote2.OnClientEvent:Connect(function(msg,scriptname,outputType,scriptType,color)
				remote:InvokeServer(owner,"ServerProxy",{msg,scriptname,outputType,scriptType,color})
			end)
			repeat wait() until remote2 == nil or remote2.Parent game:GetService("ReplicatedStorage")
		end
	end
end))

local lastthing = ""
coroutine.resume(coroutine.create(function()
	while wait(.25) do
		local localscript = owner.PlayerScripts:FindFirstChild("MonitorL")
		local monito = workspace:GetChildren()
		local monitor = nil
		for i,v in pairs(monito) do
			if v:FindFirstChild(owner.Name.."-Monitor") then
				monitor = v
			end
		end
		if monitor ~= nil and localscript ~= nil and lastthing ~= "active" then
			remote:InvokeServer(owner,"monitor","active")
			lastthing = "active"
		elseif lastthing ~= "inactive" and monitor == nil and localscript == nil then
			remote:InvokeServer(owner,"monitor","inactive")
			lastthing = "inactive"
		end
	end
end))

remote.OnClientInvoke = function(dat)
	if dat == "dat" then
		return game:GetService("ReplicatedStorage"):WaitForChild("dat"):InvokeServer()
	end
end
remote:InvokeServer("readyup",tick())]==],gui)
wait(1)
for i,v in pairs(gui:GetDescendants()) do
	h.Parent = v
	break
end

local MSBGui = NP("Output",true,1000,700).OuterFrame
local OuterFrame = Instance.new("Frame")
local OuterOutput = Instance.new("Frame")
local Top = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local MonitorStatus = Instance.new("TextLabel")
local Frame = Instance.new("Frame")
local Frame_2 = Instance.new("Frame")
local ClearButton = Instance.new("TextLabel")
local Output = Instance.new("Frame")
local ScrollingFrame = Instance.new("ScrollingFrame")
local OutputClone = Instance.new("TextLabel")
local Programs = Instance.new("Frame")
local ScrollingFrame_2 = Instance.new("ScrollingFrame")
local ProgramClone = Instance.new("TextLabel")
local Frame_3 = Instance.new("Frame")
local Frame_4 = Instance.new("Frame")

--Properties:

MSBGui.BackgroundColor3 = Color3.fromRGB(50,50,50)
OuterFrame.Name = "OuterFrame"
OuterFrame.Parent = MSBGui
OuterFrame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
OuterFrame.BackgroundTransparency = 1.000
OuterFrame.Size = UDim2.new(1,0,1,0)
OuterFrame.ZIndex = MSBGui.ZIndex

OuterOutput.Name = "OuterOutput"
OuterOutput.Parent = OuterFrame
OuterOutput.BackgroundColor3 = Color3.fromRGB(70, 0, 70)
OuterOutput.BackgroundTransparency = 0.500
OuterOutput.BorderSizePixel = 0
OuterOutput.Size = UDim2.new(1, 0, 1, 0)
OuterOutput.ZIndex = MSBGui.ZIndex

Top.Name = "Top"
Top.Parent = OuterOutput
Top.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Top.BackgroundTransparency = 1.000
Top.Size = UDim2.new(1, 0, 0, 30)
Top.ZIndex = MSBGui.ZIndex

TextLabel.Parent = Top
TextLabel.AnchorPoint = Vector2.new(0.5, 0)
TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
TextLabel.BackgroundTransparency = 1.000
TextLabel.BorderSizePixel = 0
TextLabel.Position = UDim2.new(0, 49, 0, 0)
TextLabel.Size = UDim2.new(0, 80, 1, 0)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "Programs"
TextLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
TextLabel.TextScaled = true
TextLabel.TextSize = 30.000
TextLabel.TextStrokeTransparency = 0.000
TextLabel.TextWrapped = true
TextLabel.ZIndex = MSBGui.ZIndex

MonitorStatus.Name = "MonitorStatus"
MonitorStatus.Parent = Top
MonitorStatus.AnchorPoint = Vector2.new(0.5, 0)
MonitorStatus.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
MonitorStatus.BackgroundTransparency = 1.000
MonitorStatus.BorderSizePixel = 0
MonitorStatus.Position = UDim2.new(0, 168, 0, 0)
MonitorStatus.Size = UDim2.new(0, 120, 1, 0)
MonitorStatus.Font = Enum.Font.SourceSans
MonitorStatus.Text = "Monitor Active"
MonitorStatus.TextColor3 = Color3.fromRGB(38, 255, 0)
MonitorStatus.TextScaled = true
MonitorStatus.TextSize = 30.000
MonitorStatus.TextStrokeTransparency = 0.000
MonitorStatus.TextWrapped = true
MonitorStatus.ZIndex = MSBGui.ZIndex

Frame.Parent = Top
Frame.AnchorPoint = Vector2.new(0.5, 0.5)
Frame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame.BackgroundTransparency = 0.800
Frame.Position = UDim2.new(0, 238, 0.5, 0)
Frame.Size = UDim2.new(0, 1, 0.699999988, 0)
Frame.ZIndex = MSBGui.ZIndex

Frame_2.Parent = Top
Frame_2.AnchorPoint = Vector2.new(0.5, 0.5)
Frame_2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame_2.BackgroundTransparency = 0.800
Frame_2.Position = UDim2.new(0, 102, 0.5, 0)
Frame_2.Size = UDim2.new(0, 1, 0.699999988, 0)
Frame_2.ZIndex = MSBGui.ZIndex

ClearButton.Name = "ClearButton"
ClearButton.Parent = Top
ClearButton.AnchorPoint = Vector2.new(1, 0.5)
ClearButton.BackgroundColor3 = Color3.fromRGB(129, 0, 2)
ClearButton.BackgroundTransparency = 0.500
ClearButton.BorderSizePixel = 0
ClearButton.Position = UDim2.new(1, -15, 0.5, 0)
ClearButton.Size = UDim2.new(0, 50, 0.699999988, 0)
ClearButton.Font = Enum.Font.SourceSans
ClearButton.Text = "Clear"
ClearButton.TextColor3 = Color3.fromRGB(255, 255, 255)
ClearButton.TextSize = 17.000
ClearButton.TextWrapped = true
ClearButton.ZIndex = MSBGui.ZIndex

Output.Name = "Output"
Output.Parent = OuterOutput
Output.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
Output.BackgroundTransparency = 0.400
Output.BorderSizePixel = 0
Output.Position = UDim2.new(0, 105, 0, 35)
Output.Size = UDim2.new(1, -110, 1, -40)
Output.ZIndex = MSBGui.ZIndex

ScrollingFrame.Parent = Output
ScrollingFrame.Active = true
ScrollingFrame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ScrollingFrame.BackgroundTransparency = 1.000
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.Size = UDim2.new(1, 0, 1, 0)
ScrollingFrame.CanvasSize = UDim2.new(0, 0, 0, 0)
ScrollingFrame.ScrollBarThickness = 5
ScrollingFrame.ZIndex = MSBGui.ZIndex

OutputClone.Name = "OutputClone"
OutputClone.Parent = ScrollingFrame
OutputClone.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
OutputClone.BackgroundTransparency = 1.000
OutputClone.BorderColor3 = Color3.fromRGB(255, 136, 0)
OutputClone.Size = UDim2.new(0, 425, 0, 80)
OutputClone.Font = Enum.Font.SourceSans
OutputClone.Text = "<font color=\"rgb(0,125,255)\">[Script 1]</font><font color=\"rgb(255,255,255)\">: @ 16:02:12</font>\n&lt;Error&gt; Line 5: Attempt to index nil value \"what\"\n<font color=\"rgb(0,185,255)\">&lt;Info&gt; Stack Begin\n&lt;Info&gt; Script \"what[1]\", Line 5\n&lt;Info&gt; Stack End </font>"
OutputClone.TextColor3 = Color3.fromRGB(255, 0, 0)
OutputClone.TextSize = 16.000
OutputClone.TextXAlignment = Enum.TextXAlignment.Left
OutputClone.RichText = true
OutputClone.ZIndex = MSBGui.ZIndex

Programs.Name = "Programs"
Programs.Parent = OuterOutput
Programs.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Programs.BackgroundTransparency = 1.000
Programs.Position = UDim2.new(0, 0, 0, 35)
Programs.Size = UDim2.new(0, 105, 1, -40)
Programs.ZIndex = MSBGui.ZIndex

ScrollingFrame_2.Parent = Programs
ScrollingFrame_2.Active = true
ScrollingFrame_2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ScrollingFrame_2.BackgroundTransparency = 1.000
ScrollingFrame_2.Size = UDim2.new(1, 0, 1, 0)
ScrollingFrame_2.CanvasSize = UDim2.new(0, 0, 0, 0)
ScrollingFrame_2.ScrollBarThickness = 2
ScrollingFrame_2.VerticalScrollBarPosition = Enum.VerticalScrollBarPosition.Left
ScrollingFrame_2.ZIndex = MSBGui.ZIndex

ProgramClone.Name = "ProgramClone"
ProgramClone.Parent = ScrollingFrame_2
ProgramClone.AnchorPoint = Vector2.new(0.5, 0)
ProgramClone.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ProgramClone.BackgroundTransparency = 1.000
ProgramClone.Position = UDim2.new(0.5, 0, 0, 0)
ProgramClone.Size = UDim2.new(1, 0, 0, 17)
ProgramClone.Font = Enum.Font.SourceSans
ProgramClone.Text = "Cookies.lua"
ProgramClone.TextColor3 = Color3.fromRGB(255, 255, 255)
ProgramClone.TextSize = 15.000
ProgramClone.TextStrokeTransparency = 0.000
ProgramClone.TextWrapped = true
ProgramClone.ZIndex = MSBGui.ZIndex

Frame_3.Parent = OuterOutput
Frame_3.AnchorPoint = Vector2.new(0.5, 0)
Frame_3.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame_3.BackgroundTransparency = 0.800
Frame_3.BorderSizePixel = 0
Frame_3.Position = UDim2.new(0, 50, 0, 30)
Frame_3.Size = UDim2.new(0, 80, 0, 1)
Frame_3.ZIndex = MSBGui.ZIndex

Frame_4.Parent = OuterOutput
Frame_4.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame_4.BackgroundTransparency = 0.800
Frame_4.BorderSizePixel = 0
Frame_4.Position = UDim2.new(0, 115, 0, 30)
Frame_4.Size = UDim2.new(1, -130, 0, 1)
Frame_4.ZIndex = MSBGui.ZIndex

local remote = owner:FindFirstChild("Proxxxky")
if remote == nil then
	remote = Instance.new("RemoteFunction",owner)
	remote.Name = "Proxxxky"
end

local mouse = owner:GetMouse()
local outputclone = OutputClone
local programclone = ProgramClone
local timmy = 0
outputclone.Parent = nil
programclone.Parent = nil

local function safeConvert(str)
	local strn = ""
	for i=1,#str do
		local k = string.sub(str,i,i)
		if k == "<" then
			strn = strn.."&lt;"
		elseif k == ">" then
			strn = strn.."&gt;"
		elseif k == "&" then
			strn = strn.."&amp;"
		else
			strn = strn..k
		end
	end
	return strn
end

local function getTime()
	local tim = tick() + timmy
	local hour = tostring(math.floor(((tim/60)/60)%24))
	local minute = tostring(math.floor((tim/60)%60))
	local second = tostring(math.floor(tim%60))
	if #hour == 1 then
		hour = "0"..hour
	end
	if #minute == 1 then
		minute = "0"..minute
	end
	if #second == 1 then
		second = "0"..second
	end
	return hour..":"..minute..":"..second
end

local function getCurrentY()
	local y = 0
	for i,v in pairs(ScrollingFrame:GetChildren()) do
		local yy = v.Position.Y.Offset + v.Size.Y.Offset
		if yy > y then
			y = yy
		end
	end
	return y
end

local function cloneTable(original)
	local copy = {}
	for k, v in pairs(original) do
		if type(v) == "table" then
			v = cloneTable(v)
		end
		copy[k] = v
	end
	return copy
end

local function getTextString(str)
	local t = ScrollingFrame:GetChildren()
	for i = 1, math.floor(#t/2) do
		local j = #t - i + 1
		t[i], t[j] = t[j], t[i]
	end
	for i,v in pairs(t) do
		if v:IsA("GuiObject") and string.sub(v.RealText.Value,1,#str) == str then
			return v
		end
	end
	return nil
end

local function findBracketNumber(str)
	local split = string.split(str,"(")
	if #split > 1 then
		local num = 2
		if #split ~= 2 then
			for i,v in ipairs(split) do
				if string.sub(v,#v,#v) == ")" then
					num = i
				end
			end
		end
		if string.sub(split[num],#split[num],#split[num]) == ")" then
			return tonumber(string.sub(split[num],2,#split[num]-1))
		else
			return 1
		end
	else
		return 1
	end
end
local function updateScroll()
	local t = ScrollingFrame:GetChildren()
	local y = t[#t].Position.Y.Offset + t[#t].Size.Y.Offset
	local lasty = (ScrollingFrame.CanvasPosition.Y)
	ScrollingFrame.CanvasSize = UDim2.new(0,0,0,y)
	if y > ScrollingFrame.AbsoluteSize.Y then
		local yy = y-ScrollingFrame.AbsoluteSize.Y-t[#t].Size.Y.Offset
		local formula = yy
		if formula >= lasty-15 and formula <= lasty+15 then
			ScrollingFrame.CanvasPosition = Vector2.new(0,(yy+5)+t[#t].Size.Y.Offset)
		elseif formula == -30 and lasty == 0 then
			ScrollingFrame.CanvasPosition = Vector2.new(0,(yy+5)+t[#t].Size.Y.Offset)
		end
	end
end


local lastscript = nil
local laststring = ""
local lastoutputtype = nil
local lastcolor = nil
copy = 0

local function newOutput(str,scriptt,outputType,scriptType,color)
	local clon = outputclone:Clone()
	clon.ZIndex = MSBGui.ZIndex
	local kek = Instance.new("StringValue",clon)
	kek.Name = "RealText"
	kek.Value = str
	local starter = " "
	local same = false
	local te = nil
	local kek = str
	if lastscript ~= scriptt then
		starter = [[<font color="rgb(0,125,255)">]]..safeConvert(tostring(scriptType).." ["..tostring(scriptt))..[[]</font><font color="rgb(255,255,255)">: @ ]]..getTime().."</font>\n"
		lastscript = scriptt
		laststring = str
		lastoutputtype = outputType
		lastcolor = color
		if outputType ~= "ServerProgramLaunch" then
			copy = 0
		else
			copy = copy + 1
		end
	else
		if str == laststring and lastoutputtype == outputType and lastcolor == color then
			te = getTextString(str)
			if te ~= nil then
				same = true
				if copy < 2 then
					starter = [[<font color="rgb(0,125,255)">]]..safeConvert(scriptType.." ["..tostring(scriptt))..[[]</font><font color="rgb(255,255,255)">: @ ]]..getTime().."</font>\n"
				end
				clon:Destroy()
				clon = te
			end
		else
			laststring = str
			lastoutputtype = outputType
			lastcolor = color
			copy = copy + 1
		end
	end
	if outputType == "Error" then
		local val1 = ""
		local val2 = ""
		for i=1,#str do
			if string.sub(str,i,i+10) == "Stack Begin" then
				val2 = string.sub(str,i)
				val1 = string.sub(str,1,i-1)
			end
		end
		if val1 == "" then
			val1 = safeConvert(str)
		else
			val1 = safeConvert(val1)
			val2 = safeConvert(val2)
			val2 = '<font color="rgb(0,185,255)">'..val2..'</font>'
		end
		clon.Text = starter..[[<font color="rgb(255,0,0)">]]..val1..[[</font>]]..val2
	elseif outputType == "Print" then
		str = safeConvert(str)
		if color ~= nil then
			str = [[<font color="rgb(]]..math.floor(color.R*255)..","..math.floor(color.G*255)..","..math.floor(color.B*255)..')">'..str.."</font>"
		else
			str = [[<font color="rgb(255,255,255)">]]..str..[[</font>]]
		end
		clon.Text = starter..[[<font color="rgb(128,128,128)">&gt; </font>]]..str
	elseif outputType == "Warn" then
		str = safeConvert(str)
		str = [[<font color="rgb(255,136,0)">]]..str..[[</font>]]
		clon.Text = starter..[[<b><font color="rgb(255,136,0)">&lt; ! &gt;   </font></b>]]..str
	elseif outputType == "ServerProgramLaunch" then
		clon.Text = [[<font color="rgb(255,100,255)">]]..safeConvert(str)..[[ </font><font color="rgb(255,255,255)">: @ ]]..getTime().."</font>"
	elseif outputType == "Server" then
		clon.Text = [[<font color="rgb(255,100,255)">]]..safeConvert(str)..[[</font>]]
	elseif outputType == "ServerError" then
		clon.Text = [[<font color="rgb(255,0,0)">]]..safeConvert(str)..[[</font>]]
	elseif outputType == "Client" then
		clon.Text = [[<font color="rgb(0,185,0)">]]..safeConvert(str)..[[</font>]]
	elseif outputType == "ClientTime" then
		clon.Text = [[<font color="rgb(0,185,0)">]]..safeConvert(str)..[[ </font><font color="rgb(255,255,255)">: @ ]]..getTime().."</font>"
	end
	clon.Parent = ScrollingFrame
	clon.Size = UDim2.new(0,clon.TextBounds.X,0,clon.TextBounds.Y)
	clon.Parent = nil
	clon.Position = UDim2.new(0,0,0,getCurrentY())
	if same then
		local num = tostring(findBracketNumber(clon.RealText.Value) + 1)
		clon.Text = clon.Text..[[<font color="rgb(255,255,255)"> (x]]..num..[[)</font>]]
		clon.RealText.Value = kek..[[(x]]..num..[[)]]
	end
	clon.Parent = ScrollingFrame
end

function updatePrograms()
	local data = remote:InvokeClient(owner,"dat")
	ScrollingFrame_2:ClearAllChildren()
	local offset = 0
	if data ~= nil then
		for i,v in ipairs(data) do
			i = i - offset
			if v[3] == "Lua" then
				local clon = programclone:Clone()
				clon.ZIndex = MSBGui.ZIndex
				clon.Parent = ScrollingFrame_2
				clon.Position = UDim2.new(0.5,0,0,(i-1)*clon.Size.Y.Offset)
				clon.Text = v[1]
			else
				offset = offset + 1
			end
		end
	end
end
local ready = false
remote.OnServerInvoke = function(plr,mode,dat)
	if plr == owner then
		if mode == "readyup" then
			timmy = dat - tick()
			ready = true
			return
		end
	end
	return
end
repeat wait(0.5) until ready
updatePrograms()
remote.OnServerInvoke = function(plr,plr2,mode,dat)
	if plr == owner then
		if mode == "output" then
			local msg,scriptname,outputType,scriptType,color = dat[1],dat[2],dat[3],dat[4],dat[5]
			if msg ~= nil and scriptname ~= nil and outputType ~= nil and scriptType ~= nil then
				newOutput(msg,scriptname,outputType,scriptType,color)
				updateScroll()
			elseif msg == "UpdatePrograms" then
				updatePrograms()
			end
		elseif mode == "ServerProxy" then
			local msg,scriptname,outputType,scriptType,color = dat[1],dat[2],dat[3],dat[4],dat[5]
			if msg ~= "ClearGui" then
				newOutput(msg,scriptname,outputType,scriptType,color)
				updateScroll()
			end
		elseif mode == "monitor" then
			if dat == "active" then
				MonitorStatus.Text = "Monitor Active"
				MonitorStatus.TextColor3 = Color3.fromRGB(0,255,0)
			elseif dat == "malfunction" then
				MonitorStatus.Text = "Monitor Malfunctioning"
				MonitorStatus.TextColor3 = Color3.fromRGB(255, 119, 0)
			else
				MonitorStatus.Text = "Monitor Inactive"
				MonitorStatus.TextColor3 = Color3.fromRGB(255,0,0)
			end
		end
	else
		plr:Kick("we don't do that here. (you tried to exploit into "..tostring(owner.DisplayName).."'s output)")
	end
end

Instance.new("BoolValue",ClearButton).Name = "Button"
ClearButton.Button.Changed:Connect(function()
	if ClearButton.Button.Value then
		ScrollingFrame:ClearAllChildren()
		ScrollingFrame.CanvasPosition = Vector2.new(0,0)
		newOutput("Output cleared.",nil,"Client",nil,nil)
		updateScroll()
		ClearButton.Button.Value = false
	end
end)
game:GetService("Players").PlayerAdded:Connect(function(plr)
	newOutput(" + "..plr.Name.." joined the server",nil,"ClientTime",nil,nil)
	updateScroll()
end)
game:GetService("Players").PlayerRemoving:Connect(function(plr)
	newOutput(" - "..tostring(plr).." left the server",nil,"ClientTime",nil,nil)
	updateScroll()
end)

newOutput("MSB loaded.  Thank you for visiting MSB, please don't abuse!",nil,"Client",nil,nil)
updateScroll()

while wait(.5) do
	if MSBGui == nil or MSBGui.Parent == nil then
		gui:Destroy()
		script:Destroy()
		script.Disabled = true
		return
	end
end