ChatLogger

wait(1)

warn("Loading Chat Logger v.2 by iiToxicity on v3rmillion / Toxic#2799")

local ChatLogger = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local Save = Instance.new("TextButton")
local FileName = Instance.new("TextBox")
local Label = Instance.new("TextLabel")
local TopBar = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local OS = Instance.new("TextButton")
local Storage = Instance.new("ScrollingFrame")
local Layout = Instance.new("UIListLayout")
local Template = Instance.new("Frame")
local Text = Instance.new("TextLabel")
local Settings = Instance.new("Frame")
local TopFrame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local BottomFrame = Instance.new("Frame")
local RainbowToggle = Instance.new("ImageButton")
local Data = Instance.new("TextLabel")
local Text_2 = Instance.new("TextLabel")
local ResetMessages = Instance.new("TextButton")
local IgnoreList = Instance.new("Frame")
local Title_2 = Instance.new("TextLabel")
local Add = Instance.new("TextButton")
local Userbox = Instance.new("TextBox")
local IgnoreStorage = Instance.new("Frame")
local Example = Instance.new("TextLabel")

ChatLogger.Name = "ChatLogger"
ChatLogger.Parent = game.CoreGui


--[[
	Important Variables:
--]]


local messagetable = {}

local SaveData = ""


--[[
	Main:
--]]

Main.Name = "Main"
Main.Parent = ChatLogger
Main.BackgroundColor3 = Color3.new(1, 1, 1)
Main.Position = UDim2.new(0.698884785, 0, 0.717670321, 0)
Main.Size = UDim2.new(0, 357, 0, 121)
Main.Active = true
Main.Selectable = true
Main.Draggable = true

Save.Name = "Save"
Save.Parent = Main
Save.BackgroundColor3 = Color3.new(0, 0, 0)
Save.BorderSizePixel = 0
Save.Position = UDim2.new(0.0236877948, 0, 0.101353161, 0)
Save.Size = UDim2.new(0, 163, 0, 50)
Save.Font = Enum.Font.SourceSansLight
Save.Text = "Save Messages"
Save.TextColor3 = Color3.new(1, 1, 1)
Save.TextScaled = true
Save.TextSize = 14
Save.TextWrapped = true
Save.MouseButton1Click:Connect(function()
	local DataStorage = ""
	SaveData = ""
	for i,v in pairs(Storage:GetChildren()) do
		if v then
		if v.Name == "Layout" then
		else
			 table.insert(messagetable, i, v.TextLabel.Text)
		end
		end
	end

	   for i,v in pairs(messagetable) do
           SaveData = ""..SaveData.."                              |                              "..v..""
	       end

	DataStorage = SaveData

	local FN = FileName.Text

    writefile(""..FN..".txt",DataStorage)
end)

FileName.Name = "FileName"
FileName.Parent = Main
FileName.BackgroundColor3 = Color3.new(0, 0, 0)
FileName.BorderSizePixel = 0
FileName.Position = UDim2.new(0.369747907, 0, 0.586776853, 0)
FileName.Size = UDim2.new(0, 215, 0, 38)
FileName.Font = Enum.Font.SourceSansLight
FileName.Text = "Chat Logger v.2 Testing"
FileName.TextColor3 = Color3.new(1, 1, 1)
FileName.TextScaled = true
FileName.TextSize = 14
FileName.TextWrapped = true

Label.Name = "Label"
Label.Parent = Main
Label.BackgroundColor3 = Color3.new(1, 1, 1)
Label.BackgroundTransparency = 1
Label.BorderSizePixel = 0
Label.Position = UDim2.new(0.0224089641, 0, 0.586776853, 0)
Label.Size = UDim2.new(0, 115, 0, 38)
Label.Font = Enum.Font.SourceSansLight
Label.Text = "File Name:"
Label.TextColor3 = Color3.new(0, 0, 0)
Label.TextSize = 25
Label.TextWrapped = true

TopBar.Name = "TopBar"
TopBar.Parent = Main
TopBar.BackgroundColor3 = Color3.new(0, 0, 0)
TopBar.BorderSizePixel = 0
TopBar.Position = UDim2.new(0, 0, -2.09917355, 0)
TopBar.Size = UDim2.new(0, 357, 0, 46)

Title.Name = "Title"
Title.Parent = TopBar
Title.BackgroundColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.Size = UDim2.new(0, 357, 0, 46)
Title.Font = Enum.Font.SourceSansLight
Title.Text = "Chat Logger v2"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.TextScaled = true
Title.TextSize = 14
Title.TextWrapped = true

OS.Name = "OS"
OS.Parent = Main
OS.BackgroundColor3 = Color3.new(0, 0, 0)
OS.BorderSizePixel = 0
OS.Position = UDim2.new(0.513883889, 0, 0.101353161, 0)
OS.Size = UDim2.new(0, 163, 0, 50)
OS.Font = Enum.Font.SourceSansLight
OS.Text = "Settings"
OS.TextColor3 = Color3.new(1, 1, 1)
OS.TextScaled = true
OS.TextSize = 14
OS.TextWrapped = true
OS.MouseButton1Click:Connect(function()
	Settings.Visible = not Settings.Visible
end)

