3DMGAME 3DM首页 新闻中心 前瞻 | 评测 游戏库 热门 | 最新 攻略中心 攻略 | 秘籍 下载中心 游戏 | 汉化 购买正版 侠客前传 | 刺客信条 论坛

注册 登录

QQ登录

只需一步,快速开始

查看: 327751|回复: 12581
打印 上一主题 下一主题

[原创] 收获日2 Lua腳本代碼分享,聯機享受作弊的快感!!!

  [复制链接]

38

主题

583

帖子

424

积分

高级玩家

Rank: 4

贡献度
17
金元
3556
积分
424
精华
0
注册时间
2011-3-5
跳转到指定楼层
主题
发表于 2013-8-19 12:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 9298 于 2015-4-7 10:58 编辑

鄙視那些不分享的人

转自www.youtube.com/channel/UCfekC7jF82Z2HYhMEQC3Rhw
-- Player Instance
local player = managers.player:player_unit()

-- Steam Achievements
if managers.achievment then
        for id,_ in pairs(managers.achievment.achievments) do
                managers.achievment:award(id)
        end
end

-- God Mode
if player then
   player:character_damage():set_invulnerable( true )
end

-- Throwing Distance
local car_arr = {
        'being',
        'mega_heavy',
        'heavy',
        'medium',
        'light',
        'coke_light'
}

for i, name in ipairs(car_arr) do
        tweak_data.carry.types[ name ].throw_distance_multiplier = 10.0
end

-- Everything But Weapons
for i=1, 7 do
        managers.lootdrop:debug_drop( 1000, true, i )
end

-- Weapon Mods
NewRaycastWeaponBase._get_spread = function(self) return 0 end
NewRaycastWeaponBase.recoil_multiplier = function(self) return 0 end
NewRaycastWeaponBase.reload_speed_multiplier = function(self) return 5000 end
NewRaycastWeaponBase.fire_rate_multiplier = function(self) return 5000 end
PlayerStandard._get_swap_speed_multiplier = function(self) return 5000 end
NewRaycastWeaponBase.damage_multiplier = function(self) return 5000 end

BaseInteractionExt._has_required_upgrade = function(self) return true end
BaseInteractionExt._has_required_deployable = function(self) return true end
BaseInteractionExt._get_timer = function(self) return 0 end
BaseInteractionExt.can_interact = function(self, player) return true end

-- Infinite Ammo Clip
if not _fireWep then
   _fireWep = NewRaycastWeaponBase.fire
end
function NewRaycastWeaponBase:fire( from_pos, direction, dmg_mul, shoot_player, spread_mul, autohit_mul, suppr_mul, target_unit )
   _fireWep( self, from_pos, direction, dmg_mul, shoot_player, spread_mul, autohit_mul, suppr_mul, target_unit )

   if managers.player:player_unit() == self._setup.user_unit then
      self.set_ammo(self, 1.0)
   end
end

-- Infinite Ammo and No Reload
RaycastWeaponBase.ammo_info = function(self)
self._ammo_max_per_clip = 99999
self._ammo_remaining_in_clip = 99999
self._ammo_total = 99999
self._ammo_max = 99999
return self._ammo_max_per_clip, self._ammo_remaining_in_clip, self._ammo_total, self._ammo_max
end
BlackMarketGui.get_weapon_ammo_info = function(self, weapon_id, comparision_data)
return 100, 100
end

-- Money and Level
managers.experience:_set_current_level (1337)
managers.skilltree:_set_points(9999)
managers.money:_add_to_total(9999)


-- Infinite Saw
if not _fireSaw then
   _fireSaw = SawWeaponBase.fire
end
function SawWeaponBase:fire( from_pos, direction, dmg_mul, shoot_player, spread_mul, autohit_mul, suppr_mul, target_unit )
   _fireSaw( self, from_pos, direction, dmg_mul, shoot_player, spread_mul, autohit_mul, suppr_mul, target_unit )

   if managers.player:player_unit() == self._setup.user_unit then
      self.set_ammo(self, 1.0)
   end
end

-- Infinite Cable Ties
if not _rmSpecial then
   _rmSpecial = PlayerManager.remove_special
end
function PlayerManager:remove_special( name ) end

