Shotgun

Players = game:GetService("Players")
Me = Players.LocalPlayer
Char = Me.Character
necko = CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)
Asset = "http://www.roblox.com/asset/?id="
EffectModel = nil
MeleeDmg = 55
Accuracy = {Minimum = 2, Maximum = 5.5, Momentum = 2}
Selected = false
ReloadFlash = false
Attacking = false
ReloadHold = false
Reloading = false
Swinging = false
Aiming = false
ReloadOn = false
Debounce = true
Hurt = false
ModelName = "Weapon"
ToolName = "Weapon"
Icon = Asset..(58334502)

function ReNew()
    if EffectModel then
        if EffectModel.Parent ~= workspace then
            pcall(function() EffectModel:remove() end)
            EffectModel = Instance.new("Model",workspace)
            EffectModel.Name = "Effects"
        end
    else
        EffectModel = Instance.new("Model",workspace)
        EffectModel.Name = "Effects"
    end
end

Ammunition = {
    MaxAmmo = 8,
    Ammo = 0,
    Ammoleft = 40,
}

Images = {
    Asset..(64291927),
    Asset..(64291941),
    Asset..(64291961),
    Asset..(64291977),
}

Sounds = {
    Fire = {Id = Asset..(2697294), Pitch = 0.92, Volume = 0.8},
    Reload = {Id = Asset..(2697295), Pitch = 1, Volume = 0.5},
    Slash = {Id = "rbxasset://sounds//swordslash.wav", Pitch = 1.2, Volume = 0.6},
    Out = {Id = "rbxasset://sounds\\clickfast.wav", Pitch = 1.4, Volume = 0.6},
    Hit = {Id = Asset..(10209590), Pitch = 1.1, Volume = 0.45},
    PartHit = {Id = "rbxasset://sounds\\metal.ogg", Pitch = 1, Volume = 0.2},
}

ContentProvider = game:GetService("ContentProvider")
for _,v in pairs(Images) do ContentProvider:Preload(v) end

V3 = Vector3.new
C3 = Color3.new
BN = BrickColor.new
CN = CFrame.new
CA = CFrame.Angles
MR = math.rad
MRA = math.random
MP = math.pi
MH = math.huge
UD = UDim2.new

function RC(Pos, Dir, Max, Ignore)
    return workspace:FindPartOnRay(Ray.new(Pos, Dir.unit * (Max or 999)), Ignore)
end

function RayC(Start, En, MaxDist, Ignore)
    return RC(Start, (En - Start), MaxDist, Ignore)
end

function ComputePos(pos1, pos2)
    return CN(pos1, V3(pos2.x, pos1.y, pos2.z))
end

function DetectSurface(pos, part)
    local surface = nil
    local pospos = part.CFrame
    local pos2 = pospos:pointToObjectSpace(pos)
    local siz = part.Size
    local shaep = part.Shape
    if shaep == Enum.PartType.Ball or shaep == Enum.PartType.Cylinder then
        surface = {"Anything", CN(pospos.p, pos)*CN(0, 0, -(pospos.p - pos).magnitude+0.12)*CA(MR(-90), 0, 0)}
    else
        if pos2.Y > ((siz.Y/2)-0.01) then
            surface = {"Top", CA(0, 0, 0)}
        elseif pos2.Y < -((siz.Y/2)-0.01) then
            surface = {"Bottom", CA(-MP, 0, 0)}
        elseif pos2.X > ((siz.X/2)-0.01) then
            surface = {"Right", CA(0, 0, MR(-90))}
        elseif pos2.X < -((siz.X/2)-0.01) then
            surface = {"Left", CA(0, 0, MR(90))}
        elseif pos2.Z > ((siz.Z/2)-0.01) then
            surface = {"Back", CA(MR(90), 0, 0)}
        elseif pos2.Z < -((siz.Z/2)-0.01) then
            surface = {"Front", CA(MR(-90), 0, 0)}
        end
    end
    return surface
end

function Compute(pos1, pos2)
    local pos3 = Vector3.new(pos2.x, pos1.y, pos2.z)
    return CN(pos1, pos3)
end

function waitChild(n, p)
    local c = p:findFirstChild(n)
    if c then return c end
    while true do
        c = p.ChildAdded:wait()
        if c.Name == n then return c end
    end
end

function Notime(func)
    coroutine.resume(coroutine.create(function()
        func()
    end))
end

local C3 = Color3.new
local UD = UDim2.new
local V2 = Vector2.new

Torso = waitChild("Torso", Char)
Head = waitChild("Head", Char)
Rarm = waitChild("Right Arm", Char)
Larm = waitChild("Left Arm", Char)
Rleg = waitChild("Right Leg", Char)
Lleg = waitChild("Left Leg", Char)
Neck = waitChild("Neck", Torso)
Hum = waitChild("Humanoid", Char)

RSH = waitChild("Right Shoulder", Torso)
LSH = waitChild("Left Shoulder", Torso)
RH = waitChild("Right Hip", Torso)
LH = waitChild("Left Hip", Torso)

RSH.Part0 = Torso
LSH.Part0 = Torso
RH.Part0 = Torso
LH.Part0 = Torso

local Classes = {"Frame", "ImageLabel", "ImageButton", "TextLabel", "TextButton", "TextBox"}
function Make(Class, Par, Size, Pos, Color, Trans, Border, Borderc, Txt, TxtC, Img)
    local Mk = "Frame"
    for _,v in pairs(Classes) do
        if Class == v then
            Mk = v
        end
    end
    local g = Instance.new(Mk)
    g.Size = Size
    g.Position = Pos
    g.BackgroundColor3 = Color
    g.Transparency = Trans
    g.BorderSizePixel = Border
    g.BorderColor3 = Borderc
    if Mk == "TextButton" or Mk == "TextLabel" or Mk == "TextBox" then
        g.Text = Txt
        g.TextColor3 = TxtC
    elseif Mk == "ImageLabel" or Mk == "ImageButton" then
        g.Image = Img
    end
    g.Parent = Par
    return g
end

Gui = Me:findFirstChild("PlayerGui")
if Gui then
    for _,v in pairs(Gui:children()) do if v.Name == "Weapon GUI" then v:remove() end end
end

Screen = Instance.new("ScreenGui")
Screen.Name = "Weapon GUI"

AmmoTable = {}
AccuracyGuis = {}
lul = {
    {unit = V2(0, -1), size = V2(2, 25), offset = V2(-1, -1-25)},
    {unit = V2(1, 0), size = V2(25, 2), offset = V2(1, -1)},
    {unit = V2(0, 1), size = V2(2, 25), offset = V2(-1, -1)},
    {unit = V2(-1, 0), size = V2(25, 2), offset = V2(-1-25, -1)}
}

Main = Make("Frame", Screen, UD(0, 175, 0, 20), UD(1, -185-60, 1, -30), C3(0.25, 0.25, 0.3), 0.6, 0, C3())

for i = 1, Ammunition.MaxAmmo, 1 do
    local Fr = Make("Frame", Main, UD(0, 8, 0, 14), UD(1, -12*i, 0, -14-6), C3(0.25, 0.25, 0.3), 0.6, 0, C3())
    table.insert(AmmoTable, Fr)
