SHARE
TWEET

ChatLogger

ToxicWHOMakesGUIS Apr 13th, 2019 (edited) 1,115 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. wait(1)
  2.  
  3. warn("Loading Chat Logger v.2 by iiToxicity on v3rmillion / Toxic#2799")
  4.  
  5. local ChatLogger = Instance.new("ScreenGui")
  6. local Main = Instance.new("Frame")
  7. local Save = Instance.new("TextButton")
  8. local FileName = Instance.new("TextBox")
  9. local Label = Instance.new("TextLabel")
  10. local TopBar = Instance.new("Frame")
  11. local Title = Instance.new("TextLabel")
  12. local OS = Instance.new("TextButton")
  13. local Storage = Instance.new("ScrollingFrame")
  14. local Layout = Instance.new("UIListLayout")
  15. local Template = Instance.new("Frame")
  16. local Text = Instance.new("TextLabel")
  17. local Settings = Instance.new("Frame")
  18. local TopFrame = Instance.new("Frame")
  19. local TextLabel = Instance.new("TextLabel")
  20. local BottomFrame = Instance.new("Frame")
  21. local RainbowToggle = Instance.new("ImageButton")
  22. local Data = Instance.new("TextLabel")
  23. local Text_2 = Instance.new("TextLabel")
  24. local ResetMessages = Instance.new("TextButton")
  25. local IgnoreList = Instance.new("Frame")
  26. local Title_2 = Instance.new("TextLabel")
  27. local Add = Instance.new("TextButton")
  28. local Userbox = Instance.new("TextBox")
  29. local IgnoreStorage = Instance.new("Frame")
  30. local Example = Instance.new("TextLabel")
  31.  
  32. ChatLogger.Name = "ChatLogger"
  33. ChatLogger.Parent = game.CoreGui
  34.  
  35.  
  36. --[[
  37.     Important Variables:
  38. --]]
  39.  
  40.  
  41. local messagetable = {}
  42.  
  43. local SaveData = ""
  44.  
  45.  
  46. --[[
  47.     Main:
  48. --]]
  49.  
  50. Main.Name = "Main"
  51. Main.Parent = ChatLogger
  52. Main.BackgroundColor3 = Color3.new(1, 1, 1)
  53. Main.Position = UDim2.new(0.698884785, 0, 0.717670321, 0)
  54. Main.Size = UDim2.new(0, 357, 0, 121)
  55. Main.Active = true
  56. Main.Selectable = true
  57. Main.Draggable = true
  58.  
  59. Save.Name = "Save"
  60. Save.Parent = Main
  61. Save.BackgroundColor3 = Color3.new(0, 0, 0)
  62. Save.BorderSizePixel = 0
  63. Save.Position = UDim2.new(0.0236877948, 0, 0.101353161, 0)
  64. Save.Size = UDim2.new(0, 163, 0, 50)
  65. Save.Font = Enum.Font.SourceSansLight
  66. Save.Text = "Save Messages"
  67. Save.TextColor3 = Color3.new(1, 1, 1)
  68. Save.TextScaled = true
  69. Save.TextSize = 14
  70. Save.TextWrapped = true
  71. Save.MouseButton1Click:Connect(function()
  72.     local DataStorage = ""
  73.     SaveData = ""
  74.     for i,v in pairs(Storage:GetChildren()) do
  75.         if v then
  76.         if v.Name == "Layout" then
  77.         else
  78.              table.insert(messagetable, i, v.TextLabel.Text)
  79.         end
  80.         end
  81.     end
  82.    
  83.        for i,v in pairs(messagetable) do
  84.            SaveData = ""..SaveData.."                              |                              "..v..""
  85.            end
  86.    
  87.     DataStorage = SaveData
  88.    
  89.     local FN = FileName.Text
  90.    
  91.     writefile(""..FN..".txt",DataStorage)
  92. end)
  93.  
  94. FileName.Name = "FileName"
  95. FileName.Parent = Main
  96. FileName.BackgroundColor3 = Color3.new(0, 0, 0)
  97. FileName.BorderSizePixel = 0
  98. FileName.Position = UDim2.new(0.369747907, 0, 0.586776853, 0)
  99. FileName.Size = UDim2.new(0, 215, 0, 38)
  100. FileName.Font = Enum.Font.SourceSansLight
  101. FileName.Text = "Chat Logger v.2 Testing"
  102. FileName.TextColor3 = Color3.new(1, 1, 1)
  103. FileName.TextScaled = true
  104. FileName.TextSize = 14
  105. FileName.TextWrapped = true
  106.  
  107. Label.Name = "Label"
  108. Label.Parent = Main
  109. Label.BackgroundColor3 = Color3.new(1, 1, 1)
  110. Label.BackgroundTransparency = 1
  111. Label.BorderSizePixel = 0
  112. Label.Position = UDim2.new(0.0224089641, 0, 0.586776853, 0)
  113. Label.Size = UDim2.new(0, 115, 0, 38)
  114. Label.Font = Enum.Font.SourceSansLight
  115. Label.Text = "File Name:"
  116. Label.TextColor3 = Color3.new(0, 0, 0)
  117. Label.TextSize = 25
  118. Label.TextWrapped = true
  119.  
  120. TopBar.Name = "TopBar"
  121. TopBar.Parent = Main
  122. TopBar.BackgroundColor3 = Color3.new(0, 0, 0)
  123. TopBar.BorderSizePixel = 0
  124. TopBar.Position = UDim2.new(0, 0, -2.09917355, 0)
  125. TopBar.Size = UDim2.new(0, 357, 0, 46)
  126.  
  127. Title.Name = "Title"
  128. Title.Parent = TopBar
  129. Title.BackgroundColor3 = Color3.new(1, 1, 1)
  130. Title.BackgroundTransparency = 1
  131. Title.Size = UDim2.new(0, 357, 0, 46)
  132. Title.Font = Enum.Font.SourceSansLight
  133. Title.Text = "Chat Logger v2"
  134. Title.TextColor3 = Color3.new(1, 1, 1)
  135. Title.TextScaled = true
  136. Title.TextSize = 14
  137. Title.TextWrapped = true
  138.  
  139. OS.Name = "OS"
  140. OS.Parent = Main
  141. OS.BackgroundColor3 = Color3.new(0, 0, 0)
  142. OS.BorderSizePixel = 0
  143. OS.Position = UDim2.new(0.513883889, 0, 0.101353161, 0)
  144. OS.Size = UDim2.new(0, 163, 0, 50)
  145. OS.Font = Enum.Font.SourceSansLight
  146. OS.Text = "Settings"
  147. OS.TextColor3 = Color3.new(1, 1, 1)
  148. OS.TextScaled = true
  149. OS.TextSize = 14
  150. OS.TextWrapped = true
  151. OS.MouseButton1Click:Connect(function()
  152.     Settings.Visible = not Settings.Visible
  153. end)
  154.  
  155. Storage.Name = "Storage"
  156. Storage.Parent = Main
  157. Storage.BackgroundColor3 = Color3.new(1, 1, 1)
  158. Storage.Position = UDim2.new(-0.00419646502, 0, -1.71807814, 0)
  159. Storage.Size = UDim2.new(0, 357, 0, 207)
  160. Storage.CanvasSize = UDim2.new(0, 0, 200000, 0)
  161.  
  162. Layout.Name = "Layout"
  163. Layout.Parent = Storage
  164.  
  165. Template.Name = "Template"
  166. Template.Parent = Main
  167. Template.BackgroundColor3 = Color3.new(1, 1, 1)
  168. Template.BorderSizePixel = 0
  169. Template.Position = UDim2.new(0, 0, -1.71900821, 0)
  170. Template.Size = UDim2.new(0, 346, 0, 53)
  171. Template.Visible = false
  172.  
  173. Text.Name = "TextLabel"
  174. Text.Parent = Template
  175. Text.BackgroundColor3 = Color3.new(1, 1, 1)
  176. Text.BackgroundTransparency = 1
  177. Text.BorderSizePixel = 0
  178. Text.Position = UDim2.new(0.0245398767, 0, 0, 0)
  179. Text.Size = UDim2.new(0, 328, 0, 53)
  180. Text.Font = Enum.Font.SourceSansLight
  181. Text.Text = "Player1: Hello!"
  182. Text.TextColor3 = Color3.new(0, 0, 0)
  183. Text.TextScaled = true
  184. Text.TextSize = 14
  185. Text.TextWrapped = true
  186.  
  187. Settings.Name = "Settings"
  188. Settings.Parent = ChatLogger
  189. Settings.BackgroundColor3 = Color3.new(1, 1, 1)
  190. Settings.Position = UDim2.new(0.486988842, 0, 0.468904316, 0)
  191. Settings.Size = UDim2.new(0, 356, 0, 373)
  192. Settings.Visible = false
  193. Settings.Active = true
  194. Settings.Selectable = true
  195. Settings.Draggable = true
  196.  
  197. TopFrame.Name = "TopFrame"
  198. TopFrame.Parent = Settings
  199. TopFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  200. TopFrame.Size = UDim2.new(0, 356, 0, 46)
  201.  
  202. TextLabel.Parent = TopFrame
  203. TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  204. TextLabel.BackgroundTransparency = 21
  205. TextLabel.Size = UDim2.new(0, 356, 0, 46)
  206. TextLabel.Font = Enum.Font.SourceSansLight
  207. TextLabel.Text = "Settings"
  208. TextLabel.TextColor3 = Color3.new(1, 1, 1)
  209. TextLabel.TextScaled = true
  210. TextLabel.TextSize = 14
  211. TextLabel.TextWrapped = true
  212.  
  213. BottomFrame.Name = "BottomFrame"
  214. BottomFrame.Parent = Settings
  215. BottomFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  216. BottomFrame.Position = UDim2.new(0, 0, 0.871313691, 0)
  217. BottomFrame.Size = UDim2.new(0, 356, 0, 46)
  218.  
  219. RainbowToggle.Name = "RainbowToggle"
  220. RainbowToggle.Parent = Settings
  221. RainbowToggle.BackgroundColor3 = Color3.new(1, 1, 1)
  222. RainbowToggle.Position = UDim2.new(0.0365168527, 0, 0.166219845, 0)
  223. RainbowToggle.Size = UDim2.new(0, 38, 0, 34)
  224. RainbowToggle.Image = "rbxassetid://0"
  225. RainbowToggle.MouseButton1Click:Connect(function()
  226.     if RainbowToggle.Image == "rbxassetid://0" then
  227.     RainbowToggle.Image = "rbxassetid://33714981"
  228.     Data.Text = "true"
  229.     else
  230.     RainbowToggle.Image = "rbxassetid://0"
  231.     Data.Text = "false"
  232.     end
  233. end)
  234.  
  235. Data.Name = "Data"
  236. Data.Parent = RainbowToggle
  237. Data.BackgroundColor3 = Color3.new(1, 1, 1)
  238. Data.BackgroundTransparency = 1
  239. Data.Position = UDim2.new(2.28947377, 0, 0.382352948, 0)
  240. Data.Size = UDim2.new(0, 216, 0, 7)
  241. Data.Visible = false
  242. Data.Font = Enum.Font.SourceSans
  243. Data.Text = "false"
  244. Data.TextColor3 = Color3.new(0, 0, 0)
  245. Data.TextSize = 14
  246.  
  247. Text_2.Name = "Text"
  248. Text_2.Parent = RainbowToggle
  249. Text_2.BackgroundColor3 = Color3.new(1, 1, 1)
  250. Text_2.BackgroundTransparency = 1
  251. Text_2.Position = UDim2.new(1.55263162, 0, -0.235294119, 0)
  252. Text_2.Size = UDim2.new(0, 273, 0, 50)
  253. Text_2.Font = Enum.Font.SourceSansLight
  254. Text_2.Text = "Rainbow Layout"
  255. Text_2.TextColor3 = Color3.new(0, 0, 0)
  256. Text_2.TextSize = 36
  257.  
  258. ResetMessages.Name = "ResetMessages"
  259. ResetMessages.Parent = Settings
  260. ResetMessages.BackgroundColor3 = Color3.new(1, 1, 1)
  261. ResetMessages.Position = UDim2.new(0.0365168527, 0, 0.327077746, 0)
  262. ResetMessages.Size = UDim2.new(0, 332, 0, 35)
  263. ResetMessages.Font = Enum.Font.SourceSansLight
  264. ResetMessages.Text = "Reset Message Storage"
  265. ResetMessages.TextColor3 = Color3.new(0, 0, 0)
  266. ResetMessages.TextSize = 35
  267. ResetMessages.TextWrapped = true
  268. ResetMessages.MouseButton1Click:Connect(function()
  269.     for i,v in pairs(Storage:GetChildren()) do
  270.         if v.Name == "Layout" then
  271.         else
  272.             v:Destroy()
  273.         end
  274.     end
  275.    
  276.     messagetable = {}
  277.     SaveData = {}
  278. end)
  279.  
  280. IgnoreList.Name = "IgnoreList"
  281. IgnoreList.Parent = Settings
  282. IgnoreList.BackgroundColor3 = Color3.new(1, 1, 1)
  283. IgnoreList.Position = UDim2.new(0.0365168527, 0, 0.525469184, 0)
  284. IgnoreList.Size = UDim2.new(0, 332, 0, 100)
  285.  
  286. Title_2.Name = "Title"
  287. Title_2.Parent = IgnoreList
  288. Title_2.BackgroundColor3 = Color3.new(1, 1, 1)
  289. Title_2.BackgroundTransparency = 1
  290. Title_2.Size = UDim2.new(0, 332, 0, 28)
  291. Title_2.Font = Enum.Font.SourceSansLight
  292. Title_2.Text = "Ignore List:"
  293. Title_2.TextColor3 = Color3.new(0, 0, 0)
  294. Title_2.TextSize = 25
  295.  
  296. Add.Name = "Add"
  297. Add.Parent = IgnoreList
  298. Add.BackgroundColor3 = Color3.new(1, 1, 1)
  299. Add.BackgroundTransparency = 1
  300. Add.Position = UDim2.new(0.0210843384, 0, 0.682637334, 0)
  301. Add.Size = UDim2.new(0, 317, 0, 20)
  302. Add.Font = Enum.Font.SourceSansLight
  303. Add.Text = "Add User To Ignore List"
  304. Add.TextColor3 = Color3.new(0, 0, 0)
  305. Add.TextScaled = true
  306. Add.TextSize = 14
  307. Add.TextWrapped = true
  308. Add.MouseButton1Click:Connect(function()
  309.     if game.Players:FindFirstChild(Userbox.Text) then
  310.     local Clone = Example:Clone()
  311.     Clone.Name = Userbox.Text
  312.     Clone.Parent = IgnoreStorage
  313.     Add.Text = "Added!"
  314.     wait(1)
  315.     Add.Text = "Add User To Ignore List"
  316.     else
  317.         Add.Text = "Player not found!"
  318.         wait(1)
  319.         Add.Text = "Add User To Ignore List"
  320.     end
  321. end)
  322.  
  323. Userbox.Name = "Userbox"
  324. Userbox.Parent = IgnoreList
  325. Userbox.BackgroundColor3 = Color3.new(1, 1, 1)
  326. Userbox.Position = UDim2.new(0.0210843366, 0, 0.340000004, 0)
  327. Userbox.Size = UDim2.new(0, 317, 0, 22)
  328. Userbox.Font = Enum.Font.SourceSansLight
  329. Userbox.Text = "Username Here"
  330. Userbox.TextColor3 = Color3.new(0, 0, 0)
  331. Userbox.TextScaled = true
  332. Userbox.TextSize = 14
  333. Userbox.TextWrapped = true
  334.  
  335. IgnoreStorage.Name = "IgnoreStorage"
  336. IgnoreStorage.Parent = Settings
  337. IgnoreStorage.BackgroundColor3 = Color3.new(1, 1, 1)
  338. IgnoreStorage.BackgroundTransparency = 1
  339. IgnoreStorage.Size = UDim2.new(0, 356, 0, 44)
  340.  
  341. Example.Name = "Example"
  342. Example.Parent = IgnoreStorage
  343. Example.BackgroundColor3 = Color3.new(1, 1, 1)
  344. Example.Size = UDim2.new(0, 356, 0, 46)
  345. Example.Visible = false
  346. Example.Font = Enum.Font.SourceSans
  347. Example.Text = "Player1"
  348. Example.TextColor3 = Color3.new(0, 0, 0)
  349. Example.TextScaled = true
  350. Example.TextSize = 14
  351. Example.TextWrapped = true
  352.  
  353.  
  354.  
  355.  
  356. for i,v in pairs(game.Players:GetPlayers()) do
  357.     print("Player chatting from when you joined.")
  358.     v.Chatted:Connect(function(message)
  359.         if IgnoreStorage:FindFirstChild(v.Name) then
  360.         else
  361.         if Data.Text == "false" then
  362.         local T = Template:Clone()
  363.         T.TextLabel.Text = ""..v.Name..": "..message..""
  364.         T.Parent = Storage
  365.         T.Visible = true
  366. else
  367.         local T = Template:Clone()
  368.         T.TextLabel.Text = ""..v.Name..": "..message..""
  369.         T.Parent = Storage
  370.         T.Visible = true
  371.         local Brick = T
  372. local speed = 0.5
  373. while true do
  374.     for i = 0,1,0.001*speed do
  375.         Brick.BackgroundColor3 = Color3.fromHSV(i,1,1)
  376.         wait()
  377.     end
  378. end
  379.         end
  380.         end
  381.     end)
  382. end
  383.  
  384. game.Players.PlayerAdded:Connect(function(plr)
  385. print("Player joined later.")
  386.     plr.Chatted:Connect(function(message)
  387.         if IgnoreStorage:FindFirstChild(plr.Name) then
  388.         else
  389.         if Data.Text == "false" then
  390.         local T = Template:Clone()
  391.         T.TextLabel.Text = ""..plr.Name..": "..message..""
  392.         T.Parent = Storage
  393.         T.Visible = true
  394.         else
  395.         local T = Template:Clone()
  396.         T.TextLabel.Text = ""..plr.Name..": "..message..""
  397.         T.Parent = Storage
  398.         T.Visible = true
  399.         local Brick = T
  400. local speed = 0.5
  401. while true do
  402.     for i = 0,1,0.001*speed do
  403.         Brick.BackgroundColor3 = Color3.fromHSV(i,1,1)
  404.         wait()
  405.     end
  406. end
  407.         end
  408.         end
  409.     end)
  410. end)
  411.  
  412. warn("Loaded! Have a great time using this!")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top