cHeadshot

scoped = false
timer = Timer()
timer1 = Timer()
timer3 = Timer()

function Health(args)
    if args.key == string.byte("M") then
        Game:FireEvent("ply.health.upgrade")
        Chat:Print(tostring(LocalPlayer:GetHealth()), Color(255, 255, 255))
    end
end

function PrintHealth(args)
    if args.key == string.byte("N") then
        Chat:Print(tostring(LocalPlayer:GetHealth()), Color(255, 255, 255))
    end
end

Events:Subscribe("KeyDown", Health)
Events:Subscribe("KeyDown", PrintHealth)

function Cast(args)

    local t = {1, 2, 3, 4, 5, 6, 7, 8}
    local r = {1, 2, 3, 4, 5}
    local d = {1, 2, 3}
    tr = table.randomvalue(t)
    rr = table.randomvalue(t)
    dr = table.randomvalue(d)

    bones = LocalPlayer:GetBones()
    target = LocalPlayer:GetAimTarget()

    dist = Vector3.Distance(LocalPlayer:GetPosition(), LocalPlayer:GetAimTarget().position)
    dist = dist - (rr / 100)



    x = LocalPlayer:GetAimTarget().position.x
    y = LocalPlayer:GetAimTarget().position.y
    z = LocalPlayer:GetAimTarget().position.z

    for boneName, bone in pairs(bones) do
        if boneName == "ragdoll_RightForeArm" then
            if scoped == true and timer3:GetSeconds() > 1 then
                Network:Send("Scattered", bones)
                timer3:Restart()
            else
                if tr == 1 then
                    x = x + (dist / 100)
                    y = y + (dist / 100)
                    z = z + (dist / 100)
                elseif tr == 2 then
                    x = x - (dist / 100)
                    y = y + (dist / 100)
                    z = z + (dist / 100)
                elseif tr == 3 then
                    x = x + (dist / 100)
                    y = y - (dist / 100)
                    z = z + (dist / 100)
                elseif tr == 4 then
                    x = x + (dist / 100)
                    y = y + (dist / 100)
                    z = z - (dist / 100)
                elseif tr == 5 then
                    x = x - (dist / 100)
                    y = y - (dist / 100)
                    z = z + (dist / 100)
                elseif tr == 6 then
                    x = x - (dist / 100)
                    y = y - (dist / 100)
                    z = z - (dist / 100)
                elseif tr == 7 then
                    x = x + (dist / 100)
                    y = y - (dist / 100)
                    z = z - (dist / 100)
                elseif tr == 8 then
                    x = x - (dist / 100)
                    y = y + (dist / 100)
                    z = z - (dist / 100)
                end
                scatter = Vector3(x, y, z)
                myTable = {scatter, bones}

                if timer3:GetSeconds() > 1 then
                    print("Shot")
                    Network:Send("Scattered", myTable)
                    timer3:Restart()
                end
            end
        end
    end
end

Events:Subscribe("MouseDown", Cast)

function isScoped(args)
    if args.key == string.byte("C") then
        if scoped == false then
            scoped = true
            print("Trying to scope")
            timer3:Restart()
        else
            scoped = false
        end
    end

    if timer3:GetMinutes() > 5 and scoped == true then -- deterring hackers. if the module is reloaded while you are scoped, when you unscope, it will act as if you were scoped.
        Chat:Print("* After a while of scoping, your arms are now tired and you must stop aiming so intensively.", Color(255, 125, 255))
    end
end

function RemoveScopeOnDeath()
    scoped = false
end

Events:Subscribe("LocalPlayerDeath", RemoveScopeOnDeath)
Events:Subscribe("KeyDown", isScoped)

Foo = function(args)
    return false
end

Events:Subscribe("LocalPlayerBulletHit", Foo)