Rifle Body

-- Location: Players.Cronizete.Character.BODYGUARDSV2
-- Synapse Decompiler
-- Purchase Here: https://brack4712.xyz/synapse/purchase

--// Controls
--// X = Summon a bodyguard
--// M = Change Types of bodyguards (Snipers, riflers) Sniper is the default
--// Q = Aim
--// C = Makes all the bodyguards disappear.
--// Click = Shoot (You have to aim at somebody for snipers, you don't have to for the rifles)
print("X is for Summon")
print("M is for BodyGuard Change")
print("Q for aim")
print("C makes guard's vanish")
print("Click to shoot")
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do
	print("FE Compatibility code by Mokiros")
	local rp = RealPlayer
	script.Parent = rp.Character

	--RemoteEvent for communicating
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"

	--Fake event to make stuff like Mouse.KeyDown work
	local function fakeEvent()
		local t = {_fakeEvent=true,Functions={},Connect=function(self,f)table.insert(self.Functions,f) end}
		t.connect = t.Connect
		return t
	end

	--Creating fake input objects with fake variables
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
		CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
	end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function te(self,ev,...)
		local t = m[ev]
		if t and t._fakeEvent then
			for _,f in pairs(t.Functions) do
				f(...)
			end
		end
	end
	m.TrigEvent = te
	UIS.TrigEvent = te

	Event.OnServerEvent:Connect(function(plr,io)
	    if plr~=rp then return end
		m.Target = io.Target
		m.Hit = io.Hit
		if not io.isMouse then
			local b = io.UserInputState == Enum.UserInputState.Begin
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return m:TrigEvent(b and "Button1Down" or "Button1Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
	    end
	end)
	Event.Parent = NLS([==[
	local Player = game:GetService("Players").LocalPlayer
	local Event = script:WaitForChild("UserInput_Event")

	local Mouse = Player:GetMouse()
	local UIS = game:GetService("UserInputService")
	local input = function(io,a)
		if a then return end
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)

	local h,t
	--Give the server mouse data 30 times every second, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	while wait(1/30) do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
	end]==],Player.Character)

	----Sandboxed game object that allows the usage of client-side methods and services
	--Real game object
	local _rg = game

	--Metatable for fake service
	local fsmt = {
		__index = function(self,k)
			local s = rawget(self,"_RealService")
			if s then return s[k] end
		end,
		__newindex = function(self,k,v)
			local s = rawget(self,"_RealService")
			if s then s[k]=v end
		end,
		__call = function(self,...)
			local s = rawget(self,"_RealService")
			if s then return s(...) end
		end
	}
	local function FakeService(t,RealService)
		t._RealService = typeof(RealService)=="string" and _rg:GetService(RealService) or RealService
		return setmetatable(t,fsmt)
	end

	--Fake game object
	local g = {
		GetService = function(self,s)
			return self[s]
		end,
		Players = FakeService({
			LocalPlayer = FakeService({GetMouse=function(self)return m end},Player)
		},"Players"),
		UserInputService = FakeService(UIS,"UserInputService"),
		ContextActionService = FakeService(CAS,"ContextActionService"),
	}
	rawset(g.Players,"localPlayer",g.Players.LocalPlayer)
	g.service = g.GetService

	g.RunService = FakeService({
		RenderStepped = _rg:GetService("RunService").Heartbeat,
		BindToRenderStep = function(self,name,_,fun)

		end,
		UnbindFromRenderStep = function(self,name)
			self._btrs[name]:Disconnect()
		end,
	},"RunService")

	setmetatable(g,{
		__index=function(self,s)
			return _rg:GetService(s) or typeof(_rg[s])=="function"
			and function(_,...)return _rg[s](_rg,...)end or _rg[s]
		end,
		__newindex = fsmt.__newindex,
		__call = fsmt.__call
	})
	--Changing owner to fake player object to support owner:GetMouse()
	game,owner = g,g.Players.LocalPlayer
	end

plr = owner
char = owner.Character

--// Anti double
script.Name = "BODYGUARDSV2_TEMP"
for _, a in pairs(char:GetDescendants()) do
	if a.Name == "BODYGUARDSV2" then
		a:Destroy()
	elseif a.Name == "" then
		a:Destroy()
	end
end
script.Name = "BODYGUARDSV2"
--// Main Script

head = char.Head
mouse = owner:GetMouse()
sam = 0
char.Archivable = true
arms = nil
torso = nil
follow = false
current = nil
curfollow = nil
rifleshoot = false
targ, huma = nil,nil

--// points
point1 = Instance.new('Part', char)
point1.Anchored = false
point1.CanCollide = false
point1.Transparency = 1
point1.Size = Vector3.new(0.2,0.2,0.2)

Weld = Instance.new("Weld",owner.Character)
Weld.Part0 = owner.Character["Torso"]
Weld.Part1 = point1
Weld.C1 = CFrame.new(10, 0, 0) * CFrame.fromEulerAnglesXYZ(0, 0, 0)

point3 = Instance.new('Part', char)
point3.Anchored = false
point3.CanCollide = false
point3.Transparency = 1
point3.Size = Vector3.new(0.2,0.2,0.2)

Weld = Instance.new("Weld",owner.Character)
Weld.Part0 = owner.Character["Torso"]
Weld.Part1 = point3
Weld.C1 = CFrame.new(-10, 0, 0) * CFrame.fromEulerAnglesXYZ(0, 0, 0)

point2 = Instance.new('Part', char)
point2.Anchored = false
point2.CanCollide = false
point2.Transparency = 1
point2.Size = Vector3.new(0.2,0.2,0.2)

Weld = Instance.new("Weld",owner.Character)
Weld.Part0 = owner.Character["Torso"]
Weld.Part1 = point2
Weld.C1 = CFrame.new(20, 0, 0) * CFrame.fromEulerAnglesXYZ(0, 0, 0)

point4 = Instance.new('Part', char)
point4.Anchored = false
point4.CanCollide = false
point4.Transparency = 1
point4.Size = Vector3.new(0.2,0.2,0.2)

Weld = Instance.new("Weld",owner.Character)
Weld.Part0 = owner.Character["Torso"]
Weld.Part1 = point4
Weld.C1 = CFrame.new(-20, 0, 0) * CFrame.fromEulerAnglesXYZ(0, 0, 0)




--// points

--// Configuration

max = 15
max1 = 15
maxammo = 30
mode = "Snipers"

--//

snipers,riflers,welds = {},{},{}

skinc = {
	'Rust',
	'Cool yellow',
	'Br. yellowish orange',
	'Pastel yellow',
	'CGA brown'
}

props = {
	'HeadColor',
	'LeftArmColor',
	'RightArmColor',
	'TorsoColor',
	'RightLegColor',
	'LeftLegColor'
}

snpr = char:Clone()
snpr.Name = ""

for _, a in pairs(snpr:children()) do
	if a:IsA'CharacterMesh' or a:IsA'Accessory' or a:IsA'Shirt' or a:IsA'Pants' then
		a:Destroy()
	end
end

snpr.Parent = nil

bg = Instance.new("BodyGyro", snpr.HumanoidRootPart)
bg.maxTorque = Vector3.new(math.huge, math.huge, math.huge)
bg.Name = "FOLLOW"
bg.P = 10000
bg.D = 100

sfx = Instance.new('Sound', snpr.Head)
sfx.SoundId = "rbxassetid://740599871"
sfx.Volume = 3
sfx2 = Instance.new('Sound', snpr)
sfx2.Name = "SNIPERSOUND"
sfx2.SoundId = "rbxassetid://136523485"
sfx2.Volume = 3

