howie9983

Whatever Floats Your Boat GUI

Oct 27th, 2018
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.21 KB | None | 0 0
  1. local KilledLeBoat = Instance.new("ScreenGui")
  2. local MainArea = Instance.new("Frame")
  3. local Credits = Instance.new("TextLabel")
  4. local WalkSpeed = Instance.new("TextButton")
  5. local Teleport = Instance.new("TextButton")
  6. local ChestTp = Instance.new("TextButton")
  7. local Farm = Instance.new("TextButton")
  8. local ForceTeam = Instance.new("TextButton")
  9. local TeamSpam = Instance.new("TextButton")
  10. local ModifyWindow = Instance.new("Frame")
  11. local Message = Instance.new("TextLabel")
  12. local Input = Instance.new("TextBox")
  13. local OK = Instance.new("TextButton")
  14. local Cancel = Instance.new("TextButton")
  15. local TeamSpamGui = Instance.new("Frame")
  16. local Message_2 = Instance.new("TextLabel")
  17. local Start = Instance.new("TextButton")
  18. local Stop = Instance.new("TextButton")
  19. local Close = Instance.new("TextButton")
  20. local plr = game:GetService("Players").LocalPlayer
  21. local plrs = game:GetService("Players")
  22.  
  23. KilledLeBoat.Name = "KilledLeBoat"
  24. KilledLeBoat.Parent = game:GetService("CoreGui")
  25. KilledLeBoat.ResetOnSpawn = false
  26.  
  27. MainArea.Name = "MainArea"
  28. MainArea.Parent = KilledLeBoat
  29. MainArea.Active = true
  30. MainArea.BackgroundColor3 = Color3.new(0.32549, 0.32549, 0.32549)
  31. MainArea.Draggable = true
  32. MainArea.Position = UDim2.new(0.57989496, 0, 0.505169868, 0)
  33. MainArea.Size = UDim2.new(0, 523, 0, 308)
  34.  
  35. Credits.Name = "Credits"
  36. Credits.Parent = MainArea
  37. Credits.BackgroundColor3 = Color3.new(1, 1, 1)
  38. Credits.BackgroundTransparency = 1
  39. Credits.Position = UDim2.new(0.296367109, 0, 0.019480519, 0)
  40. Credits.Size = UDim2.new(0, 201, 0, 48)
  41. Credits.Font = Enum.Font.SourceSans
  42. Credits.Text = "Made by tostring on v3rm Contact me on discord: Kitty221();#7244"
  43. Credits.TextColor3 = Color3.new(1, 1, 1)
  44. Credits.TextScaled = true
  45. Credits.TextSize = 14
  46. Credits.TextWrapped = true
  47.  
  48. WalkSpeed.Name = "WalkSpeed"
  49. WalkSpeed.Parent = MainArea
  50. WalkSpeed.BackgroundColor3 = Color3.new(0, 0, 0)
  51. WalkSpeed.Position = UDim2.new(0.0363288671, 0, 0.324675322, 0)
  52. WalkSpeed.Size = UDim2.new(0, 145, 0, 42)
  53. WalkSpeed.Font = Enum.Font.Arial
  54. WalkSpeed.Text = "WalkSpeed"
  55. WalkSpeed.TextColor3 = Color3.new(1, 1, 1)
  56. WalkSpeed.TextScaled = true
  57. WalkSpeed.TextSize = 14
  58. WalkSpeed.TextWrapped = true
  59.  
  60. Teleport.Name = "Teleport"
  61. Teleport.Parent = MainArea
  62. Teleport.BackgroundColor3 = Color3.new(0, 0, 0)
  63. Teleport.Position = UDim2.new(0.361376643, 0, 0.324675322, 0)
  64. Teleport.Size = UDim2.new(0, 145, 0, 42)
  65. Teleport.Font = Enum.Font.Arial
  66. Teleport.Text = "Teleport"
  67. Teleport.TextColor3 = Color3.new(1, 1, 1)
  68. Teleport.TextScaled = true
  69. Teleport.TextSize = 14
  70. Teleport.TextWrapped = true
  71.  
  72. ChestTp.Name = "ChestTp"
  73. ChestTp.Parent = MainArea
  74. ChestTp.BackgroundColor3 = Color3.new(0, 0, 0)
  75. ChestTp.Position = UDim2.new(0.680688322, 0, 0.324675322, 0)
  76. ChestTp.Size = UDim2.new(0, 145, 0, 42)
  77. ChestTp.Font = Enum.Font.Arial
  78. ChestTp.Text = "ChestTp"
  79. ChestTp.TextColor3 = Color3.new(1, 1, 1)
  80. ChestTp.TextScaled = true
  81. ChestTp.TextSize = 14
  82. ChestTp.TextWrapped = true
  83.  
  84. Farm.Name = "Farm"
  85. Farm.Parent = MainArea
  86. Farm.BackgroundColor3 = Color3.new(0, 0, 0)
  87. Farm.Position = UDim2.new(0.680688322, 0, 0.629870117, 0)
  88. Farm.Size = UDim2.new(0, 145, 0, 42)
  89. Farm.Font = Enum.Font.Arial
  90. Farm.Text = "Farm"
  91. Farm.TextColor3 = Color3.new(1, 1, 1)
  92. Farm.TextScaled = true
  93. Farm.TextSize = 14
  94. Farm.TextWrapped = true
  95.  
  96. ForceTeam.Name = "ForceTeam"
  97. ForceTeam.Parent = MainArea
  98. ForceTeam.BackgroundColor3 = Color3.new(0, 0, 0)
  99. ForceTeam.Position = UDim2.new(0.361376643, 0, 0.629870117, 0)
  100. ForceTeam.Size = UDim2.new(0, 145, 0, 42)
  101. ForceTeam.Font = Enum.Font.Arial
  102. ForceTeam.Text = "Force People On Team"
  103. ForceTeam.TextColor3 = Color3.new(1, 1, 1)
  104. ForceTeam.TextScaled = true
  105. ForceTeam.TextSize = 14
  106. ForceTeam.TextWrapped = true
  107.  
  108. TeamSpam.Name = "TeamSpam"
  109. TeamSpam.Parent = MainArea
  110. TeamSpam.BackgroundColor3 = Color3.new(0, 0, 0)
  111. TeamSpam.Position = UDim2.new(0.0363288671, 0, 0.629870117, 0)
  112. TeamSpam.Size = UDim2.new(0, 145, 0, 42)
  113. TeamSpam.Font = Enum.Font.Arial
  114. TeamSpam.Text = "Team Spam"
  115. TeamSpam.TextColor3 = Color3.new(1, 1, 1)
  116. TeamSpam.TextScaled = true
  117. TeamSpam.TextSize = 14
  118. TeamSpam.TextWrapped = true
  119.  
  120. ModifyWindow.Name = "ModifyWindow"
  121. ModifyWindow.Parent = KilledLeBoat
  122. ModifyWindow.Active = true
  123. ModifyWindow.BackgroundColor3 = Color3.new(0.219608, 0.219608, 0.219608)
  124. ModifyWindow.Draggable = true
  125. ModifyWindow.Position = UDim2.new(0.387846977, 0, 0.379615963, 0)
  126. ModifyWindow.Size = UDim2.new(0, 298, 0, 162)
  127. ModifyWindow.Visible = false
  128.  
  129. Message.Name = "Message"
  130. Message.Parent = ModifyWindow
  131. Message.BackgroundColor3 = Color3.new(1, 1, 1)
  132. Message.BackgroundTransparency = 1
  133. Message.Position = UDim2.new(0.0469798669, 0, 0.055555556, 0)
  134. Message.Size = UDim2.new(0, 261, 0, 76)
  135. Message.Font = Enum.Font.Arial
  136. Message.Text = "Please type a "
  137. Message.TextColor3 = Color3.new(1, 1, 1)
  138. Message.TextScaled = true
  139. Message.TextSize = 14
  140. Message.TextWrapped = true
  141.  
  142. Input.Name = "Input"
  143. Input.Parent = ModifyWindow
  144. Input.BackgroundColor3 = Color3.new(0, 0, 0)
  145. Input.Position = UDim2.new(0.164429531, 0, 0.561728418, 0)
  146. Input.Size = UDim2.new(0, 200, 0, 50)
  147. Input.Font = Enum.Font.Arial
  148. Input.Text = "Type here"
  149. Input.TextColor3 = Color3.new(1, 1, 1)
  150. Input.TextScaled = true
  151. Input.TextSize = 14
  152. Input.TextWrapped = true
  153.  
  154. OK.Name = "OK"
  155. OK.Parent = ModifyWindow
  156. OK.BackgroundColor3 = Color3.new(0, 1, 0)
  157. OK.Position = UDim2.new(0, 0, 1, 0)
  158. OK.Size = UDim2.new(0, 154, 0, 50)
  159. OK.Font = Enum.Font.SourceSans
  160. OK.Text = "OK"
  161. OK.TextScaled = true
  162. OK.TextSize = 14
  163. OK.TextWrapped = true
  164.  
  165. Cancel.Name = "Cancel"
  166. Cancel.Parent = ModifyWindow
  167. Cancel.BackgroundColor3 = Color3.new(1, 0, 0)
  168. Cancel.Position = UDim2.new(0.516778529, 0, 1, 0)
  169. Cancel.Size = UDim2.new(0, 144, 0, 50)
  170. Cancel.Font = Enum.Font.SourceSans
  171. Cancel.Text = "Cancel"
  172. Cancel.TextScaled = true
  173. Cancel.TextSize = 14
  174. Cancel.TextWrapped = true
  175.  
  176. TeamSpamGui.Name = "TeamSpamGui"
  177. TeamSpamGui.Parent = KilledLeBoat
  178. TeamSpamGui.Active = true
  179. TeamSpamGui.BackgroundColor3 = Color3.new(0.219608, 0.219608, 0.219608)
  180. TeamSpamGui.Draggable = true
  181. TeamSpamGui.Position = UDim2.new(0.387846977, 0, 0.379615963, 0)
  182. TeamSpamGui.Size = UDim2.new(0, 298, 0, 162)
  183. TeamSpamGui.Visible = false
  184.  
  185. Message_2.Name = "Message"
  186. Message_2.Parent = TeamSpamGui
  187. Message_2.BackgroundColor3 = Color3.new(1, 1, 1)
  188. Message_2.BackgroundTransparency = 1
  189. Message_2.Position = UDim2.new(0.0469798669, 0, 0.055555556, 0)
  190. Message_2.Size = UDim2.new(0, 261, 0, 76)
  191. Message_2.Font = Enum.Font.Arial
  192. Message_2.Text = "Team Spam"
  193. Message_2.TextColor3 = Color3.new(1, 1, 1)
  194. Message_2.TextScaled = true
  195. Message_2.TextSize = 14
  196. Message_2.TextWrapped = true
  197.  
  198. Start.Name = "Start"
  199. Start.Parent = TeamSpamGui
  200. Start.BackgroundColor3 = Color3.new(0, 1, 0)
  201. Start.Position = UDim2.new(0.0469798669, 0, 0.561728418, 0)
  202. Start.Size = UDim2.new(0, 116, 0, 50)
  203. Start.Font = Enum.Font.SourceSans
  204. Start.Text = "Start"
  205. Start.TextScaled = true
  206. Start.TextSize = 14
  207. Start.TextWrapped = true
  208.  
  209. Stop.Name = "Stop"
  210. Stop.Parent = TeamSpamGui
  211. Stop.BackgroundColor3 = Color3.new(1, 0, 0)
  212. Stop.Position = UDim2.new(0.557047009, 0, 0.561728418, 0)
  213. Stop.Size = UDim2.new(0, 123, 0, 50)
  214. Stop.Font = Enum.Font.SourceSans
  215. Stop.Text = "Stop"
  216. Stop.TextScaled = true
  217. Stop.TextSize = 14
  218. Stop.TextWrapped = true
  219.  
  220. Close.Name = "Close"
  221. Close.Parent = TeamSpamGui
  222. Close.BackgroundColor3 = Color3.new(1, 0, 0)
  223. Close.BorderSizePixel = 0
  224. Close.Position = UDim2.new(0.895973146, 0, 0, 0)
  225. Close.Size = UDim2.new(0, 31, 0, 31)
  226. Close.Font = Enum.Font.SourceSans
  227. Close.Text = "X"
  228. Close.TextScaled = true
  229. Close.TextSize = 14
  230. Close.TextWrapped = true
  231.  
  232.  
  233. local function tpchests()
  234. for _,v in next, workspace:GetChildren() do
  235. if v.Name == "ChestModel" then
  236. for _,vv in next, v:GetDescendants() do
  237. if vv:IsA("Part") then
  238. vv.Anchored = true
  239. vv.CanCollide = false
  240. end
  241. end
  242. v:SetPrimaryPartCFrame(plr.Character.HumanoidRootPart.CFrame)
  243. end
  244. end
  245. end
  246.  
  247. local function ws(speed)
  248. plr.Character:FindFirstChildOfClass("Humanoid").WalkSpeed = speed
  249. end
  250.  
  251. local function tp(target)
  252. plr.Character.HumanoidRootPart.CFrame = plrs[target].Character.HumanoidRootPart.CFrame
  253. end
  254.  
  255. local function teamspam(boo)
  256. _G.teamspam = boo
  257. print(boo)
  258. while wait() do
  259. if _G.teamspam == true then
  260. local Event = game:GetService("ReplicatedStorage").TeamManager.MakeTeam
  261. Event:FireServer()
  262. else
  263. break
  264. end
  265. end
  266. end
  267.  
  268. local function forceteam()
  269. for _,v in next, plrs:GetPlayers() do
  270. if v.Name ~= plr.Name then
  271. local A_1 = "Invite"
  272. local A_2 = v.Name
  273. local Event = game:GetService("ReplicatedStorage").TeamManager.InviteToTeam
  274. Event:FireServer(A_1, A_2)
  275.  
  276. local A_1 = "RequestAccepted"
  277. local A_2 = v.Name
  278. local Event = game:GetService("ReplicatedStorage").TeamManager.InviteToTeam
  279. Event:FireServer(A_1, A_2)
  280. end
  281. end
  282. end
  283.  
  284. local function tpplayers()
  285. for _,v in next, plrs:GetPlayers() do
  286. if v.Name ~= plr.Name then
  287. v.Character.HumanoidRootPart.Anchored = true
  288. v.Character.HumanoidRootPart.CanCollide = false
  289. v.Character.HumanoidRootPart.Transparency = 0
  290. v.Character.HumanoidRootPart.Position = plr.Character.HumanoidRootPart.Position
  291. end
  292. end
  293. end
  294.  
  295. WalkSpeed.MouseButton1Click:Connect(function()
  296. ModifyWindow.Visible = true
  297. Message.Text = "Please type a number."
  298. walkspeed = true
  299. end)
  300.  
  301. Teleport.MouseButton1Click:Connect(function()
  302. ModifyWindow.Visible = true
  303. Message.Text = "Please type a player."
  304. teleport = true
  305. end)
  306.  
  307. ChestTp.MouseButton1Click:Connect(function()
  308. tpchests()
  309. end)
  310.  
  311. TeamSpam.MouseButton1Click:Connect(function()
  312. TeamSpamGui.Visible = true
  313. end)
  314.  
  315. Start.MouseButton1Click:Connect(function()
  316. teamspam(true)
  317. end)
  318.  
  319. Stop.MouseButton1Click:Connect(function()
  320. teamspam(false)
  321. end)
  322.  
  323. Close.MouseButton1Click:Connect(function()
  324. TeamSpamGui.Visible = false
  325. end)
  326.  
  327. Farm.MouseButton1Click:Connect(function()
  328. tpplayers()
  329. end)
  330.  
  331. ForceTeam.MouseButton1Click:Connect(function()
  332. forceteam()
  333. end)
  334.  
  335. OK.MouseButton1Click:Connect(function()
  336. if teleport == true then
  337. tp(Input.Text)
  338. ModifyWindow.Visible = false
  339. teleport = false
  340. elseif walkspeed == true then
  341. ws(Input.Text)
  342. ModifyWindow.Visible = false
  343. walkspeed = false
  344. end
  345. end)
  346. Cancel.MouseButton1Click:Connect(function()
  347. ModifyWindow.Visible = false
  348. walkspeed = false
  349. teleport = false
  350. end)
Add Comment
Please, Sign In to add comment