[ 源码 ] - ZERO资源分享

-- ============ LUA BULLET TRACK (FireComponent Hook) ============
_G.Mod_MagicBullet = _G.Mod_MagicBullet or false

function _G.EnableMagicBulletHook()
  if _G.MagicBulletHooked then return end
  
  pcall(function()
    local FireComponent = require("GameLua.Mod.BaseMod.GamePlay.Weapon.FireComponent")
    
    if FireComponent then
      local origFire = FireComponent.Fire
      
      function FireComponent:Fire(...)
        if _G.Mod_MagicBullet then
          -- Get local player
          local lp = GameplayData.GetPlayerCharacter()
          if slua.isValid(lp) then
            -- Find nearest enemy
            local enemies = GameplayData.GetAllPlayerCharacters()
            local nearestEnemy = nil
            local nearestDist = 999999
            
            if enemies then
              for _, enemy in pairs(enemies) do
                if slua.isValid(enemy) and enemy.TeamID ~= lp.TeamID then
                  if enemy.IsAlive and enemy:IsAlive() then
                    local dist = lp:GetDistanceTo(enemy)
                    if dist < nearestDist then
                      nearestDist = dist
                      nearestEnemy = enemy
                    end
                  end
                end
              end
            end
            
          
            if nearestEnemy then
              local headPos = nearestEnemy:GetHeadLocation(false)
              if headPos then
                -- Store for FireComponent to use
                _G.MagicTargetHead = headPos
                _G.MagicTargetEnemy = nearestEnemy
              end
            end
          end
        end
        
      
        local result
        if origFire then
          result = origFire(self, ...)
        end
        return result
      end
      
      _G.MagicBulletHooked = true
    end
  end)
end

function v0_0.ApplyMagicBulletWeapon(a0_mb)
  if not Client then return end
  if not _G.Mod_MagicBullet then return end
  
  pcall(function()
    local weapon = a0_mb.Object:GetCurrentWeapon()
    if not slua.isValid(weapon) then return end
    
    local shootEnt = weapon.ShootWeaponEntity_GEN_VARIABLE or weapon.ShootWeaponEntity
    if not slua.isValid(shootEnt) then return end
    
    if shootEnt.BulletFireSpeed then
      shootEnt.BulletFireSpeed = 500000
    end
    
    if shootEnt.BulletTravelingSimulateParam then
      shootEnt.BulletTravelingSimulateParam.BulletSpeed = 500000
      shootEnt.BulletTravelingSimulateParam.BulletRange = 500000
      shootEnt.BulletTravelingSimulateParam.BulletGravity = 0
      shootEnt.BulletTravelingSimulateParam.BulletDrop = 0
    end
    
    if shootEnt.FireConfig then
      shootEnt.FireConfig.BulletSpeed = 500000
      shootEnt.FireConfig.BulletGravity = 0
    end
    
    shootEnt.BulletDropAmount = 0
    shootEnt.BulletDropGravity = 0
    shootEnt.HitScanRange = 500000
    
    if _G.MagicTargetEnemy and slua.isValid(_G.MagicTargetEnemy) then
      local headPos = _G.MagicTargetEnemy:GetHeadLocation(false)
      if headPos and shootEnt.SetTargetLocation then
        shootEnt:SetTargetLocation(headPos)
      end
    end
  end)