lazor = Instance.new('Part', snpr)
lazor.Name = "Laser"
lazor.Anchored = true
lazor.Shape = Enum.PartType.Ball
lazor.Size = Vector3.new(0.3,0.3,0.3)
lazor.BrickColor = BrickColor.new('Really red')
lazor.Transparency = 0.4
lazor.CanCollide = false

shirt = Instance.new('Shirt', snpr)
shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=139465409"
pants = Instance.new('Pants', snpr)
pants.PantsTemplate = "http://www.roblox.com/asset/?id=139466214"
----------------------------------------------------------------
hat = Instance.new('Part', snpr)
hat.Name = 'Hat'
hat.Anchored = false
hat.CanCollide = false
mesh = Instance.new('SpecialMesh', hat)
mesh.MeshId = "http://www.roblox.com/asset/?id=31152467"
mesh.TextureId = "http://www.roblox.com/asset/?id=32002857"
mesh.Scale = Vector3.new(1,1,1)
weld = Instance.new('Weld', hat)
weld.Part0 = hat
weld.Part1 = snpr.Head
weld.C0 = CFrame.new(0,-0.2,0)
--------------------------------------------
sniper = Instance.new('Part', snpr)
sniper.Anchored = false
sniper.CanCollide = false
sniper.Name = "Sniper"
sniper.Size = Vector3.new(7.88, 1.77, 1)
mesh = Instance.new('SpecialMesh', sniper)
mesh.MeshId = "rbxassetid://462309398"
mesh.TextureId = "rbxassetid://462309404"
mesh.Scale = Vector3.new(0.006, 0.006, 0.006)
weld = Instance.new('Weld', sniper)
weld.Part0 = sniper
weld.Part1 = snpr.Head
weld.C0 = CFrame.new(-2,0.5,-0.2) * CFrame.Angles(math.rad(0),math.rad(-90),math.rad(0))

arms = {snpr:FindFirstChild("Left Arm"), snpr:FindFirstChild("Right Arm")}
torso = snpr:FindFirstChild("Torso")

if arms ~= nil and torso ~= nil then
	local sh = {torso:FindFirstChild("Left Shoulder"), torso:FindFirstChild("Right Shoulder")}
	if sh ~= nil then
		local yes = true
		if yes then
			yes = false
			sh[1].Part1 = nil
			sh[2].Part1 = nil
			local weld1 = Instance.new("Weld")
			weld1.Part0 = torso
			weld1.Parent = torso
			weld1.Part1 = arms[1]
			weld1.C1 = CFrame.new(-0.249, 1.35, 0.6) * CFrame.fromEulerAnglesXYZ(math.rad(290), 0, math.rad(-90))
			welds[1] = weld1
			local weld2 = Instance.new("Weld")
			weld2.Part0 = torso
			weld2.Parent = torso
			weld2.Part1 = arms[2]
			weld2.C1 = CFrame.new(-1, -0.2, 0.35) * CFrame.fromEulerAnglesXYZ(math.rad(-90), math.rad(-15), 0)
			welds[2] = weld2
		end
	end
end

function sniper(pos)
	if sam <= max - 1 then
		local sniper = snpr:Clone()
		local bodyc = sniper:FindFirstChildOfClass'BodyColors'
		local skincolor = skinc[math.random(1,5)]

		for _, a in pairs(props) do
			bodyc[a] = BrickColor.new(skincolor)
		end

		sniper.Parent = char
		sniper:MoveTo(pos)
		sniper.Torso.CFrame = CFrame.new(sniper.Torso.Position, head.Position)
		table.insert(snipers, sniper)
		sam = sam + 1
	end
end

function rifler(pos)
	if sam <= max1 - 1 then
		local rifler = snpr:Clone()
		local bodyc = rifler:FindFirstChildOfClass'BodyColors'
		local skincolor = skinc[math.random(1,5)]

		for _, a in pairs(props) do
			bodyc[a] = BrickColor.new(skincolor)
		end

		for _, a in pairs(rifler:GetDescendants()) do
			if a:IsA'BodyGyro' then
				a:Destroy()
			end
		end

		rifler.Parent = char
		rifler:MoveTo(pos)
		rifler.Torso.CFrame = CFrame.new(rifler.Torso.Position, head.Position)
		rifler:FindFirstChild'SNIPERSOUND'.Pitch = 1.2
		rifle = rifler:FindFirstChild'Sniper'
		rifle.Name = "Rifle"
		rifle:FindFirstChildOfClass'SpecialMesh'.TextureId = "rbxassetid://546505949"
		rifle:FindFirstChildOfClass'SpecialMesh'.MeshId = "rbxassetid://546505802"
		rifle:FindFirstChildOfClass'SpecialMesh'.Scale = Vector3.new(0.2, 0.2, 0.2)
		rifle:FindFirstChildOfClass'Weld'.C0 = CFrame.new(-.4,.6,1.6) * CFrame.Angles(math.rad(0),math.rad(0),math.rad(0))
		table.insert(riflers, rifler)
		sam = sam + 1
	end
end

function ray(a,b)
	local ray = Ray.new(a.CFrame.p, (b - a.CFrame.p).unit * 700)
	local part, position = workspace:FindPartOnRay(ray, char, false, true)

	local beam = Instance.new("Part", workspace)
	beam.FormFactor = "Custom"
	beam.Material = "Plastic"
	beam.Transparency = 0.25
	beam.Anchored = true
	beam.Locked = true
	beam.CanCollide = false
	beam.BrickColor = BrickColor.new('Really black')

	local distance = (a.CFrame.p - position).magnitude
	beam.Size = Vector3.new(0.08, 0.08, distance)
	beam.CFrame = CFrame.new(a.CFrame.p, position) * CFrame.new(0, 0, -distance / 2)

	game:GetService('Debris'):AddItem(beam, 0.1)
end

