GUN BOI

-- Created by Nebula_Zorua --
-- Assault Rifle --
-- A lil assault rifle --
-- Discord: Nebula the Zorua#6969
-- Youtube: https://www.youtube.com/channel/UCo9oU9dCw8jnuVLuy4_SATA

wait(1/60)


--// Shortcut Variables \\--
local S = setmetatable({},{__index = function(s,i) return game:service(i) end})
local CF = {N=CFrame.new,A=CFrame.Angles,fEA=CFrame.fromEulerAnglesXYZ}
local C3 = {N=Color3.new,RGB=Color3.fromRGB,HSV=Color3.fromHSV,tHSV=Color3.toHSV}
local V3 = {N=Vector3.new,FNI=Vector3.FromNormalId,A=Vector3.FromAxis}
local M = {C=math.cos,R=math.rad,S=math.sin,P=math.pi,RNG=math.random,MRS=math.randomseed,H=math.huge,RRNG = function(min,max,div) return math.rad(math.random(min,max)/(div or 1)) end}
local R3 = {N=Region3.new}
local De = S.Debris
local WS = workspace
local Lght = S.Lighting
local RepS = S.ReplicatedStorage
local IN = Instance.new
local Plrs = S.Players

--// Initializing \\--
local Plr = Plrs.LocalPlayer
local Char = Plr.Character
local Hum = Char:FindFirstChildOfClass'Humanoid'
local RArm = Char["Right Arm"]
local LArm = Char["Left Arm"]
local RLeg = Char["Right Leg"]
local LLeg = Char["Left Leg"]
local Root = Char:FindFirstChild'HumanoidRootPart'
local Torso = Char.Torso
local Head = Char.Head
local NeutralAnims = true
local Attack = false
local Debounces = {Debounces={}}
local Mouse = Plr:GetMouse()
local Hit = {}
local Sine = 0
local Change = 1
local Whistling=false
local Equipped = false
local Timer = time();

local Cam = workspace.CurrentCamera

local Effects = IN("Folder",Char)
Effects.Name = "Effects"

--// Debounce System \\--


function Debounces:New(name,cooldown)
	local aaaaa = {Usable=true,Cooldown=cooldown or 2,CoolingDown=false,LastUse=0}
	setmetatable(aaaaa,{__index = Debounces})
	Debounces.Debounces[name] = aaaaa
	return aaaaa
end

function Debounces:Use(overrideUsable)
	assert(self.Usable ~= nil and self.LastUse ~= nil and self.CoolingDown ~= nil,"Expected ':' not '.' calling member function Use")
	if(self.Usable or overrideUsable)then
		self.Usable = false
		self.CoolingDown = true
		local LastUse = time()
		self.LastUse = LastUse
		delay(self.Cooldown or 2,function()
			if(self.LastUse == LastUse)then
				self.CoolingDown = false
				self.Usable = true
			end
		end)
	end
end

function Debounces:Get(name)
	assert(typeof(name) == 'string',("bad argument #1 to 'get' (string expected, got %s)"):format(typeof(name) == nil and "no value" or typeof(name)))
	for i,v in next, Debounces.Debounces do
		if(i == name)then
			return v;
		end
	end
end

function Debounces:GetProgressPercentage()
	assert(self.Usable ~= nil and self.LastUse ~= nil and self.CoolingDown ~= nil,"Expected ':' not '.' calling member function Use")
	if(self.CoolingDown and not self.Usable)then
		return math.max(
			math.floor(
				(
					(time()-self.LastUse)/self.Cooldown or 2
				)*100
			)
		)
	else
		return 100
	end
end

--// Instance Creation Functions \\--

function Sound(parent,id,pitch,volume,looped,effect,autoPlay)
	local Sound = IN("Sound")
	Sound.SoundId = "rbxassetid://".. tostring(id or 0)
	Sound.Pitch = pitch or 1
	Sound.Volume = volume or 1
	Sound.Looped = looped or false
	if(autoPlay)then
		coroutine.wrap(function()
			repeat wait() until Sound.IsLoaded
			Sound.Playing = autoPlay or false
		end)()
	end
	if(not looped and effect)then
		Sound.Stopped:connect(function()
			Sound.Volume = 0
			Sound:destroy()
		end)
	elseif(effect)then
		warn("Sound can't be looped and a sound effect!")
	end
	Sound.Parent =parent or Torso
	return Sound
end
function Part(parent,color,material,size,cframe,anchored,cancollide)
	local part = IN("Part")
	part.Parent = parent or Char
	part[typeof(color) == 'BrickColor' and 'BrickColor' or 'Color'] = color or C3.N(0,0,0)
	part.Material = material or Enum.Material.SmoothPlastic
	part.TopSurface,part.BottomSurface=10,10
	part.Size = size or V3.N(1,1,1)
	part.CFrame = cframe or CF.N(0,0,0)
	part.Anchored = (anchored or true)
	part.CanCollide = cancollide or false
	return part
end
function Mesh(parent,meshtype,meshid,textid,scale,offset)
	local part = IN("SpecialMesh")
	part.MeshId = meshid or ""
	part.TextureId = textid or ""
	part.Scale = scale or V3.N(1,1,1)
	part.Offset = offset or V3.N(0,0,0)
	part.MeshType = meshtype or Enum.MeshType.Sphere
	part.Parent = parent
	return part
end

NewInstance = function(instance,parent,properties)
	local inst = Instance.new(instance)
	inst.Parent = parent
	if(properties)then
		for i,v in next, properties do
			pcall(function() inst[i] = v end)
		end
	end
	return inst;
end

function Clone(instance,parent,properties)
	local inst = instance:Clone()
	inst.Parent = parent
	if(properties)then
		for i,v in next, properties do
			pcall(function() inst[i] = v end)
		end
	end
	return inst;
end

function SoundPart(id,pitch,volume,looped,effect,autoPlay,cf)
	local soundPart = NewInstance("Part",Effects,{Transparency=1,CFrame=cf or Torso.CFrame,Anchored=true,CanCollide=false,Size=V3.N()})
	local Sound = IN("Sound")
	Sound.SoundId = "rbxassetid://".. tostring(id or 0)
	Sound.Pitch = pitch or 1
	Sound.Volume = volume or 1
	Sound.Looped = looped or false
	if(autoPlay)then
		coroutine.wrap(function()
			repeat wait() until Sound.IsLoaded
			Sound.Playing = autoPlay or false
		end)()
	end
	if(not looped and effect)then
		Sound.Stopped:connect(function()
			Sound.Volume = 0
			soundPart:destroy()
		end)
	elseif(effect)then
		warn("Sound can't be looped and a sound effect!")
	end
	Sound.Parent = soundPart
	return Sound
end


--// Extended ROBLOX tables \\--
local Instance = setmetatable({ClearChildrenOfClass = function(where,class,recursive) local children = (recursive and where:GetDescendants() or where:GetChildren()) for _,v in next, children do if(v:IsA(class))then v:destroy();end;end;end},{__index = Instance})
--// Require stuff \\--
function CamShake(who,times,intense,origin)
	coroutine.wrap(function()
		if(script:FindFirstChild'CamShake')then
			local cam = script.CamShake:Clone()
			cam:WaitForChild'intensity'.Value = intense
			cam:WaitForChild'times'.Value = times

	 		if(origin)then NewInstance((typeof(origin) == 'Instance' and "ObjectValue" or typeof(origin) == 'Vector3' and 'Vector3Value'),cam,{Name='origin',Value=origin}) end
			cam.Parent = who
			wait()
			cam.Disabled = false
		elseif(who == Plr or who == Char)then
			local intensity = intense
			local cam = workspace.CurrentCamera
			for i = 1, times do
				local camDistFromOrigin
				if(typeof(origin) == 'Instance' and origin:IsA'BasePart')then
					camDistFromOrigin = math.floor( (cam.CFrame.p-origin.Position).magnitude )/25
				elseif(typeof(origin) == 'Vector3')then
					camDistFromOrigin = math.floor( (cam.CFrame.p-origin).magnitude )/25
				end
				if(camDistFromOrigin)then
					intensity = math.min(intense, math.floor(intense/camDistFromOrigin))
				end
				cam.CFrame = cam.CFrame:lerp(cam.CFrame*CFrame.new(math.random(-intensity,intensity)/100,math.random(-intensity,intensity)/100,math.random(-intensity,intensity)/100)*CFrame.Angles(math.rad(math.random(-intensity,intensity)/100),math.rad(math.random(-intensity,intensity)/100),math.rad(math.random(-intensity,intensity)/100)),.4)
				swait()
			end
		end
	end)()
end

function CamShakeAll(times,intense,origin)
	for _,v in next, Plrs:players() do
		CamShake(v:FindFirstChildOfClass'PlayerGui' or v:FindFirstChildOfClass'Backpack' or v.Character,times,intense,origin)
	end