-- Infinite Equipment
if not _rmEquipment then
   _rmEquipment = PlayerManager.remove_equipment
end
function PlayerManager:remove_equipment( equipment_id ) end

-- Infinite Equipment (Not Host)
function PlayerManager:remove_equipment_possession( peer_id, equipment ) end

-- Debug Menu
if managers.menu then
managers.menu:set_debug_menu_enabled(true)
end

-- All Weapons Unlocked
local wep_arr = {
   'new_m4', 'glock_17', 'mp9', 'r870', 'glock_18c', 'amcar', 'm16', 'olympic', 'ak74', 'akm', 'akmsu', 'saiga', 'ak5', 'aug', 'g36', 'p90', 'new_m14', 'deagle', 'new_mp5', 'colt_1911', 'mac10', 'serbu', 'huntsman', 'b92fs', 'new_raging_bull',  'saw'
}
for i, name in ipairs(wep_arr) do
   if not managers.upgrades:aquired(name) then
      managers.upgrades:aquire(name)
   end
end

-- Guards and Camera
function GroupAIStateBase:_clbk_switch_enemies_to_not_cool() end
function PlayerMovementn_suspicion( observer_unit, status ) end
function GroupAIStateBasen_criminal_suspicion_progress( u_suspect, u_observer, status ) end
function GroupAIStateBase:criminal_spotted( unit ) end
function GroupAIStateBase:report_aggression( unit ) end
function PlayerMovementn_uncovered( enemy_unit ) end
function SecurityCamera:_upd_suspicion( t ) end
function SecurityCamera:_sound_the_alarm( detected_unit ) end
function SecurityCamera:_set_suspicion_sound( suspicion_level ) end
function SecurityCamera:clbk_call_the_police() end
function CopMovement:anim_clbk_police_called( unit ) end
function CopLogicArrest._upd_enemy_detection( data ) end
function CopLogicArrest._call_the_police( data, my_data, paniced ) end
function CopLogicIdle.on_alert( data, alert_data ) end
function CopLogicBase._get_logic_state_from_reaction( data, reaction )
   return "idle"
end
function GroupAIStateBase:sync_event( event_id, blame_id ) end
function GroupAIStateBasen_police_called( called_reason ) end
function GroupAIStateBasen_police_weapons_hot( called_reason ) end
function GroupAIStateBasen_gangster_weapons_hot( called_reason ) end
function GroupAIStateBasen_enemy_weapons_hot( is_delayed_callback ) end
function GroupAIStateBase:_clbk_switch_enemies_to_not_cool() end

-- Player Mods
PlayerStandard._get_walk_headbob = function(self) return 0 end
PlayerStandard._can_stand = function(self) return true end
PlayerManager.remove_equipment = function(self, equipment_id) end
PlayerInventory.remove_selection = function(self, selection_index, instant) end
PlayerManager.selected_equipment_deploy_timer = function(self) return 0 end
PlayerManager.chk_minion_limit_reached = function(self) return false end
PlayerManager.spread_multiplier = function(self) return 0 end
PlayerMovement.is_stamina_drained = function(self) return false end
PlayerStandard._can_run_directional = function(self) return true end

-- Super Jump
PlayerStandard._perform_jump = function(self, jump_vec)
local v = math.UP * 470
if self._running then
v = math.UP * 2000
end
self._unit:mover():set_velocity( v )
end

-- Player Armor
PlayerDamage.get_real_armor = function(self)
return Application:digest_value( 100, false )
end

-- Unlock All Masks
managers.blackmarket:_setup_masks()
for mask_id,_ in pairs(tweak_data.blackmarket.masks) do
Global.blackmarket_manager.masks[mask_id].unlocked = true
managers.blackmarket:add_to_inventory("normal", "masks", mask_id, false)
end

-- Ammo and Health
local player = managers.player:player_unit()
if alive(player) then
player:base():replenish()
end

-- Weapon Accessories, Color Palettes, and Mask Vinyls
for i=1, 7 do
managers.lootdrop:debug_drop( 1000, true, i )
end
game_state_machine:change_state_by_name( "victoryscreen", { num_winners = 2, personal_win = alive( managers.player:player_unit() ) } )