mouse.KeyDown:connect(function(k)
	local key = k:lower()
	if key == "x" then
		follow = false
		if mode == "Snipers" then
			sniper(mouse.Hit.p)
		elseif mode == "Riflers" then
			rifler(mouse.Hit.p)
		end
		wait(.3)
		if curfollow then
			follow = true
		elseif not curfollow then
			follow = false
		end
	elseif key == "c" then
		for _, a in pairs(char:children()) do
			if a.Name == "" then
				for i = 1,10 do
					a:FindFirstChild'HumanoidRootPart'.CFrame = a:FindFirstChild'HumanoidRootPart'.CFrame * CFrame.new(0,-i + 0.8,0)
					wait()
				end
				wait(.15)
				a:Destroy()
				sam = sam - 1
			end
		end
	elseif key == "m" then
		if mode == "Snipers" then
			mode = "Riflers"
		elseif mode == "Riflers" then
			mode = "Snipers"
		end
	elseif key == "q" then
		if not follow then
			follow = true
			curfollow = true
			on = false
			for i = 1, sam / 2 do
				wait(.6)
				local now
				ypcall(function()
					if mode == "Snipers" then
						now = snipers[math.random(1,#snipers)]
					elseif mode == "Riflers" then
						now = riflers[math.random(1,#riflers)]
					end
				end)
				for _, a in pairs(riflers) do
					bg = Instance.new("BodyGyro", a.HumanoidRootPart)
					bg.maxTorque = Vector3.new(math.huge, math.huge, math.huge)
					bg.Name = "FOLLOW"
					bg.P = 10000
					bg.D = 100
				end
				now.Head.Sound:Resume()
				current = now.Head.Sound.SoundId
			end
		elseif follow then
			for _, a in pairs(riflers) do
				for _, b in pairs(a:GetDescendants()) do
					if b:IsA'BodyGyro' then
						b:Destroy()
					end
				end
			end
			follow = false
			curfollow = false
		end
	end
end)

mouse.Button1Down:connect(function()
	if follow and mode ~= "Riflers" and mouse.Target and mouse.Target.Parent and mouse.Target.Parent:FindFirstChildOfClass'Humanoid' then
		follow = false
		local targ = mouse.Target
		huma = targ.Parent:FindFirstChildOfClass'Humanoid'
		for _, a in pairs(targ.Parent:children()) do
			if a:IsA'ForceField' then
				a:Destroy()
			end
		end
		huma.MaxHealth = 100
		huma.Name = "Humanoid"
		if mode == "Snipers" then
			for _, a in pairs(snipers) do
				if a:FindFirstChild'HumanoidRootPart' then
					wait(.2)
					rootpart = a.HumanoidRootPart
					snd = rootpart.Parent:FindFirstChild'SNIPERSOUND'
					snd:Play()
					ray(a:FindFirstChild'Sniper',targ.Parent.Head.Position)
					huma:TakeDamage(huma.MaxHealth/2/2/2)
				end
			end
		follow = true
		end
	end
end)

mouse.Button1Down:connect(function()
	if mode == "Riflers" then
		rifleshoot = true
	end
end)

mouse.Button1Up:connect(function()
	if mode == "Riflers" then
		rifleshoot = false
	end
end)

while wait() do
	ypcall(function()
		riflers[1]:FindFirstChildOfClass'Humanoid':MoveTo(point1.Position)
		riflers[2]:FindFirstChildOfClass'Humanoid':MoveTo(point2.Position)
		riflers[3]:FindFirstChildOfClass'Humanoid':MoveTo(point3.Position)
		riflers[4]:FindFirstChildOfClass'Humanoid':MoveTo(point4.Position)
	end)
	if follow then
		if mode == "Snipers" then
			for _, a in pairs(snipers) do
				if a:FindFirstChild'HumanoidRootPart' then
					rootpart = a.HumanoidRootPart
					rootpart.FOLLOW.CFrame = CFrame.new(rootpart.Position, mouse.Hit.p * Vector3.new(1,0,1) + rootpart.Position * Vector3.new(0,1,0))
					rootpart.Parent:WaitForChild'Laser'.CFrame = mouse.Hit
				end
			end
		elseif mode == "Riflers" then
			for _, a in pairs(riflers) do
				if a:FindFirstChild'HumanoidRootPart' then
					rootpart = a.HumanoidRootPart
					ypcall(function() rootpart.FOLLOW.CFrame = CFrame.new(rootpart.Position, mouse.Hit.p * Vector3.new(1,0,1) + rootpart.Position * Vector3.new(0,1,0)) end)
					rootpart.Parent:WaitForChild'Laser'.CFrame = mouse.Hit
				end
			end
		end
	end
	if rifleshoot and follow and mouse.Target and mouse.Target.Parent then
		local targ = mouse.Target
		local huma = nil
		if targ.Parent:FindFirstChildOfClass'Humanoid' then
			huma = targ.Parent:FindFirstChildOfClass'Humanoid'
		else
			huma = nil
		end
		if huma ~= nil then
			for _, a in pairs(riflers) do
				if a:FindFirstChild'HumanoidRootPart' and huma.Health ~= 0 then
					wait(.02)
					rootpart = a.HumanoidRootPart
					snd = rootpart.Parent:FindFirstChild'SNIPERSOUND'
					snd.Pitch = 80
					snd:Resume()
					ray(a:FindFirstChild'Rifle',targ.Parent.Torso.Position)
					huma:TakeDamage(huma.MaxHealth/40/25/60/30/99)
				end
			end
		else
			for _, a in pairs(riflers) do
				snd = rootpart.Parent:FindFirstChild'SNIPERSOUND'
				snd.Pitch = 80
				snd:Resume()
				ray(a:FindFirstChild'Rifle',mouse.Hit.p)
			end
		end
	end
end