Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --//--DETECTION--\\--
- if game.CoreGui:FindFirstChild("Harked")then
- game.CoreGui.Harked:Destroy()
- end
- --//--INSTANCES--\\--
- Harked = Instance.new("ScreenGui", game.CoreGui)
- Main = Instance.new("Frame", Harked)
- Text = Instance.new("TextLabel", Main)
- Credits = Instance.new("TextLabel", Main)
- Nuke = Instance.new("TextButton", Main)
- Btools = Instance.new("TextButton", Main)
- Bald = Instance.new("TextButton", Main)
- Jump = Instance.new("TextButton", Main)
- Freeze = Instance.new("TextButton", Main)
- Thaw = Instance.new("TextButton", Main)
- Username = Instance.new("TextBox", Main)
- Music = Instance.new("TextButton", Main)
- Sink = Instance.new("TextButton", Main)
- Close = Instance.new("TextButton", Main)
- Minimize = Instance.new("TextButton", Main)
- Detect = Instance.new("TextLabel", Main)
- Detect_Close = Instance.new("TextButton", Main)
- Animation = Instance.new("TextLabel", Harked)
- Open = Instance.new("TextButton", Harked)
- Blur = Instance.new("BlurEffect", workspace.CurrentCamera)
- --//--PROPERTIES--\\--
- Harked.Name = "Harked"
- Main.Name = "Main"
- Main.Active = true
- Main.Draggable = true
- Main.Selectable = true
- Main.BackgroundColor3 = Color3.new(0, 0, 0)
- Main.BackgroundTransparency = 0.30000001192093
- Main.BorderSizePixel = 0
- Main.Position = UDim2.new(0.370000005, 0, 1, 30)
- Main.Size = UDim2.new(0, 421, 0, 423)
- Main.Visible = false
- Text.Name = "Text"
- Text.BackgroundColor3 = Color3.new(1, 1, 1)
- Text.BackgroundTransparency = 1
- Text.Position = UDim2.new(0.262580276, 0, -0.00117581896, 0)
- Text.Size = UDim2.new(0, 200, 0, 50)
- Text.Font = Enum.Font.SourceSansLight
- Text.Text = "Sharked"
- Text.TextColor3 = Color3.new(1, 1, 1)
- Text.TextScaled = true
- Text.TextSize = 20
- Text.TextWrapped = true
- Credits.Name = "Credits"
- Credits.BackgroundColor3 = Color3.new(1, 1, 1)
- Credits.BackgroundTransparency = 1
- Credits.Position = UDim2.new(-0.0213776845, 0, 0.118680432, 0)
- Credits.Size = UDim2.new(0, 440, 0, 50)
- Credits.Font = Enum.Font.SourceSansLight
- Credits.Text = "Commands/Script by almighty loaf, GUI by BaconExploitz"
- Credits.TextColor3 = Color3.new(1, 1, 1)
- Credits.TextSize = 20
- Nuke.Name = "Nuke"
- Nuke.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Nuke.BackgroundTransparency = 0.75
- Nuke.BorderSizePixel = 0
- Nuke.Position = UDim2.new(0.033254154, 0, 0.226795703, 0)
- Nuke.Size = UDim2.new(0, 186, 0, 50)
- Nuke.Font = Enum.Font.SourceSansSemibold
- Nuke.Text = "Nuke"
- Nuke.TextColor3 = Color3.new(1, 1, 1)
- Nuke.TextSize = 20
- Btools.Name = "Btools"
- Btools.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Btools.BackgroundTransparency = 0.75
- Btools.BorderSizePixel = 0
- Btools.Position = UDim2.new(0.52494067, 0, 0.226795703, 0)
- Btools.Size = UDim2.new(0, 186, 0, 50)
- Btools.Font = Enum.Font.SourceSansSemibold
- Btools.Text = "Btools"
- Btools.TextColor3 = Color3.new(1, 1, 1)
- Btools.TextSize = 20
- Bald.Name = "Bald"
- Bald.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Bald.BackgroundTransparency = 0.75
- Bald.BorderSizePixel = 0
- Bald.Position = UDim2.new(0.033254154, 0, 0.36549598, 0)
- Bald.Size = UDim2.new(0, 186, 0, 50)
- Bald.Font = Enum.Font.SourceSansSemibold
- Bald.Text = "Remove Hats"
- Bald.TextColor3 = Color3.new(1, 1, 1)
- Bald.TextSize = 20
- Jump.Name = "Jump"
- Jump.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Jump.BackgroundTransparency = 0.75
- Jump.BorderSizePixel = 0
- Jump.Position = UDim2.new(0.52494061, 0, 0.36549598, 0)
- Jump.Size = UDim2.new(0, 186, 0, 50)
- Jump.Font = Enum.Font.SourceSansSemibold
- Jump.Text = "Jump"
- Jump.TextColor3 = Color3.new(1, 1, 1)
- Jump.TextSize = 20
- Freeze.Name = "Freeze"
- Freeze.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Freeze.BackgroundTransparency = 0.75
- Freeze.BorderSizePixel = 0
- Freeze.Position = UDim2.new(0.033254154, 0, 0.507290006, 0)
- Freeze.Size = UDim2.new(0, 186, 0, 50)
- Freeze.Font = Enum.Font.SourceSansSemibold
- Freeze.Text = "Freeze"
- Freeze.TextColor3 = Color3.new(1, 1, 1)
- Freeze.TextSize = 20
- Thaw.Name = "Thaw"
- Thaw.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Thaw.BackgroundTransparency = 0.75
- Thaw.BorderSizePixel = 0
- Thaw.Position = UDim2.new(0.52494061, 0, 0.507290065, 0)
- Thaw.Size = UDim2.new(0, 186, 0, 50)
- Thaw.Font = Enum.Font.SourceSansSemibold
- Thaw.Text = "Thaw"
- Thaw.TextColor3 = Color3.new(1, 1, 1)
- Thaw.TextSize = 20
- Username.Name = "Username"
- Username.BackgroundColor3 = Color3.new(1, 1, 1)
- Username.BackgroundTransparency = 0.80000001192093
- Username.BorderSizePixel = 0
- Username.Position = UDim2.new(0.0332541578, 0, 0.820330977, 0)
- Username.Size = UDim2.new(0, 393, 0, 56)
- Username.Font = Enum.Font.SourceSansSemibold
- Username.PlaceholderColor3 = Color3.new(1, 1, 1)
- Username.Text = "Username"
- Username.TextColor3 = Color3.new(1, 1, 1)
- Username.TextSize = 20
- Music.Name = "Music"
- Music.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Music.BackgroundTransparency = 0.75
- Music.BorderSizePixel = 0
- Music.Position = UDim2.new(0.033254154, 0, 0.65524596, 0)
- Music.Size = UDim2.new(0, 186, 0, 50)
- Music.Font = Enum.Font.SourceSansSemibold
- Music.Text = "Play Sound"
- Music.TextColor3 = Color3.new(1, 1, 1)
- Music.TextSize = 20
- Sink.Name = "Sink"
- Sink.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Sink.BackgroundTransparency = 0.75
- Sink.BorderSizePixel = 0
- Sink.Position = UDim2.new(0.52494061, 0, 0.65524596, 0)
- Sink.Size = UDim2.new(0, 186, 0, 50)
- Sink.Font = Enum.Font.SourceSansSemibold
- Sink.Text = "Sink"
- Sink.TextColor3 = Color3.new(1, 1, 1)
- Sink.TextSize = 20
- Close.Name = "Close"
- Close.BackgroundColor3 = Color3.new(0, 0, 0)
- Close.BackgroundTransparency = 1
- Close.Position = UDim2.new(0.947743475, 0, 0, 0)
- Close.Size = UDim2.new(0, 22, 0, 23)
- Close.Font = Enum.Font.Arcade
- Close.Text = "X"
- Close.TextColor3 = Color3.new(1, 1, 1)
- Close.TextSize = 14
- Minimize.Name = "Minimize"
- Minimize.BackgroundColor3 = Color3.new(0, 0, 0)
- Minimize.BackgroundTransparency = 1
- Minimize.Position = UDim2.new(0.895486951, 0, 0, 0)
- Minimize.Size = UDim2.new(0, 22, 0, 23)
- Minimize.Font = Enum.Font.Arcade
- Minimize.Text = "_"
- Minimize.TextColor3 = Color3.new(1, 1, 1)
- Minimize.TextSize = 14
- Detect.Name = "Detect"
- Detect.BackgroundColor3 = Color3.new(1, 1, 1)
- Detect.BackgroundTransparency = 1
- Detect.Position = UDim2.new(0.0332541578, 0, 0.261229306, 0)
- Detect.Size = UDim2.new(0, 393, 0, 202)
- Detect.Visible = false
- Detect.Font = Enum.Font.SourceSansSemibold
- 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,"
- Detect.TextColor3 = Color3.new(1, 1, 1)
- Detect.TextScaled = true
- Detect.TextSize = 14
- Detect.TextWrapped = true
- Detect.Visible = false
- Detect_Close.Name = "Detect_Close"
- Detect_Close.BackgroundColor3 = Color3.new(0.784314, 0.784314, 0.784314)
- Detect_Close.BackgroundTransparency = 0.75
- Detect_Close.BorderSizePixel = 0
- Detect_Close.Position = UDim2.new(0.261282653, 0, 0.796690345, 0)
- Detect_Close.Size = UDim2.new(0, 200, 0, 50)
- Detect_Close.Visible = false
- Detect_Close.Font = Enum.Font.SourceSansSemibold
- Detect_Close.Text = "Close"
- Detect_Close.TextColor3 = Color3.new(1, 1, 1)
- Detect_Close.TextSize = 20
- Detect_Close.Visible = false
- Animation.Name = "Animation"
- Animation.BackgroundColor3 = Color3.new(1, 1, 1)
- Animation.BackgroundTransparency = 1
- Animation.BorderSizePixel = 0
- Animation.Position = UDim2.new(0.375, 0,-0.166, 0)
- Animation.Size = UDim2.new(0, 472, 0, 118)
- Animation.Font = Enum.Font.SourceSansBold
- Animation.Text = "Sharked"
- Animation.TextColor3 = Color3.new(1, 1, 1)
- Animation.TextScaled = true
- Animation.TextSize = 14
- Animation.TextWrapped = true
- Open.Name = "Open"
- Open.BackgroundColor3 = Color3.new(0, 0, 0)
- Open.BackgroundTransparency = 0.30000001192093
- Open.Position = UDim2.new(0, 0, 0.466197193, 0)
- Open.Size = UDim2.new(0, 108, 0, 58)
- Open.Visible = false
- Open.Font = Enum.Font.SourceSansBold
- Open.Text = "Open"
- Open.TextColor3 = Color3.new(1, 1, 1)
- Open.TextSize = 20
- Blur.Name = "Sharked Blur Animation"
- Blur.Size = 0
- --//--ANIMATION/FUNCTIONS\\--
- function SyncRemote()
- for Idx, Val in next, game:GetDescendants() do
- if (Val:IsA('RemoteEvent') and Val.Name == 'AnchorSegway' and not Val:IsDescendantOf(game:GetService('Lighting'))) then
- AnchorRem = Val
- if AnchorRem == nil then
- game:GetService("Players").LocalPlayer:Kick("Remote hasn't been found,")
- end
- end
- end
- end
- Animation:TweenPosition(UDim2.new(0.375, 0,0.417, 0), 'In', 'Quad', 2)
- repeat
- Blur.Size = Blur.Size + 1
- wait(.1)
- until Blur.Size == 30
- Animation:TweenPosition(UDim2.new(0.375, 0,1, 0), 'Out', 'Quad', 2)
- repeat
- Blur.Size = Blur.Size - 1
- wait(.1)
- until Blur.Size == 0
- wait(.5)
- Animation:Destroy()
- Blur:Destroy()
- SyncRemote()
- if AnchorRem == nil then
- Main.Visible = true
- Detect.Visible = true
- else
- Main.Visible = true
- end
- Main:TweenPosition(UDim2.new(0.385, 0, 0.385, 0), 'In', 'Quart', 1)
- --//--REAL SCRIPTING--\\--
- Nuke.MouseButton1Down:connect(function()
- SyncRemote()
- for i,v in pairs(game.Workspace:GetChildren()) do
- AnchorRem:FireServer(v, false)
- end
- end)
- Btools.MouseButton1Click:connect(function()
- SyncRemote()
- -- Variables
- RunService = game:GetService('RunService')
- Player = game:GetService('Players').LocalPlayer
- Mouse = Player:GetMouse()
- Tool = Instance.new('Tool')
- Box = Instance.new('SelectionBox')
- Equipped = false
- -- Actual Scripting
- Tool.Parent = Player.Backpack
- Tool.RequiresHandle = false
- Tool.Name = 'Btools'
- Tool.TextureId = 'http://www.roblox.com/asset/?id=12223874'
- Box.Parent = workspace
- Box.LineThickness = 0.1
- Tool.Equipped:Connect(function()
- Equipped = true
- while Equipped do
- local Target = Mouse.Target
- if Target then
- Box.Adornee = Target
- -- Checks if it's anchored or not,
- if Target.Anchored then
- Box.Color3 = Color3.fromRGB(0, 255, 0)
- else
- Box.Color3 = Color3.fromRGB(255, 0, 0)
- end
- -- If it isn't equipped then,
- else
- Box.Adornee = nil
- end
- RunService.Heartbeat:wait()
- end
- end)
- Tool.Unequipped:Connect(function()
- Equipped = false
- Box.Adornee = nil
- end)
- Tool.Activated:Connect(function()
- local Target = Mouse.Target
- if Target then
- if Target.Anchored == false then
- print("Found unanchored object.")
- end
- end
- -- This is the part which makes it actually anchor,
- if Target.CanCollide == false then
- Target.CanCollide = true
- end
- while wait() do
- while wait() do
- Anchor:FireServer(Target, false)
- while wait() do
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- end
- Anchor:FireServer(Target, true)
- while wait() do
- Target.Velocity = Vector3.new(0, 99999999999999999999999999999999999999999999999999, 0)
- end
- end
- while wait() do
- Anchor:FireServer(Target, false)
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- Target.Velocity = Vector3.new(0, -99999999999999999999999999999999999999999999999999, 0)
- end
- end
- end)
- end)
- Sink.MouseButton1Down:connect(function()
- if Username.Text == "all" or Username.Text == "All"
- then
- SyncRemote()
- for i,v in pairs(game.Players:GetChildren()) do
- AnchorRem:FireServer(v.Character.Humanoid, true, true, true)
- end
- else
- SyncRemote()
- Name = Username.Text
- AnchorRem:FireServer(game.Players[Name].Character.Humanoid, true, true, true)
- end
- end)
- Jump.MouseButton1Down:connect(function()
- if Username.Text == "all" or Username.Text == "All"
- then
- SyncRemote()
- for i,v in pairs(game.Players:GetChildren()) do
- AnchorRem:FireServer(v.Character.Humanoid, false, true, true)
- end
- else
- SyncRemote()
- Name = Username.Text
- AnchorRem:FireServer(game.Players[Name].Character.Humanoid, false, true, true)
- end
- end)
- Thaw.MouseButton1Down:connect(function()
- if Username.Text == "all" or Username.Text == "All"
- then
- SyncRemote()
- for i,v in pairs(game.Players:GetChildren()) do
- AnchorRem:FireServer(v.Character.Torso, false)
- end
- else
- SyncRemote()
- Name = Username.Text
- AnchorRem:FireServer(game.Players[Name].Character.Torso, false)
- end
- end)
- Freeze.MouseButton1Down:connect(function()
- if Username.Text == "all" or Username.Text == "All"
- then
- SyncRemote()
- for i,v in pairs(game.Players:GetChildren()) do
- AnchorRem:FireServer(v.Character.Torso, true)
- end
- else
- SyncRemote()
- Name = Username.Text
- AnchorRem:FireServer(game.Players[Name].Character.Torso,true)
- end
- end)
Add Comment
Please, Sign In to add comment