Get the Fe Hat Giver

--https://v3rmillion.net/showthread.php?tid=1063479
--You do need to be wearing the hat yourself
local hatid = "HatIdHere"
local hatname = game:GetObjects("rbxassetid://".. hatid)[1].Name
local victimname = "VictimNameHere"

local plrs = game:GetService("Players")
local plr = plrs.LocalPlayer
local hat = plr.Character:FindFirstChild(hatname)
local hatc = hat:Clone()
hatc.Parent = plr.Character
local bp = Instance.new("BodyPosition", hat.Handle)
local victim = plrs:FindFirstChild(victimname)
local heartbeat = game:GetService("RunService").Heartbeat

hat.Handle.AccessoryWeld:Destroy()
hatc.Handle.Transparency = 1

if getgenv().netted then
 if getgenv().netted == false then
  spawn(function()
   plrs.PlayerAdded:Connect(function(player)
    player.MaximumSimulationRadius = 0.1;
    sethiddenproperty(player, "SimulationRadius", 0);
   end)
   
   for _,player in pairs(plrs:GetPlayers()) do
    if player ~= plr then
     player.MaximumSimulationRadius = 0.1;
     sethiddenproperty(player, "SimulationRadius", 0);
    end
   end
   
   while true do
    heartbeat:Wait();
    settings().Physics.AllowSleep = false;
    plr.MaximumSimulationRadius = math.huge;
    if setsimulationradius then
     setsimulationradius(math.huge);
    else
     sethiddenproperty(plr, "SimulationRadius", math.huge);
    end
   end
  end)
 end
else
 getgenv().netted = true
 spawn(function()
  plrs.PlayerAdded:Connect(function(player)
   player.MaximumSimulationRadius = 0.1;
   sethiddenproperty(player, "SimulationRadius", 0);
  end)
  
  for _,player in pairs(plrs:GetPlayers()) do
   if player ~= plr then
    player.MaximumSimulationRadius = 0.1;
    sethiddenproperty(player, "SimulationRadius", 0);
   end
  end
  
  while true do
   heartbeat:Wait();
   settings().Physics.AllowSleep = false;
   plr.MaximumSimulationRadius = math.huge;
   if setsimulationradius then
    setsimulationradius(math.huge);
   else
    sethiddenproperty(plr, "SimulationRadius", math.huge);
   end
  end
 end)
end

local function weld(attachment0, attachment1, part0)
 local weldpos = Instance.new("AlignPosition", part0)
 weldpos.Attachment0 = attachment0
 weldpos.Attachment1 = attachment1
 weldpos.RigidityEnabled = false
 weldpos.ReactionForceEnabled = false
 weldpos.ApplyAtCenterOfMass = false
 weldpos.MaxForce = 5000
 weldpos.MaxVelocity = 5000
 weldpos.Responsiveness = 200
 local weldrot = Instance.new("AlignOrientation", part0)
 weldrot.Attachment0 = attachment0
 weldrot.Attachment1 = attachment1
 weldrot.ReactionTorqueEnabled = true
 weldrot.PrimaryAxisOnly = false
 weldrot.MaxTorque = 1000
 weldrot.MaxAngularVelocity = 1000
 weldrot.Responsiveness = 200
end

local attname = hat.Handle:FindFirstChildOfClass("Attachment").Name

if victim.Character:FindFirstChildOfClass("Humanoid").RigType == Enum.HumanoidRigType.R6 then
 if victim.Character.Torso:FindFirstChild(attname) then
  hatc.Handle.AccessoryWeld.Part1 = victim.Character.Torso
 elseif victim.Character.Head:FindFirstChild(attname) then
  hatc.Handle.AccessoryWeld.Part1 = victim.Character.Head
 end
else
 if victim.Character.UpperTorso:FindFirstChild(attname) then
  hatc.Handle.AccessoryWeld.Part1 = victim.Character.UpperTorso
 elseif victim.Character.Head:FindFirstChild(attname) then
  hatc.Handle.AccessoryWeld.Part1 = victim.Character.Head
 end
end

bp.Position = hatc.Handle.Position
bp.D = 999999999999999
bp.P = 999999999999999999999999999999
bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)

spawn(function()
 repeat
  heartbeat:Wait()
  bp.Position = hatc.Handle.Position
  hat.Handle.Orientation = hatc.Handle.Orientation
 until (bp == nil)
end)

plr.CharacterRemoving:Connect(function()
 if (bp ~= nil) then
  bp = nil
 end
end)

plrs.PlayerRemoving:Connect(function(player)
 if player == victim then
  hatc:Destroy()
  hat:Destroy()
 end
end)

victim.CharacterAdded:Connect(function(chary)
 hatc.Handle.CanCollide = false
 hat.Handle.CanCollide = false
 repeat wait() until victim.Character:FindFirstChildOfClass("Humanoid")
 wait()
 local hum = victim.Character:FindFirstChildOfClass("Humanoid")
 if hum.RigType == Enum.HumanoidRigType.R6 then
  repeat wait() until chary:FindFirstChild("Head")
  repeat wait() until chary:FindFirstChild("Torso")
 else
  repeat wait() until chary:FindFirstChild("Head")
  repeat wait() until chary:FindFirstChild("UpperTorso")
 end
 hatc.Handle.Anchored = false
 if hum.RigType == Enum.HumanoidRigType.R6 then
  if victim.Character.Torso:FindFirstChild(attname) then
   hatc.Handle.AccessoryWeld.Part1 = victim.Character.Torso
  elseif victim.Character.Head:FindFirstChild(attname) then
   hatc.Handle.AccessoryWeld.Part1 = victim.Character.Head
  end
 else
  if victim.Character.UpperTorso:FindFirstChild(attname) then
   hatc.Handle.AccessoryWeld.Part1 = victim.Character.UpperTorso
  elseif victim.Character.Head:FindFirstChild(attname) then
   hatc.Handle.AccessoryWeld.Part1 = victim.Character.Head
  end
 end
end)

victim.Character:FindFirstChildOfClass("Humanoid").Died:Connect(function()
 hatc.Handle.CanCollide = true
 hat.Handle.CanCollide = true
end)