Advertisement
Guest User

Untitled

a guest
Jan 6th, 2018
1,978
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.10 KB | None | 0 0
  1. --Bacon Hair Server Destroyer Gui
  2. --The Bacon everybody and bacon player functions are just for annoyance and lag.
  3. --If you want to DESTROY the server press the red button.
  4.  
  5. -- Objects
  6.  
  7. local BaconGui = Instance.new("ScreenGui")
  8. local Frame = Instance.new("Frame")
  9. local TextButton = Instance.new("TextButton")
  10. local TextLabel = Instance.new("TextLabel")
  11. local TextBox = Instance.new("TextBox")
  12. local TextButton_2 = Instance.new("TextButton")
  13. local TextButton_3 = Instance.new("TextButton")
  14.  
  15. -- Properties
  16.  
  17. BaconGui.Name = "BaconGui"
  18. BaconGui.Parent = game.Players.LocalPlayer.PlayerGui
  19.  
  20. Frame.Parent = BaconGui
  21. Frame.BackgroundColor3 = Color3.new(0.0392157, 0.698039, 1)
  22. Frame.BackgroundTransparency = 0.30000001192093
  23. Frame.Position = UDim2.new(0.58486408, 0, 0.363475174, 0)
  24. Frame.Size = UDim2.new(0.314474642, 0, 0.501773059, 0)
  25. Frame.Active = true
  26. Frame.Draggable = true
  27.  
  28. TextButton.Parent = Frame
  29. TextButton.BackgroundColor3 = Color3.new(0.384314, 0.415686, 1)
  30. TextButton.BackgroundTransparency = 0.30000001192093
  31. TextButton.Position = UDim2.new(0, 0, 0.349999994, 0)
  32. TextButton.Size = UDim2.new(0.5, 0, 0.150000006, 0)
  33. TextButton.Font = Enum.Font.SourceSans
  34. TextButton.Text = "Bacon Spam Player"
  35. TextButton.TextScaled = true
  36. TextButton.TextSize = 14
  37. TextButton.TextWrapped = true
  38. TextButton.MouseButton1Click:connect(function()
  39. BaconStrikePlayer(TextBox.Text)
  40. end)
  41.  
  42. TextLabel.Parent = Frame
  43. TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  44. TextLabel.BackgroundTransparency = 1
  45. TextLabel.Size = UDim2.new(1, 0, 0, 100)
  46. TextLabel.Font = Enum.Font.SourceSansLight
  47. TextLabel.Text = "Bacon Server Destroyer Gui"
  48. TextLabel.TextScaled = true
  49. TextLabel.TextSize = 14
  50. TextLabel.TextWrapped = true
  51.  
  52. TextBox.Parent = Frame
  53. TextBox.BackgroundColor3 = Color3.new(0.603922, 0.376471, 1)
  54. TextBox.BackgroundTransparency = 0.30000001192093
  55. TextBox.Position = UDim2.new(0, 0, 0.5, 0)
  56. TextBox.Size = UDim2.new(0.5, 0, 0, 50)
  57. TextBox.Font = Enum.Font.SourceSans
  58. TextBox.Text = "Player Name Here!"
  59. TextBox.TextScaled = true
  60. TextBox.TextSize = 14
  61. TextBox.TextWrapped = true
  62.  
  63. TextButton_2.Parent = Frame
  64. TextButton_2.BackgroundColor3 = Color3.new(0.384314, 0.415686, 1)
  65. TextButton_2.BackgroundTransparency = 0.30000001192093
  66. TextButton_2.Position = UDim2.new(0.5, 0, 0.349999994, 0)
  67. TextButton_2.Size = UDim2.new(0.5, 0, 0.330000013, 0)
  68. TextButton_2.Font = Enum.Font.SourceSans
  69. TextButton_2.Text = "Bacon Spam All Players"
  70. TextButton_2.TextScaled = true
  71. TextButton_2.TextSize = 14
  72. TextButton_2.TextWrapped = true
  73. TextButton_2.MouseButton1Click:connect(function()
  74. BaconStrikeServer()
  75. end)
  76.  
  77. TextButton_3.Parent = Frame
  78. TextButton_3.BackgroundColor3 = Color3.new(1, 0, 0.14902)
  79. TextButton_3.BackgroundTransparency = 0.30000001192093
  80. TextButton_3.Position = UDim2.new(0, 0, 0.680000007, 0)
  81. TextButton_3.Size = UDim2.new(1, 0, 0.319999993, 0)
  82. TextButton_3.Font = Enum.Font.SourceSans
  83. TextButton_3.Text = "Bacon Spam Every Single Part In The Server With Particles"
  84. TextButton_3.TextScaled = true
  85. TextButton_3.TextSize = 14
  86. TextButton_3.TextWrapped = true
  87. TextButton_3.MouseButton1Click:connect(function()
  88. BaconStrikeEverySinglePartInTheWholeServer()
  89. end)
  90.  
  91. --BaconStrikePlayer
  92. function BaconStrikePlayer(player)
  93. if TextBox.Text ~= "Player Name Here!" then
  94. for i=1, 3000 do
  95. BaconHair = Instance.new("Part", workspace)
  96. BaconHair.Size = Vector3.new(1, 1, 2)
  97. BaconHairMesh = Instance.new("SpecialMesh", BaconHair)
  98. BaconHairMesh.MeshId = "http://roblox.com/asset/?id=83293901"
  99. BaconHairMesh.Scale = Vector3.new(1, 1.05, 1)
  100. BaconHairMesh.TextureId = "http://roblox.com/asset/?id=83284747"
  101. BaconHairMesh.VertexColor = Vector3.new(1.2, 1.4, 1.4)
  102. if player == "me" then
  103. BaconHair.Position = game.Players.LocalPlayer.Character.Torso.Position
  104. else
  105. BaconHair.Position = game.Players[player].Character.Torso.Position
  106. end
  107. wait(0.0001)
  108. end
  109. end
  110. end
  111.  
  112. --BaconStrikeServer
  113. function BaconStrikeServer()
  114. MakeBaconSong()
  115. MakeBaconSound(workspace)
  116. for i=1, 6000 do
  117. BaconHair = Instance.new("Part", workspace)
  118. BaconHair.Size = Vector3.new(1, 1, 2)
  119. BaconHairMesh = Instance.new("SpecialMesh", BaconHair)
  120. BaconHairMesh.MeshId = "http://roblox.com/asset/?id=83293901"
  121. BaconHairMesh.Scale = Vector3.new(1, 1.05, 1)
  122. BaconHairMesh.TextureId = "http://roblox.com/asset/?id=83284747"
  123. BaconHairMesh.VertexColor = Vector3.new(1.2, 1.4, 1.4)
  124. Rando = game.Players:GetPlayers()[math.random(1,#game.Players:GetPlayers())]
  125. BaconHair.Position = Rando.Character.Torso.Position
  126. wait(0.0001)
  127. end
  128. end
  129.  
  130. --BaconStrikeAllPartsInServer
  131. function BaconStrikeEverySinglePartInTheWholeServer()
  132. MakeBaconSong()
  133. for index, child in pairs(workspace:GetChildren()) do
  134. if child.ClassName == "Part" then
  135. MakeBaconSound(child)
  136. for i=1, 600 do
  137. BaconHair = Instance.new("Part", workspace)
  138. BaconHair.Size = Vector3.new(1, 1, 2)
  139. BaconHairMesh = Instance.new("SpecialMesh", BaconHair)
  140. BaconHairMesh.MeshId = "http://roblox.com/asset/?id=83293901"
  141. BaconHairMesh.Scale = Vector3.new(1, 1.05, 1)
  142. BaconHairMesh.TextureId = "http://roblox.com/asset/?id=83284747"
  143. BaconHairMesh.VertexColor = Vector3.new(1.2, 1.4, 1.4)
  144. BaconHairParticleMaker = Instance.new("ParticleEmitter", BaconHair)
  145. BaconHairParticleMaker.Size = NumberSequence.new(0.5)
  146. BaconHairParticleMaker.Texture = "rbxassetid://963303510"
  147. BaconHairParticleMaker.Transparency = NumberSequence.new(0.7, 0,7)
  148. BaconHairParticleMaker.Lifetime = NumberRange.new(5000, 5000)
  149. BaconHairParticleMaker.Rate = 500.000
  150. BaconHairParticleMaker.RotSpeed = NumberRange.new(100, 100)
  151. BaconHairParticleMaker.Speed = NumberRange.new(5, 5)
  152. BaconHairParticleMaker.SpreadAngle = Vector2.new(0, 1000)
  153. BaconHair.Position = child.Position
  154. end
  155. end
  156. end
  157. end
  158.  
  159. --BaconSong
  160. function MakeBaconSong()
  161. if workspace:FindFirstChild("baconsong") then
  162. no = workspace:FindFirstChild("baconsong")
  163. no:Destroy()
  164. end
  165. baconsong = Instance.new("Sound", workspace)
  166. baconsong.Name = "baconsong"
  167. baconsong.SoundId = "rbxassetid://183031794"
  168. baconsong:Play()
  169. end
  170.  
  171. --BaconSound
  172. function MakeBaconSound(parent)
  173. BaconSound = Instance.new("Sound", parent)
  174. BaconSound.Looped = true
  175. BaconSound.SoundId = "rbxassetid://1052934249"
  176. BaconSound:Play()
  177. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement