FE Give hat [R15, R6]

--[[
Give hats to people (R15, R6)

Works well on R6, R15 games are impossible to detect the point of height so expect inaccuracy of hats given to a certain player

Reset when script breaks or you need to restart to receive your hats back

Made By Fedoratum()()
--]]

-- This will say stuff like admin do

local fakeadmin = false
-- set to true or false

-- givehats hatname fedoratum

function mOut(txt, type)
if type == 1 then
spawn(function()
local m = Instance.new("Message", game.CoreGui)
m.Text = txt
task.wait(3)
m:Destroy()
end)
elseif type == 2 then
spawn(function()
local h = Instance.new("Hint", game.CoreGui)
h.Text = txt
task.wait(3)
h:Destroy()
end)
end
end


local ScreenGui = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local Punish = Instance.new("TextBox")
local SilentCMD = Instance.new("TextBox")
local SilentC = Instance.new("TextButton")
local X = Instance.new("TextButton")
local plr = game:GetService"Players".LocalPlayer

ScreenGui.Parent = game.CoreGui
ScreenGui.ResetOnSpawn = false

Main.Name = "Main"
Main.Parent = ScreenGui
Main.BackgroundColor3 = Color3.new(0.333333, 0.666667, 0.498039)
Main.BorderSizePixel = 4
Main.Position = UDim2.new(0.117575757, 0, 0.152334154, 0)
Main.Size = UDim2.new(0, 334, 0, 120)
Main.Active = true
Main.Draggable = true

Punish.Name = "Punish"
Punish.Parent = Main
Punish.BackgroundColor3 = Color3.new(0.168627, 0.513726, 0.25098)
Punish.BorderColor3 = Color3.new(0.168627, 0.513726, 0.25098)
Punish.Position = UDim2.new(0.0209580846, 0, 0.094202876, 0)
Punish.Size = UDim2.new(0, 162, 0, 50)
Punish.Font = Enum.Font.GothamBlack
Punish.PlaceholderText = "Player Name"
Punish.Text = ""
Punish.TextColor3 = Color3.new(1, 1, 1)
Punish.TextSize = 14
Punish.TextStrokeColor3 = Color3.new(1, 1, 1)

SilentCMD.Name = "SilentCMD"
SilentCMD.Parent = Main
SilentCMD.BackgroundColor3 = Color3.new(0.168627, 0.513726, 0.25098)
SilentCMD.BorderColor3 = Color3.new(0.168627, 0.513726, 0.25098)
SilentCMD.Position = UDim2.new(0.514970064, 0, 0.094202876, 0)
SilentCMD.Size = UDim2.new(0, 152, 0, 50)
SilentCMD.Font = Enum.Font.GothamBlack
SilentCMD.PlaceholderText = "Hat Name"
SilentCMD.Text = ""
SilentCMD.TextColor3 = Color3.new(1, 1, 1)
SilentCMD.TextSize = 14
SilentCMD.TextStrokeColor3 = Color3.new(1, 1, 1)

SilentC.Name = "SilentC"
SilentC.Parent = Main
SilentC.BackgroundColor3 = Color3.new(0.168627, 0.513726, 0.25098)
SilentC.BorderColor3 = Color3.new(0.168627, 0.513726, 0.25098)
SilentC.Position = UDim2.new(0.280070064, 0, 0.554202876, 0)
SilentC.Size = UDim2.new(0, 152, 0, 50)
SilentC.Font = Enum.Font.GothamBlack
SilentC.Text = "Hat him/her"
SilentC.TextColor3 = Color3.new(1, 1, 1)
SilentC.TextSize = 14
SilentC.TextStrokeColor3 = Color3.new(1, 1, 1)

X.Name = "X"
X.Parent = Main
X.BackgroundColor3 = Color3.new(0.168627, 0.513726, 0.25098)
X.BorderColor3 = Color3.new(0.168627, 0.513726, 0.25098)
X.BorderSizePixel = 0
X.Position = UDim2.new(0.952095807, 0, 0, 0)
X.Size = UDim2.new(0, 16, 0, 16)
X.Font = Enum.Font.SourceSans
X.Text = "X"
X.TextColor3 = Color3.new(1, 1, 1)
X.TextScaled = true
X.TextSize = 14
X.TextWrapped = true