-- End Mission
game_state_machine:change_state_by_name( "victoryscreen", { num_winners = 2, personal_win = alive( managers.player:player_unit() ) } )

-- Teleport Player
function GameState:freeflight_drop_player( pos, rot )
        if( managers.player ) then
                managers.player:warp_to( pos, rot )
        end
end

-- Message On Screen
if managers.hud then
   managers.hud:show_hint( { text = "LUA Hack Loaded!" } )
end

-- Unload Some Scripts
managers.player:player_unit():character_damage():set_invulnerable( false )

if _wSpread then
   NewRaycastWeaponBase._get_spread = _wSpread
   _wSpread = nil
end

if _wRecoil then
   NewRaycastWeaponBase.recoil_multiplier = _wRecoil
   _wRecoil = nil
end

if _wReload then
   NewRaycastWeaponBase.reload_speed_multiplier = _wReload
   _wReload = nil
end

if _wFireRate then
   NewRaycastWeaponBase.fire_rate_multiplier = _wFireRate
   _wFireRate = nil
end

if _wSwap then
   PlayerStandard._get_swap_speed_multiplier = _wSwap
   _wSwap = nil
end

if _fireWep then
   NewRaycastWeaponBase.fire = _fireWep
   _fireWep = nil
end

if _fireSaw then
   SawWeaponBase.fire = _fireSaw
   _fireSaw = nil
end

if _rmSpecial then
   PlayerManager.remove_special = _rmSpecial
   _rmSpecial = nil
end

if _rmEquipment then
   PlayerManager.remove_equipment = _rmEquipment
   _rmEquipment = nil
end

if _rmEquipmentP then
   PlayerManager.remove_equipment_possession = _rmEquipmentP
   _rmEquipmentP = nil
end

-- Message On Screen
if managers.hud then
   managers.hud:show_hint( { text = "LUA Hack Unloaded!" } )
end

-- Job Spawning
managers.crimenet._debug_mass_spawning = true
managers.crimenet._active_jobs = {}
managers.crimenet._presets = {}

local t = {}
local difficulty_id = (5)
local difficulty = tweak_data:index_to_difficulty( difficulty_id )
table.insert(t, { job_id = "ukrainian_job_prof", difficulty_id = difficulty_id, difficulty = difficulty } )

local j = 0
while(j < tweak_data.gui.crime_net.debug_options.mass_spawn_limit) do
        local job_data = t[1]
        table.insert( managers.crimenet._presets, job_data )
        j = j+1
end

-- Jobs ID's
"welcome_to_the_jungle", (Big Oil)
"welcome_to_the_jungle_prof",
"framing_frame",
"framing_frame_prof",
"watchdogs",
"watchdogs_prof",
"alex", (Rats)
"alex_prof",
"firestarter",
"firestarter_prof",
"ukrainian_job",
"ukrainian_job_prof",
"jewelry_store",
"jewelry_store_prof",
"four_stores",
"four_stores_prof",
"nightclub",
"nightclub_prof",
"mallcrasher",
"mallcrasher_prof",
"branchbank_deposit",
"branchbank_deposit_prof",
"branchbank_cash",
"branchbank_cash_prof",
"branchbank_gold",
"branchbank_gold_prof",
"branchbank",
"branchbank_prof"







本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

18

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏14
回复

使用道具 举报

21

主题

2651

帖子

2152

积分

游戏达人

Rank: 7Rank: 7Rank: 7

贡献度
47
金元
19639
积分
2152
精华
0
注册时间
2009-12-16
舒服的沙发
发表于 2013-8-19 12:53 | 只看该作者
发了有用么。X64无效
回复 支持 反对

使用道具 举报

38

主题

583

帖子

424

积分

高级玩家

Rank: 4

贡献度
17
金元
3556
积分
424
精华
0
注册时间
2011-3-5
硬硬的板凳
 楼主| 发表于 2013-8-19 13:07 | 只看该作者
qq963481226 发表于 2013-8-19 12:53
发了有用么。X64无效

win7 X64测试有效
回复 支持 反对

使用道具 举报

9

主题

581

帖子

498

积分

高级玩家

Rank: 4

贡献度
25
金元
3984
积分
498
精华
0
注册时间
2010-6-27
冰凉的地板
发表于 2013-8-19 13:08 | 只看该作者
这个是注入DLL版,呵呵应该有效。
回复 支持 1 反对 0