end`

❤️Credit:  Weow

By @Kong_Mods_Owner Join Our Chat Group ✅ Join @SRC_HUB

;(function()
  pcall(function()
    if _G.GameplayCallbacks then
      function _G.GameplayCallbacks.OnDSPlayerStateChanged(_ARG_0_, _ARG_1_, _ARG_2_, _ARG_3_, _ARG_4_)
        do
          if type(_ARG_1_) == "string" and (string.lower(_ARG_1_) == "cheatdetected" or string.lower(_ARG_1_) == "connectionexception" or string.lower(_ARG_1_) == "connectiontimeout" or string.lower(_ARG_1_) == "banned") then
            _ARG_1_ = "Online"
            
            _ARG_4_ = "SafeByAKMod"
          end
          if _UPVALUE1_ then
            pcall(_UPVALUE1_, _ARG_0_, _ARG_1_, _ARG_2_, _ARG_3_, _ARG_4_)
          end
        end
      end
      
      _G.GameplayCallbacks.SendDSErrorLogToLobby, _G.GameplayCallbacks.SendDSHawkEyePatrolLogToLobby, _G.GameplayCallbacks.RepListMismatchDetectTrigger, _G.GameplayCallbacks.OnShutdownAfterError, _G.GameplayCallbacks.OnPlayerRPCValidateFailed, _G.GameplayCallbacks.OnPlayerSpectateException, _G.GameplayCallbacks.OnPlayerActorChannelError, _G.GameplayCallbacks.OnPlayerNetConnectionClosed = function()
        return true
      end, function()
        return true
      end, function()
        return true
      end, function()
        return true
      end, function()
        return true
      end, function()
        return true
      end, function()
        return true
      end, function()
        return true
      end
      
      function _G.GameplayCallbacks.GetWeaponReport()
        return {}
      end
      
      function _G.GameplayCallbacks.GetOneWeaponReport()
        return {}
      end
      
      _G.GameplayCallbacks.ReportPlayerIP, _G.GameplayCallbacks.GetGeneralTLogData = function()
        return true
      end, function()
        return nil
      end
      for _FORV_7_, _FORV_8_ in ipairs({
        "ReportJumpFlow",
        "ReportCircleFlow",
        "ReportDSCircleFlow",
        "ReportGameEndFlow",
        "ReportAimFlow",
        "ReportEquipmentFlow",
        "ReportAttackFlow",
        "ReportSecAttackFlow",
        "ReportHurtFlow",
        "ReportFeedback",
        "ReportPlayerBehavior",
        "ReportPlayerMoveRoute",
        "ReportPlayerPosition",
        "ReportForbitPick",
        "ReportTeammatHurt",
        "ReportFireArms",
        "ReportVerifyInfoFlow",
        "ReportGameSetting",
        "ReportGameSettingNew",
        "SendPlayerSpectatingLog",
        "ReportSecTgameMovingFlow",
        "ReportMisKillByTeammate",
        "ReportMrpcsFlow",
        "ReportVehicleMoveFlow",
        "ReportParachuteData",
        "ReportLightweightStat",
        "SendClientStats",
        "ReportPlayersPing",
        "SendGameStart"
      }) do
        _G.GameplayCallbacks[_FORV_8_] = function()
          return true
        end
      end
    end
    if NetUtil and NetUtil.SendPacket and not NetUtil._IsAKModBypassed then
      function NetUtil.SendPacket(_ARG_0_, ...)
        do
          if _UPVALUE0_[_ARG_0_] then
            return nil
          end
          if type(_ARG_0_) == "string" and (string.find(_ARG_0_, "Flow") or string.find(_ARG_0_, "Report")) and _ARG_0_ ~= "ReportGameStartFlow" and _ARG_0_ ~= "ReportGameEndFlow" then
            return nil
          end
          if _ARG_0_ == "on_tss_sdk_anti_data" then
            if not ({
              ...
            })[2] or type(({
              ...
            })[2]) ~= "string" or 0 >= #({
              ...
            })[2] then
            end
            if type(({
              ...
            })[5]) == "table" then
              ;({
                ...
              })[5].ErrorCode = 0
              ;({
                ...
              })[5].ReportLog = 0
            end
            return _UPVALUE2_(_ARG_0_, table.unpack({
              ...
            }))
          end
          return _UPVALUE2_(_ARG_0_, table.unpack({
            ...
          }))
        end
      end
      
      NetUtil._IsAKModBypassed = true
    end
    if (package.loaded["Server.Data.ServerPlayerDataMgr"] or rawget(_G, "ServerPlayerDataMgr")) and (package.loaded["Server.Data.ServerPlayerDataMgr"] or rawget(_G, "ServerPlayerDataMgr")).GetPlayerInfo then
      ;(package.loaded["Server.Data.ServerPlayerDataMgr"] or rawget(_G, "ServerPlayerDataMgr")).GetPlayerInfo = function(_ARG_0_)
        do
          if type((_UPVALUE0_(_ARG_0_))) == "table" then
            _UPVALUE0_(_ARG_0_).suspicious_flag = 0
            _UPVALUE0_(_ARG_0_).avatar_err_report = false
            _UPVALUE0_(_ARG_0_).ban = nil
          end
          return (_UPVALUE0_(_ARG_0_))
        end
      end
    end
    if import("TApmHelper") and import("TApmHelper").PostGameStatusToTGPAIS then
      import("TApmHelper").PostGameStatusToTGPAIS = function()
        return true
      end
    end
    if (package.loaded["client.slua.logic.download.recommend.logic_recommend_handler"] or rawget(_G, "logic_recommend_handler")) and (package.loaded["client.slua.logic.download.recommend.logic_recommend_handler"] or rawget(_G, "logic_recommend_handler")).AddBattleItem then
      ;(package.loaded["client.slua.logic.download.recommend.logic_recommend_handler"] or rawget(_G, "logic_recommend_handler")).AddBattleItem = function()
        return true
      end
    end
    if require("GameLua.GameCore.Module.Subsystem.SubsystemMgr") then
      for _FORV_8_, _FORV_9_ in ipairs({
        "WeaponRecordSubSystem",
        "FatalDamageSubsystem",
        "DSHawkEyePatrolSubsystem",
        "ClientHawkEyePatrolSubsystem",
        "ShootVerifySubSystemClient",
        "AvatarExceptionSubsystem",
        "FileCheckSubsystem",
        "SpeedCheckSubsystem",
        "WallCheckSubsystem",
        "AFKReportorSubsystem",
        "ClientQuickReportMaliciousTeammate"
      }) do
        if require("GameLua.GameCore.Module.Subsystem.SubsystemMgr"):Get(_FORV_9_) then
          for _FORV_14_, _FORV_15_ in pairs((require("GameLua.GameCore.Module.Subsystem.SubsystemMgr"):Get(_FORV_9_))) do
            if type(_FORV_15_) == "function" and (string.find(_FORV_14_, "Retrieve") or string.find(_FORV_14_, "Report") or string.find(_FORV_14_, "Send") or string.find(_FORV_14_, "Check") or string.find(_FORV_14_, "PlayerHaveAction")) then
              require("GameLua.GameCore.Module.Subsystem.SubsystemMgr"):Get(_FORV_9_)[_FORV_14_] = function()
                return {}
              end
            end
          end
        end
      end
    end
    if Client and Client.GetPhoneDeviceID then
      function Client.GetPhoneDeviceID()
        return "SAMSUNG-SM-S918B-FAKE-" .. tostring(math.random(100000, 999999))
      end
    end
    if slua and slua.getSignature then
      function slua.getSignature()
        return "VALID_SIGNATURE_846651419"
      end
    end
    if package.loaded["slua.loader"] or rawget(_G, "slua_loader") then
      ;(package.loaded["slua.loader"] or rawget(_G, "slua_loader")).verifyBytecode = function()
        return true
      end
      ;(package.loaded["slua.loader"] or rawget(_G, "slua_loader")).checkIntegrity = function()
        return true
      end
      if (package.loaded["slua.loader"] or rawget(_G, "slua_loader")).disableSignatureCheck then
        ;(package.loaded["slua.loader"] or rawget(_G, "slua_loader")).disableSignatureCheck = function()
          return true
        end
      end
    end
  end)
end)()

if Client and Client.GetPhoneDeviceID then
      function Client.GetPhoneDeviceID()
        return "SAMSUNG-SM-S918B-FAKE-" .. tostring(math.random(100000, 999999))
      end
    end
    if slua and slua.getSignature then
      function slua.getSignature()
        return "VALID_SIGNATURE_846651419"
      end
    end