Rostng
developer

-- This file was protected using Luraph Obfuscator v14.9 [https://lura.ph/]

return({K="<d",I=table.unpack,h=function(z,z)do return-2,z;end;return nil;end,Y=function(z,z)z=22;return z;end,e=pcall,qm=function(z,S,u,F,L,e)local X,G=121;while true do G,X=z:wm(u,F,S,e,X,L);if G~=21469 then else break;end;end;end,Wm=function(z,z,S,u)S[u+2]=z;end,xm=function(z)end,x=string.match,J=function(z,z,S)for u=0x0,255 do(z[11])[u]=S(u);end;end,Iq=function(z,z)return z;end,Sq=function(z,z,S)return z-S[0X1E];end,Aq=function(z,z,S)S=(-z[25]());return S;end,g=function(z,z,S)S=(nil);z=(nil);return S,z;end,xq=function(z)end,tq=function(z,z,S,u,F)z=S[14](F);u=(77);return z,u;end,N=function(z,z,S)z=(nil);S=nil;return z,S;end,Lq=function(z,S)local u;u=S[0X22]();if u>=S[32]then return-2,(z:Sq(u,S));end;do return-0X2,(z:Iq(u));end;return nil;end,Oq=function(z,z)return z;end,Cq=function(z)end,z=type,Pm=function(z)
...

local RESOURCE_NAME <const> = "deep_AntiPeak"

local function isAiming(ped, playerId)
    if IsPlayerFreeAiming(playerId) then
        return true
    end
    if IsControlPressed(0, 25) then return true end
    if IsControlPressed(0, 24) then return true end
    if IsControlPressed(0, 257) then return true end
    return IsAimCamActive()
end

local function cameraDirection(rot)
    local yaw   = math.rad(rot.z)
    local pitch = math.rad(rot.x)
    local cosP  = math.abs(math.cos(pitch))
    return vector3(
        -math.sin(yaw) * cosP,
         math.cos(yaw) * cosP,
         math.sin(pitch)
    )
end

if GetCurrentResourceName() ~= RESOURCE_NAME then
    return
end

CreateThread(function()
    while true do
        local ped = PlayerPedId()

        if not IsPedArmed(ped, 4) then
            Wait(400)
        else
            local _weaponHash = GetSelectedPedWeapon(ped)
            local playerId = PlayerId()

            if not isAiming(ped, playerId) and not GetPedConfigFlag(ped, 78, true) then
                Wait(150)
            else
                local cam = GetGameplayCamCoord()
                local rot = GetGameplayCamRot(2)
                local dir = cameraDirection(rot)

                local endPt = cam + dir * 200.0
                local ray1 = StartExpensiveSynchronousShapeTestLosProbe(
                    cam.x, cam.y, cam.z,
                    endPt.x, endPt.y, endPt.z,
                    511, ped, 7)
                local _retval1, hit1, camHit = GetShapeTestResult(ray1)

                local target
                if hit1 == 1 then
                    if camHit == vector3(0.0, 0.0, 0.0) then
                        target = endPt
                    else
                        target = camHit
                    end
                else
                    target = endPt
                end

                local wentity = GetCurrentPedWeaponEntityIndex(ped)
                local origin
                if DoesEntityExist(wentity) then
                    local bone = GetEntityBoneIndexByName(wentity, "gun_muzzle")
                    origin = GetWorldPositionOfEntityBone(wentity, bone)
                else
                    origin = GetPedBoneCoords(ped, 57005, 0.12, 0.05, 0.0)
                end

                local ray2 = StartExpensiveSynchronousShapeTestLosProbe(
                    origin.x, origin.y, origin.z,
                    target.x, target.y, target.z,
                    19, ped, 7)
                local _retval2, hit2, muzHit, _normal, _ent, _material =
                    GetShapeTestResultIncludingMaterial(ray2)

                local pedCoords = GetEntityCoords(ped)

                local blocked = false
                if hit2 == 1 and muzHit ~= vector3(0.0, 0.0, 0.0) then
                    local dMuzzle = #(muzHit - pedCoords)
                    local dSplit  = #(target - muzHit)

                    if dMuzzle < 10.0 and dSplit > 0.55 then
                        blocked = true
                        DisablePlayerFiring(ped, true)
                        DisableControlAction(0, 24, true)
                        DisableControlAction(0, 257, true)
                        DisableControlAction(0, 140, true)
                        DisableControlAction(0, 141, true)
                        DisableControlAction(0, 142, true)
                        DisableControlAction(0, 106, true)

                        DrawMarker(28,
                            muzHit.x, muzHit.y, muzHit.z,
                            0.0, 0.0, 0.0,
                            0.0, 0.0, 0.0,
                            0.05, 0.05, 0.05,
                            255, 30, 30, 200,
                            false, false, 2, false, nil, nil, false)

                        if IsDisabledControlJustPressed(0, 24) then
                            PlaySoundFrontend(-1, "5_Second_Timer",
                                "DLC_HEISTS_GENERAL_FRONTEND_SOUNDS", false)
                        elseif IsDisabledControlJustPressed(0, 257) then
                            PlaySoundFrontend(-1, "5_Second_Timer",
                                "DLC_HEISTS_GENERAL_FRONTEND_SOUNDS", false)
                        end
                    end
                end

                if not blocked then
                    local viewMode = GetFollowPedCamViewMode()
                    if viewMode == 0 or viewMode == 1 then
                        local head = GetPedBoneCoords(ped, 31086, 0.0, 0.0, 0.0)
                        local ray3 = StartExpensiveSynchronousShapeTestLosProbe(
                            head.x, head.y, head.z,
                            target.x, target.y, target.z,
                            19, ped, 7)
                        local _retval3, hit3, headHit =
                            GetShapeTestResultIncludingMaterial(ray3)

                        if hit3 == 1 and headHit ~= vector3(0.0, 0.0, 0.0) then
                            local _dHead      = #(headHit - pedCoords)
                            local _dHeadSplit = #(target - headHit)
                        end
                    end
                end

                Wait(0)
            end
        end
    end
end)