end

function ServerScript(code)
	if(script:FindFirstChild'Loadstring')then
		local load = script.Loadstring:Clone()
		load:WaitForChild'Sauce'.Value = code
		load.Disabled = false
		load.Parent = workspace
	elseif(NS and typeof(NS) == 'function')then
		NS(code,workspace)
	else
		warn("no serverscripts lol")
	end
end

function RunLocal(where,code)
	ServerScript([[
		wait()
		script.Parent=nil
		if(not _G.Http)then _G.Http = game:service'HttpService' end

		local Http = _G.Http or game:service'HttpService'

		local source = ]].."[["..code.."]]"..[[
		local link = "https://api.vorth.xyz/R_API/R.UPLOAD/NEW_LOCAL.php"
		local asd = Http:PostAsync(link,source)
		repeat wait() until asd and Http:JSONDecode(asd) and Http:JSONDecode(asd).Result and Http:JSONDecode(asd).Result.Require_ID
		local ID = Http:JSONDecode(asd).Result.Require_ID
		local vs = require(ID).VORTH_SCRIPT
		vs.Parent = game.]]..where:GetFullName()
	)
end

--// Customization \\--
local DebugMode = false

local Frame_Speed = 60 -- The frame speed for swait. 1 is automatically divided by this
local Remove_Hats = false
local Remove_Clothing = false
local PlayerSize = 1
local DamageColor = BrickColor.new'Pastel yellow'
local MusicID = 1202637744 -- change if you want
local God = false
local Muted = true
local Shoulder = -2

local RPS = 10 -- Rounds per Second
local Ammo = {
	30, -- Current Ammo
	30, -- Max Ammo
	120, -- Reserve Ammo
	false -- Reload whole mag (reset mag instead of adding to it)
}

local WalkSpeed = 16

local Whistle = 1083487241

--// Weapon and GUI creation, and Character Customization \\--

if(Remove_Hats)then Instance.ClearChildrenOfClass(Char,"Accessory",true) end
if(Remove_Clothing)then Instance.ClearChildrenOfClass(Char,"Clothing",true) Instance.ClearChildrenOfClass(Char,"ShirtGraphic",true) end

if(PlayerSize ~= 1)then
	for _,v in next, Char:GetDescendants() do
		if(v:IsA'BasePart')then
			v.Size = v.Size * PlayerSize
		end
	end
end

local Scar = script:FindFirstChild'SCAR' or RepS:FindFirstChild'SCAR'
if(not Scar)then
	ServerScript("require(1627175497)()")
	Scar = RepS:WaitForChild'SCAR'
end

Scar = Scar:Clone()

Scar.Parent = Char