end

AmmoAtm = Make("TextLabel", Main, UD(0, 0, 0, 0), UD(0, 8, 0.5, 0), C3(), 0, 0, C3(), "0", C3(1, 1, 1))
AmmoAtm.BackgroundTransparency = 1
AmmoAtm.TextXAlignment = "Left"
AmmoAtm.Font = "ArialBold"
AmmoAtm.FontSize = "Size18"

AmmoLeft = Make("TextLabel", Main, UD(0, 0, 0, 0), UD(1, -8, 0.5, 0), C3(), 0, 0, C3(), "40", C3(1, 1, 1))
AmmoLeft.BackgroundTransparency = 1
AmmoLeft.TextXAlignment = "Right"
AmmoLeft.Font = "ArialBold"
AmmoLeft.FontSize = "Size18"

ReloadGui = Make("TextLabel", Main, UD(0, 0, 0, 0), UD(1, -12, 0, -40), C3(), 1, 0, C3(), "RELOAD", C3(1, 0.25, 0.1))
ReloadGui.TextXAlignment = "Right"
ReloadGui.Font = "ArialBold"
ReloadGui.FontSize = "Size24"

for _, prop in pairs(lul) do
    local g = Make("Frame", Screen, UD(0, prop.size.x, 0, prop.size.y), UD(0.5, prop.offset.x, 0.5, prop.offset.y), C3(0.8, 0.8, 0.9), 1, 0, C3())
    table.insert(AccuracyGuis, {Gui = g, props = prop})
end

Screen.Parent = Gui

local Offset = 0.1
local Thing = 1
local Speed1 = 0.1
local Speed2 = 0
local TempAcc = 0
local AccTimesMax = 17
local AccTime = 1.25
local AccTimes = AccTimesMax
local AccOn = false
function AddInaccuracy(Acc)
    TempAcc = Acc
end
Notime(function()
    while true do
        ReNew()
        AmmoAtm.Text = Ammunition.Ammo
        AmmoLeft.Text = Ammunition.Ammoleft
        for i,v in pairs(AmmoTable) do
            v.Transparency = 1
        end
        for i = 1, Ammunition.Ammo do
            AmmoTable[i].Transparency = 0.6
        end
        if Ammunition.Ammo <= Ammunition.MaxAmmo/4 then ReloadFlash = true else ReloadFlash = false end
        local Speed = Torso.Velocity.magnitude
        Offset = 0
        if Speed > 1 then
            Speed1 = Speed
            Thing = Thing*1.2
        else
            Speed2 = Speed
            local lol = 1.4
            if AccOn then lol = AccTime end
            Thing = Thing/lol
        end
        if TempAcc ~= 0 then
            Speed1 = TempAcc
            Thing = TempAcc/2
            AccOn = true
            if TempAcc ~= 0 then
                AccTimes = AccTimes - 1
                if AccTimes < 1 then AccTimes = AccTimesMax Notime(function() wait(0.4) AccOn = false end) TempAcc = 0 end
            end
        end
        if Thing < 1 then Thing = 1 elseif Thing > 14 then Thing = 14 end
        Offset = Accuracy.Minimum + ((Speed1 - Speed1/Thing)/(Speed1 - Speed1/14))*Accuracy.Maximum
        Accuracy.Momentum = Offset
        wait()
    end
end)

Notime(function()
    while true do
        if ReloadFlash then
            if ReloadOn then
                ReloadOn = false
                ReloadGui.Transparency = 1
            else
                ReloadOn = true
                ReloadGui.Transparency = 0
            end
        else
            ReloadGui.Transparency = 1
        end
        wait(0.4)
    end
end)


Add = {
    Head = function(P, Scale)
        local m = Instance.new("SpecialMesh")
        m.MeshType = "Head"
        m.Scale = Scale or V3(1, 1, 1)
        m.Parent = P
        return m
    end,
    Sphere = function(P, Scale)
        local m = Instance.new("SpecialMesh")
        m.MeshType = "Sphere"
        m.Scale = Scale or V3(1, 1, 1)
        m.Parent = P
        return m
    end,
    Wedge = function(P, Scale)
        local m = Instance.new("SpecialMesh")
        m.MeshType = "Wedge"
        m.Scale = Scale or V3(1, 1, 1)
        m.Parent = P
        return m
    end,
    Block = function(P, Scale, Bevel)
        local m = Instance.new("BlockMesh")
        m.Bevel = Bevel
        m.Scale = Scale or V3(1,1,1)
        m.Parent = P
        return m
    end
}

for _,v in pairs(Sounds) do
    ContentProvider:Preload(v.Id)
end

function PlaySound(Sound, bool)
    Pitch = Sound.Pitch
    if bool then
        Pitch = MRA((Sound.Pitch*0.75)*1000, (Sound.Pitch*1.15)*1000)/1000
    end
    local a = Instance.new("Sound")
    a.SoundId = Sound.Id
    a.Volume = Sound.Volume
    a.Pitch = Pitch
    a.Name = "FX"
    a.Parent = Torso
    a:play()
    Notime(function()
        wait(1)
        a:remove()
    end)
end

function GetParts(pos, dist)
    local parts = {}
    local function o(p)
        for _,v in pairs(p:children()) do
            if v:IsA("BasePart") then
                if (pos - v.Position).magnitude <= dist then
                    table.insert(parts, {v, (pos - v.Position).magnitude, v.Anchored})
                end
            end
            o(v)
        end
    end
    o(workspace)
    return parts
end

function GetHum(P)
    for _,v in pairs(P:children()) do
        if v:IsA("Humanoid") then
            if v.Health > 0 then
                return v
            end
        end
    end
end

function GetGroup(Pos, Distance, Hit)
    local tab = {}
    for _,v in pairs(workspace:children()) do
        local h = GetHum(v)
        local t = v:findFirstChild("Torso")
        if h and t and v ~= Hit.Parent then
            if (t.Position - Pos).magnitude <= Distance then
                table.insert(tab, {h, v, (t.Position - Pos).magnitude})
            end
        end
    end
    if Hit then
        local h = GetHum(Hit.Parent)
        if h then
            table.insert(tab, {h, Hit.Parent, 0})
        end
    end
    return tab
end

function Part(Par, Anc, Colli, Tran, Ref, Col, Siz)
    local p = Instance.new("Part")
    p.formFactor = "Custom"
    p.TopSurface = 0
    p.BottomSurface = 0
    p.Transparency = Tran
    p.Reflectance = Ref
    p.Anchored = Anc
    p.CanCollide = Colli
    p.BrickColor = Col
    p.Size = Siz
    p.Locked = true
    p.Parent = Par
    p:BreakJoints()
    return p
end

function Weld(P0, P1, C0, C1)
    local w = Instance.new("Weld")
    w.Part0 = P0
    w.Part1 = P1
    if C0 then
        w.C0 = C0
    end
    if C1 then
        w.C1 = C1
    end
    w.Parent = P0
    return w
end