使用道具 举报

30

主题

588

帖子

463

积分

高级玩家

Rank: 4

贡献度
24
金元
4271
积分
463
精华
0
注册时间
2012-12-4
5#
发表于 2013-8-19 14:33 | 只看该作者
LZ我只要改现金的 哪个是的啊
回复 支持 反对

使用道具 举报

2

主题

464

帖子

439

积分

高级玩家

行天之道,总司一切

Rank: 4

贡献度
2
金元
4311
积分
439
精华
0
注册时间
2012-11-25
6#
发表于 2013-8-19 14:39 | 只看该作者
gggggggggggggggggg
回复 支持 反对

使用道具 举报

66

主题

678

帖子

718

积分

超级玩家

Rank: 5Rank: 5

贡献度
67
金元
4496
积分
718
精华
0
注册时间
2011-6-1
7#
发表于 2013-8-19 14:40 | 只看该作者
LZ我只要改现金的 哪个是的啊
回复 支持 反对

使用道具 举报

33

主题

1308

帖子

2533

积分

游戏达人

Rank: 7Rank: 7Rank: 7

贡献度
111
金元
20889
积分
2533
精华
0
注册时间
2009-7-13
8#
发表于 2013-8-19 14:40 | 只看该作者
看看不說話
回复 支持 反对

使用道具 举报

105

主题

1万

帖子

1万

积分

资深玩家

Rank: 9Rank: 9Rank: 9

贡献度
387
金元
125891
积分
14137
精华
0
注册时间
2009-12-29
9#
发表于 2013-8-19 14:41 | 只看该作者
为什么要享受作弊
回复 支持 反对

使用道具 举报

1

主题

54

帖子

105

积分

中级玩家

Rank: 3Rank: 3

贡献度
1
金元
1007
积分
105
精华
0
注册时间
2011-11-23
10#
发表于 2013-8-19 14:41 | 只看该作者
好东西                     

回复 支持 反对

使用道具 举报

0

主题

1014

帖子

937

积分

超级玩家

Rank: 5Rank: 5

贡献度
3
金元
9252
积分
937
精华
0
注册时间
2010-9-29
11#
发表于 2013-8-19 14:42 | 只看该作者
聯機
回复 支持 反对

使用道具 举报

270

主题

1531

帖子

1530

积分

游戏狂人

親!快到碗裏來~

Rank: 6Rank: 6

贡献度
221
金元
6458
积分
1530
精华
0
注册时间
2010-8-24
QQ
12#
发表于 2013-8-19 14:42 | 只看该作者
回复 支持 反对

使用道具 举报

0

主题

185

帖子

201

积分

中级玩家

Rank: 3Rank: 3

贡献度
7
金元
1732
积分
201
精华
0
注册时间
2008-1-28
13#
发表于 2013-8-19 14:43 | 只看该作者
`1111111111111111111
回复 支持 反对

使用道具 举报

221

主题

4292

帖子

3894

积分

游戏精英

Rank: 8Rank: 8

贡献度
209
金元
30579
积分
3894
精华
0
注册时间
2010-12-8
14#
发表于 2013-8-19 14:43 | 只看该作者
求看看~~
回复 支持 反对

使用道具 举报

14

主题

1550

帖子

2017

积分

游戏达人

Rank: 7Rank: 7Rank: 7

贡献度
17
金元
19487
积分
2017
精华
0
注册时间
2011-2-10

G胖の微笑

15#
发表于 2013-8-19 14:44 | 只看该作者
撒大声的撒的撒打算
回复 支持 反对

使用道具 举报

196

主题

5066

帖子

5223

积分

游戏精英

Rank: 8Rank: 8

贡献度
97
金元
48353
积分
5223
精华
0
注册时间
2009-5-19
16#
发表于 2013-8-19 14:44 | 只看该作者
支持LZ啊``````````````
回复 支持 反对

使用道具 举报

5

主题

1172

帖子

786

积分

超级玩家

Rank: 5Rank: 5

贡献度
5
金元
7662
积分
786
精华
0
注册时间
2010-7-9
17#
发表于 2013-8-19 14:44 | 只看该作者
只是看看
回复 支持 反对

使用道具 举报

0

主题

785

帖子

725

积分

超级玩家

Rank: 5Rank: 5

贡献度
1
金元
7212
积分
725
精华
0
注册时间
2010-5-6
18#
发表于 2013-8-19 14:44 | 只看该作者
99999999999999999999
回复 支持 反对

使用道具 举报

150

主题

7847

帖子

8582

积分

游戏精英

Rank: 8Rank: 8

贡献度
413
金元
69298
积分
8582
精华
0
注册时间
2008-6-13
19#
发表于 2013-8-19 14:44 | 只看该作者
感谢分享
回复 支持 反对

使用道具 举报

6254

主题

2万

帖子

19万

积分

3DM创意工坊 汉化组

Rank: 12Rank: 12Rank: 12

贡献度
9248
金元
1579919
积分
194984
精华
0
注册时间
2009-3-22

足球

20#
发表于 2013-8-19 14:44 | 只看该作者
楼主写的真棒
回复 支持 反对

使用道具 举报

196

主题

5066

帖子

5223

积分

游戏精英

Rank: 8Rank: 8

贡献度
97
金元
48353
积分
5223
精华
0
注册时间
2009-5-19
21#
发表于 2013-8-19 14:44 | 只看该作者
功能给列下啊```````````
回复 支持 反对