Storage.Name = "Storage"
Storage.Parent = Main
Storage.BackgroundColor3 = Color3.new(1, 1, 1)
Storage.Position = UDim2.new(-0.00419646502, 0, -1.71807814, 0)
Storage.Size = UDim2.new(0, 357, 0, 207)
Storage.CanvasSize = UDim2.new(0, 0, 200000, 0)

Layout.Name = "Layout"
Layout.Parent = Storage

Template.Name = "Template"
Template.Parent = Main
Template.BackgroundColor3 = Color3.new(1, 1, 1)
Template.BorderSizePixel = 0
Template.Position = UDim2.new(0, 0, -1.71900821, 0)
Template.Size = UDim2.new(0, 346, 0, 53)
Template.Visible = false

Text.Name = "TextLabel"
Text.Parent = Template
Text.BackgroundColor3 = Color3.new(1, 1, 1)
Text.BackgroundTransparency = 1
Text.BorderSizePixel = 0
Text.Position = UDim2.new(0.0245398767, 0, 0, 0)
Text.Size = UDim2.new(0, 328, 0, 53)
Text.Font = Enum.Font.SourceSansLight
Text.Text = "Player1: Hello!"
Text.TextColor3 = Color3.new(0, 0, 0)
Text.TextScaled = true
Text.TextSize = 14
Text.TextWrapped = true

Settings.Name = "Settings"
Settings.Parent = ChatLogger
Settings.BackgroundColor3 = Color3.new(1, 1, 1)
Settings.Position = UDim2.new(0.486988842, 0, 0.468904316, 0)
Settings.Size = UDim2.new(0, 356, 0, 373)
Settings.Visible = false
Settings.Active = true
Settings.Selectable = true
Settings.Draggable = true

TopFrame.Name = "TopFrame"
TopFrame.Parent = Settings
TopFrame.BackgroundColor3 = Color3.new(0, 0, 0)
TopFrame.Size = UDim2.new(0, 356, 0, 46)

TextLabel.Parent = TopFrame
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 21
TextLabel.Size = UDim2.new(0, 356, 0, 46)
TextLabel.Font = Enum.Font.SourceSansLight
TextLabel.Text = "Settings"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextWrapped = true

BottomFrame.Name = "BottomFrame"
BottomFrame.Parent = Settings
BottomFrame.BackgroundColor3 = Color3.new(0, 0, 0)
BottomFrame.Position = UDim2.new(0, 0, 0.871313691, 0)
BottomFrame.Size = UDim2.new(0, 356, 0, 46)

RainbowToggle.Name = "RainbowToggle"
RainbowToggle.Parent = Settings
RainbowToggle.BackgroundColor3 = Color3.new(1, 1, 1)
RainbowToggle.Position = UDim2.new(0.0365168527, 0, 0.166219845, 0)
RainbowToggle.Size = UDim2.new(0, 38, 0, 34)
RainbowToggle.Image = "rbxassetid://0"
RainbowToggle.MouseButton1Click:Connect(function()
	if RainbowToggle.Image == "rbxassetid://0" then
	RainbowToggle.Image = "rbxassetid://33714981"
	Data.Text = "true"
	else
	RainbowToggle.Image = "rbxassetid://0"
	Data.Text = "false"
	end
end)

Data.Name = "Data"
Data.Parent = RainbowToggle
Data.BackgroundColor3 = Color3.new(1, 1, 1)
Data.BackgroundTransparency = 1
Data.Position = UDim2.new(2.28947377, 0, 0.382352948, 0)
Data.Size = UDim2.new(0, 216, 0, 7)
Data.Visible = false
Data.Font = Enum.Font.SourceSans
Data.Text = "false"
Data.TextColor3 = Color3.new(0, 0, 0)
Data.TextSize = 14

Text_2.Name = "Text"
Text_2.Parent = RainbowToggle
Text_2.BackgroundColor3 = Color3.new(1, 1, 1)
Text_2.BackgroundTransparency = 1
Text_2.Position = UDim2.new(1.55263162, 0, -0.235294119, 0)
Text_2.Size = UDim2.new(0, 273, 0, 50)
Text_2.Font = Enum.Font.SourceSansLight
Text_2.Text = "Rainbow Layout"
Text_2.TextColor3 = Color3.new(0, 0, 0)
Text_2.TextSize = 36

ResetMessages.Name = "ResetMessages"
ResetMessages.Parent = Settings
ResetMessages.BackgroundColor3 = Color3.new(1, 1, 1)
ResetMessages.Position = UDim2.new(0.0365168527, 0, 0.327077746, 0)
ResetMessages.Size = UDim2.new(0, 332, 0, 35)
ResetMessages.Font = Enum.Font.SourceSansLight
ResetMessages.Text = "Reset Message Storage"
ResetMessages.TextColor3 = Color3.new(0, 0, 0)
ResetMessages.TextSize = 35
ResetMessages.TextWrapped = true
ResetMessages.MouseButton1Click:Connect(function()
	for i,v in pairs(Storage:GetChildren()) do
		if v.Name == "Layout" then
		else
			v:Destroy()
		end
	end

	messagetable = {}
	SaveData = {}
end)