for _,v in pairs(Char:children()) do
    if v.Name == ModelName then
        v:remove()
    end
end

for _,v in pairs(Char:children()) do if v.Name == ModelName then v:remove() end end

Model = Instance.new("Model")
Model.Name = ModelName

FTorso = Part(Model, false, false, 1, 0, Torso.BrickColor, V3(2, 2, 1))
FW = Weld(Torso, FTorso)

RAB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
LAB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
RLB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
LLB = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))

RABW = Weld(Torso, RAB, CN(), CN(-1.5, -0.5, 0))
LABW = Weld(Torso, LAB, CN(), CN(1.5, -0.5, 0))
RLBW = Weld(Torso, RLB, CN(), CN(-0.5, 1, 0))
LLBW = Weld(Torso, LLB, CN(), CN(0.5, 1, 0))

RAW = Weld(RAB, nil, CN(), CN(0, 0.5, 0))
LAW = Weld(LAB, nil, CN(), CN(0, 0.5, 0))
RLW = Weld(RLB, nil, CN(), CN(0, 1, 0))
LLW = Weld(LLB, nil, CN(), CN(0, 1, 0))

TW = Weld(Torso, nil, CN(-0.4, -1.5, 0.7), CA(MR(55), MR(-90), MR(0)))

local FH = Instance.new("Humanoid",Model)
FH.PlatformStand = true
FH.MaxHealth = math.huge
FH.Health = math.huge

pcall(function() Torso:findFirstChild("Shirt"):clone().Parent = Model end)

local hh = Part(Model, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
hh.Name = "Head"
Weld(FTorso, hh)

Weapon = Instance.new("Model")
Weapon.Name = "Weapon"

HB = Part(Weapon, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
HBW = Weld(Rarm, HB, CN(0, -0.7, 0), CA(MR(-90), MR(180), 0))
HW = Weld(HB, nil, CA(MR(38), MR(-28), MR(-90)) * CN(0, -0.2, -3.8))

LHB = Part(Weapon, false, false, 1, 0, BN("White"), V3(0.2, 0.2, 0.2))
LHBW = Weld(Larm, LHB, CN(0, -0.7, 0), CA(MR(-90), MR(180), 0))
LHW = Weld(LHB, nil, CA(MR(-2), MR(30), MR(-3)) * CN(-0.1, 0.32, -0.24))
LHWK = Weld(LHB, nil, CA(MR(170), 0, 0))


Handle = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.5, 0.9, 0.9))
TW.Part1 = Handle

Handle2 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.5, 0.6, 1.6))
Weld(Handle, Handle2, CA(MR(-45), 0, 0), CN(0, 0.5, -0.4))

Handle3 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.5, 0.7, 1.3))
Weld(Handle2, Handle3, CA(MR(45), 0, 0), CN(0, -0.4, -0.9))

Pipe1 = Part(Weapon, false, false, 0, 0.1, BN("Light grey"), V3(0.3, 0.3, 3.2))
Add.Block(Pipe1, V3(1,1,1), 0.08)
Weld(Handle3, Pipe1, CN(0, 0.15, 1.6+0.55))

Pipe2 = Part(Weapon, false, false, 0, 0.1, BN("Light grey"), V3(0.3, 0.3, 1.7))
Add.Block(Pipe2, V3(1,1,1), 0.08)
Weld(Handle3, Pipe2, CN(0, -0.15, 0.85+0.55))

Pipe3 = Part(Weapon, false, false, 0, 0.1, BN("Light grey"), V3(0.25, 0.25, 1.6))
Add.Block(Pipe3, V3(1,1,1), 0.065)
Weld(Pipe2, Pipe3, CN(0, 0, 0.8+0.7))

Pump = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.45, 0.45, 1.1))
Add.Block(Pump, V3(1,1,1), 0.225/2)
PumpWeld = Weld(Pipe2, Pump, CN(0, 0, 0.6), CN(0, 0, 0))

Pump2 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.5, 0.5, 0.3))
Add.Block(Pump, V3(1,1,1), 0.13)
Weld(Pump, Pump2, CN(0, 0, -0.5))

for degrees = -20, 200, 20 do
    local Derp = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.2, 0.2))
    Add.Block(Derp, V3(0.4,0.6,0.4), 0.02)
    Weld(Handle3, Derp, CN(0, -0.45, -0.32) * CA(MR(degrees), 0, 0), CN(0, 0, -0.2))
end

Derp = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.2, 0.3))
Add.Block(Derp, V3(0.4,1,1), 0.02)
Weld(Handle3, Derp, CN(0, 0, -0.32) * CA(MR(-20), 0, 0), CN(0, 0.45, -0.2))

Trigger = Part(Weapon, false, false, 0, 0, BN("Really black"), V3(0.2, 0.3, 0.2))
Add.Block(Trigger, V3(0.5, 0.9, 0.3), 0.02)
TriggerWeld = Weld(Handle3, Trigger, CN(0, -0.45, -0.4) * CA(MR(2), 0, 0))

Aim = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.3, 0.2, 0.7))
Add.Block(Aim, V3(1,0.7,1), 0.05)
Weld(Pipe1, Aim, CN(0, 0.12, 1.1))

Aim1 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.2, 0.2))
Add.Block(Aim1, V3(0.3, 0.7, 0.5))
Weld(Aim, Aim1, CN(-.1, 0.1, -0.25))

Aim2 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.2, 0.2))
Add.Block(Aim2, V3(0.3, 0.7, 0.5))
Weld(Aim, Aim2, CN(.1, 0.1, -0.25))

Aim3 = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.2, 0.2))
Add.Block(Aim3, V3(0.3, 0.7, 0.5))
Weld(Aim, Aim3, CN(0, 0.1, 0.25))

BulletFlip = Part(Weapon, false, false, 0, 0, BN("Light grey"), V3(0.2, 0.3, 0.6))
Flip = Weld(Handle3, BulletFlip, CN(-0.18, 0.1, 0.2) * CA(0, MR(-10), 0))

---POCKET

BeltWelds = {}

BeltK = nil
for i = -0.5, 0.5, 1 do
    local Belt = Part(Weapon, false, false, 0, 0, BN("Black"), V3(2.1, 0.3, 0.2))
    table.insert(BeltWelds, Weld(Torso, Belt, CN(0, -0.9, i)))
end
for i = 1, -1, -2 do
    local Belt = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.2, 0.3, 1.1))
    table.insert(BeltWelds, Weld(Torso, Belt, CN(i, -0.9, 0)))
    BeltK = Belt
end

for i = -0.25, 0.25, 0.5 do
    local Pocket = Part(Weapon, false, false, 0, 0, BN("Black"), V3(1.1, 0.9, 0.2))
    table.insert(BeltWelds, Weld(Torso, Pocket, CN(0.8, -1.2, -0.8) * CA(0, MR(-15), 0), CN(0, 0, i)))
end

for i = -0.5, 0.5, 1 do
    local Pocket = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.6, 0.9, 0.2))
    table.insert(BeltWelds, Weld(Torso, Pocket, CN(0.8, -1.2, -0.8) * CA(0, MR(-15)+MP/2, 0), CN(0, 0, i)))
