--Очищен от всех сообщений--
local weight_normal = 10000
local
weight_max = 11000
local items_dropped_max = 0

local kolco = {from = 0.5, to = 1.5}
local visota = {from = 0.5, to =
1.5}

local sim
local actor
local weight_rukzak
local weight_item
local
ini
local items = {}
local items_dropped = {}
local slot0_id, slot1_id,
slot2_id -- предмет в слотах игнорируется, но вес его учитывается
local
slot6_id -- одетый бронежилет игнорируется, но вес его учитывается

function do_vbr() end

function calc_inventory_weight() end

function process_calc(item, npc)
 if item then
 local
section = item:section()
  if section ~=
"arc_ballast"
   and
ini:section_exist(section)
   and ini:line_exist(section,
"inv_weight")
  then
   weight_item =
ini:r_float(section,
"inv_weight")
   --get_console():execute("load ~~~ в рюкзаке:
"..section.." весом: "..weight_item)
   if weight_item > 0
then
    local item_id =
item:id()
    -- игнорируем предмет в слотах, на поясе,
одетый бронежилет или "защищённый" предмет
    if 
slot0_id ~= item_id
     and slot1_id ~=
item_id
     and slot2_id ~=
item_id
     and slot6_id ~=
item_id
     and not
inventory.on_belt(section)
     and
protected_items.actor_items_keep(section) ==
false
    then

     table.insert(items, {item,
weight_item})
     table.insert(items_dropped,
false)
    end
    -- но вес его
учитываем
    weight_rukzak = weight_rukzak +
weight_item
   end
  end
 end
end

function calc_vector_add()
 local a = math.random() * 2 *
math.pi
 local r = kolco.from + math.random() * math.abs(kolco.to -
kolco.from)
 local x = math.cos(a) * r
 local z = math.sin(a) *
r
 local y = visota.from + math.random() * math.abs(visota.to -
visota.from)
 return vector():set(x, y, z)
end

function add_weight()
 local item =
db.actor:item_in_slot(6)
 if not item then return 0 end

    local ini = system_ini()
 local section =
item:section()
 if not (ini:section_exist(section) and
ini:line_exist(section, "additional_inventory_weight")) then return 0 end

 local diff = level.get_game_difficulty()
 local cond =
item:condition()
 return ini:r_float(section,
"additional_inventory_weight")*(cond+(1-cond)*(3-diff)/3)
end

function vbr()
 db.vbr = time_global()+120000
end

function weight_ok()
 return true
end

function next_vbr()
 return
time_global()+120000+math.random(-60000,60000)
end

function vibros()
end

local alc_todo_alcoholic = 35 --штук --через сколько бутылок допьешься до алкоголизма [35]

local alc_to_drink_alcoholic = 24 --часов --через сколько часов надо пить 1 бутылку если есть алкогольная зависимость [24]

local alc_unlike_time = 5 --дней --количество дней через которое происходит следующая стадия отвыкания от алкоголя [5]
local alc_unlike_step = 5 --штук --шаг отвыкания (уменьшение алкогольной зависимости) (если gg_bottle_summary_drinked < alc_unlike_step то gg_bottle_drinked=0) [5]

local sober_time = 8 --через сколько часов ГГ протрезвеет
local alc_hp_lose_after_sober = 0.1 --количество HP, которые ГГ теряет после того, как протрезвеет (голова болит и все такое)

local alc_time_lose_hp = 4 --часов --раз во сколько часов теряются hp при алкогольной зависимости если не выпить водки
local alc_hp_lose = 0.1 --сколько теряем hp если вовремя не выпить будучи алкоголиком

local alc_max_drink_bottles_to_death = 5 --штук --сколько бутылок водки - смертельная доза [5]

local alc_max_drink_bottles = 4 --сколько максимально можно выпить бутылок водки, после которых герой засыпает [4]
local alc_max_drink_to_dream_timer = 15 --минут --через сколько минут ГГ заснет, если выпьет максимально количество водки
local alc_max_drink_dream_time = 12 --часов --сколько проспит герой после того, как выпьет максимально количество водки

1. Менять (local alc_todo_alcoholic = 35) бесполезно, ибо записан в сейве флаг alc_todo_alcoholic
2. Нужно лечить...
local alc_to_drink_alcoholic = 24 меняем на 1
local alc_unlike_time = 5 тоже самое на 1
local alc_unlike_step = 5 аналогично 1
ГГ выпивает 1, или 2 бутылки с интервалом 1 час, и "здоров"...
Как вылечите, можно привести некоторые функции в скрипте, в след состояние:
function drink_vodka(obj)
end
function drink_vodka_chunk()
end
function update()
end