--[[
Give hats to people (R15, R6) V2
WARNING : KEEP RESETTING WHEN HATS FALL DOWN THEN THE SCRIPT WILL GET BETTER AT NOT
FALLING DOWN AND GRADUALLY BECOMES ALMOST UNABLE TO FALL DOWN
UpdateLog V2 :
Better Netless (Unable to fall down when in your radius) (V2)
Works well on R6, R15 games are impossible to detect the point of height so expect
inaccuracy of hats given to a certain player
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 = [Link]("Message", [Link])
[Link] = txt
[Link](3)
m:Destroy()
end)
elseif type == 2 then
spawn(function()
local h = [Link]("Hint", [Link])
[Link] = txt
[Link](3)
h:Destroy()
end)
end
end
local ScreenGui = [Link]("ScreenGui")
local Main = [Link]("Frame")
local Punish = [Link]("TextBox")
local SilentCMD = [Link]("TextBox")
local SilentC = [Link]("TextButton")
local X = [Link]("TextButton")
local plr = game:GetService"Players".LocalPlayer
[Link] = [Link]
[Link] = false
[Link] = "Main"
[Link] = ScreenGui
Main.BackgroundColor3 = [Link](0.333333, 0.666667, 0.498039)
[Link] = 4
[Link] = [Link](0.117575757, 0, 0.152334154, 0)
[Link] = [Link](0, 334, 0, 120)
[Link] = true
[Link] = true
[Link] = false
[Link] = "Punish"
[Link] = Main
Punish.BackgroundColor3 = [Link](0.168627, 0.513726, 0.25098)
Punish.BorderColor3 = [Link](0.168627, 0.513726, 0.25098)
[Link] = [Link](0.0209580846, 0, 0.094202876, 0)
[Link] = [Link](0, 162, 0, 50)
[Link] = [Link]
[Link] = "Player Name"
[Link] = ""
Punish.TextColor3 = [Link](1, 1, 1)
[Link] = 14
Punish.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = "SilentCMD"
[Link] = Main
SilentCMD.BackgroundColor3 = [Link](0.168627, 0.513726, 0.25098)
SilentCMD.BorderColor3 = [Link](0.168627, 0.513726, 0.25098)
[Link] = [Link](0.514970064, 0, 0.094202876, 0)
[Link] = [Link](0, 152, 0, 50)
[Link] = [Link]
[Link] = "Hat Name"
[Link] = ""
SilentCMD.TextColor3 = [Link](1, 1, 1)
[Link] = 14
SilentCMD.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = "SilentC"
[Link] = Main
SilentC.BackgroundColor3 = [Link](0.168627, 0.513726, 0.25098)
SilentC.BorderColor3 = [Link](0.168627, 0.513726, 0.25098)
[Link] = [Link](0.280070064, 0, 0.554202876, 0)
[Link] = [Link](0, 152, 0, 50)
[Link] = [Link]
[Link] = "Hat him/her"
SilentC.TextColor3 = [Link](1, 1, 1)
[Link] = 14
SilentC.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = "X"
[Link] = Main
X.BackgroundColor3 = [Link](0.168627, 0.513726, 0.25098)
X.BorderColor3 = [Link](0.168627, 0.513726, 0.25098)
[Link] = 0
[Link] = [Link](0.952095807, 0, 0, 0)
[Link] = [Link](0, 16, 0, 16)
[Link] = [Link]
[Link] = "X"
X.TextColor3 = [Link](1, 1, 1)
[Link] = true
[Link] = 14
[Link] = true
function getPlayer(shortcut)
local player = nil
local g = [Link]:GetPlayers()
for i = 1, #g do
if [Link]([Link](g[i].Name,1,[Link](shortcut))) ==
[Link](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([Link]:GetDescendants()) do
if v:IsA("Accessory") then
if [Link]([Link]([Link],1,[Link](shortcuts))) ==
[Link](shortcuts) then
if [Link] ~= nil then
hat = v
break
end
end
end
end
return hat
end
local runcode = true
local spawntime = [Link] + 3
local chr = [Link]
mOut("Wait For Script To Load", 1)
for i, v in pairs(chr:GetChildren()) do
if v:IsA("Accessory") then
sethiddenproperty(v, "BackendAccoutrementState", 4)
end
end
[Link](1)
[Link] = 0
[Link](spawntime)
[Link] = true
local hatstored = {}
SilentC.MouseButton1Click:Connect(function()
pcall(function()
local char = [Link]
if runcode then
runcode = false
local dfc = [Link]
local smr = [Link]
local hatse = getHat([Link])
local arg = getPlayer([Link])
if [Link](hatstored, [Link]) then
mOut("Hat is already given away, error", 1)
return end
argplr = [Link][[Link]].Character
local rs = game:GetService("RunService")
local fc
local dc
local dic
local coc
[Link] = true
headname = [Link]
local cchar = char:Clone()
[Link] = Workspace
for i, v in pairs(char:GetChildren()) do
if v:IsA("Accessory") then
sethiddenproperty(v, "BackendAccoutrementState", 4)
end
end
local con
con = [Link]:Connect(function()
cchar:Destroy()
[Link] = false
runcode = false
mOut("Wait For "..tostring(spawntime).." Second", 1)
[Link](hatstored)
[Link](spawntime)
[Link] = true
runcode = true
con:Disconnect()
end)
if fakeadmin then
smr:FireServer(";givehat "..[Link].." "..[Link], "All")
end
[Link] = [Link]
for i, x in pairs(cchar:GetDescendants()) do
if x:IsA("BasePart") then
[Link] = 1
end
end
for i, x in pairs(cchar:GetDescendants()) do
if [Link] == "LeftUpperLeg" and [Link] == "RightUpperLeg" then
[Link] = 1
end
end
for i, v in pairs([Link]:GetDescendants()) do
if [Link] == "Decal" or [Link] == "Texture" then
[Link] = 1
end
end
for i,v in pairs(char:GetDescendants()) do
if v:IsA("BasePart") and [Link] ~="HumanoidRootPart" then
fc = [Link]:Connect(function()
if [Link] <= 0 then fc:Disconnect() return end
[Link] = [Link](30, 4, 0)
[Link] = [Link](30, 4, 0)
end)
end
end
dic = [Link]:Connect(function()
setscriptable(plr, "SimulationRadius", true)
[Link] = [Link] * [Link], [Link] * [Link] * 1 / 0 * 1 / 0
* 1 / 0 * 1 / 0 * 1 / 0
end)
coc = [Link]:Connect(function(radius)
radius = [Link]
return radius
end)
char[[Link]].[Link]:Destroy()
dc = [Link]:Connect(function()
if [Link] <= 0 then dc:Disconnect() cchar:Destroy() coc:Disconnect()
dic:Disconnect() return end
[Link] = [Link]
char[[Link]].[Link] = cchar[[Link]].[Link]
end)
[Link](hatstored, [Link])
end
runcode = true
end)
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([Link]:GetDescendants()) do
if v:IsA("Accessory") then
print("What accessories you have on")
print([Link])
end
end