end
Pocket = Part(Weapon, false, false, 0, 0, BN("Black"), V3(1.1, 0.2, 0.6))
table.insert(BeltWelds, Weld(Torso, Pocket, CN(0.8, -1.6, -0.8) * CA(0, MR(-15), 0)))

function Shell(P)
    local Shel = Instance.new("Model")
    local Back = Part(Shel, false, false, 0, 0, BN("Bright yellow"), V3(0.3, 0.3, 0.25))
    local Main = Part(Shel, false, false, 0, 0, BN("Bright red"), V3(0.3, 0.3, 0.4))
    Add.Block(Back, V3(1,1,1), 0.077)
    Add.Block(Main, V3(1,1,1), 0.077)
    Weld(Main, Back, CN(0, 0, -0.225))
    Shel.Parent = P
    return {Model = Shel, Back = Back, Main = Main}
end

for y = 0.15, 0.65, 0.25 do
    for x = -0.12, 0.13, 0.24 do
        for z = -0.25, 0.26, 0.5 do
            local sh = Shell(Weapon)
            Weld(Pocket, sh.Main, CN(z-0.05, y, x), CA(0, MP/2, 0))
        end
    end
end

KnifeSheath = Part(Weapon, false, false, 0, 0, BN("Black"), V3(0.3, 0.9, 0.6))
SheathWeld = Weld(BeltK, KnifeSheath, CN(-0.2, -0.3, -0.25) * CA(MR(-20), 0, 0))

KnifeHandle = Part(Weapon, false, false, 0, 0, BN("Really black"), V3(0.3, 0.6, 0.3))
KnifeWeld = Weld(KnifeSheath, KnifeHandle, CA(MP, 0, 0), CN(0, 0.9, 0))

KnifeHandle2 = Part(Weapon, false, false, 0, 0, BN("Dark grey"), V3(0.3, 0.2, 0.4))
Weld(KnifeHandle, KnifeHandle2, CN(0, 0.35, 0))

KnifeBlade1 = Part(Weapon, false, false, 0, 0.1, BN("Light grey"), V3(0.2, 0.8, 0.3))
Add.Block(KnifeBlade1, V3(0.4, 1, 1), 0.05)
Weld(KnifeHandle2, KnifeBlade1, CN(0, 0.42, 0))

KnifeBlade2 = Part(Weapon, false, false, 0, 0.1, BN("Light grey"), V3(0.2, 0.24, 0.24))
Add.Block(KnifeBlade2, V3(0.4, 1, 1), 0.05)
Weld(KnifeBlade1, KnifeBlade2, CN(0, 0.32, 0), CA(MR(45), 0, 0))

function Show_Damage(P, D, Area)
    local mo = Instance.new("Model")
    mo.Name = D
    local p = Part(mo, true, false, 0, 0, BN("Bright red"), V3(0.2, 0.2, 0.2))
    p.Name = "Head"
    local m = Instance.new("SpecialMesh")
    m.MeshType = "Brick"
    m.Scale = Vector3.new(3.5, 2.3, 3.5)
    m.Parent = p
    local h = Instance.new("Humanoid")
    h.Health = 0
    h.MaxHealth = 0
    h.Name = "asd"
    h.Parent = mo
    local nah = true
    mo.Parent = workspace
    local cf = CN(P) * CN(MRA(-Area*100, Area*100)/100, MRA(-Area*100, Area*100)/100, MRA(-Area*100, Area*100)/100)
    p.CFrame = cf
    Notime(function()
        Notime(function()
            for i = 0, 6, 0.03 do
                wait()
                p.CFrame = cf * CN(0, i, 0)
            end
        end)
        wait(1.5)
        for i = 0, 1, 0.05 do
            p.Transparency = i
            if nah then mo.Name = "" nah = false else mo.Name = "- "..D nah = true end
            wait()
        end
        mo:remove()
    end)
end

function Hit(part)
    local H = GetHum(part.Parent)
    if H and Debounce and Hurt then
        Debounce = false
        local Dmg = MRA(MeleeDmg/1.3, MeleeDmg)
        H.Health = H.Health - Dmg
        Show_Damage(KnifeBlade2.Position, Dmg, 0.1)
    end
end

KnifeBlade1.Touched:connect(Hit)
KnifeBlade2.Touched:connect(Hit)

Weapon.Parent = Model
Model.Parent = Char

if script.Parent.className ~= "HopperBin" then
    h = Instance.new("HopperBin", Me.Backpack)
    h.Name = ToolName
    script.Parent = h
end

bin = script.Parent

function Attach(t)
    RSH.Part0 = t
    LSH.Part0 = t
    RH.Part0 = t
    LH.Part0 = t
    RABW.Part0 = t
    LABW.Part0 = t
    LLBW.Part0 = t
    RLBW.Part0 = t
    for _,v in pairs(BeltWelds) do
        v.Part0 = t
    end
    if t == Torso then
        FTorso.Transparency = 1
    else
        Torso.Transparency = 1
    end
    t.Transparency = 0
end

function Normal()
    RAW.C0 = CA(MR(90), 0, MR(-65)) * CN(0.6, -0.9, 0)
    LAW.C0 = CA(MR(85), 0, MR(-40)) * CN(0.5, -0.5, 0)
    FW.C0 = CA(0, MR(-70), 0)
    HW.C0 = CA(MR(0), MR(5), MR(0)) * CN(0.4, 0, -1.2)
    LHW.C0 = CA(MR(-2), MR(30), MR(-3)) * CN(-0.1, 0.32, -0.24)
    PumpWeld.C1 = CN(0, 0, 0)
    Flip.C1 = CN(0, 0, 0)
    Attach(FTorso)
    LHW.Part1 = nil
    TW.Part1 = nil
    LHWK.Part1 = nil
    KnifeWeld.Part1 = KnifeHandle
    Neck.C0 = necko
    HW.Part1 = Handle
end

