Welcome to PasteFly.com - Free Online Notepad with Password Encryption

-->

Click to start New Paste

Title (optional)

Content

local AntiFlingGui = Instance.new("ScreenGui")
local AntiFlingButton = Instance.new("TextButton")

AntiFlingGui.Parent = game.CoreGui

AntiFlingButton.Parent = AntiFlingGui
AntiFlingButton.BackgroundColor3 = Color3.fromRGB(0,255,0)
AntiFlingButton.BackgroundTransparency = 0
AntiFlingButton.Position = UDim2.new(0.95,0,0.60)
AntiFlingButton.TextColor3 = Color3.new(0,0,0)
AntiFlingButton.Size = UDim2.new(0.025,0,0.05)
AntiFlingButton.Text = "On"
AntiFlingButton.TextScaled = true
AntiFlingButton.TextSize = 5
AntiFlingButton.TextWrapped = false
AntiFlingButton.Draggable = false

AntiFlingActivation = false
AntiFlingSwitch = false
AntiFlingButton.MouseButton1Click:connect(function()
if AntiFlingSwitch == false then
AntiFlingSwitch = true
AntiFlingButton.BackgroundColor3 = Color3.fromRGB(250,0,0)
AntiFlingButton.Text = "Off"
AntiFlingActivation = true
else
AntiFlingSwitch = false
AntiFlingButton.BackgroundColor3 = Color3.fromRGB(0,255,0)
AntiFlingButton.Text = "On"
AntiFlingActivation = false
end
end)

--AntiFling Operator
AntiFlingOperator = false
-- // Constants \\ --
-- [ Services ] --
local Services = setmetatable({}, {__index = function(Self, Index)
local NewService = game.GetService(game, Index)
if NewService then
Self[Index] = NewService
end
return NewService
end})

-- [ LocalPlayer ] --
local LocalPlayer = Services.Players.LocalPlayer

-- // Functions \\ --
local function PlayerAdded(Player)
   local Detected = false
   local Character;
   local PrimaryPart;

local function CharacterAdded(NewCharacter)
       Character = NewCharacter
       repeat
           wait()
           PrimaryPart = NewCharacter:FindFirstChild("HumanoidRootPart")
       until PrimaryPart
       Detected = false
   end

CharacterAdded(Player.Character or Player.CharacterAdded:Wait())
   Player.CharacterAdded:Connect(CharacterAdded)
   Services.RunService.Heartbeat:Connect(function()
if AntiFlingActivation == true then
AntiFlingOperator = false
       if (Character and Character:IsDescendantOf(workspace)) and (PrimaryPart and PrimaryPart:IsDescendantOf(Character)) then
           if PrimaryPart.AssemblyAngularVelocity.Magnitude > 50 or PrimaryPart.AssemblyLinearVelocity.Magnitude > 100 then
               if Detected == false then
                   
               end
               Detected = true
               for i,v in ipairs(Character:GetDescendants()) do
                   if v:IsA("BasePart") then
                       v.CanCollide = false
                       v.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
                       v.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
                       v.CustomPhysicalProperties = PhysicalProperties.new(0, 0, 0)
                   end
               end
               PrimaryPart.CanCollide = false
               PrimaryPart.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
               PrimaryPart.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
               PrimaryPart.CustomPhysicalProperties = PhysicalProperties.new(0, 0, 0)
           end
       end
else
if AntiFlingOperator == false then
AntiFlingOperator = true
Detected = false
PrimaryPart.CanCollide = true
    for i,v in ipairs(Character:GetDescendants()) do
         if v:IsA("BasePart") then
             v.CanCollide = true
         end
    end
end
end
   end)
end

-- // Event Listeners \\ --
for i,v in ipairs(Services.Players:GetPlayers()) do
   if v ~= LocalPlayer then
       PlayerAdded(v)
   end
end
Services.Players.PlayerAdded:Connect(PlayerAdded)

local LastPosition = nil
Services.RunService.Heartbeat:Connect(function()
if AntiFlingActivation == true then
   pcall(function()
       local PrimaryPart = LocalPlayer.Character.PrimaryPart
       if PrimaryPart.AssemblyLinearVelocity.Magnitude > 250 or PrimaryPart.AssemblyAngularVelocity.Magnitude > 250 then
           PrimaryPart.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
           PrimaryPart.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
           PrimaryPart.CFrame = LastPosition
       elseif PrimaryPart.AssemblyLinearVelocity.Magnitude < 50 or PrimaryPart.AssemblyAngularVelocity.Magnitude > 50 then
           LastPosition = PrimaryPart.CFrame
       end
   end)
end
end)

TextPs = 1
TextTransparency = 0
TransparencyOperator = false
getgenv().TextOperator = true
while getgenv().TextOperator == true do
if TextPs >= 0.8 then
TextPs -= 0.02
Text.Position = UDim2.new((TextPs),0,0.6)
else
if TransparencyOperator == false then
TransparencyOperator = true
wait(3)
end
wait(0.001)
TextTransparency += 0.1
Text.BackgroundTransparency = TextTransparency
if TextTransparency >= 1 then
TextGui:Destroy()
TextPs = 1
TextTransparency = 0
TransparencyOperator = false
getgenv().TextOperator = false
end
end
print()
game:GetService("RunService").Heartbeat:wait();
end;

Description (optional)

Tips: It is good practice to add Title and Description to your note.

Optional Paste Settings

Select folder or

Syntax Highlighting

Paste Expiration

Paste Status

Password

Our statistics

Create and share texts quickly and easily 🚀

4,836+

Total pastes

5,072,444+

Total views

2,952+

Registered users

Our features

Everything you need 😉

Pastes creation

Create multiple posts quickly and easily with our powerful editor.

Folders

Store your pastes in different folders with custom names.

Paste protection

Protect your pastes with password, encryption and captcha.

Multiple syntax languages

We have 150+ syntax languages for your codes.

URL monetization

Earn money by enabling url shorteners in your pastes.

Global settings

Configure each aspect of your pastes globally.

Recent Pastes

GTA SA Version 2-11-264
Plaintext | 17 | 3 hours ago
Dead Target Mod Menu Latest Version By AizenModder
Plaintext | 32 | 6 hours ago
What If... 2024 Season 3 Episode 1-4
Plaintext | 36 | 10 hours ago
Gladiator II 2024
Plaintext | 32 | 10 hours ago
The Order 2024
Plaintext | 17 | 10 hours ago
Werewolves 2024
Plaintext | 28 | 10 hours ago
Y2K 2024
Plaintext | 14 | 10 hours ago