IgnoreList.Name = "IgnoreList"
IgnoreList.Parent = Settings
IgnoreList.BackgroundColor3 = Color3.new(1, 1, 1)
IgnoreList.Position = UDim2.new(0.0365168527, 0, 0.525469184, 0)
IgnoreList.Size = UDim2.new(0, 332, 0, 100)

Title_2.Name = "Title"
Title_2.Parent = IgnoreList
Title_2.BackgroundColor3 = Color3.new(1, 1, 1)
Title_2.BackgroundTransparency = 1
Title_2.Size = UDim2.new(0, 332, 0, 28)
Title_2.Font = Enum.Font.SourceSansLight
Title_2.Text = "Ignore List:"
Title_2.TextColor3 = Color3.new(0, 0, 0)
Title_2.TextSize = 25

Add.Name = "Add"
Add.Parent = IgnoreList
Add.BackgroundColor3 = Color3.new(1, 1, 1)
Add.BackgroundTransparency = 1
Add.Position = UDim2.new(0.0210843384, 0, 0.682637334, 0)
Add.Size = UDim2.new(0, 317, 0, 20)
Add.Font = Enum.Font.SourceSansLight
Add.Text = "Add User To Ignore List"
Add.TextColor3 = Color3.new(0, 0, 0)
Add.TextScaled = true
Add.TextSize = 14
Add.TextWrapped = true
Add.MouseButton1Click:Connect(function()
	if game.Players:FindFirstChild(Userbox.Text) then
	local Clone = Example:Clone()
	Clone.Name = Userbox.Text
	Clone.Parent = IgnoreStorage
	Add.Text = "Added!"
	wait(1)
	Add.Text = "Add User To Ignore List"
	else
		Add.Text = "Player not found!"
		wait(1)
		Add.Text = "Add User To Ignore List"
	end
end)

Userbox.Name = "Userbox"
Userbox.Parent = IgnoreList
Userbox.BackgroundColor3 = Color3.new(1, 1, 1)
Userbox.Position = UDim2.new(0.0210843366, 0, 0.340000004, 0)
Userbox.Size = UDim2.new(0, 317, 0, 22)
Userbox.Font = Enum.Font.SourceSansLight
Userbox.Text = "Username Here"
Userbox.TextColor3 = Color3.new(0, 0, 0)
Userbox.TextScaled = true
Userbox.TextSize = 14
Userbox.TextWrapped = true

IgnoreStorage.Name = "IgnoreStorage"
IgnoreStorage.Parent = Settings
IgnoreStorage.BackgroundColor3 = Color3.new(1, 1, 1)
IgnoreStorage.BackgroundTransparency = 1
IgnoreStorage.Size = UDim2.new(0, 356, 0, 44)

Example.Name = "Example"
Example.Parent = IgnoreStorage
Example.BackgroundColor3 = Color3.new(1, 1, 1)
Example.Size = UDim2.new(0, 356, 0, 46)
Example.Visible = false
Example.Font = Enum.Font.SourceSans
Example.Text = "Player1"
Example.TextColor3 = Color3.new(0, 0, 0)
Example.TextScaled = true
Example.TextSize = 14
Example.TextWrapped = true




for i,v in pairs(game.Players:GetPlayers()) do
	print("Player chatting from when you joined.")
	v.Chatted:Connect(function(message)
		if IgnoreStorage:FindFirstChild(v.Name) then
		else
		if Data.Text == "false" then
		local T = Template:Clone()
		T.TextLabel.Text = ""..v.Name..": "..message..""
		T.Parent = Storage
		T.Visible = true
else
		local T = Template:Clone()
		T.TextLabel.Text = ""..v.Name..": "..message..""
		T.Parent = Storage
		T.Visible = true
		local Brick = T
local speed = 0.5
while true do
	for i = 0,1,0.001*speed do
		Brick.BackgroundColor3 = Color3.fromHSV(i,1,1)
		wait()
	end
end
		end
		end
	end)
end

game.Players.PlayerAdded:Connect(function(plr)
print("Player joined later.")
	plr.Chatted:Connect(function(message)
		if IgnoreStorage:FindFirstChild(plr.Name) then
		else
		if Data.Text == "false" then
		local T = Template:Clone()
		T.TextLabel.Text = ""..plr.Name..": "..message..""
		T.Parent = Storage
		T.Visible = true
		else
		local T = Template:Clone()
		T.TextLabel.Text = ""..plr.Name..": "..message..""
		T.Parent = Storage
		T.Visible = true
       	local Brick = T
local speed = 0.5
while true do
	for i = 0,1,0.001*speed do
		Brick.BackgroundColor3 = Color3.fromHSV(i,1,1)
		wait()
	end
end
		end
		end
	end)
end)

warn("Loaded! Have a great time using this!")