Правки и модификации для NLC 7

Root170670 · 22 Марта 2017

В файле:

params.script находим текст
function set_torch_param(id,r,g,b,sw)
lightman.set_lamp_rgb(id,r,g,

if not sw then return end
local range = 18*r*sw - увеличиваем значение дальность
local spot = 1.4/(sw) - меняем значение радиус
lightman.set_light_range(id, range)
lightman.set_spot_angle(id, spot);
end
Проверено на сборке от mikelik.

В файле sak.script: находим текст

function cant_trade(obj,sect,id,flag)
if flag==1 or flag==2 then
    params.cant_trade_add(id)
else
    if strpos(sect,"wpn_",1,true) or strpos(sect,"_outfit",1,true) then
    local cond=obj:condition()
      if (cond<0.65 and trade_flag==false) then   -- поставить нули
      params.cant_trade_add(id)
      else
      params.can_trade_add(id)
      end

Проверено на сборке от mikelik.

Вечные фонарик, артефакты, батарея подсказка от "mikelik" 16 пост.

В начале игры фонарик один раз зарядить и всё.
-----------------------------------------------------------------
в файле sak.script:
function empted_akkum(flag)
if db.actor:item_in_slot(11) then
local obj_id=db.actor:item_in_slot(11):id()
local obj=sim:object(obj_id)
if obj then
nv_on=params.get_nv_on_off(torch_id) or 0
local antitush
if sak_inventory.sash["af_full_antitush"] then
antitush=20
else
antitush=0
end
local razrad=(af_kolvo+nv_on+antitush)*0.005*loka_on <-------------------- изменить на нули
local pk = get_netpk(obj,1)
local data = pk:get()
local cond=data.condition+0.0004 <-------------------- изменить на нули
if cond>=1 then cond=0.9999 end
if cond > 0.06 then
if flag then arts_operate=true return end
local new_cond=cond-razrad
params.obj_condition(obj_id, new_cond)
data.condition = new_cond
pk:set(data)
arts_operate=true
else
if arts_operate==true then
send_tip("Аккумулятная батарея разряжена.","Аккумулятор",2,10,"pribor","pda_news", "red")
lightman.toggle_NVD(torch_id)
arts_operate=false
razgruzka.open_inv_raz_pod=false
---------------------------------------------
в файле sak.script:
function torch_brock(switcher,sw)
if torch_id and (params.get_torch_on_off(torch_id)==1 or switcher) then
if lua_random()<0.15 and not sw then
local r_t=(r_old*(lua_random(3,10))/10)
params.set_torch_param(torch_id,r_t,r_t,r_t,mode_switch)
local time_flash=lua_random(1,3)
timers.start_timer("t_torch_flash",time_flash,"sak.torch_brock()")
return
end
r_old=r_old+(mode_switch-1)*0.1
local r_new,g_new=r_old,(r_old-0.07) <-------------------- изменить на нули
if r_new>0.11 and not sw then
r_new = r_new-(0.007*(mode_switch*2)) <-------------------- изменить на нули (0.0*(mode_switch*2))
g_new = g_new-(0.007*(mode_switch*2)) <-------------------- изменить на нули (0.0*(mode_switch*2))
end

Проверено на сборке от mikelik

Для быстрого использования в файле: vergas_medical_elastic.script - подсказка от "mikelik" 16 пост

function init_treatment()
help_id = -1
snd_eat_med()
wprintf("[~T]. #DBG: init_treatment called with object~C0A %s~C07 ", obj_name)
local heal_coef = 7 / (3 + level.get_game_difficulty()) -- коэффициент лечения от сложности игры

heal_time = vergas_lib.set_pr_from_config(obj_name,"mr_time")
delta_health = vergas_lib.set_pr_from_config(obj_name,"mr_eat_health") / heal_time / 60.0 <----------- Ставим 1.0
delta_power = vergas_lib.set_pr_from_config(obj_name,"mr_eat_power") / heal_time / 20.0 <----------- Ставим 1.0
delta_radiation = vergas_lib.set_pr_from_config(obj_name,"mr_eat_radiation") / heal_time / 60.0 <----------- Ставим 1.0
post_eff = vergas_lib.set_pr_from_config(obj_name,"post_eff")
--wprintf("[~T]. #DBG: init_treatment heal_coef = %.3f, heal_time = %d, delta_health = %.5f ", heal_coef, heal_time, delta_health)
heal_time = heal_time * 60.0 ------------------------------------- Ставим 1.0
delta_health = delta_health * heal_coef
delta_power = delta_power * heal_coef
delta_radiation = delta_radiation * heal_coef

heal_start = game.get_game_time()
heal_last = game.get_game_time()
msg_last = 0

--if obj_name~="bandage" then

if heal_time > 0 then
level.add_pp_effector(vis_post_eff[post_eff], 1021, true)
end
--end
in_progress = true
if obj_name == "mixture" then
params.psy_health_v_add(20)
end

medical_procedures()
end

function medical_procedures()
local portion = 0
if not in_progress or type(heal_last) ~= "userdata" or type(heal_start) ~= "userdata" then
wprintf("~C0C #WARN:~C07 in_progress = %s, heal_start = %s, heal_last = %s - no actions ", DumpVar(in_progress), DumpVar(heal_start), DumpVar(heal_last))
return
end

schedule.add("med_procedur", "vergas_medical_elastic.medical_procedures()", 200)

local time_cur = game.get_game_time()
local d_sec = time_cur:diffSec(heal_last)
local d_heal = time_cur:diffSec(heal_start)

if d_sec < 10 then <------------------------------------- Ставим 1
-- wprintf("~C09 d_sec =~C0D %.2f ~C07", d_sec)
return
end
heal_last = time_cur
----------------------------------
Полностью нули не ставить.
Проверено на сборке от mikelik.

в файле sak.script:
if arts_operate and not level.main_input_receiver() then
local section=obj:section_name()
local pk = get_netpk(obj,1)
local data = pk:get()
local cond=data.condition+0.0004 <-------------------- изменить на нули
if cond>=1 then cond=0.9999 end
local cond1=math.floor(cond*100)
if cond>0.25 then
local new_cond=(cond-0.002) <-------------------- изменить на нули
if strpos(section,"_buliz",1,true) then
new_cond=cond-0.0025 <-------------------- изменить на нули
elseif strpos(section,"dummy_",1,true) then
new_cond=cond-0.01 <-------------------- изменить на нули
elseif strpos(section,"af_full_antitush",1,true) then
new_cond=cond-0.1 <-------------------- изменить на нули
elseif strpos(section,"_1",1,true) then
new_cond=cond-0.005 <-------------------- изменить на нули
elseif strpos(section,"_2",1,true) then
new_cond=cond-0.0025 <-------------------- изменить на нули
elseif strpos(section,"_3",1,true) then
new_cond=cond-0.001 <-------------------- изменить на нули
elseif strpos(section,"_4",1,true) then
new_cond=cond-0.00075 <-------------------- изменить на нули
end
params.obj_condition(obj_id, new_cond)
data.condition = new_cond
pk:set(data)
else
local new_art
if strpos(section,"_dyn",-6,true) then
new_art=string.sub(section,1,-7).."_dyn6d"
elseif strpos(section,"dummy_",1,true) then
new_art=section.."_fake"
elseif strpos(section,"af_full_antitush",1,true) then
new_art=section.."_fake"
elseif strpos(section,"_1",-2,true) then
new_art=string.gsub(section, "_1", "_5")
elseif strpos(section,"_2",-2,true) then
new_art=string.gsub(section, "_2", "_6")
elseif strpos(section,"_3",-2,true) then
new_art=string.gsub(section, "_3", "_7")
elseif strpos(section,"_4",-2,true) then
new_art=string.gsub(section, "_4", "_8")
end
coord_params.set_obj_section(obj_id, new_art)
consumable_artefacts=nil
end
razgruzka.open_inv_raz_pod=false
end
else
consumable_artefacts=nil
end
end
end
else
arts_operate=false
end
if flag then return end
if level.name()=="aver" then return end
local npc=db.actor
local act_pos=npc:position()
if not amk_anoms.check_coordinates(act_pos) then return end
if sak_inventory.rucksack["af_dummy_black_tip"] then
local obj_id=sak_inventory.rucksack["af_dummy_black_tip"][1]
local obj=sim:object(obj_id)
if obj then
local pk = get_netpk(obj,1)
local data = pk:get()
local cond=data.condition+0.0004 <-------------------- изменить на нули
if cond>=1 then cond=0.9999 end
if cond>0.25 then
local new_cond=cond-0.0025 <-------------------- изменить на нули
params.obj_condition(obj_id, new_cond)
data.condition = new_cond
pk:set(data)
else
misc.release_obj(obj_id, 'sak.script:1346')
db.actor:disable_info_portion("info_black_tip")
nlc_vars.black_off = 0.8
end
end
end
end
function new_art_cond(obj_id,cnd,sect)
local objg=client_obj(obj_id)
local cond = cnd or 0.25
if objg then objg:set_condition(cond) end
arc_arts.register_artefact(sect.."_99",-1)
end
function sleep_razrjad_akkum(hour)
sleep_razrjad_torch(hour)
if arts_operate then
local obj_id=db.actor:item_in_slot(11):id()
local obj=sim:object(obj_id)
local tm_sl=hour*10
if obj then
local razrad=(af_kolvo)*0.005*loka_on*tm_sl <-------------------- изменить на нули
local pk = get_netpk(obj,1)
local data = pk:get()
local cond=data.condition+0.0004 <-------------------- изменить на нули
if cond>=1 then cond=0.9999 end
if cond > 0.06 then
if flag then arts_operate=true return end
local new_cond=cond-razrad
params.obj_condition(obj_id, new_cond)
data.condition = new_cond
pk:set(data)
arts_operate=true
else
if torch_id and arts_operate==true then
lightman.toggle_NVD(torch_id)
arts_operate=false
razgruzka.open_inv_raz_pod=false
end
end
end
for i,k in pairs(sak_inventory.sash) do
local ini=system_ini()
if ini:section_exist(i) then
local class=ini:r_clsid(i, "class")
if class==CLID_ART then
local kolvo=table.getn(k)
if (string.find(i,"dummy_",1,true) or string.find(i,"_1",1,true) or string.find(i,"_2",1,true) or string.find(i,"_3",1,true) or string.find(i,"_4",1,true) or strpos(i,"_dyn",-6,true)) and (not strpos(i,"_dyn6d",1,true) and not strpos(i,"_fake",1,true) and not strpos(i,"_capsule",1,true)) then
for s=1,kolvo do
table.insert(consumable_artefacts, k)
end
end
end
end
end
local af_del_kolvo=table.getn(consumable_artefacts)
if af_del_kolvo>=1 then
for i,k in pairs(consumable_artefacts) do
obj_id=consumable_artefacts
obj=sim:object(obj_id)
if obj then
local section=obj:section_name()
local pk = get_netpk(obj,1)
local data = pk:get()
local cond=data.condition+0.0004 <-------------------- изменить на нули
if cond>=1 then cond=0.9999 end
local cond1=math.floor(cond*100)
if cond>0.25 then
local new_cond=(cond-0.002*tm_sl) <-------------------- изменить на нули
if strpos(section,"_buliz",1,true) then
new_cond=cond-0.0005*tm_sl <-------------------- изменить на нули
elseif strpos(section,"dummy_",1,true) then
new_cond=cond-0.01*tm_sl <-------------------- изменить на нули
elseif strpos(section,"af_full_antitush",1,true) then
new_cond=cond-0.1*tm_sl <-------------------- изменить на нули
elseif strpos(section,"_1",1,true) then
new_cond=cond-0.005*tm_sl <-------------------- изменить на нули
elseif strpos(section,"_2",1,true) then
new_cond=cond-0.0025*tm_sl <-------------------- изменить на нули
elseif strpos(section,"_3",1,true) then
new_cond=cond-0.001*tm_sl <-------------------- изменить на нули
elseif strpos(section,"_4",1,true) then
new_cond=cond-0.0005*tm_sl <-------------------- изменить на нули
end

Ремонт полностью убитого оружия и брони

---------------------------------------
В файле sak.script:
function repair_box_repair(obj)
if obj then
local self=level.main_input_receiver()
if self then
self:GetHolder():start_stop_menu(self,true)
end
local actor=db.actor
local slot_1=actor:item_in_slot(1)
local slot_2=actor:item_in_slot(2)
local armor=actor:item_in_slot(6)
local sounds=lua_random(1,3)
if obj and obj:section()=="repair_item_weapon" then
if (slot_1 and slot_1:condition() >=0.8 and slot_1:condition() <0.985) or (slot_2 and slot_2:condition() >=0.8 and slot_2:condition() <0.985) then <------------ вместо "0.8" поставить "0.0"
actor_hide_weapon()
if (slot_1 and slot_1:condition() >=0.8 and slot_1:condition() <0.985) then <------------ вместо "0.8" поставить "0.0"
rep_percent=wpn_proc[slot_1:section()] or 0.02
local rep_point=slot_1:condition() + rep_percent
if (rep_point>1) then rep_point=1 end
slot_1:set_condition(rep_point)
sound=repair_sound[1]..sounds
snd_obj=xr_sound.get_safe_sound_object(sound)
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
send_tip("Оружие немного приведено в порядок",nil,12,5,"g_g","no", "green")
elseif (slot_2 and slot_2:condition() >=0.8 and slot_2:condition() <0.985) then <------------ вместо "0.8" поставить "0.0"
rep_percent=wpn_proc[slot_2:section()] or 0.02
local rep_point=slot_2:condition() + rep_percent
if (rep_point>1) then rep_point=1 end
slot_2:set_condition(rep_point)
sound=repair_sound[2]..sounds
snd_obj=xr_sound.get_safe_sound_object(sound)
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
send_tip("Оружие немного подремонтировано",nil,12,5,"g_g","no", "green")
end
timers.start_timer("time_rep",13,"sak.restore_weap()")
elseif (slot_1 and slot_1:condition() <0.8) or (slot_2 and slot_2:condition() <0.8) then <------------ вместо "0.8" поставить "0.0"
send_tip("Слишком сильное повреждение оружия!",nil,2,5,"g_g","no", "red")
misc.spawn_into(obj:section().."_feik", actor)
else
send_tip("Оружие не нуждается в починке!",nil,2,5,"g_g","no", "blue")
misc.spawn_into(obj:section().."_feik", actor)
end
elseif obj and obj:section()=="repair_itemoutfit" then
if armor then
if strpos(armor:section(), "bandit_veteran_",1,true) or strpos(armor:section(), "bandit_master_",1,true) then
send_tip("Для кожаного плаща не подходит!",nil,2,5,"g_g","no", "yellow")
misc.spawn_into(obj:section().."_feik", actor)
else
rep_percent=outfit_proc[armor:section()] or 0.02
if armor:condition() >=0.8 and armor:condition() <0.985 then <------------ вместо "0.8" поставить "0.0"
actor_hide_weapon()
vergas_masks.set_flag_minimap(false)
local rep_point=armor:condition() + rep_percent
if (rep_point>1) then rep_point=1 end
amk_mod.repair_armor(rep_point)
sound=repair_sound[3]..sounds
snd_obj=xr_sound.get_safe_sound_object(sound)
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
send_tip("Броня отремонтирована.",nil,12,5,"g_g","no", "green")
schedule.add("tm_rep", "sak.return_mask()", 12500)
elseif armor:condition() <0.8 then <------------ вместо "0.8" поставить "0.0"
send_tip("Слишком сильное повреждение брони!",nil,2,5,"g_g","no", "red")
misc.spawn_into(obj:section().."_feik", actor)
else
send_tip("Броня не нуждается в починке!",nil,2,5,"g_g","no", "blue")
misc.spawn_into(obj:section().."_feik", actor)
------------------------------------------------------------------------------------------
Если хотите чтобы ремонтировалось за один раз, а не юзать мышкой по несколько раз на одно изделие,
то нужно изменить процентность ремонта в секции:
local outfit_proc={ - броня, например:
["novice_outfit"]=0.2, - поставить 0.9
["novice_q_outfit"]=0.12, - поставить 0.9
["outfit_novice_m1"]=0.2, - поставить 0.9 и т.д.
--------------------------------------------------
local wpn_proc = { - оружие, например:
["wpn_pm"]=0.2, - поставить 0.9
["wpn_q_pm"]=0.12, - поставить 0.9
["wpn_pb"]=0.18, - поставить 0.9 и т.д.
--------------------------------------------------
Весь список выкладывать не буду правте в ручную, может у кого-то оружие, броня добавлены, изменены и т. д.
Проверено на сборке от mikelik.

amk_mod.script:

----------------------------------------
function test_for_need_sleep_matras(oid)
Спать в любое время в спальнике:
if ( nlc_vars.gg_need_sleep or 0 ) > 6 then <-------- поставить "0"
Чтобы второй раз сразу лечь, нужно забрать спальник в инвентарь и выложить.
---------------------------------------------------------------------------------------------------------------
Спать в любое время в отведённом месте:
function esc_sleep_matras()
if (nlc_vars.gg_need_sleep or 0 )>6 then <-------- поставить "0"

Сборка от mikelik в файле bind_monster.script:

if classid==CLID_BOAR then
if step==1 then
local npc=db.actor
if npc and npc:position():distance_to(sfobj:position())<3 then <------------------------------ ставим <0
local snd_rand=lua_random(1,4)
sak.snd_rand_geiger(snd_rand)
local h = hit()
h.type = hit.radiation
h.power = 0.0005+(0.0002*game_difficulty)+0.008*(sak.dog_psy)
h.impulse = 0.0
h.draftsman = sfobj
h.direction = sfobj:direction()
npc:hit(h)