使用道具 举报

20

主题

707

帖子

718

积分

超级玩家

Rank: 5Rank: 5

贡献度
20
金元
6384
积分
718
精华
0
注册时间
2009-7-14
22#
发表于 2013-8-19 14:44 | 只看该作者
这个很不错
回复 支持 反对

使用道具 举报

0

主题

5

帖子

4

积分

新手玩家

Rank: 1

贡献度
0
金元
635
积分
4
精华
0
注册时间
2013-8-19
23#
发表于 2013-8-19 14:44 | 只看该作者
感谢分享

回复 支持 反对

使用道具 举报

3

主题

1383

帖子

1065

积分

游戏狂人

Rank: 6Rank: 6

贡献度
1
金元
10607
积分
1065
精华
0
注册时间
2011-12-29
24#
发表于 2013-8-19 14:45 | 只看该作者
看一看                  
回复 支持 反对

使用道具 举报

1

主题

421

帖子

360

积分

高级玩家

Rank: 4

贡献度
1
金元
3557
积分
360
精华
0
注册时间
2013-1-6
25#
发表于 2013-8-19 14:45 | 只看该作者
感謝阿!!!!!!!!!!!!!!
回复 支持 反对

使用道具 举报

0

主题

133

帖子

180

积分

中级玩家

Rank: 3Rank: 3

贡献度
0
金元
1799
积分
180
精华
0
注册时间
2012-1-11
26#
发表于 2013-8-19 14:46 | 只看该作者
ddddddddddddddddddddddddddddd
回复 支持 反对

使用道具 举报

2

主题

327

帖子

207

积分

中级玩家

Rank: 3Rank: 3

贡献度
11
金元
2233
积分
207
精华
0
注册时间
2010-1-2
27#
发表于 2013-8-19 14:46 | 只看该作者
ergergergergregersger
回复 支持 反对

使用道具 举报

18

主题

625

帖子

526

积分

高级玩家

Rank: 4

贡献度
18
金元
4544
积分
526
精华
0
注册时间
2012-1-7
28#
发表于 2013-8-19 14:46 | 只看该作者
3qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq

回复 支持 反对

使用道具 举报

0

主题

392

帖子

420

积分

高级玩家

Rank: 4

贡献度
0
金元
4196
积分
420
精华
0
注册时间
2012-1-29
29#
发表于 2013-8-19 14:46 | 只看该作者
使用教程
回复 支持 反对

使用道具 举报

2

主题

841

帖子

588

积分

高级玩家

Rank: 4

贡献度
1
金元
5836
积分
588
精华
0
注册时间
2011-9-23
QQ
30#
发表于 2013-8-19 14:47 | 只看该作者
你这是在作死
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|咖绿茵|求知网|3DMGAME ( 京ICP备14006952号-1  沪公网安备 31011202006753号

GMT+8, 2024-4-24 17:03 , Processed in 0.166356 second(s), 46 queries , Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表