Random Script Executor(i was bored)

-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local Info = Instance.new("Frame")
local Close = Instance.new("TextButton")
local Minimizew = Instance.new("TextButton")
local Label = Instance.new("TextLabel")
local ScriptFrame = Instance.new("Frame")
local ScriptPaste = Instance.new("ScrollingFrame")
local TextBox69 = Instance.new("TextBox")
local Execute = Instance.new("TextButton")
local Clear = Instance.new("TextButton")
local ColorChange = Instance.new("TextButton")

-- Properties

if game.PlaceId == "843495510,843468296" then
ScreenGui.Parent = game.Players.LocalPlayer.PlayerGui
ScreenGui.ResetOnSpawn = false
else
ScreenGui.Parent = game.CoreGui
end

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(1, 1, 1)
Frame.Position = UDim2.new(0, 331, 0, 210)
Frame.Size = UDim2.new(0, 510, 0, 377)
Frame.Active = true
Frame.Draggable = true

Info.Name = "Info"
Info.Parent = Frame
Info.BackgroundColor3 = Color3.new(1, 1, 1)
Info.BorderSizePixel = 0
Info.Size = UDim2.new(0, 510, 0, 35)
Info.BackgroundTransparency = 1

Close.Name = "Close"
Close.Parent = Info
Close.BackgroundColor3 = Color3.new(1, 0, 0)
Close.BorderSizePixel = 0
Close.Position = UDim2.new(0, 475, 0, 0)
Close.Size = UDim2.new(0, 35, 0, 35)
Close.Font = Enum.Font.SourceSans
Close.FontSize = Enum.FontSize.Size14
Close.Text = " "
Close.TextColor3 = Color3.new(1, 0, 0)
Close.TextSize = 14
Close.TextWrapped = true

Close.MouseButton1Down:connect(function()
	ScreenGui:Destroy()
	ScreenGui2:Destroy()
end)

Minimizew.Name = "Minimizew"
Minimizew.Parent = Info
Minimizew.BackgroundColor3 = Color3.new(1, 0.333333, 0)
Minimizew.BorderSizePixel = 0
Minimizew.Position = UDim2.new(0, 438, 0, 0)
Minimizew.Size = UDim2.new(0, 35, 0, 35)
Minimizew.Font = Enum.Font.SourceSans
Minimizew.FontSize = Enum.FontSize.Size14
Minimizew.Text = ""
Minimizew.TextColor3 = Color3.new(1, 0, 0)
Minimizew.TextSize = 14
Minimizew.TextWrapped = true

Minimizew.MouseButton1Down:connect(function()
	    if ScriptFrame.Visible == false then
        ScriptFrame.Visible = true
        Frame.Size = UDim2.new(0, 510, 0, 377)
    else
        ScriptFrame.Visible = false
        Frame.Size = UDim2.new(0, 510, 0, 35)
    end
end)

Label.Name = "Label"
Label.Parent = Info
Label.BackgroundColor3 = Color3.new(1, 1, 1)
Label.Size = UDim2.new(0, 436, 0, 35)
Label.Font = Enum.Font.SourceSans
Label.FontSize = Enum.FontSize.Size14
Label.Text = "Random Script Executor"
Label.TextScaled = true
Label.TextSize = 14
Label.TextWrapped = true

ScriptFrame.Name = "ScriptFrame"
ScriptFrame.Parent = Frame
ScriptFrame.BackgroundColor3 = Color3.new(1, 1, 1)
ScriptFrame.Position = UDim2.new(0, 0, 0, 36)
ScriptFrame.Size = UDim2.new(0, 510, 0, 341)
ScriptFrame.BackgroundTransparency = 1

ScriptPaste.Name = "ScriptPaste"
ScriptPaste.Parent = ScriptFrame
ScriptPaste.BackgroundColor3 = Color3.new(1, 1, 1)
ScriptPaste.Size = UDim2.new(0, 510, 0, 287)

TextBox69.Parent = ScriptPaste
TextBox69.BackgroundColor3 = Color3.new(0.870588, 0.870588, 0.870588)
TextBox69.Size = UDim2.new(0, 510, 0, 287)
TextBox69.Font = Enum.Font.SourceSans
TextBox69.FontSize = Enum.FontSize.Size14
TextBox69.Text = ""
TextBox69.TextSize = 14
TextBox69.TextWrapped = true
TextBox69.TextXAlignment = Enum.TextXAlignment.Left
TextBox69.TextYAlignment = Enum.TextYAlignment.Top

Execute.Name = "Execute"
Execute.Parent = ScriptFrame
Execute.BackgroundColor3 = Color3.new(1, 1, 1)
Execute.Position = UDim2.new(0, 18, 0, 298)
Execute.Size = UDim2.new(0, 124, 0, 34)
Execute.Font = Enum.Font.SourceSans
Execute.FontSize = Enum.FontSize.Size14
Execute.Text = "Execute"
Execute.TextSize = 14

Execute.MouseButton1Down:connect(function()
	loadstring(TextBox69.Text)()
end)

Clear.Name = "Clear"
Clear.Parent = ScriptFrame
Clear.BackgroundColor3 = Color3.new(1, 1, 1)
Clear.Position = UDim2.new(0, 193, 0, 298)
Clear.Size = UDim2.new(0, 124, 0, 34)
Clear.Font = Enum.Font.SourceSans
Clear.FontSize = Enum.FontSize.Size14
Clear.Text = "Clear"
Clear.TextSize = 14

Clear.MouseButton1Down:connect(function()
	TextBox69.Text = ""
end)

ColorChange.Name = "Color Change"
ColorChange.Parent = ScriptFrame
ColorChange.BackgroundColor3 = Color3.new(1, 1, 1)
ColorChange.Position = UDim2.new(0, 371, 0, 298)
ColorChange.Size = UDim2.new(0, 124, 0, 34)
ColorChange.Font = Enum.Font.SourceSans
ColorChange.FontSize = Enum.FontSize.Size14
ColorChange.Text = "Change Color Theme"
ColorChange.TextSize = 14

ColorChange.MouseButton1Down:connect(function()
-- Objects

local ScreenGui2 = Instance.new("ScreenGui")
local TextBox = Instance.new("TextBox")
local TextButton = Instance.new("TextButton")

-- Properties

ScreenGui2.Parent = game.Players.LocalPlayer.PlayerGui

TextBox.Parent = ScreenGui
TextBox.BackgroundColor3 = Color3.new(1, 1, 1)
TextBox.Position = UDim2.new(0, 0, 0, 606)
TextBox.Size = UDim2.new(0, 149, 0, 27)
TextBox.Font = Enum.Font.SourceSans
TextBox.FontSize = Enum.FontSize.Size14
TextBox.TextSize = 14

TextButton.Parent = ScreenGui
TextButton.BackgroundColor3 = Color3.new(1, 1, 1)
TextButton.Position = UDim2.new(0, 0, 0, 646)
TextButton.Size = UDim2.new(0, 149, 0, 27)
TextButton.Font = Enum.Font.SourceSans
TextButton.FontSize = Enum.FontSize.Size14
TextButton.Text = "Change Color"
TextButton.TextSize = 14

TextButton.MouseButton1Down:connect(function()
	Frame.BackgroundColor3 = Color3.new(TextBox.Text)
	Label.BackgroundColor3 = Color3.new(TextBox.Text)
	ScriptPaste.BackgroundColor3 = Color3.new(TextBox.Text)
end)
end)