function Swing()
    Swinging = true
    for i = 0.5, 1, 0.5 do
        LAW.C0 = CA(MR(85-8*i), 0, MR(-40+5*i)) * CN(0.5, -0.5+0.2*i, 0)
        RAW.C0 = CA(MR(90-5*i), 0, MR(-65-5*i)) * CN(0.6+0.05*i, -0.9+0.05*i, -0.1*i)
        HW.C0 = CA(MR(-5*i), MR(5+5*i), MR(0)) * CN(0.4, 0, -1.2)
        FW.C0 = CA(0, MR(-70+8*i), 0)
        wait()
    end
    for i = 0.33, 1, 0.33 do
        LAW.C0 = CA(MR(77-37*i), 0, MR(-35+30*i)) * CN(0.5-0.15*i, -0.3+0.3*i, 0)
        RAW.C0 = CA(MR(85-15*i), 0, MR(-70-5*i)) * CN(0.65+0.15*i, -0.85+0.2*i, -0.1-0.2*i)
        HW.C0 = CA(MR(-5-15*i), MR(10+10*i), MR(0)) * CN(0.4, 0, -1.2)
        FW.C0 = CA(0, MR(-62+58*i), 0)
        wait()
    end
    LHWK.Part1 = KnifeHandle
    KnifeWeld.Part1 = nil
    PlaySound(Sounds.Slash)
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(40+30*i), 0, MR(-5-45*i)) * CN(0.35-0.2*i, -0.5*i, 0)
        RAW.C0 = CA(MR(70-15*i), 0, MR(-75-5*i)) * CN(0.8, -0.65+0.15*i, -0.3-0.05*i)
        HW.C0 = CA(MR(-20-10*i), MR(20+5*i), MR(0)) * CN(0.4, 0, -1.2)
        FW.C0 = CA(0, MR(-4+14*i), 0)
        LHWK.C0 = CN(0, -0.1*i, 0.2*i) * CA(MR(170), 0, MR(-50*i))
        wait()
    end
    Hurt = true
    Debounce = true
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(70+20*i), 0, MR(-50+35*i)) * CN(0.15-0.05*i, -0.5-0.3*i, 0)
        FW.C0 = CA(0, MR(10-60*i), 0)
        LHWK.C0 = CN(0, -0.1-0.05*i, 0.2+0.1*i) * CA(MR(170), 0, MR(-50-40*i))
        wait()
    end
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(90+10*i), 0, MR(-15+15*i)) * CN(0.1, -0.9, 0)
        FW.C0 = CA(0, MR(-50-40*i), 0)
        LHWK.C0 = CN(0, -0.15, 0.3) * CA(MR(170), 0, MR(-90))
        wait()
    end
    for i = 0.33, 1, 0.33 do
        LAW.C0 = CA(MR(100+3*i), 0, 0) * CN(0.1, -0.9, 0)
        FW.C0 = CA(0, MR(-90-6*i), 0)
        LHWK.C0 = CN(0, -0.15, 0.3) * CA(MR(170), 0, MR(-90))
        wait()
    end
    Hurt = false
    wait(0.04)
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(103-13*i), 0, 0) * CN(0.1, -0.9+0.1*i, 0)
        FW.C0 = CA(0, MR(-96+16*i), 0)
        LHWK.C0 = CN(0, -0.15, 0.3-0.1*i) * CA(MR(170), 0, MR(-90+15*i))
        wait()
    end
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(90-42*i), 0, 0) * CN(0.1+0.1*i, -0.8+0.3*i, 0)
        RAW.C0 = CA(MR(55+15*i), 0, MR(-80+5*i)) * CN(0.8-0.05*i, -0.5-0.1*i, -0.35+0.05*i)
        FW.C0 = CA(0, MR(-80+10*i), 0)
        HW.C0 = CA(MR(-30+20*i), MR(25-15*i), MR(0)) * CN(0.4, 0, -1.2)
        LHWK.C0 = CN(0, -0.15, 0.2-0.45*i) * CA(MR(170), 0, MR(-75+75*i))
        wait()
    end
    for i = 0.5, 1, 0.5 do
        LAW.C0 = CA(MR(48-8*i), 0, 0) * CN(0.2+0.05*i, -0.5, 0)
        RAW.C0 = CA(MR(70+10*i), 0, MR(-75+7*i)) * CN(0.75-0.05*i, -0.6-0.1*i, -0.3+0.05*i)
        FW.C0 = CA(0, MR(-70), 0)
        HW.C0 = CA(MR(-10+10*i), MR(10-5*i), MR(0)) * CN(0.4, 0, -1.2)
        LHWK.C0 = CN(0, -0.15, -0.25-0.15*i) * CA(MR(170), 0, 0)
        wait()
    end
    LHWK.Part1 = nil
    KnifeWeld.Part1 = KnifeHandle
    for i = 0.25, 1, 0.25 do
        LAW.C0 = CA(MR(40+40*i), 0, MR(-30*i)) * CN(0.25+0.2*i, -0.5, 0)
        RAW.C0 = CA(MR(80+10*i), 0, MR(-68+3*i)) * CN(0.7-0.1*i, -0.7-0.2*i, -0.25+0.2*i)
        wait()
    end
    for i = 0.5, 1, 0.5 do
        LAW.C0 = CA(MR(80+5*i), 0, MR(-30-10*i)) * CN(0.45+0.05*i, -0.5, -0.05+0.05*i)
        RAW.C0 = CA(MR(90), 0, MR(-65)) * CN(0.6, -0.9, 0)
        wait()
    end
    Normal()
    Swinging = false
end

function Reload(once)
    while Ammunition.Ammo < Ammunition.MaxAmmo and Ammunition.Ammoleft > 0 do
        wait()
        for i = 0.33, 1, 0.33 do
            RAW.C0 = CA(MR(45-2*i), 0, MR(-15)) * CN(0, -0.15-0.05*i, 0)
            LAW.C0 = CA(MR(50), MR(40), MR(-15)) * CN(0.5, -0.5, 0)
            LHW.C0 = CA(MR(-35), MR(60), MR(-45)) * CN(-0.6, 0.2, -0.24)
            wait()
        end
        for i = 0.25, 1, 0.25 do
            RAW.C0 = CA(MR(43-8*i), 0, MR(-15)) * CN(0, -0.2-0.2*i, 0)
            LAW.C0 = CA(MR(50), MR(40), MR(-15)) * CN(0.5, -0.5, 0)
            LHW.C0 = CA(MR(-35), MR(60), MR(-45)) * CN(-0.6, 0.2, -0.24)
            wait()
        end
        for i = 0.5, 1, 0.5 do
            RAW.C0 = CA(MR(35-2*i), 0, MR(-15)) * CN(0, -0.4-0.05*i, 0)
            wait()
        end
        local shel = Shell(Weapon)
        local w = Weld(Rarm, shel.Main, CN(0, -1.25, 0.45), CA(MR(-140), 0, MR(60)))
        for i = 0.25, 1, 0.25 do
            RAW.C0 = CA(MR(33+20*i), 0, MR(-15-10*i)) * CN(0, -0.45+0.2*i, 0)
            LAW.C0 = CA(MR(50-5*i), MR(40), MR(-15+5*i)) * CN(0.5, -0.5, 0)
            w.C0 = CN(-0.1*i, -1.25, 0.45-0.25*i)
            wait()
        end
        for i = 0.2, 1, 0.2 do
            RAW.C0 = CA(MR(53+32*i), 0, MR(-25-12*i)) * CN(0, -0.25-0.3*i, 0)
            LAW.C0 = CA(MR(45), MR(40), MR(-10+10*i)) * CN(0.5, -0.5+0.15*i, 0)
            w.C0 = CN(-0.1-0.1*i, -1.25, 0.2-0.3*i)
            w.C1 = CA(MR(-140+50*i), 0, MR(60))
            wait()
        end
        PlaySound(Sounds.Reload, false)
        for i = 0.25, 1, 0.25 do
            RAW.C0 = CA(MR(85+10*i), 0, MR(-42-8*i)) * CN(0, -0.55-0.1*i, 0)
            LAW.C0 = CA(MR(45), MR(40), 0) * CN(0.5, -0.35, 0)
            w.C0 = CN(-0.2-0.05*i, -1.25, -0.1-0.1*i)
            wait()
        end
        shel.Model:remove() shell = nil
        Ammunition.Ammo = Ammunition.Ammo + 1
        Ammunition.Ammoleft = Ammunition.Ammoleft - 1
        wait(0.1)
        for i = 0.33, 1, 0.33 do
            RAW.C0 = CA(MR(95-10*i), 0, MR(-50+10*i)) * CN(0, -0.65+0.1*i, 0)
            LAW.C0 = CA(MR(45+5*i), MR(40), MR(-12*i)) * CN(0.5, -0.35-0.1*i, 0)
            wait()
        end
        for i = 0.25, 1, 0.25 do
            RAW.C0 = CA(MR(85-40*i), 0, MR(-40+25*i)) * CN(0, -0.55+0.4*i, 0)
            LAW.C0 = CA(MR(50), MR(40), MR(-12-3*i)) * CN(0.5, -0.45-0.05*i, 0)
            wait()
        end
        if once then break end
        if not ReloadHold then break end
    end
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CA(MR(45+10*i), 0, MR(-15-10*i)) * CN(0.1*i, -0.15-0.1*i, 0)
        LAW.C0 = CA(MR(52+12*i), MR(40-5*i), MR(-15-5*i)) * CN(0.5, -0.5, 0)
        LHW.C0 = CA(MR(-35+10*i), MR(60-10*i), MR(-45+10*i)) * CN(-0.6+0.1*i, 0.2, -0.24)
        wait()
    end
    for i = 0.2, 1, 0.2 do
        RAW.C0 = CA(MR(55+30*i), 0, MR(-25-30*i)) * CN(0.1+0.4*i, -0.25-0.55*i, 0)
        LAW.C0 = CA(MR(70+10*i), MR(35-30*i), MR(-20-15*i)) * CN(0.5, -0.5, 0)
        LHW.C0 = CA(MR(-25+18*i), MR(50-15*i), MR(-35+25*i)) * CN(-0.5+0.3*i, 0.2+0.1*i, -0.24)
        wait()
    end
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CA(MR(85+5*i), 0, MR(-55-10*i)) * CN(0.5+0.1*i, -0.8-0.1*i, 0)
        LAW.C0 = CA(MR(80+5*i), MR(5-5*i), MR(-35-5*i)) * CN(0.5, -0.5, 0)
        LHW.C0 = CA(MR(-7+5*i), MR(35-5*i), MR(-10+7*i)) * CN(-0.2+0.1*i, 0.3+0.02*i, -0.24)
        wait()
    end