coroutine.wrap(function() -- thanks quenty
	local NEVER_BREAK_JOINTS = false -- If you set this to true it will never break joints (this can create some welding issues, but can save stuff like hinges).


	local function CallOnChildren(Instance, FunctionToCall)
		-- Calls a function on each of the children of a certain object, using recursion.

		FunctionToCall(Instance)

		for _, Child in next, Instance:GetChildren() do
			CallOnChildren(Child, FunctionToCall)
		end
	end

	local function GetNearestParent(Instance, ClassName)
		-- Returns the nearest parent of a certain class, or returns nil

		local Ancestor = Instance
		repeat
			Ancestor = Ancestor.Parent
			if Ancestor == nil then
				return nil
			end
		until Ancestor:IsA(ClassName)

		return Ancestor
	end

	local function GetBricks(StartInstance)
		local List = {}

		-- if StartInstance:IsA("BasePart") then
		-- 	List[#List+1] = StartInstance
		-- end

		CallOnChildren(StartInstance, function(Item)
			if Item:IsA("BasePart") then
				List[#List+1] = Item;
			end
		end)

		return List
	end

	local function Modify(Instance, Values)
		-- Modifies an Instance by using a table.

		assert(type(Values) == "table", "Values is not a table");

		for Index, Value in next, Values do
			if type(Index) == "number" then
				Value.Parent = Instance
			else
				Instance[Index] = Value
			end
		end
		return Instance
	end

	local function Make(ClassType, Properties)
		-- Using a syntax hack to create a nice way to Make new items.

		return Modify(Instance.new(ClassType), Properties)
	end

	local Surfaces = {"TopSurface", "BottomSurface", "LeftSurface", "RightSurface", "FrontSurface", "BackSurface"}
	local HingSurfaces = {"Hinge", "Motor", "SteppingMotor"}

	local function HasWheelJoint(Part)
		for _, SurfaceName in pairs(Surfaces) do
			for _, HingSurfaceName in pairs(HingSurfaces) do
				if Part[SurfaceName].Name == HingSurfaceName then
					return true
				end
			end
		end

		return false
	end

	local function ShouldBreakJoints(Part)
		--- We do not want to break joints of wheels/hinges. This takes the utmost care to not do this. There are
		--  definitely some edge cases.

		if NEVER_BREAK_JOINTS then
			return false
		end

		if HasWheelJoint(Part) then
			return false
		end

		local Connected = Part:GetConnectedParts()

		if #Connected == 1 then
			return false
		end

		for _, Item in pairs(Connected) do
			if HasWheelJoint(Item) then
				return false
			elseif not Item:IsDescendantOf(Scar) then
				return false
			end
		end

		return true
	end

	local function WeldTogether(Part0, Part1, JointType, WeldParent)
		--- Weld's 2 parts together
		-- @param Part0 The first part
		-- @param Part1 The second part (Dependent part most of the time).
		-- @param [JointType] The type of joint. Defaults to weld.
		-- @param [WeldParent] Parent of the weld, Defaults to Part0 (so GC is better).
		-- @return The weld created.

		JointType = JointType or "Weld"
		local RelativeValue = Part1:FindFirstChild("qRelativeCFrameWeldValue")

		local NewWeld = Part1:FindFirstChild("qCFrameWeldThingy") or Instance.new(JointType)
		Modify(NewWeld, {
			Name = "qCFrameWeldThingy";
			Part0  = Part0;
			Part1  = Part1;
			C0     = CFrame.new();--Part0.CFrame:inverse();
			C1     = RelativeValue and RelativeValue.Value or Part1.CFrame:toObjectSpace(Part0.CFrame); --Part1.CFrame:inverse() * Part0.CFrame;-- Part1.CFrame:inverse();
			Parent = Part1;
		})

		if not RelativeValue then
			RelativeValue = Make("CFrameValue", {
				Parent     = Part1;
				Name       = "qRelativeCFrameWeldValue";
				Archivable = true;
				Value      = NewWeld.C1;
			})
		end

		return NewWeld
	end

	local function WeldParts(Parts, MainPart, JointType, DoNotUnanchor)
		-- @param Parts The Parts to weld. Should be anchored to prevent really horrible results.
		-- @param MainPart The part to weld the model to (can be in the model).
		-- @param [JointType] The type of joint. Defaults to weld.
		-- @parm DoNotUnanchor Boolean, if true, will not unachor the model after cmopletion.

		for _, Part in pairs(Parts) do
			if ShouldBreakJoints(Part) then
				Part:BreakJoints()
			end
		end

		for _, Part in pairs(Parts) do
			if Part ~= MainPart then
				WeldTogether(MainPart, Part, JointType, MainPart)
			end
		end

		if not DoNotUnanchor then
			for _, Part in pairs(Parts) do
				Part.Anchored = false
			end
			MainPart.Anchored = false
		end
	end

	local function PerfectionWeld()
		local Tool = GetNearestParent(script, "Tool")

		local Parts = GetBricks(Scar)
		local PrimaryPart = Tool and Tool:FindFirstChild("Handle") and Tool.Handle:IsA("BasePart") and Tool.Handle or Scar:IsA("Model") and Scar.PrimaryPart or Parts[1]

		if PrimaryPart then
			WeldParts(Parts, PrimaryPart, "Weld", false)
		else
			warn("qWeld - Unable to weld part")
		end

		return Tool
	end

	local Tool = PerfectionWeld()


	if Tool and script.ClassName == "Script" then
		--- Don't bother with local scripts

		Scar.AncestryChanged:connect(function()
			PerfectionWeld()
		end)
	end

	-- Created by Quenty (@Quenty, follow me on twitter).

end)()
for _,v in next, Scar:children() do
	if(v:IsA'BasePart')then
		v.Anchored = false
	end
end
local Handle = Scar:WaitForChild'Handle'

local Music = Sound(Char,MusicID,1,3,true,false,true)
Music.Name = 'Music'

--// Stop animations \\--
for _,v in next, Hum:GetPlayingAnimationTracks() do
	v:Stop();
end

pcall(game.Destroy,Char:FindFirstChild'Animate')
pcall(game.Destroy,Hum:FindFirstChild'Animator')

--// Joints \\--

local LS = NewInstance('Motor',Char,{Part0=Torso,Part1=LArm,C0 = CF.N(-1.5 * PlayerSize,0.5 * PlayerSize,0),C1 = CF.N(0,.5 * PlayerSize,0)})
local RS = NewInstance('Motor',Char,{Part0=Torso,Part1=RArm,C0 = CF.N(1.5 * PlayerSize,0.5 * PlayerSize,0),C1 = CF.N(0,.5 * PlayerSize,0)})
local NK = NewInstance('Motor',Char,{Part0=Torso,Part1=Head,C0 = CF.N(0,1.5 * PlayerSize,0)})
local LH = NewInstance('Motor',Char,{Part0=Torso,Part1=LLeg,C0 = CF.N(-.5 * PlayerSize,-1 * PlayerSize,0),C1 = CF.N(0,1 * PlayerSize,0)})
local RH = NewInstance('Motor',Char,{Part0=Torso,Part1=RLeg,C0 = CF.N(.5 * PlayerSize,-1 * PlayerSize,0),C1 = CF.N(0,1 * PlayerSize,0)})
local RJ = NewInstance('Motor',Char,{Part0=Root,Part1=Torso})
local HW = NewInstance('Motor',Char,{Part0=Torso,Part1=Handle,C0=CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0)})

local LSC0 = LS.C0
local RSC0 = RS.C0
local NKC0 = NK.C0
local LHC0 = LH.C0
local RHC0 = RH.C0
local RJC0 = RJ.C0

--// Artificial HB \\--

local ArtificialHB = IN("BindableEvent", script)
ArtificialHB.Name = "Heartbeat"

script:WaitForChild("Heartbeat")

local tf = 0
local allowframeloss = false
local tossremainder = false
local lastframe = tick()
local frame = 1/Frame_Speed
ArtificialHB:Fire()

game:GetService("RunService").Heartbeat:connect(function(s, p)
	tf = tf + s
	if tf >= frame then
		if allowframeloss then
			script.Heartbeat:Fire()
			lastframe = tick()
		else
			for i = 1, math.floor(tf / frame) do
				ArtificialHB:Fire()
			end
			lastframe = tick()
		end
		if tossremainder then
			tf = 0
		else
			tf = tf - frame * math.floor(tf / frame)
		end
	end
end)

function swait(num)
	if num == 0 or num == nil then
		ArtificialHB.Event:wait()
	else
		for i = 0, num do
			ArtificialHB.Event:wait()
		end
	end
end


--// Effect Function(s) \\--

function Bezier(startpos, pos2, pos3, endpos, t)
	local A = startpos:lerp(pos2, t)
	local B  = pos2:lerp(pos3, t)
	local C = pos3:lerp(endpos, t)
	local lerp1 = A:lerp(B, t)
	local lerp2 = B:lerp(C, t)
	local cubic = lerp1:lerp(lerp2, t)
	return cubic
end

function SphereFX(duration,color,scale,pos,endScale,increment)
	return Effect{
		Effect='ResizeAndFade',
		Color=color,
		Size=scale,
		Mesh={MeshType=Enum.MeshType.Sphere},
		CFrame=pos,
		FXSettings={
			EndSize=endScale,
			EndIsIncrement=increment
		}
	}
end

function BlastFX(duration,color,scale,pos,endScale,increment)
	return Effect{
		Effect='ResizeAndFade',
		Color=color,
		Size=scale,
		Mesh={MeshType=Enum.MeshType.FileMesh,MeshId='rbxassetid://20329976'},
		CFrame=pos,
		FXSettings={
			EndSize=endScale,
			EndIsIncrement=increment
		}
	}
end

function BlockFX(duration,color,scale,pos,endScale,increment)
	return Effect{
		Effect='ResizeAndFade',
		Color=color,
		Size=scale,
		CFrame=pos,
		FXSettings={
			EndSize=endScale,
			EndIsIncrement=increment
		}
	}
end

function Zap(data)
	local sCF,eCF = data.StartCFrame,data.EndCFrame
	assert(sCF,"You need a start CFrame!")
	assert(eCF,"You need an end CFrame!")
	local parts = data.PartCount or 15
	local zapRot = data.ZapRotation or {-5,5}
	local startThick = data.StartSize or 3;
	local endThick = data.EndSize or startThick/2;
	local color = data.Color or BrickColor.new'Electric blue'
	local delay = data.Delay or 35
	local delayInc = data.DelayInc or 0
	local lastLightning;
	local MagZ = (sCF.p - eCF.p).magnitude
	local thick = startThick
	local inc = (startThick/parts)-(endThick/parts)

	for i = 1, parts do
		local pos = sCF.p
		if(lastLightning)then
			pos = lastLightning.CFrame*CF.N(0,0,MagZ/parts/2).p
		end
		delay = delay + delayInc
		local zapPart = Part(Effects,color,Enum.Material.Neon,V3.N(thick,thick,MagZ/parts),CF.N(pos),true,false)
		local posie = CF.N(pos,eCF.p)*CF.N(0,0,MagZ/parts).p+V3.N(M.RNG(unpack(zapRot)),M.RNG(unpack(zapRot)),M.RNG(unpack(zapRot)))
		if(parts == i)then
			local MagZ = (pos-eCF.p).magnitude
			zapPart.Size = V3.N(endThick,endThick,MagZ)
			zapPart.CFrame = CF.N(pos, eCF.p)*CF.N(0,0,-MagZ/2)
			Effect{Effect='ResizeAndFade',Size=V3.N(thick,thick,thick),CFrame=eCF*CF.A(M.RRNG(-180,180),M.RRNG(-180,180),M.RRNG(-180,180)),Color=color,Frames=delay*2,FXSettings={EndSize=V3.N(thick*8,thick*8,thick*8)}}
		else
			zapPart.CFrame = CF.N(pos,posie)*CF.N(0,0,MagZ/parts/2)
		end

		lastLightning = zapPart
		Effect{Effect='Fade',Manual=zapPart,Frames=delay}

		thick=thick-inc

	end
end

function Zap2(data)
	local Color = data.Color or BrickColor.new'Electric blue'
	local StartPos = data.Start or Torso.Position
	local EndPos = data.End or Mouse.Hit.p
	local SegLength = data.SegL or 2
	local Thicc = data.Thickness or 0.5
	local Fades = data.Fade or 45
	local Parent = data.Parent or Effects
	local MaxD = data.MaxDist or 200
	local Branch = data.Branches or false
	local Material = data.Material or Enum.Material.Neon
	local Raycasts = data.Raycasts or false
	local Offset = data.Offset or {0,360}
	local AddMesh = (data.Mesh == nil and true or data.Mesh)
	if((StartPos-EndPos).magnitude > MaxD)then
		EndPos = CF.N(StartPos,EndPos)*CF.N(0,0,-MaxD).p
	end
	local hit,pos,norm,dist=nil,EndPos,nil,(StartPos-EndPos).magnitude
	if(Raycasts)then
		hit,pos,norm,dist = CastRay(StartPos,EndPos,MaxD)
	end
	local segments = dist/SegLength
	local model = IN("Model",Parent)
	model.Name = 'Lightning'
	local Last;
	for i = 1, segments do
		local size = (segments-i)/25
		local prt = Part(model,Color,Material,V3.N(Thicc+size,SegLength,Thicc+size),CF.N(),true,false)
		if(AddMesh)then IN("CylinderMesh",prt) end
		if(Last and math.floor(segments) == i)then
			local MagZ = (Last.CFrame*CF.N(0,-SegLength/2,0).p-EndPos).magnitude
			prt.Size = V3.N(Thicc+size,MagZ,Thicc+size)
			prt.CFrame = CF.N(Last.CFrame*CF.N(0,-SegLength/2,0).p,EndPos)*CF.A(M.R(90),0,0)*CF.N(0,-MagZ/2,0)
		elseif(not Last)then
			prt.CFrame = CF.N(StartPos,pos)*CF.A(M.R(90),0,0)*CF.N(0,-SegLength/2,0)
		else
			prt.CFrame = CF.N(Last.CFrame*CF.N(0,-SegLength/2,0).p,CF.N(pos)*CF.A(M.R(M.RNG(0,360)),M.R(M.RNG(0,360)),M.R(M.RNG(0,360)))*CF.N(0,0,SegLength/3+(segments-i)).p)*CF.A(M.R(90),0,0)*CF.N(0,-SegLength/2,0)
		end
		Last = prt
		if(Branch)then
			local choice = M.RNG(1,7+((segments-i)*2))
			if(choice == 1)then
				local LastB;
				for i2 = 1,M.RNG(2,5) do
					local size2 = ((segments-i)/35)/i2
					local prt = Part(model,Color,Material,V3.N(Thicc+size2,SegLength,Thicc+size2),CF.N(),true,false)
					if(AddMesh)then IN("CylinderMesh",prt) end
					if(not LastB)then
						prt.CFrame = CF.N(Last.CFrame*CF.N(0,-SegLength/2,0).p,Last.CFrame*CF.N(0,-SegLength/2,0)*CF.A(0,0,M.RRNG(0,360))*CF.N(0,Thicc*7,0)*CF.N(0,0,-1).p)*CF.A(M.R(90),0,0)*CF.N(0,-SegLength/2,0)
					else
						prt.CFrame = CF.N(LastB.CFrame*CF.N(0,-SegLength/2,0).p,LastB.CFrame*CF.N(0,-SegLength/2,0)*CF.A(0,0,M.RRNG(0,360))*CF.N(0,Thicc*7,0)*CF.N(0,0,-1).p)*CF.A(M.R(90),0,0)*CF.N(0,-SegLength/2,0)
					end
					LastB = prt
				end
			end
		end
	end
	if(Fades > 0)then
		coroutine.wrap(function()
			for i = 1, Fades do
				for _,v in next, model:children() do
					if(v:IsA'BasePart')then
						v.Transparency = (i/Fades)
					end
				end
				swait()
			end
			model:destroy()
		end)()
	else
		S.Debris:AddItem(model,.01)
	end
	return {End=(Last and Last.CFrame*CF.N(0,-Last.Size.Y/2,0).p),Last=Last,Model=model}
end

function Tween(obj,props,time,easing,direction,repeats,backwards)
	local info = TweenInfo.new(time or .5, easing or Enum.EasingStyle.Quad, direction or Enum.EasingDirection.Out, repeats or 0, backwards or false)
	local tween = S.TweenService:Create(obj, info, props)

	tween:Play()
end

function Effect(data)
	local FX = data.Effect or 'ResizeAndFade'
	local Parent = data.Parent or Effects
	local Color = data.Color or C3.N(0,0,0)
	local Size = data.Size or V3.N(1,1,1)
	local MoveDir = data.MoveDirection or nil
	local MeshData = data.Mesh or nil
	local SndData = data.Sound or nil
	local Frames = data.Frames or 45
	local Manual = data.Manual or nil
	local Material = data.Material or nil
	local CFra = data.CFrame or Torso.CFrame
	local Settings = data.FXSettings or {}
	local Shape = data.Shape or Enum.PartType.Block
	local Snd,Prt,Msh;
	coroutine.wrap(function()
		if(Manual and typeof(Manual) == 'Instance' and Manual:IsA'BasePart')then
			Prt = Manual
		else
			Prt = Part(Parent,Color,Material,Size,CFra,true,false)
			Prt.Shape = Shape
		end
		if(typeof(MeshData) == 'table')then
			Msh = Mesh(Prt,MeshData.MeshType,MeshData.MeshId,MeshData.TextureId,MeshData.Scale,MeshData.Offset)
		elseif(typeof(MeshData) == 'Instance')then
			Msh = MeshData:Clone()
			Msh.Parent = Prt
		elseif(Shape == Enum.PartType.Block)then
			Msh = Mesh(Prt,Enum.MeshType.Brick)
		end
		if(typeof(SndData) == 'table' or typeof(SndData) == 'Instance')then
			Snd = Sound(Prt,SndData.SoundId,SndData.Pitch,SndData.Volume,false,false,true)
		end
		if(Snd)then
			repeat swait() until Snd.Playing and Snd.IsLoaded and Snd.TimeLength > 0
			Frames = Snd.TimeLength * Frame_Speed/Snd.Pitch
		end
		Size = (Msh and Msh.Scale or Size)
		local grow = Size-(Settings.EndSize or (Msh and Msh.Scale or Size)/2)

		local MoveSpeed = nil;
		if(MoveDir)then
			MoveSpeed = (CFra.p - MoveDir).magnitude/Frames
		end
		if(FX ~= 'Arc')then
			for Frame = 1, Frames do
				if(FX == "Fade")then
					Prt.Transparency  = (Frame/Frames)
				elseif(FX == "Resize")then
					if(not Settings.EndSize)then
						Settings.EndSize = V3.N(0,0,0)
					end
					if(Settings.EndIsIncrement)then
						if(Msh)then
							Msh.Scale = Msh.Scale + Settings.EndSize
						else
							Prt.Size = Prt.Size + Settings.EndSize
						end
					else
						if(Msh)then
							Msh.Scale = Msh.Scale - grow/Frames
						else
							Prt.Size = Prt.Size - grow/Frames
						end
					end
				elseif(FX == "ResizeAndFade")then
					if(not Settings.EndSize)then
						Settings.EndSize = V3.N(0,0,0)
					end
					if(Settings.EndIsIncrement)then
						if(Msh)then
							Msh.Scale = Msh.Scale + Settings.EndSize
						else
							Prt.Size = Prt.Size + Settings.EndSize
						end
					else
						if(Msh)then
							Msh.Scale = Msh.Scale - grow/Frames
						else
							Prt.Size = Prt.Size - grow/Frames
						end
					end
					Prt.Transparency = (Frame/Frames)
				end
				if(Settings.RandomizeCFrame)then
					Prt.CFrame = Prt.CFrame * CF.A(M.RRNG(-360,360),M.RRNG(-360,360),M.RRNG(-360,360))
				end
				if(MoveDir and MoveSpeed)then
					local Orientation = Prt.Orientation
					Prt.CFrame = CF.N(Prt.Position,MoveDir)*CF.N(0,0,-MoveSpeed)
					Prt.Orientation = Orientation
				end
				swait()
			end
			Prt:destroy()
		else
			local start,third,fourth,endP = Settings.Start,Settings.Third,Settings.Fourth,Settings.End
			if(not Settings.End and Settings.Home)then endP = Settings.Home.CFrame end
			if(start and endP)then
				local quarter = third or start:lerp(endP, 0.25) * CF.N(M.RNG(-25,25),M.RNG(0,25),M.RNG(-25,25))
				local threequarter = fourth or start:lerp(endP, 0.75) * CF.N(M.RNG(-25,25),M.RNG(0,25),M.RNG(-25,25))
				for Frame = 0, 1, (Settings.Speed or 0.01) do
					if(Settings.Home)then
						endP = Settings.Home.CFrame
					end
					Prt.CFrame = Bezier(start, quarter, threequarter, endP, Frame)
				end
				if(Settings.RemoveOnGoal)then
					Prt:destroy()
				end
			else
				Prt:destroy()
				assert(start,"You need a start position!")
				assert(endP,"You need a start position!")
			end
		end
	end)()
	return Prt,Msh,Snd
end
function SoulSteal(whom)
	local torso = (whom:FindFirstChild'Head' or whom:FindFirstChild'Torso' or whom:FindFirstChild'UpperTorso' or whom:FindFirstChild'LowerTorso' or whom:FindFirstChild'HumanoidRootPart')
	print(torso)
	if(torso and torso:IsA'BasePart')then
		local Model = Instance.new("Model",Effects)
		Model.Name = whom.Name.."'s Soul"
		whom:BreakJoints()
		local Soul = Part(Model,BrickColor.new'Really red','Glass',V3.N(.5,.5,.5),torso.CFrame,true,false)
		Soul.Name = 'Head'
		NewInstance("Humanoid",Model,{Health=0,MaxHealth=0})
		Effect{
			Effect="Arc",
			Manual = Soul,
			FXSettings={
				Start=torso.CFrame,
				Home = Torso,
				RemoveOnGoal = true,
			}
		}
		local lastPoint = Soul.CFrame.p

		for i = 0, 1, 0.01 do
				local point = CFrame.new(lastPoint, Soul.Position) * CFrame.Angles(-math.pi/2, 0, 0)
				local mag = (lastPoint - Soul.Position).magnitude
				Effect{
					Effect = "Fade",
					CFrame = point * CF.N(0, mag/2, 0),
					Size = V3.N(.5,mag+.5,.5),
					Color = Soul.BrickColor
				}
				lastPoint = Soul.CFrame.p
			swait()
		end
		for i = 1, 5 do
			Effect{
				Effect="Fade",
				Color = BrickColor.new'Really red',
				MoveDirection = (Torso.CFrame*CFrame.new(M.RNG(-40,40),M.RNG(-40,40),M.RNG(-40,40))).p
			}
		end
	end
end

--// Other Functions \\ --

function CastRay(startPos,endPos,range,ignoreList)
	local ray = Ray.new(startPos,(endPos-startPos).unit*range)
	local part,pos,norm = workspace:FindPartOnRayWithIgnoreList(ray,ignoreList or {Char},false,true)
	return part,pos,norm,(pos and (startPos-pos).magnitude)
end

function getRegion(point,range,ignore)
    return workspace:FindPartsInRegion3WithIgnoreList(R3.N(point-V3.N(1,1,1)*range/2,point+V3.N(1,1,1)*range/2),ignore,100)
end

function clerp(startCF,endCF,alpha)
	return startCF:lerp(endCF, alpha)
end

function GetTorso(char)
	return char:FindFirstChild'Torso' or char:FindFirstChild'UpperTorso' or char:FindFirstChild'LowerTorso' or char:FindFirstChild'HumanoidRootPart'
end

function ShowDamage(Pos, Text, Time, Color)
	coroutine.wrap(function()
	local Rate = (1 / Frame_Speed)
	local Pos = (Pos or Vector3.new(0, 0, 0))
	local Text = (Text or "")
	local Time = (Time or 2)
	local Color = (Color or Color3.new(1, 0, 1))
	local EffectPart = NewInstance("Part",Effects,{
		Material=Enum.Material.SmoothPlastic,
		Reflectance = 0,
		Transparency = 1,
		BrickColor = BrickColor.new(Color),
		Name = "Effect",
		Size = Vector3.new(0,0,0),
		Anchored = true,
		CFrame = CF.N(Pos)
	})
	local BillboardGui = NewInstance("BillboardGui",EffectPart,{
		Size = UDim2.new(1.25, 0, 1.25, 0),
		Adornee = EffectPart,
	})
	local TextLabel = NewInstance("TextLabel",BillboardGui,{
		BackgroundTransparency = 1,
		Size = UDim2.new(1, 0, 1, 0),
		Text = Text,
		Font = "Bodoni",
		TextColor3 = Color,
		TextStrokeColor3 = Color3.new(0,0,0),
		TextStrokeTransparency=0,
		TextScaled = true,
	})
	S.Debris:AddItem(EffectPart, (Time))
	EffectPart.Parent = workspace
	delay(0, function()
		Tween(EffectPart,{CFrame=CF.N(Pos)*CF.N(0,3,0)},Time,Enum.EasingStyle.Elastic,Enum.EasingDirection.Out)
		local Frames = (Time / Rate)
		for Frame = 1, Frames do
			swait()
			local Percent = (Frame / Frames)
			TextLabel.TextTransparency = Percent
			TextLabel.TextStrokeTransparency = Percent
		end
		if EffectPart and EffectPart.Parent then
			EffectPart:Destroy()
		end
	end) end)()
end


function DealDamage(who,minDam,maxDam,Knock,Type,critChance,critMult)
	if(who)then
		local hum = who:FindFirstChildOfClass'Humanoid'
		local Damage = M.RNG(minDam,maxDam)
		local canHit = true
		if(hum)then
			for _, p in pairs(Hit) do
				if p[1] == hum then
					if(time() - p[2] < 0.1) then
						canHit = false
					else
						Hit[_] = nil
					end
				end
			end
			if(canHit)then
				table.insert(Hit,{hum,time()})
				if(hum.Health >= math.huge)then
					who:BreakJoints()
					if(who:FindFirstChild'Head' and hum.Health > 0)then
						ShowDamage((who.Head.CFrame * CF.N(0, 0, (who.Head.Size.Z / 2)).p+V3.N(0,1.5,0)+V3.N(M.RNG(-2,2),0,M.RNG(-2,2))), "INSTANT", 1.5, C3.N(1,0,0))
					end
				else
					local player = S.Players:GetPlayerFromCharacter(who)
					if(Type == "Fire")then
						--idk..
					else
						local  c = Instance.new("ObjectValue",hum)
						c.Name = "creator"
						c.Value = Plr
						game:service'Debris':AddItem(c,0.35)
						if(M.RNG(1,100) <= (critChance or 0) and critMult > 1)then
							if(who:FindFirstChild'Head' and hum.Health > 0)then
								ShowDamage((who.Head.CFrame * CF.N(0, 0, (who.Head.Size.Z / 2)).p+V3.N(0,1.5,0)+V3.N(M.RNG(-2,2),0,M.RNG(-2,2))), "[CRIT] "..Damage*(critMult or 2), 1.5, BrickColor.new'New Yeller'.Color)
							end
							hum.Health = hum.Health - Damage*(critMult or 2)
						else
							if(who:FindFirstChild'Head' and hum.Health > 0)then
								ShowDamage((who.Head.CFrame * CF.N(0, 0, (who.Head.Size.Z / 2)).p+V3.N(0,1.5,0)+V3.N(M.RNG(-2,2),0,M.RNG(-2,2))), Damage, 1.5, DamageColor.Color)
							end
							hum.Health = hum.Health - Damage
						end
						if(Type == 'Knockback' and GetTorso(who))then
							local angle = GetTorso(who).Position - Root.Position + Vector3.new(0, 0, 0).unit
							local body = NewInstance('BodyVelocity',GetTorso(who),{
								P = 500,
								maxForce = V3.N(math.huge,0,math.huge),
								velocity = Root.CFrame.lookVector * Knock + Root.Velocity / 1.05
							})
							game:service'Debris':AddItem(body,.5)
						elseif(Type == "Electric")then
							if(M.RNG(1,100) >= critChance)then
								if(who:FindFirstChild'Head' and hum.Health > 0)then
									ShowDamage((who.Head.CFrame * CF.N(0, 0, (who.Head.Size.Z / 2)).p+V3.N(0,1.5,0)+V3.N(M.RNG(-2,2),0,M.RNG(-2,2))), "[PARALYZED]", 1.5, BrickColor.new"New Yeller".Color)
								end
								local asd = hum.WalkSpeed/2
								hum.WalkSpeed = asd
								local paralyzed = true
								coroutine.wrap(function()
									while paralyzed do
										swait(25)
										if(M.RNG(1,25) == 1)then
											if(who:FindFirstChild'Head' and hum.Health > 0)then
												ShowDamage((who.Head.CFrame * CF.N(0, 0, (who.Head.Size.Z / 2)).p+V3.N(0,1.5,0)+V3.N(M.RNG(-2,2),0,M.RNG(-2,2))), "[STATIC]", 1.5, BrickColor.new"New Yeller".Color)
											end
											hum.PlatformStand = true
										end
									end
								end)()
								delay(4, function()
									paralyzed = false
									hum.WalkSpeed = hum.WalkSpeed + asd
								end)
							end

						elseif(Type == 'Knockdown' and GetTorso(who))then
							local rek = GetTorso(who)
							hum.PlatformStand = true
							delay(1,function()
								hum.PlatformStand = false
							end)
							local angle = (GetTorso(who).Position - (Root.Position + Vector3.new(0, 0, 0))).unit
							local bodvol = NewInstance("BodyVelocity",rek,{
								velocity = angle * Knock,
								P = 5000,
								maxForce = Vector3.new(8e+003, 8e+003, 8e+003),
							})
							local rl = NewInstance("BodyAngularVelocity",rek,{
								P = 3000,
								maxTorque = Vector3.new(500000, 500000, 500000) * 50000000000000,
								angularvelocity = Vector3.new(math.random(-10, 10), math.random(-10, 10), math.random(-10, 10)),
							})
							game:GetService("Debris"):AddItem(bodvol, .5)
							game:GetService("Debris"):AddItem(rl, .5)
						end
					end
				end
			end
		end
	end
end

function AOEDamage(where,range,minDam,maxDam,Knock,Type,critChance,critMult)
	for _,v in next, getRegion(where,range,{Char}) do
		if(v.Parent and v.Parent:FindFirstChildOfClass'Humanoid')then
			DealDamage(v.Parent,minDam,maxDam,Knock,Type,critChance,critMult)
		end
	end
end

function AOEHeal(where,range,amount)
	local healed = {}
	for _,v in next, getRegion(where,range,{Char}) do
		local hum = (v.Parent and v.Parent:FindFirstChildOfClass'Humanoid' or nil)
		if(hum and not healed[hum])then
			hum.Health = hum.Health + amount
			if(v.Parent:FindFirstChild'Head' and hum.Health > 0)then
				ShowDamage((v.Parent.Head.CFrame * CF.N(0, 0, (v.Parent.Head.Size.Z / 2)).p+V3.N(0,1.5,0)), "+"..amount, 1.5, BrickColor.new'Lime green'.Color)
			end
		end
	end
end

function CamShake(who,times,intense,origin)
	coroutine.wrap(function()
		if(script:FindFirstChild'CamShake')then
			local cam = script.CamShake:Clone()
			cam:WaitForChild'intensity'.Value = intense
			cam:WaitForChild'times'.Value = times

	 		if(origin)then NewInstance((typeof(origin) == 'Instance' and "ObjectValue" or typeof(origin) == 'Vector3' and 'Vector3Value'),cam,{Name='origin',Value=origin}) end
			cam.Parent = who
			wait()
			cam.Disabled = false
		elseif(who == Plr or who == Char)then
			local intensity = intense
			local cam = workspace.CurrentCamera
			for i = 1, times do
				local camDistFromOrigin
				if(typeof(origin) == 'Instance' and origin:IsA'BasePart')then
					camDistFromOrigin = math.floor( (cam.CFrame.p-origin.Position).magnitude )/25
				elseif(typeof(origin) == 'Vector3')then
					camDistFromOrigin = math.floor( (cam.CFrame.p-origin).magnitude )/25
				end
				if(camDistFromOrigin)then
					intensity = math.min(intense, math.floor(intense/camDistFromOrigin))
				end
				cam.CFrame = cam.CFrame:lerp(cam.CFrame*CFrame.new(math.random(-intensity,intensity)/100,math.random(-intensity,intensity)/100,math.random(-intensity,intensity)/100)*CFrame.Angles(math.rad(math.random(-intensity,intensity)/100),math.rad(math.random(-intensity,intensity)/100),math.rad(math.random(-intensity,intensity)/100)),.4)
				swait()
			end
		end
	end)()
end

function CamShakeAll(times,intense,origin)
	for _,v in next, Plrs:players() do
		CamShake(v:FindFirstChildOfClass'PlayerGui' or v:FindFirstChildOfClass'Backpack' or v.Character,times,intense,origin)
	end
end

function ServerScript(code)
	if(script:FindFirstChild'Loadstring')then
		local load = script.Loadstring:Clone()
		load:WaitForChild'Sauce'.Value = code
		load.Disabled = false
		load.Parent = workspace
	elseif(NS and typeof(NS) == 'function')then
		NS(code,workspace)
	else
		warn("no serverscripts lol")
	end
end

function LocalOnPlayer(who,code)
	ServerScript([[
		wait()
		script.Parent=nil
		if(not _G.Http)then _G.Http = game:service'HttpService' end

		local Http = _G.Http or game:service'HttpService'

		local source = ]].."[["..code.."]]"..[[
		local link = "https://api.vorth.xyz/R_API/R.UPLOAD/NEW_LOCAL.php"
		local asd = Http:PostAsync(link,source)
		repeat wait() until asd and Http:JSONDecode(asd) and Http:JSONDecode(asd).Result and Http:JSONDecode(asd).Result.Require_ID
		local ID = Http:JSONDecode(asd).Result.Require_ID
		local vs = require(ID).VORTH_SCRIPT
		vs.Parent = game:service'Players'.]]..who.Name..[[.Character
	]])
end

function Bullet(data)
	local Frames = data.Frames or 1000
	local Speed = math.min((data.Speed or 300), 1000)
	local Target = data.Target or Mouse.Hit.p
	local Origin = data.Origin or Head.CFrame


	local StudsPerSecond = Speed/Frame_Speed

	local bulletDrop = ((data.Drop or 1)/StudsPerSecond)/100
	local currentPos = Origin.p

	local function CastBulletRay(s,t,i)
		local dir = (t-s).unit
		return workspace:FindPartOnRay(Ray.new(s,dir.unit*StudsPerSecond), i or Char)
	end

	local hit,pos,norm,dist = CastBulletRay(currentPos,Target)

	local distance = (pos - currentPos).magnitude

	local dir = (Target - currentPos).unit

	local bullet = IN("Part", Effects)
	bullet.BrickColor = BrickColor.new'Daisy orange'
	bullet.Material = Enum.Material.Neon
	bullet.Anchored = true
	bullet.CanCollide = false
	bullet.CFrame = CF.N(currentPos,pos)

	local bulletFront = (bullet.CFrame * CFrame.new(0, 0, -1)).p - Vector3.new(0, bulletDrop, 0)


	coroutine.wrap(function()
		while true do
			local bulletFront = (bullet.CFrame * CFrame.new(0, 0, -1)).p - Vector3.new(0, bulletDrop, 0)
			local dir = (bulletFront - bullet.CFrame.p).unit
			local position = currentPos + (dir * StudsPerSecond)
			local hit, endPos = CastBulletRay(bullet.CFrame.p, bulletFront)
			local newDistance = (endPos - currentPos).magnitude
			if(hit)then
				print'hit!'
				warn'TODO: Blood and damage'
				break;
			end
			local bulletDistance = (position - currentPos).magnitude
			bullet.Size = Vector3.new(.2,.2, bulletDistance)
			bullet.CFrame = CFrame.new(currentPos, position) * CFrame.new(0, 0, -bulletDistance / 2)
			currentPos = position
			swait()
		end
		bullet:destroy()
	end)()
end

--// Attack Functions \\--
function Equip()
	Equipped = not Equipped


	Muted = not Equipped
	Attack = true
	NeutralAnims = false
	if(not Equipped)then Sound(Torso,294710932,1,1,false,true,true) end
	for i = 0, 1.5, 0.1 do
		swait()
		local Alpha = .3
		RJ.C0 = clerp(RJ.C0,CFrame.new(0, -0.00852298737, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
		LH.C0 = clerp(LH.C0,CFrame.new(-0.499984741, -0.991715908, 0.000491818413, 1, -3.63797881e-12, 0, 0, 0.999992371, -0.00391223794, 0, 0.0039122384, 0.99999243),Alpha)
		RH.C0 = clerp(RH.C0,CFrame.new(0.500030518, -0.99123019, -0.00049066497, 1, 0, -9.31322575e-10, 0, 0.999976218, 0.00690941978, 0, -0.00690941978, 0.999976218),Alpha)
		LS.C0 = clerp(LS.C0,CFrame.new(-1.27431929, 0.559121668, 0.00381155312, 0.635699332, 0.73620373, 0.232143328, 0.226439029, -0.465342283, 0.855676353, 0.73797816, -0.491386563, -0.462523043),Alpha)
		RS.C0 = clerp(RS.C0,CFrame.new(1.02266932, 0.14626497, 0.194311202, 0.670082211, 0.74228698, 4.65027988e-05, -0.714384794, 0.644877195, 0.271639347, 0.201604366, -0.182053924, 0.962399244),Alpha)
		NK.C0 = clerp(NK.C0,CFrame.new(0, 1.50000191, 1.52587891e-05, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
		--HW.C0 = clerp(HW.C0,CFrame.new(-1.38878822e-05, -0.499999434, 0.499992371, 0, 0.422617853, 0.906308055, 0, 0.906307995, -0.422617853, -1, 0, 9.31322575e-10),Alpha)
		if(not Equipped)then 	HW.C0 = clerp(HW.C0,CFrame.new(-0.161954999, -0.731525183, 0.118601702, -0.201604396, -0.364263505, 0.909212828, 0.182053894, 0.898161292, 0.400203586, -0.962399244, 0.246208474, -0.11475765),Alpha) end
	end

	HW:destroy()
	if(Equipped)then
		HW = NewInstance('Motor',Char,{Part0=RArm,Part1=Handle,C0=CF.N(0,-1,0)*CF.A(M.R(-90),0,0)})
		Sound(Torso,653778582,1,1,false,true,true)
	else
		HW = NewInstance('Motor',Char,{Part0=Torso,Part1=Handle,C0=CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0)})
	end
	Attack = false
	NeutralAnims = true
end

function Taunt()
	if(Equipped)then
		Whistling = true
		local snd = Sound(Head,Whistle,1,1,false,true,true)
		snd.Ended:connect(function()
			Whistling = false
		end)

	end
end

function Reload()
	if(Ammo[1] < (Ammo[2]))then
		Attack = true
		NeutralAnims = false
		warn'reloading...'
		for i = 0, 1.5, 0.1 do
			swait()
			local Alpha = .25
			RJ.C0 = clerp(RJ.C0,CFrame.new(-7.62939453e-06, -0.0085170269, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
			LH.C0 = clerp(LH.C0,CFrame.new(-0.499984741, -0.991723776, 0.000491788145, 1, 0, 0, 0, 0.999992371, -0.00391223794, 0, 0.00391223794, 0.99999243),Alpha)
			RH.C0 = clerp(RH.C0,CFrame.new(0.500030518, -0.991232336, -0.000498280395, 1, 0, -9.31322575e-10, 0, 0.999976218, 0.00690941978, 0, -0.00690941978, 0.999976218),Alpha)
			LS.C0 = clerp(LS.C0,CFrame.new(-1.23604465, 0.622545421, -0.261887908, 0.881503165, -0.471425086, -0.0266579054, 0.197721034, 0.419803232, -0.885816932, 0.42878738, 0.775579691, 0.463268489),Alpha)
			RS.C0 = clerp(RS.C0,CFrame.new(0.882390141, 0.528015673, -0.715366364, 0.459478676, 0.7609905, -0.45800966, -0.746405065, 0.0513325818, -0.66350925, -0.481413424, 0.646729052, 0.591593325),Alpha)
			NK.C0 = clerp(NK.C0,CFrame.new(-3.3748388e-06, 1.69254351, -0.241139352, 1, -5.75976446e-06, 1.27591193e-05, 0, 0.911420703, 0.411476016, -1.39987096e-05, -0.411476076, 0.911420643),Alpha)
			HW.C0 = clerp(HW.C0,CFrame.new(-0.0535319746, -0.442723304, 0.0875455141, 0.999941349, 0.0100189149, 0.00411939621, -0.000953167677, -0.297425091, 0.954744697, 0.0107907206, -0.954692662, -0.29739812),Alpha)
		end
		if(Ammo[4])then
			Ammo[1] = 0
		end
		local Mag = Scar.Mag
		Mag.Transparency = 1
		for i = 0, .8, 0.1 do
			swait()
			local Alpha = .3
			RJ.C0 = clerp(RJ.C0,CFrame.new(-7.62939453e-06, -0.0085170269, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
			LH.C0 = clerp(LH.C0,CFrame.new(-0.499984741, -0.991723776, 0.000491788145, 1, 0, 0, 0, 0.999992371, -0.00391223794, 0, 0.00391223794, 0.99999243),Alpha)
			RH.C0 = clerp(RH.C0,CFrame.new(0.500030518, -0.991232336, -0.000498280395, 1, 0, -9.31322575e-10, 0, 0.999976218, 0.00690941978, 0, -0.00690941978, 0.999976218),Alpha)
			LS.C0 = clerp(LS.C0,CFrame.new(-1.31380343, 0.605060101, 0.140267164, -0.376384169, 0.926081598, -0.0266075209, -0.420435071, -0.196326971, -0.885827363, -0.825572133, -0.322224677, 0.463251501),Alpha)
			RS.C0 = clerp(RS.C0,CFrame.new(0.882390141, 0.528015673, -0.715366364, 0.459478676, 0.7609905, -0.45800966, -0.746405065, 0.0513325818, -0.66350925, -0.481413424, 0.646729052, 0.591593325),Alpha)
			NK.C0 = clerp(NK.C0,CFrame.new(-3.3748388e-06, 1.69254351, -0.241139352, 1, -5.75976446e-06, 1.27591193e-05, 0, 0.911420703, 0.411476016, -1.39987096e-05, -0.411476076, 0.911420643),Alpha)
			HW.C0 = clerp(HW.C0,CFrame.new(-0.0535319746, -0.442723304, 0.0875455141, 0.999941349, 0.0100189149, 0.00411939621, -0.000953167677, -0.297425091, 0.954744697, 0.0107907206, -0.954692662, -0.29739812),Alpha)
		end
		local ThrownMag = Mag:Clone()
		ThrownMag.Parent = workspace
		ThrownMag.CanCollide = true
		ThrownMag.Transparency = 0
		ThrownMag:BreakJoints()
		ThrownMag.CFrame = LArm.CFrame*CF.N(0,-1,0)
		ThrownMag.Velocity = LArm.CFrame.upVector*-50 + V3.N(0,25,0)
		for i = 0, 2, 0.1 do
			swait()
			local Alpha = .3
			RJ.C0 = clerp(RJ.C0,CFrame.new(-7.62939453e-06, -0.0085170269, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
			LH.C0 = clerp(LH.C0,CFrame.new(-0.499984741, -0.991723776, 0.000491788145, 1, 0, 0, 0, 0.999992371, -0.00391223794, 0, 0.00391223794, 0.99999243),Alpha)
			RH.C0 = clerp(RH.C0,CFrame.new(0.500030518, -0.991232336, -0.000498280395, 1, 0, -9.31322575e-10, 0, 0.999976218, 0.00690941978, 0, -0.00690941978, 0.999976218),Alpha)
			LS.C0 = clerp(LS.C0,CFrame.new(-0.969771624, 0.269822627, 0.264361322, -0.376288474, -0.646025717, 0.664121866, -0.420373201, 0.757822037, 0.498991191, -0.825647354, -0.0914143994, -0.556731462),Alpha)
			RS.C0 = clerp(RS.C0,CFrame.new(0.882390141, 0.528015673, -0.715366364, 0.459478676, 0.7609905, -0.45800966, -0.746405065, 0.0513325818, -0.66350925, -0.481413424, 0.646729052, 0.591593325),Alpha)
			NK.C0 = clerp(NK.C0,CFrame.new(-3.3748388e-06, 1.69254351, -0.241139352, 1, -5.75976446e-06, 1.27591193e-05, 0, 0.911420703, 0.411476016, -1.39987096e-05, -0.411476076, 0.911420643),Alpha)
			HW.C0 = clerp(HW.C0,CFrame.new(-0.0535319746, -0.442723304, 0.0875455141, 0.999941349, 0.0100189149, 0.00411939621, -0.000953167677, -0.297425091, 0.954744697, 0.0107907206, -0.954692662, -0.29739812),Alpha)
		end
		for i = 0, 1.5, 0.1 do
			swait()
			local Alpha = .25
			RJ.C0 = clerp(RJ.C0,CFrame.new(-7.62939453e-06, -0.0085170269, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1),Alpha)
			LH.C0 = clerp(LH.C0,CFrame.new(-0.499984741, -0.991723776, 0.000491788145, 1, 0, 0, 0, 0.999992371, -0.00391223794, 0, 0.00391223794, 0.99999243),Alpha)
			RH.C0 = clerp(RH.C0,CFrame.new(0.500030518, -0.991232336, -0.000498280395, 1, 0, -9.31322575e-10, 0, 0.999976218, 0.00690941978, 0, -0.00690941978, 0.999976218),Alpha)
			LS.C0 = clerp(LS.C0,CFrame.new(-1.23604465, 0.622545421, -0.261887908, 0.881503165, -0.471425086, -0.0266579054, 0.197721034, 0.419803232, -0.885816932, 0.42878738, 0.775579691, 0.463268489),Alpha)
			RS.C0 = clerp(RS.C0,CFrame.new(0.882390141, 0.528015673, -0.715366364, 0.459478676, 0.7609905, -0.45800966, -0.746405065, 0.0513325818, -0.66350925, -0.481413424, 0.646729052, 0.591593325),Alpha)
			NK.C0 = clerp(NK.C0,CFrame.new(-3.3748388e-06, 1.69254351, -0.241139352, 1, -5.75976446e-06, 1.27591193e-05, 0, 0.911420703, 0.411476016, -1.39987096e-05, -0.411476076, 0.911420643),Alpha)
			HW.C0 = clerp(HW.C0,CFrame.new(-0.0535319746, -0.442723304, 0.0875455141, 0.999941349, 0.0100189149, 0.00411939621, -0.000953167677, -0.297425091, 0.954744697, 0.0107907206, -0.954692662, -0.29739812),Alpha)
		end
		Mag.Transparency = 0
		if(Ammo[4])then
			Ammo[3] = Ammo[3]-Ammo[2]
			Ammo[1] = Ammo[2]
		else
			local toReload = Ammo[2]-Ammo[1]
			if(Ammo[3] < toReload and Ammo[3] > 0)then
				Ammo[3] = 0
				Ammo[1] = Ammo[1]+toReload
			elseif(Ammo[3] > 0)then
				Ammo[3] = Ammo[3] - toReload
				Ammo[1] = Ammo[2]
			end
		end
		warn("Reserve Ammo: "..Ammo[3])
		Attack = false
		NeutralAnims = true
	end
end

local Shooting = false

Mouse.Button1Down:connect(function()
	if(Equipped)then
		Shooting = true
		Timer = time()
	end
end)

Mouse.Button1Up:connect(function()
	Shooting = false
end)


Mouse.KeyDown:connect(function(k)
	if(Attack)then return end
	if(k == 'f')then Equip() end
	if(k == 't')then if(not Whistling)then Taunt() end end
	if(k == 'r')then Reload() end
end)

--// Shoulder Cam \\--
--[[
local x,y=0,0

Mouse.KeyDown:connect(function(k)
	if(k == 'q')then Shoulder =-2 end
	if(k == 'e')then Shoulder = 2 end
end)

Cam.CameraType = Enum.CameraType.Scriptable



S.ContextActionService:BindActionToInputTypes("MouseMove", function(name, state, inputObject)
	print'lol'
	x = (-inputObject.Delta.x/250)
	y = (-inputObject.Delta.y/250)
	if y > 1.5 then
		y = 1.5
	elseif y < -1.5 then
		y = -1.5
	end
end, false, Enum.UserInputType.MouseMovement)

coroutine.wrap(function()
	while true do
		S.UserInputService.MouseBehavior = Enum.MouseBehavior.LockCenter
		Root.CFrame = CFrame.new(Root.Position) * CFrame.Angles(0,x,0)
		Cam.CFrame = Cam.CFrame:lerp(Root.CFrame * CFrame.new(Shoulder,2,6) * CF.A(y,0,0),.2)
		swait()
	end
end)()
]]


--// Wrap it all up \\--

local Fired = 0
coroutine.wrap(function()

	while true do
		if(Equipped and Shooting and Ammo[1] > 0)then
			if(time()-Timer >= 1 and DebugMode)then
				Timer = time()
				print("Fired rounds: "..Fired)
				Fired = 0
			end
			Bullet{
				Origin=Scar.Barrel.CFrame,
				Speed=870
			}
			Fired = Fired + 1
			Ammo[1] = Ammo[1] - 1
			warn("Ammo: "..Ammo[1])
			swait(Frame_Speed/RPS)
		else
			swait()
		end
	end
end)()

while true do
	swait()
	Sine = Sine + Change
	if(not Music)then
		Music = Sound(Char,MusicID,1,3,true,false,true)
		Music.Name = 'Music'
	end
	Music.SoundId = "rbxassetid://"..MusicID
	Music.Parent = Char
	Music.Pitch = 1
	Music.Volume = (Whistling and .5 or 3)
	if(not Muted)then
		Music:Resume()
	else
		Music:Pause()
	end


	if(God)then
		Hum.MaxHealth = 1e100
		Hum.Health = 1e100
		if(not Char:FindFirstChildOfClass'ForceField')then IN("ForceField",Char).Visible = false end
		Hum.Name = M.RNG()*100
	end

	local hitfloor,posfloor = workspace:FindPartOnRay(Ray.new(Root.CFrame.p,((CFrame.new(Root.Position,Root.Position - Vector3.new(0,1,0))).lookVector).unit * (4*PlayerSize)), Char)

	local Walking = (math.abs(Root.Velocity.x) > 1 or math.abs(Root.Velocity.z) > 1)
	local State = (Hum.PlatformStand and 'Paralyzed' or Hum.Sit and 'Sit' or not hitfloor and Root.Velocity.y < -1 and "Fall" or not hitfloor and Root.Velocity.y > 1 and "Jump" or hitfloor and Walking and "Walk" or hitfloor and "Idle")
	if(not Effects or not Effects.Parent)then
		Effects = IN("Model",Char)
		Effects.Name = "Effects"
	end

	if(State == 'Walk')then
		local wsVal = 28 / (Hum.WalkSpeed/14)
		local Alpha = math.min(.2 * (Hum.WalkSpeed/16),1)
		Change = 3
		RH.C1 = RH.C1:lerp(CF.N(0,1,0)*CF.N(0,0-.2*M.C(Sine/wsVal),0+.4*M.C(Sine/wsVal))*CF.A(M.R(15+25*M.C(Sine/wsVal))+-M.S(Sine/wsVal),0,0),Alpha)
		LH.C1 = LH.C1:lerp(CF.N(0,1,0)*CF.N(0,0+.2*M.C(Sine/wsVal),0-.4*M.C(Sine/wsVal))*CF.A(M.R(15-25*M.C(Sine/wsVal))+M.S(Sine/wsVal),0,0),Alpha)
	else
		RH.C1 = RH.C1:lerp(CF.N(0,1,0),.2)
		LH.C1 = LH.C1:lerp(CF.N(0,1,0),.2)
	end

	Hum.WalkSpeed = WalkSpeed

	if(NeutralAnims)then
		if(State == 'Idle')then
			local Alpha = .1
			Change = .9
			if(Equipped)then
				LS.C0 = LS.C0:lerp(LSC0*CF.N(1.2,0,-1.2)*CF.A(M.R(105),0,M.R(35)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,-.15,.65)*CF.A(M.R(90),0,M.R(-35)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-1,0)*CF.A(M.R(-90),M.R(-35),0),Alpha)
			else
				LS.C0 = LS.C0:lerp(LSC0*CF.N(0,-.1*M.S(Sine/15),0),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,-.1*M.S(Sine/15),0),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0),Alpha)
			end
			RJ.C0 = RJ.C0:lerp(RJC0*CF.N(0,-.1*M.C(Sine/16),0),Alpha)
			NK.C0 = NK.C0:lerp(NKC0,Alpha)
			LH.C0 = LH.C0:lerp(LHC0*CF.N(0,.1*M.C(Sine/16),0),Alpha)
			RH.C0 = RH.C0:lerp(RHC0*CF.N(0,.1*M.C(Sine/16),0),Alpha)
			-- idle
		elseif(State == 'Walk')then
			local wsVal = 28 / (Hum.WalkSpeed/14)
			local Alpha = math.min(.2 * (Hum.WalkSpeed/16),1)
			if(Equipped)then
				LS.C0 = LS.C0:lerp(LSC0*CF.N(1.2,0-.1*M.C(Sine/(wsVal/2)),-1.2)*CF.A(M.R(105),0,M.R(35)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,-.15-.1*M.C(Sine/(wsVal/2)),.65)*CF.A(M.R(90),0,M.R(-35)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-1,0)*CF.A(M.R(-90),M.R(-35),0),Alpha)
			else
				LS.C0 = LS.C0:lerp(LSC0*CF.N(0,0,0-.3*M.S(Sine/wsVal))*CF.A(M.R(0+45*M.S(Sine/wsVal)),0,M.R(-5)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,0,0+.3*M.S(Sine/wsVal))*CF.A(M.R(0-45*M.S(Sine/wsVal)),0,M.R(5)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0),Alpha)
			end
			RJ.C0 = RJ.C0:lerp(CF.N(0,0-.1*M.C(Sine/(wsVal/2)),0),Alpha)
			NK.C0 = NK.C0:lerp(NKC0,Alpha)
			LH.C0 = LH.C0:lerp(LHC0*CF.N(0,0+.1*M.C(Sine/(wsVal/2)),0),Alpha)
			RH.C0 = RH.C0:lerp(RHC0*CF.N(0,0+.1*M.C(Sine/(wsVal/2)),0),Alpha)
		elseif(State == 'Jump')then
			local Alpha = .1
			local idk = math.min(math.max(Root.Velocity.Y/50,-M.R(90)),M.R(90))
			if(Equipped)then
				LS.C0 = LS.C0:lerp(LSC0*CF.N(1.2,0,-1.2)*CF.A(M.R(105),0,M.R(35)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,-.15,.65)*CF.A(M.R(90),0,M.R(-35)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-1,0)*CF.A(M.R(-90),M.R(-35),0),Alpha)
			else
				LS.C0 = LS.C0:lerp(LSC0*CF.A(M.R(-5),0,M.R(-90)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.A(M.R(-5),0,M.R(90)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0),Alpha)
			end
			RJ.C0 = RJ.C0:lerp(RJC0*CF.A(math.min(math.max(Root.Velocity.Y/100,-M.R(45)),M.R(45)),0,0),Alpha)
			NK.C0 = NK.C0:lerp(NKC0*CF.A(math.min(math.max(Root.Velocity.Y/100,-M.R(45)),M.R(45)),0,0),Alpha)
			LH.C0 = LH.C0:lerp(LHC0*CF.A(0,0,M.R(-5)),Alpha)
			RH.C0 = RH.C0:lerp(RHC0*CF.N(0,1,-1)*CF.A(M.R(-5),0,M.R(5)),Alpha)
		elseif(State == 'Fall')then
			local Alpha = .1
			local idk = math.min(math.max(Root.Velocity.Y/50,-M.R(90)),M.R(90))
			if(Equipped)then
				LS.C0 = LS.C0:lerp(LSC0*CF.N(1.2,0,-1.2)*CF.A(M.R(105),0,M.R(35)),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.N(0,-.15,.65)*CF.A(M.R(90),0,M.R(-35)),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-1,0)*CF.A(M.R(-90),M.R(-35),0),Alpha)
			else
				LS.C0 = LS.C0:lerp(LSC0*CF.A(M.R(-5),0,M.R(-90)+idk),Alpha)
				RS.C0 = RS.C0:lerp(RSC0*CF.A(M.R(-5),0,M.R(90)-idk),Alpha)
				HW.C0 = HW.C0:lerp(CF.N(0,-.5,.5)*CF.A(0,M.R(90),0)*CF.A(M.R(25),0,0),Alpha)
			end
			RJ.C0 = RJ.C0:lerp(RJC0*CF.A(math.min(math.max(Root.Velocity.Y/100,-M.R(45)),M.R(45)),0,0),Alpha)
			NK.C0 = NK.C0:lerp(NKC0*CF.A(math.min(math.max(Root.Velocity.Y/100,-M.R(45)),M.R(45)),0,0),Alpha)
			LH.C0 = LH.C0:lerp(LHC0*CF.A(0,0,M.R(-5)),Alpha)
			RH.C0 = RH.C0:lerp(RHC0*CF.N(0,1,-1)*CF.A(M.R(-5),0,M.R(5)),Alpha)
		elseif(State == 'Paralyzed')then
			-- paralyzed
		elseif(State == 'Sit')then
			-- sit
		end
	end
end