zXzGamePROzXz

Sharked

Mar 24th, 2019
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.96 KB | None | 0 0
  1. --//--DETECTION--\\--
  2.  
  3. if game.CoreGui:FindFirstChild("Harked")then
  4. game.CoreGui.Harked:Destroy()
  5. end
  6.  
  7. --//--INSTANCES--\\--
  8.  
  9. Harked = Instance.new("ScreenGui", game.CoreGui)
  10. Main = Instance.new("Frame", Harked)
  11. Text = Instance.new("TextLabel", Main)
  12. Credits = Instance.new("TextLabel", Main)
  13. Nuke = Instance.new("TextButton", Main)
  14. Btools = Instance.new("TextButton", Main)
  15. Bald = Instance.new("TextButton", Main)
  16. Jump = Instance.new("TextButton", Main)
  17. Freeze = Instance.new("TextButton", Main)
  18. Thaw = Instance.new("TextButton", Main)
  19. Username = Instance.new("TextBox", Main)
  20. Music = Instance.new("TextButton", Main)
  21. Sink = Instance.new("TextButton", Main)
  22. Close = Instance.new("TextButton", Main)
  23. Minimize = Instance.new("TextButton", Main)
  24. Detect = Instance.new("TextLabel", Main)
  25. Detect_Close = Instance.new("TextButton", Main)
  26. Animation = Instance.new("TextLabel", Harked)
  27. Open = Instance.new("TextButton", Harked)
  28. Blur = Instance.new("BlurEffect", workspace.CurrentCamera)
  29.  
  30. --//--PROPERTIES--\\--
  31.  
  32. Harked.Name = "Harked"
  33.  
  34. Main.Name = "Main"
  35. Main.Active = true
  36. Main.Draggable = true
  37. Main.Selectable = true
  38. Main.BackgroundColor3 = Color3.new(0, 0, 0)
  39. Main.BackgroundTransparency = 0.30000001192093
  40. Main.BorderSizePixel = 0
  41. Main.Position = UDim2.new(0.370000005, 0, 1, 30)
  42. Main.Size = UDim2.new(0, 421, 0, 423)
  43. Main.Visible = false
  44.  
  45. Text.Name = "Text"
  46. Text.BackgroundColor3 = Color3.new(1, 1, 1)
  47. Text.BackgroundTransparency = 1
  48. Text.Position = UDim2.new(0.262580276, 0, -0.00117581896, 0)
  49. Text.Size = UDim2.new(0, 200, 0, 50)
  50. Text.Font = Enum.Font.SourceSansLight
  51. Text.Text = "Sharked"
  52. Text.TextColor3 = Color3.new(1, 1, 1)
  53. Text.TextScaled = true
  54. Text.TextSize = 20
  55. Text.TextWrapped = true
  56.  
  57. Credits.Name = "Credits"
  58. Credits.BackgroundColor3 = Color3.new(1, 1, 1)
  59. Credits.BackgroundTransparency = 1
  60. Credits.Position = UDim2.new(-0.0213776845, 0, 0.118680432, 0)
  61. Credits.Size = UDim2.new(0, 440, 0, 50)
  62. Credits.Font = Enum.Font.SourceSansLight
  63. Credits.Text = "Commands/Script by almighty loaf, GUI by BaconExploitz"
  64. Credits.TextColor3 = Color3.new(1, 1, 1)
  65. Credits.TextSize = 20
  66.  
  67. Nuke.Name = "Nuke"
  68. Nuke.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  69. Nuke.BackgroundTransparency = 0.75
  70. Nuke.BorderSizePixel = 0
  71. Nuke.Position = UDim2.new(0.033254154, 0, 0.226795703, 0)
  72. Nuke.Size = UDim2.new(0, 186, 0, 50)
  73. Nuke.Font = Enum.Font.SourceSansSemibold
  74. Nuke.Text = "Nuke"
  75. Nuke.TextColor3 = Color3.new(1, 1, 1)
  76. Nuke.TextSize = 20
  77.  
  78. Btools.Name = "Btools"
  79. Btools.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  80. Btools.BackgroundTransparency = 0.75
  81. Btools.BorderSizePixel = 0
  82. Btools.Position = UDim2.new(0.52494067, 0, 0.226795703, 0)
  83. Btools.Size = UDim2.new(0, 186, 0, 50)
  84. Btools.Font = Enum.Font.SourceSansSemibold
  85. Btools.Text = "Btools"
  86. Btools.TextColor3 = Color3.new(1, 1, 1)
  87. Btools.TextSize = 20
  88.  
  89. Bald.Name = "Bald"
  90. Bald.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  91. Bald.BackgroundTransparency = 0.75
  92. Bald.BorderSizePixel = 0
  93. Bald.Position = UDim2.new(0.033254154, 0, 0.36549598, 0)
  94. Bald.Size = UDim2.new(0, 186, 0, 50)
  95. Bald.Font = Enum.Font.SourceSansSemibold
  96. Bald.Text = "Remove Hats"
  97. Bald.TextColor3 = Color3.new(1, 1, 1)
  98. Bald.TextSize = 20
  99.  
  100. Jump.Name = "Jump"
  101. Jump.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  102. Jump.BackgroundTransparency = 0.75
  103. Jump.BorderSizePixel = 0
  104. Jump.Position = UDim2.new(0.52494061, 0, 0.36549598, 0)
  105. Jump.Size = UDim2.new(0, 186, 0, 50)
  106. Jump.Font = Enum.Font.SourceSansSemibold
  107. Jump.Text = "Jump"
  108. Jump.TextColor3 = Color3.new(1, 1, 1)
  109. Jump.TextSize = 20
  110.  
  111. Freeze.Name = "Freeze"
  112. Freeze.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  113. Freeze.BackgroundTransparency = 0.75
  114. Freeze.BorderSizePixel = 0
  115. Freeze.Position = UDim2.new(0.033254154, 0, 0.507290006, 0)
  116. Freeze.Size = UDim2.new(0, 186, 0, 50)
  117. Freeze.Font = Enum.Font.SourceSansSemibold
  118. Freeze.Text = "Freeze"
  119. Freeze.TextColor3 = Color3.new(1, 1, 1)
  120. Freeze.TextSize = 20
  121.  
  122. Thaw.Name = "Thaw"
  123. Thaw.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  124. Thaw.BackgroundTransparency = 0.75
  125. Thaw.BorderSizePixel = 0
  126. Thaw.Position = UDim2.new(0.52494061, 0, 0.507290065, 0)
  127. Thaw.Size = UDim2.new(0, 186, 0, 50)
  128. Thaw.Font = Enum.Font.SourceSansSemibold
  129. Thaw.Text = "Thaw"
  130. Thaw.TextColor3 = Color3.new(1, 1, 1)
  131. Thaw.TextSize = 20
  132.  
  133. Username.Name = "Username"
  134. Username.BackgroundColor3 = Color3.new(1, 1, 1)
  135. Username.BackgroundTransparency = 0.80000001192093
  136. Username.BorderSizePixel = 0
  137. Username.Position = UDim2.new(0.0332541578, 0, 0.820330977, 0)
  138. Username.Size = UDim2.new(0, 393, 0, 56)
  139. Username.Font = Enum.Font.SourceSansSemibold
  140. Username.PlaceholderColor3 = Color3.new(1, 1, 1)
  141. Username.Text = "Username"
  142. Username.TextColor3 = Color3.new(1, 1, 1)
  143. Username.TextSize = 20
  144.  
  145. Music.Name = "Music"
  146. Music.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  147. Music.BackgroundTransparency = 0.75
  148. Music.BorderSizePixel = 0
  149. Music.Position = UDim2.new(0.033254154, 0, 0.65524596, 0)
  150. Music.Size = UDim2.new(0, 186, 0, 50)
  151. Music.Font = Enum.Font.SourceSansSemibold
  152. Music.Text = "Play Sound"
  153. Music.TextColor3 = Color3.new(1, 1, 1)
  154. Music.TextSize = 20
  155.  
  156. Sink.Name = "Sink"
  157. Sink.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  158. Sink.BackgroundTransparency = 0.75
  159. Sink.BorderSizePixel = 0
  160. Sink.Position = UDim2.new(0.52494061, 0, 0.65524596, 0)
  161. Sink.Size = UDim2.new(0, 186, 0, 50)
  162. Sink.Font = Enum.Font.SourceSansSemibold
  163. Sink.Text = "Sink"
  164. Sink.TextColor3 = Color3.new(1, 1, 1)
  165. Sink.TextSize = 20
  166.  
  167. Close.Name = "Close"
  168. Close.BackgroundColor3 = Color3.new(0, 0, 0)
  169. Close.BackgroundTransparency = 1
  170. Close.Position = UDim2.new(0.947743475, 0, 0, 0)
  171. Close.Size = UDim2.new(0, 22, 0, 23)
  172. Close.Font = Enum.Font.Arcade
  173. Close.Text = "X"
  174. Close.TextColor3 = Color3.new(1, 1, 1)
  175. Close.TextSize = 14
  176.  
  177. Minimize.Name = "Minimize"
  178. Minimize.BackgroundColor3 = Color3.new(0, 0, 0)
  179. Minimize.BackgroundTransparency = 1
  180. Minimize.Position = UDim2.new(0.895486951, 0, 0, 0)
  181. Minimize.Size = UDim2.new(0, 22, 0, 23)
  182. Minimize.Font = Enum.Font.Arcade
  183. Minimize.Text = "_"
  184. Minimize.TextColor3 = Color3.new(1, 1, 1)
  185. Minimize.TextSize = 14
  186.  
  187. Detect.Name = "Detect"
  188. Detect.BackgroundColor3 = Color3.new(1, 1, 1)
  189. Detect.BackgroundTransparency = 1
  190. Detect.Position = UDim2.new(0.0332541578, 0, 0.261229306, 0)
  191. Detect.Size = UDim2.new(0, 393, 0, 202)
  192. Detect.Visible = false
  193. Detect.Font = Enum.Font.SourceSansSemibold
  194. Detect.Text = "Sharked has detected that neither you nor anyone else in the game owns the Segway gamepass or the game doesn't support the GUI, Sharked will automatically close after a while,"
  195. Detect.TextColor3 = Color3.new(1, 1, 1)
  196. Detect.TextScaled = true
  197. Detect.TextSize = 14
  198. Detect.TextWrapped = true
  199. Detect.Visible = false
  200.  
  201. Detect_Close.Name = "Detect_Close"
  202. Detect_Close.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
  203. Detect_Close.BackgroundTransparency = 0.75
  204. Detect_Close.BorderSizePixel = 0
  205. Detect_Close.Position = UDim2.new(0.261282653, 0, 0.796690345, 0)
  206. Detect_Close.Size = UDim2.new(0, 200, 0, 50)
  207. Detect_Close.Visible = false
  208. Detect_Close.Font = Enum.Font.SourceSansSemibold
  209. Detect_Close.Text = "Close"
  210. Detect_Close.TextColor3 = Color3.new(1, 1, 1)
  211. Detect_Close.TextSize = 20
  212. Detect_Close.Visible = false
  213.  
  214. Animation.Name = "Animation"
  215. Animation.BackgroundColor3 = Color3.new(1, 1, 1)
  216. Animation.BackgroundTransparency = 1
  217. Animation.BorderSizePixel = 0
  218. Animation.Position = UDim2.new(0.375, 0,-0.166, 0)
  219. Animation.Size = UDim2.new(0, 472, 0, 118)
  220. Animation.Font = Enum.Font.SourceSansBold
  221. Animation.Text = "Sharked"
  222. Animation.TextColor3 = Color3.new(1, 1, 1)
  223. Animation.TextScaled = true
  224. Animation.TextSize = 14
  225. Animation.TextWrapped = true
  226.  
  227. Open.Name = "Open"
  228. Open.BackgroundColor3 = Color3.new(0, 0, 0)
  229. Open.BackgroundTransparency = 0.30000001192093
  230. Open.Position = UDim2.new(0, 0, 0.466197193, 0)
  231. Open.Size = UDim2.new(0, 108, 0, 58)
  232. Open.Visible = false
  233. Open.Font = Enum.Font.SourceSansBold
  234. Open.Text = "Open"
  235. Open.TextColor3 = Color3.new(1, 1, 1)
  236. Open.TextSize = 20
  237.  
  238. Blur.Name = "Sharked Blur Animation"
  239. Blur.Size = 0
  240.  
  241. --//--ANIMATION/FUNCTIONS\\--
  242.  
  243. function SyncRemote()
  244. for Idx, Val in next, game:GetDescendants() do
  245. if (Val:IsA('RemoteEvent') and Val.Name == 'AnchorSegway' and not Val:IsDescendantOf(game:GetService('Lighting'))) then
  246. AnchorRem = Val
  247. if AnchorRem == nil then
  248. game:GetService("Players").LocalPlayer:Kick("Remote hasn't been found,")
  249. end
  250. end
  251. end
  252. end
  253.  
  254. Animation:TweenPosition(UDim2.new(0.375, 0,0.417, 0), 'In', 'Quad', 2)
  255. repeat
  256. Blur.Size = Blur.Size + 1
  257. wait(.1)
  258. until Blur.Size == 30
  259. Animation:TweenPosition(UDim2.new(0.375, 0,1, 0), 'Out', 'Quad', 2)
  260. repeat
  261. Blur.Size = Blur.Size - 1
  262. wait(.1)
  263. until Blur.Size == 0
  264. wait(.5)
  265. Animation:Destroy()
  266. Blur:Destroy()
  267. SyncRemote()
  268. if AnchorRem == nil then
  269. Main.Visible = true
  270. Detect.Visible = true
  271. else
  272. Main.Visible = true
  273. end
  274. Main:TweenPosition(UDim2.new(0.385, 0, 0.385, 0), 'In', 'Quart', 1)
  275.  
  276. --//--REAL SCRIPTING--\\--
  277.  
  278. Nuke.MouseButton1Down:connect(function()
  279.  
  280. SyncRemote()
  281.  
  282. for i,v in pairs(game.Workspace:GetChildren()) do
  283. AnchorRem:FireServer(v, false)
  284. end
  285. end)
  286.  
  287. Btools.MouseButton1Click:connect(function()
  288.  
  289. SyncRemote()
  290.  
  291. -- Variables
  292.  
  293. RunService = game:GetService('RunService')
  294. Player = game:GetService('Players').LocalPlayer
  295. Mouse = Player:GetMouse()
  296. Tool = Instance.new('Tool')
  297. Box = Instance.new('SelectionBox')
  298. Equipped = false
  299.  
  300. -- Actual Scripting
  301.  
  302. Tool.Parent = Player.Backpack
  303. Tool.RequiresHandle = false
  304. Tool.Name = 'Btools'
  305. Tool.TextureId = 'http://www.roblox.com/asset/?id=12223874'
  306.  
  307. Box.Parent = workspace
  308. Box.LineThickness = 0.1
  309.  
  310. Tool.Equipped:Connect(function()
  311. Equipped = true
  312.  
  313. while Equipped do
  314. local Target = Mouse.Target
  315.  
  316. if Target then
  317. Box.Adornee = Target
  318.  
  319. -- Checks if it's anchored or not,
  320.  
  321. if Target.Anchored then
  322. Box.Color3 = Color3.fromRGB(0, 255, 0)
  323. else
  324. Box.Color3 = Color3.fromRGB(255, 0, 0)
  325. end
  326.  
  327. -- If it isn't equipped then,
  328. else
  329. Box.Adornee = nil
  330. end
  331.  
  332. RunService.Heartbeat:wait()
  333.  
  334. end
  335. end)
  336.  
  337. Tool.Unequipped:Connect(function()
  338. Equipped = false
  339. Box.Adornee = nil
  340. end)
  341.  
  342. Tool.Activated:Connect(function()
  343. local Target = Mouse.Target
  344. if Target then
  345.  
  346. if Target.Anchored == false then
  347. print("Found unanchored object.")
  348.  
  349. end
  350. end
  351.  
  352. -- This is the part which makes it actually anchor,
  353.  
  354. if Target.CanCollide == false then
  355. Target.CanCollide = true
  356. end
  357.  
  358. while wait() do
  359.  
  360. while wait() do
  361. Anchor:FireServer(Target, false)
  362.  
  363. while wait() do
  364. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  365. end
  366.  
  367. Anchor:FireServer(Target, true)
  368. while wait() do
  369. Target.Velocity = Vector3.new(0, 99999999999999999999999999999999999999999999999999, 0)
  370. end
  371. end
  372.  
  373. while wait() do
  374. Anchor:FireServer(Target, false)
  375. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  376. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  377. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  378. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  379. Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
  380. end
  381. end
  382. end)
  383. end)
  384.  
  385. Sink.MouseButton1Down:connect(function()
  386.  
  387. if Username.Text == "all" or Username.Text == "All"
  388.  
  389. then
  390.  
  391. SyncRemote()
  392.  
  393. for i,v in pairs(game.Players:GetChildren()) do
  394. AnchorRem:FireServer(v.Character.Humanoid, true, true, true)
  395. end
  396.  
  397.  
  398. else
  399.  
  400. SyncRemote()
  401.  
  402. Name = Username.Text
  403.  
  404. AnchorRem:FireServer(game.Players[Name].Character.Humanoid, true, true, true)
  405.  
  406. end
  407. end)
  408.  
  409. Jump.MouseButton1Down:connect(function()
  410.  
  411. if Username.Text == "all" or Username.Text == "All"
  412.  
  413. then
  414.  
  415. SyncRemote()
  416.  
  417. for i,v in pairs(game.Players:GetChildren()) do
  418. AnchorRem:FireServer(v.Character.Humanoid, false, true, true)
  419. end
  420.  
  421.  
  422. else
  423.  
  424. SyncRemote()
  425.  
  426. Name = Username.Text
  427.  
  428. AnchorRem:FireServer(game.Players[Name].Character.Humanoid, false, true, true)
  429.  
  430. end
  431. end)
  432.  
  433. Thaw.MouseButton1Down:connect(function()
  434. if Username.Text == "all" or Username.Text == "All"
  435.  
  436. then
  437.  
  438. SyncRemote()
  439.  
  440. for i,v in pairs(game.Players:GetChildren()) do
  441.  
  442. AnchorRem:FireServer(v.Character.Torso, false)
  443.  
  444. end
  445.  
  446. else
  447.  
  448. SyncRemote()
  449.  
  450. Name = Username.Text
  451.  
  452. AnchorRem:FireServer(game.Players[Name].Character.Torso, false)
  453.  
  454. end
  455. end)
  456.  
  457.  
  458. Freeze.MouseButton1Down:connect(function()
  459. if Username.Text == "all" or Username.Text == "All"
  460.  
  461. then
  462.  
  463. SyncRemote()
  464.  
  465. for i,v in pairs(game.Players:GetChildren()) do
  466.  
  467. AnchorRem:FireServer(v.Character.Torso, true)
  468.  
  469. end
  470.  
  471. else
  472.  
  473. SyncRemote()
  474.  
  475. Name = Username.Text
  476.  
  477. AnchorRem:FireServer(game.Players[Name].Character.Torso,true)
  478.  
  479. end
  480. end)
Add Comment
Please, Sign In to add comment