end

function ReloadStart(once)
    Reloading = true
    HW.Part1 = nil
    LHW.Part1 = Pipe2
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CA(MR(90-10*i), 0, MR(-65+10*i)) * CN(0.6-0.2*i, -0.9+0.15*i, 0)
        LAW.C0 = CA(MR(85-5*i), MR(7*i), MR(-40+5*i)) * CN(0.5, -0.5, 0)
        LHW.C0 = CA(MR(-2-8*i), MR(30+5*i), MR(-3-12*i)) * CN(-0.1-0.1*i, 0.32-0.12*i, -0.24)
        wait()
    end
    for i = 0.15, 1, 0.15 do
        RAW.C0 = CA(MR(80-35*i), 0, MR(-55+40*i)) * CN(0.4-0.4*i, -0.75+0.6*i, 0)
        LAW.C0 = CA(MR(80-30*i), MR(7+33*i), MR(-35+20*i)) * CN(0.5, -0.5, 0)
        LHW.C0 = CA(MR(-10-25*i), MR(35+25*i), MR(-15-30*i)) * CN(-0.2-0.4*i, 0.2, -0.24)
        wait()
    end
    Reload(once)
    Normal()
    Reloading = false
end

function AimEet()
end

function Shoot(Start, To)
    local Accu = CA(MR(MRA(-Accuracy.Momentum*1000, Accuracy.Momentum*1000)/1700),  MR(MRA(-Accuracy.Momentum*1000, Accuracy.Momentum*1000)/1000), MR(MRA(-Accuracy.Momentum*1000, Accuracy.Momentum*1000)/1000))
    for Pellets = 1, 8 do
        local Power = 20
        local Drop = 0.2
        local Face = CN(Start, To) * Accu * CA(MR(MRA(-10000, 10000)/2500), MR(MRA(-10000, 10000)/2500), MR(MRA(-10000, 10000)/2500))
        local Pellet = Part(PelletModel, true, false, 0, 0, BN("Dark grey"), V3(0.2, 0.2, 0.3))
        Pellet.CFrame = Face
        local LastPoint = Face.p
        Notime(function()
            local HitObj
            local HitPos
            local DistThing = 250
            for Distance = Power, 600, Power do
                Face = Face * CA(MR(-Drop), 0, 0) * CN(0, 0, -Power)
                local PointNow = Face.p
                local Hit, Pos = RayC(LastPoint, PointNow, Power+2, EffectModel)
                if Hit then
                    DistThing = Distance
                    if DistThing > 250 then DistThing = 200 end
                    PointNow = Pos
                    HitPos = Pos
                    HitObj = Hit
                end
                local Dist = (PointNow - LastPoint).magnitude
                Pellet.CFrame = Face
                Drop = Drop + 0.04
                local Effect = Part(EffectModel, true, false, 0, 0, BN("White"), V3(0.2, 0.2, 0.2))
                Effect.CFrame = CN(LastPoint, PointNow) * CA(MR(-90), 0, 0) * CN(0, Dist/2, 0)
                local H = Add.Head(Effect, V3(0.8, Dist*5, 0.8))
                LastPoint = Face.p
                Power = Power - Drop/3
                Notime(function()
                    for i = 0, 1, 0.2 do
                        wait()
                        Effect.Transparency = i
                    end
                    Effect:remove()
                end)
                if Hit then
                    Pellet.CFrame = CN(Pos)
                    break
                end
                wait()
            end
            Pellet:remove()
            if HitObj then
                local Surface = DetectSurface(HitPos, HitObj)
                local C = CN(HitPos) * CA(HitObj.CFrame:toEulerAnglesXYZ()) * Surface[2]
                if Surface[1] == "Anything" then
                    C = Surface[2]
                end
                local H = nil
                if HitObj.Parent ~= workspace then
                    H = GetHum(HitObj.Parent)
                    if HitObj.Parent.Parent ~= workspace and H == nil then
                        H = GetHum(HitObj.Parent.Parent)
                    end
                end
                if H then
                    local Dmg = DistThing/200
                    Dmg = (1-Dmg)*15
                    Dmg = MRA(Dmg*850, Dmg*1100)/1000
                    H.Health = H.Health - Dmg
                    PlaySound(Sounds.Hit)
                    Show_Damage(HitObj.Position, math.floor(Dmg), 1.5)
                else
                    PlaySound(Sounds.PartHit)
                    local BulletHole = Part(EffectModel, true, false, 1, 0, BN("White"), V3(0.8, 0.2, 0.8))
                    BulletHole.CFrame = C * CN(0, -0.085, 0)
                    local Dec = Instance.new("Decal",BulletHole)
                    Dec.Texture = Images[MRA(1,#Images)]
                    Dec.Face = "Top"
                    if not HitObj.Anchored then
                        BulletHole.Anchored = false
                        local W = Weld(HitObj, BulletHole, HitObj.CFrame:toObjectSpace(C))
                    end
                    Notime(function()
                        wait(MRA(700, 15000)/100)
                        BulletHole:remove()
                    end)
                end
            end
        end)
    end
end

function ShootAnim(From, To)
    Shoot(From, To)
    AddInaccuracy(16)
    PlaySound(Sounds.Fire, false)
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CA(MR(90+10*i), 0, MR(-65)) * CN(0.6, -0.9+0.5*i, 0)
        LAW.C0 = CA(MR(85+26*i), 0, MR(-40)) * CN(0.5, -0.5+0.1*i, 0)
        HW.C0 = CA(MR(-15*i), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        wait()
    end
    for i = 0.2, 1, 0.2 do
        RAW.C0 = CA(MR(100+5*i), 0, MR(-65)) * CN(0.6, -0.4+0.15*i, 0)
        LAW.C0 = CA(MR(111+4*i), 0, MR(-40)) * CN(0.5, -0.4+0.05*i, 0)
        HW.C0 = CA(MR(-15-2*i), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        wait()
    end
    for i = 0.5, 1, 0.5 do
        RAW.C0 = CA(MR(105+2*i), 0, MR(-65)) * CN(0.6, -0.25+0.03*i, 0)
        LAW.C0 = CA(MR(115+2*i), 0, MR(-40)) * CN(0.5, -0.35+0.02*i, 0)
        HW.C0 = CA(MR(-17), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        wait()
    end
    for i = 0.2, 1, 0.2 do
        RAW.C0 = CA(MR(107-12*i), 0, MR(-65)) * CN(0.6, -0.22-0.68*i, 0)
        LAW.C0 = CA(MR(117-17*i), 0, MR(-40)) * CN(0.5, -0.33-0.02*i, 0)
        HW.C0 = CA(MR(-17+2*i), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        wait()
    end
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CA(MR(95-5*i), 0, MR(-65)) * CN(0.6, -0.9-0.1*i, 0)
        LAW.C0 = CA(MR(100-5*i), 0, MR(-40)) * CN(0.5+0.1*i, -0.35+0.1*i, 0)
        HW.C0 = CA(MR(-15+11*i), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        PumpWeld.C1 = CN(0, 0, 0.1*i)
        wait()
    end
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CA(MR(90-3*i), 0, MR(-65)) * CN(0.6, -1+0.05*i, 0)
        LAW.C0 = CA(MR(95-5*i), 0, MR(-40)) * CN(0.6+0.2*i, -0.25+0.35*i, 0)
        HW.C0 = CA(MR(-4+4*i), MR(5), MR(0)) * CN(0.4, 0, -1.2)
        PumpWeld.C1 = CN(0, 0, 0.1+0.6*i)
        Flip.C1 = CN(0, 0, 0.5*i)
        wait()
    end
    local sh = Shell(workspace)
    sh.Main.CanCollide = true
    sh.Back.CanCollide = true
    sh.Main.CFrame = Handle3.CFrame * CN(0.3, 0.2, 0)
    sh.Main.Velocity = (Handle3.CFrame * CA(0, MR(90), 0)).lookVector * 15
    Notime(function()
        wait(MRA(100,180)/10)
        for i = 0, 1, 0.005 do
            sh.Main.Transparency = i
            sh.Back.Transparency = i
            wait()
        end
        sh.Model:remove()
    end)
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CA(MR(87+3*i), 0, MR(-65)) * CN(0.6, -0.95+0.05*i, 0)
        LAW.C0 = CA(MR(90-5*i), 0, MR(-40)) * CN(0.8-0.3*i, 0.1-0.6*i, 0)
        HW.C0 = CA(0, MR(5), 0) * CN(0.4, 0, -1.2)
        PumpWeld.C1 = CN(0, 0, 0.7-0.7*i)
        Flip.C1 = CN(0, 0, 0.5-0.5*i)
        wait()
    end
    Normal()
end

function ShootFunc(From, To)
    local H, Pos = RayC(From, To, 10, EffectModel)
    local Can = true
    if H then
        if H:IsDescendantOf(Char) then
            Can = false
        end
    end
    if Can then
        Attacking = true
        Ammunition.Ammo = Ammunition.Ammo - 1
        if Ammunition.Ammo < 0 then Ammunition.Ammo = 0 end
        ShootAnim(From, To)
        Attacking = false
    end
end

function SelectAnim()
    RAW.Part1 = Rarm
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CA(MR(-10*i), 0, MR(2*i))
        wait()
    end
    for i = 0.1, 1, 0.1 do
        RAW.C0 = CN(-0.15*i, 0, -0.45*i) * CA(MR(-10-115*i), 0, MR(2+8*i)) * CN(0, -0.4*i, 0)
        wait()
    end
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CN(-0.15, 0, -0.45-0.05*i) * CA(MR(-125-15*i), 0, MR(10)) * CN(0, -0.4, 0)
        wait()
    end
    TW.Part1 = nil
    HW.Part1 = Handle
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CN(-0.15+0.15*i, 0, -0.5+0.1*i) * CA(MR(-140+10*i), 0, MR(10+2*i)) * CN(0, -0.4+0.15*i, 0)
        HW.C0 = CA(MR(38+12*i), MR(-28-15*i), MR(-90-10*i)) * CN(0, -0.1*i, -3.8)
        wait()
    end
    Attach(FTorso)
    for i = 0.1, 1, 0.1 do
        RAW.C0 = CN(0, 0, -0.4+0.3*i) * CA(MR(-130+90*i), 0, MR(12+30*i)) * CN(0, -0.25+0.25*i, 0)
        HW.C0 = CA(MR(50+30*i), MR(-43-50*i), MR(-100-50*i)) * CN(0, -0.1-0.7*i, -3.8+0.7*i)
        FW.C0 = CA(0, MR(-15*i), 0)
        wait()
    end
    LAW.Part1 = Larm
    for i = 0.15, 1, 0.15 do
        RAW.C0 = CN(0, 0, -0.1+0.1*i) * CA(MR(-40+60*i), 0, MR(42+4*i))
        LAW.C0 = CA(MR(10*i), 0, MR(-8*i)) * CN(0, -0.15*i, 0)
        FW.C0 = CA(0, MR(-15-20*i), 0)
        HW.C0 = CA(MR(80+50*i), MR(-93-57*i), MR(-150-30*i)) * CN(0, -0.8, -3.1+1*i)
        wait()
    end
    for i = 0.15, 1, 0.15 do
        RAW.C0 = CA(MR(20+58*i), 0, MR(46-60*i)) * CN(0.2*i, -0.35*i, 0)
        LAW.C0 = CA(MR(10+65*i), 0, MR(-8-32*i)) * CN(0.3*i, -0.15-0.25*i, 0)
        FW.C0 = CA(0, MR(-35-30*i), 0)
        HW.C0 = CA(MR(130+50*i), MR(-150-20*i), MR(-180)) * CN(0.25*i, -0.8+0.3*i, -2.1+0.9*i)
        wait()
    end
    for i = 0.2, 1, 0.2 do
        RAW.C0 = CA(MR(78+8*i), 0, MR(-14-41*i)) * CN(0.2+0.35*i, -0.35-0.55*i, 0)
        LAW.C0 = CA(MR(75+7*i), 0, MR(-40)) * CN(0.3+0.15*i, -0.4-0.06*i, 0)
        FW.C0 = CA(0, MR(-65-5*i), 0)
        HW.C0 = CA(MR(0), MR(-10+10*i), MR(0)) * CN(0.25+0.1*i, -0.5+0.4*i, -1.2)
        wait()
    end
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CA(MR(86+4*i), 0, MR(-55-10*i)) * CN(0.55+0.05*i, -0.8-0.1*i, 0)
        LAW.C0 = CA(MR(82+3*i), 0, MR(-40)) * CN(0.45+0.05*i, -0.46-0.04*i, 0)
        FW.C0 = CA(0, MR(-70), 0)
        HW.C0 = CA(MR(0), MR(5*i), MR(0)) * CN(0.35+0.05*i, -0.1+0.1*i, -1.2)
        wait()
    end
end

function DeselAnim()
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CA(MR(90-10*i), 0, MR(-65+10*i)) * CN(0.6-0.05*i, -0.9+0.35*i, 0)
        LAW.C0 = CA(MR(85-10*i), 0, MR(-40+4*i)) * CN(0.5-0.05*i, -0.5+0.04*i, 0)
        FW.C0 = CA(0, MR(-70+10*i), 0)
        HW.C0 = CA(MR(180-10*i), MR(-185+10*i), MR(180-10*i)) * CN(0.4-0.05*i, -0.1*i, -1.2)
        wait()
    end
    for i = 0.07, 1, 0.07 do
        RAW.C0 = CA(MR(80-80*i), 0, MR(-55+90*i)) * CN(0.55-0.35*i, -0.55+0.55*i, 0)
        LAW.C0 = CA(MR(75-70*i), 0, MR(-36+30*i)) * CN(0.45-0.35*i, -0.46+0.36*i, 0)
        FW.C0 = CA(0, MR(-60+40*i), 0)
        HW.C0 = CA(MR(170-70*i), MR(-175+70*i), MR(170-70*i)) * CN(0.35-0.35*i, -0.1-0.1*i, -1.2-1*i)
        wait()
    end
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CN(-0.1*i, 0, -0.15*i) * CA(MR(-30*i), 0, MR(35+10*i)) * CN(0.2-0.2*i, 0, 0)
        LAW.C0 = CA(MR(5-5*i), 0, MR(-6+6*i)) * CN(0.1-0.1*i, -0.1+0.1*i, 0)
        FW.C0 = CA(0, MR(-20+15*i), 0)
        HW.C0 = CA(MR(100-20*i), MR(-105+15*i), MR(100-15*i)) * CN(0, -0.2, -2.2-0.3*i)
        wait()
    end
    LAW.Part1 = nil
    for i = 0.12, 1, 0.12 do
        RAW.C0 = CN(-0.1-0.05*i, 0, -0.15-0.3*i) * CA(MR(-30-100*i), 0, MR(45-30*i)) * CN(0, -0.3*i, 0)
        FW.C0 = CA(0, MR(-5+5*i), 0)
        HW.C0 = CA(MR(80-37*i), MR(-90+55*i), MR(85-135*i)) * CN(0, -0.2, -2.5-0.9*i)
        wait()
    end
    Attach(Torso)
    for i = 0.2, 1, 0.2 do
        RAW.C0 = CN(-0.15*i, 0, -0.45-0.05*i) * CA(MR(-130-10*i), 0, MR(15-5*i)) * CN(0, -0.3-0.1*i, 0)
        HW.C0 = CA(MR(43-5*i), MR(-35+7*i), MR(-50-40*i)) * CN(0, -0.2, -3.4-0.4*i)
        wait()
    end
    TW.Part1 = Handle
    HW.Part1 = nil
    for i = 0.25, 1, 0.25 do
        RAW.C0 = CN(-0.15+0.05*i, 0, -0.5+0.15*i) * CA(MR(-140+10*i), 0, MR(10-3*i)) * CN(0, -0.4+0.1*i, 0)
        wait()
    end
    for i = 0.15, 1, 0.15 do
        RAW.C0 = CN(-0.1+0.1*i, 0, -0.35+0.25*i) * CA(MR(-130+115*i), 0, MR(7-7*i)) * CN(0, -0.3+0.25*i, 0)
        wait()
    end
    for i = 0.33, 1, 0.33 do
        RAW.C0 = CN(0, 0, -0.1+0.1*i) * CA(MR(-15+15*i), 0, 0) * CN(0, -0.05+0.05*i, 0)
        wait()
    end
    Attach(Torso)
    TW.Part1 = Handle
    HW.Part1 = nil
    RAW.Part1 = nil
    LAW.Part1 = nil
end

function ReloadFunc(once)
    if Ammunition.Ammo < Ammunition.MaxAmmo and Selected and not Reloading and not Attacking and Ammunition.Ammoleft > 0 then
        if not once then
            ReloadHold = true
        end
        ReloadStart(once)
    end
end

function onSelected(mouse)
    SelectAnim()
    mouse.Icon = Icon
    Selected = true
    Notime(function()
        for _, g in pairs(AccuracyGuis) do
            g.Gui.Transparency = 0.2
        end
        while Selected do
            pcall(function()
                for _, g in pairs(AccuracyGuis) do
                    g.Gui.Position = UD(0, mouse.X+g.props.offset.x+g.props.unit.x*(Accuracy.Momentum*11), 0, mouse.Y+g.props.offset.y+g.props.unit.y*(Accuracy.Momentum*11))
                end
            end)
            wait()
        end
    end)
    mouse.Button1Down:connect(function()
        if Selected and not Attacking and not Swinging then
            if Reloading then
                ReloadHold = false
            else
                if Ammunition.Ammo < 1 then
                    ReloadFunc(true)
                else
                    ShootFunc((Pipe1.CFrame * CN(0, 0, 1.65)).p, mouse.Hit.p)
                end
                if Ammunition.Ammo < 1 and Ammunition.Ammoleft < 1 then
                    PlaySound(Sounds.Out)
                end
            end
        end
    end)
    mouse.KeyDown:connect(function(key)
        key = key:lower()
        if Selected and not Attacking and not Swinging then
            if key == "r" then
                ReloadFunc()
            elseif key == "e" then
                Swing()
            end
        end
    end)
    mouse.KeyUp:connect(function(key)
        key = key:lower()
        if key == "r" then
            ReloadHold = false
        end
    end)
end

function onDeselected(mouse)
    Selected = false
    for _, g in pairs(AccuracyGuis) do
        g.Gui.Transparency = 1
    end
    DeselAnim()
end

bin.Selected:connect(onSelected)
bin.Deselected:connect(onDeselected)