function getPlayer(shortcut)
local player = nil
local g = game.Players:GetPlayers()
for i = 1, #g do
if string.lower(string.sub(g[i].Name,1,string.len(shortcut))) == string.lower(shortcut) then
if g[i] ~= nil then
player = g[i]
break
end
end
end
return player
end

function getHat(shortcuts)
local hat = nil
for i, v in pairs(game.Players.LocalPlayer.Character:GetDescendants()) do
if v:IsA("Accessory") then
if string.lower(string.sub(v.Name,1,string.len(shortcuts))) == string.lower(shortcuts) then
if v.Name ~= nil then
hat = v
break
end
end
end
end
return hat
end

local runcode = true
local spawntime = game.Players.RespawnTime + 3

local hatstored = {}

SilentC.MouseButton1Click:Connect(function()
local char = plr.Character
if runcode then
runcode = false

local dfc = game.ReplicatedStorage.DefaultChatSystemChatEvents
local smr = dfc.SayMessageRequest

local hatse = getHat(SilentCMD.Text)
local arg = getPlayer(Punish.Text)

if table.find(hatstored, hatse.Name) then
mOut("Hat is already given away, error", 1)
return end

argplr = game.Players[arg.Name].Character

local rs = game:GetService("RunService")
local fc
local dc
local dic
local coc
char.Archivable = true
headname = char.Head.Name
local cchar = char:Clone()
cchar.Parent = Workspace

local con
con = char.Humanoid.Died:Connect(function()
cchar:Destroy()
Main.Visible = false
runcode = false
mOut("Wait For "..tostring(spawntime).." Second", 1)
table.clear(hatstored)
task.wait(spawntime)
Main.Visible = true
runcode = true
con:Disconnect()
end)

if fakeadmin then
smr:FireServer(";givehat "..hatse.Name.." "..arg.Name, "All")
end

cchar.HumanoidRootPart.CFrame = char.HumanoidRootPart.CFrame
for i, x in pairs(cchar:GetDescendants()) do
if x:IsA("BasePart") then
x.Transparency = 1
end
end
for i, v in pairs(cchar.Head:GetDescendants()) do
if v.className == "Decal" or v.className == "Texture" then
v.Transparency = 1
end
end

for i,v in pairs(char:GetDescendants()) do
if v:IsA("BasePart") and v.Name ~="HumanoidRootPart" then
fc = rs.Heartbeat:Connect(function()
if char.Humanoid.Health <= 0 then fc:Disconnect() return end
v.Velocity = Vector3.new(30, 4, 0)
v.RotVelocity = Vector3.new(30, 4, 0)
end)
end
end

dic = rs.RenderStepped:Connect(function()
setscriptable(plr, "SimulationRadius", true)
plr.SimulationRadius = math.huge * math.huge, math.huge * math.huge * 1 / 0 * 1 / 0 * 1 / 0 * 1 / 0 * 1 / 0
end)

coc = plr.SimulationRadiusChanged:Connect(function(radius)
radius = math.huge
return radius
end)

char[hatse.Name].Handle.AccessoryWeld:Destroy()

dc = rs.RenderStepped:Connect(function()
if char.Humanoid.Health <= 0 then dc:Disconnect() cchar:Destroy() coc:Disconnect() dic:Disconnect() return end
cchar.HumanoidRootPart.CFrame = argplr.HumanoidRootPart.CFrame
char[hatse.Name].Handle.CFrame = cchar[hatse.Name].Handle.CFrame
end)
table.insert(hatstored, hatse.Name)
end
runcode = true
end)

X.MouseButton1Click:Connect(function()
ScreenGui:Destroy()
end)

mOut("Fedoratum Hat Giver Has Loaded", 2)

print("What accessories you have on")
for i, v in pairs(game.Players.LocalPlayer.Character:GetDescendants()) do
if v:IsA("Accessory") then
print("What accessories you have on")
print(v.Name)
end
end