Shoulder Pet Script (WIP NO FLING YET)

-- recommended hats (ONLY PICK ONE):

-- https://web.roblox.com/catalog/106708450/Turtle-Shoulder-Friend
-- https://web.roblox.com/catalog/4771505639/Pet-Rock
-- vv BEST vv
-- https://web.roblox.com/catalog/5548677744/Moon-Leech
-- https://web.roblox.com/catalog/939236594/M3G4-Bot

-- CONTROLS

-- Z (on head idle)
-- X (follow idle)
-- C (on sholder idle)
-- V (carry player)
-- B (back of head idle)
-- F (attack)

-- PET SCRIPT

-- NOT DONE

-- WILL ADD FLING LATER

-- E N J O Y

local value = Instance.new("NumberValue")
for _,v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
if (v:IsA("Accessory")) then
value.Value = value.Value +1
end
end
wait()
print(value.Value)
wait()
if value.Value == 2 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 3 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 4 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 5 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 6 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 7 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 8 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 9 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

if value.Value == 10 then
game.Players.LocalPlayer.Character.Head:Destroy()
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "ERROR"
wait(1)
message:Destroy()
end)
wait(1)
spawn(function()
local message = Instance.new("Message",workspace)
message.Text = "PLEASE USE ONE HAT. (value.Value surpassed 1) .. HAT AMMOUNT: " .. value.Value
wait(4)
message:Destroy()
end)
end

local Xval = Instance.new("NumberValue")
local Yval = Instance.new("NumberValue")
local Zval = Instance.new("NumberValue")

local XvalO = Instance.new("NumberValue")
local YvalO = Instance.new("NumberValue")
local ZvalO = Instance.new("NumberValue")

local num3 = Instance.new("NumberValue")
local ori = Instance.new("NumberValue")
local an = Instance.new("NumberValue")

local angular = Vector3.new(0,0,0)
ori.Value = 100
num3.Value = 0

Xval.Value = 0
Yval.Value = -4
Zval.Value = 3

XvalO.Value = 0
YvalO.Value = 0
ZvalO.Value = 0

local plr = game.Players.LocalPlayer;
plr.Character.Animate.idle.Animation2:Destroy()
mouse = plr:GetMouse()
mouse.KeyDown:connect(function(key)

if key == "z" then
    XvalO.Value = 0
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
    game.Players.LocalPlayer.Character.Animate.Disabled = false
game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0
Xval.Value = 0
Yval.Value = 1
Zval.Value = 0
end
end)

mouse.KeyDown:connect(function(key)

if key == "x" then
    XvalO.Value = 0
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
    game.Players.LocalPlayer.Character.Animate.Disabled = false
    game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0
    Xval.Value = 0
    Yval.Value = -4
    Zval.Value = 3
end
end)

mouse.KeyDown:connect(function(key)

if key == "v" then
    XvalO.Value = 0
    game.Players.LocalPlayer.Character.Animate.Disabled = true
    game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0.4
    Xval.Value = 0
    Yval.Value = -4.8
    Zval.Value = 0
    wait()
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 10
end
end)

mouse.KeyDown:connect(function(key)

if key == "c" then
    XvalO.Value = 0
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
    game.Players.LocalPlayer.Character.Animate.Disabled = false
    game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0
    Xval.Value = -1.5
    Yval.Value = 0
    Zval.Value = 0
end
end)

mouse.KeyDown:connect(function(key)

if key == "b" then
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
    game.Players.LocalPlayer.Character.Animate.Disabled = false
    game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0
    Xval.Value = 0
    Yval.Value = 0
    Zval.Value = 0.7
    XvalO.Value = 90
end
end)

local function cncltrue()
    for _, v in pairs(hum:GetAccessories()) do
local b = v.Handle;
    b.CanCollide = true
end
end

local function cnclfalse()
    for _, v in pairs(hum:GetAccessories()) do
local b = v.Handle;
    b.CanCollide = true
end
end

mouse.KeyDown:connect(function(key)

if key == "f" then
game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
game.Players.LocalPlayer.Character.Animate.Disabled = false
game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0

Xval.Value = 0
Yval.Value = 0
Zval.Value = -4
wait()
Zval.Value = -6.4
Yval.Value = .5
wait()
Zval.Value = -8
wait()
Zval.Value = -6.4
wait()
Xval.Value = 0
Yval.Value = 1
Zval.Value = 0

for _, v in pairs(hum:GetAccessories()) do
local b = v.Handle;
    b.CanCollide = false
end

end
end)

mouse.KeyDown:connect(function(key)

if key == "q" then
    XvalO.Value = 0
    game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
    game.Players.LocalPlayer.Character.Animate.Disabled = false
    game.Players.LocalPlayer.Character.Humanoid.HipHeight = 0
    Xval.Value = 0
    Yval.Value = -1.1
    Zval.Value = -1
	local Anim = Instance.new("Animation")
	Anim.AnimationId = "rbxassetid://161723112"
	local track = game.Players.LocalPlayer.Character.Humanoid:LoadAnimation(Anim)
	track:Play(10, 20, 2)
	wait(1.4)
	Xval.Value = 0
	Yval.Value = 1
	Zval.Value = 0
end
end)

local chr = plr.Character;
local hum = chr.Humanoid;
local mov = {};
local mov2 = {};

--[[Network]]
coroutine.resume(coroutine.create(function()
	settings().Physics.AllowSleep = false;
	game.RunService.RenderStepped:Connect(function()
		for i, v in pairs(game.Players:GetPlayers()) do
			if v ~= plr then
				v.MaximumSimulationRadius = 0.1;
				v.SimulationRadius = 0;
			else
				v.MaximumSimulationRadius = math.pow(math.huge, math.huge);
				v.SimulationRadius = math.pow(math.huge, 2);
			end
		end
	end)
end))

for _, v in pairs(hum:GetAccessories()) do
	local b = v.Handle;
	b.CanCollide = false;
	b:BreakJoints();
	for _, k in pairs(v:GetChildren()) do
		if not k:IsA'SpecialMesh' and not k:IsA'Part' then
			k:Destroy();
		end
	end
	local still = Instance.new('BodyAngularVelocity', b);
	local align = Instance.new('AlignPosition', b);
	align.RigidityEnabled = true;
	local a0 = Instance.new('Attachment', b);
	local a1 = Instance.new('Attachment', chr.Head);
	align.Attachment0 = a0;
	align.Attachment1 = a1;
	table.insert(mov, a1);
	table.insert(mov2, still);
end

local mode = 1;
local l = 1;
game['Run Service'].RenderStepped:Connect(function()
	if mode == 1 then
		for _, v in pairs(mov) do
		   v.Position = Vector3.new(Xval.Value, Yval.Value, Zval.Value);
		end
	end
end)

local function orie()
    while wait() do
    for _, v in pairs(hum:GetAccessories()) do
local b = v.Handle;
    b.Orientation = Vector3.new(plr.Character.Head.Orientation.X + XvalO.Value, plr.Character.Head.Orientation.Y + YvalO.Value, plr.Character.Head.Orientation.Z + ZvalO.Value)
end
    end
end

for _, v in pairs(mov2) do
	v.AngularVelocity = angular;
end

orie()