last_drink, start_blur_1 = nil,nil -- to change defaults, edit below in 'create' function
local items,force,start_blur_2,start_blur_3,start_blur_4,itn_mul,pwr_rate,rng_factor,caff_max,die_chance,last_drink_chk,pwr_chk,force_slp

function create()
last_drink = 0
up_drink = 2.5
in_hour = 30
force = 720
start_blur_1 = 144
start_blur_2 = 288
start_blur_3 = 432
start_blur_4 = 576
itn_mul = 0.001
pwr_rate,rng_factor = -0.00065, 0.08
caff_max = 3
die_chance = 5
force_slp = 15
items = {
-- Vanilla.
-- Drinks.
vodka = -48,
vodka_script = -49,
energy_drink = -300,
energy_drink_nonstop = -300,
mineral_water = -302,
-- DrinksRADMineral.
mineral_water_rad = -302,
mineral_water_rad_avrg = -302,
mineral_water_rad_avrg_high = -302,
-- Eat
bread = 47,
kolbasa = 95,
conserva = 144,
-- Medical supplies.
antirad = 50,
drug_anabiotic = 50,
drug_antidot = 50,
drug_coagulant = 50,
drug_psy_blockade = 50,
drug_radioprotector = 50,
medkit = 70,
medkit_army = 70,
medkit_scientic = 70,
medkit_script = 70,
-- ADDONS.
-- Drinks.
beer = -96,
juice = -141,
wild_drink = -128,
-- Eat
nuts = 62,
sardina = 83,
olivki = 81,
cheese = 59,
galet = 106,
shokolad = 87,
batonchik = 89,
jerky = 102,
chips = 80,
hash = 94,
cpcb = 78,
-- Medical supplies.
psy_complex = 50,
drug_engine = 50,
drug_cat_eye = 50,
medo = 50,
mbk = 50,
medkit_elite = 144,
bag_medkit_1 = 115,
bag_medkit_2 = 115,
bag_medkit_3 = 115,
bag_medkit_4 = 115,
-- Radioactive Item
bread_rad = 47,
bread_rad_avrg = 47,
bread_rad_avrg_high = 47,
kolbasa_rad = 95,
kolbasa_rad_avrg = 95,
kolbasa_rad_avrg_high = 95,
conserva_rad = 144,
conserva_rad_avrg = 144,
conserva_rad_avrg_high = 144,
energy_drink_rad = -120,
energy_drink_rad_avrg = -120,
energy_drink_rad_avrg_high = -120,
drug_booster_rad = 50,
drug_booster_rad_avrg = 50,
drug_booster_rad_avrg_high = 50,
nuts_rad = 62,
nuts_rad_avrg = 62,
nuts_rad_avrg_high = 62,
sardina_rad = 83,
sardina_rad_avrg = 83,
sardina_rad_avrg_high = 83,
olivki_rad = 81,
olivki_rad_avrg = 81,
olivki_rad_avrg_high = 81,
cheese_rad = 59,
cheese_rad_avrg = 59,
cheese_rad_avrg_high = 59,
galet_rad = 106,
galet_rad_avrg = 106,
galet_rad_avrg_high = 106,
shokolad_rad = 87,
shokolad_rad_avrg = 87,
shokolad_rad_avrg_high = 87,
batonchik_rad = 89,
batonchik_rad_avrg = 89,
batonchik_rad_avrg_high = 89,
jerky_rad = 102,
jerky_rad_avrg = 102,
jerky_rad_avrg_high = 102,
chips_rad = 80,
chips_rad_avrg = 80,
chips_rad_avrg_high = 80,
hash_rad = 94,
hash_rad_avrg = 94,
hash_rad_avrg_high = 94,
cpcb_rad = 78,
cpcb_rad_avrg = 78,
cpcb_rad_avrg_high = 78,
juice_rad = -141,
juice_rad_avrg = -141,
juice_rad_avrg_high = -141,
wild_drink_rad = -128,
wild_drink_rad_avrg = -128,
wild_drink_rad_avrg_high = -128,
psy_complex_rad = 50,
psy_complex_rad_avrg = 50,
psy_complex_rad_avrg_high = 50,
mbk_rad = 50,
mbk_rad_avrg = 50,
mbk_rad_avrg_high = 50,
-- Drinks SOUP.
water_large_1 = -361,
water_large_2 = -361,
water_can_1 = -351,
water_can_2 = -351,
cocacola = -347,
redbull = -328,
guru = -308,
vodka_1 = -48,
vodka_2 = -48,
vodka_3 = -48,
vodka_4 = -48,
beer_large_1 = -96,
beer_large_2 = -96,
beer_1 = -96,
beer_2 = -96,
beer_can_1 = -96,
beer_can_2 = -96,
-- Eat SOUP.
nuts_2 = 62,
kolbasa_smoked = 95,
mre_1_3 = 126,
mre_1_2 = 126,
mre_1_1 = 126,
beanz = 86,
chili = 120,
tomatoes = 98,
tushonka = 149,
corn = 60,
chocolate = 77,
chocolatebar = 78,
snickers = 80,
mars = 80,
raisins = 96,
beef = 80,
bullheads = 110,
-- Medical supplies SOUP.
amphetamines_4 = 50,
amphetamines_3 = 50,
amphetamines_2 = 50,
amphetamines_1 = 50,
diazepam = 50,
-- Tobacco SOUP.
marlboro = -10,
lucky = -10,
cuban = -10,
cigarettes_russian = -10,
cigarettes_1 = -10,
cigarettes_2 = -10,
cigarettes_3 = -10,
-- Radioactive Item SOUP.
kolbasa_smoked_rad = 95,
kolbasa_smoked_rad_avrg = 95,
kolbasa_smoked_rad_avrg_high = 95,
mre_1_3_rad = 126,
mre_1_3_rad_avrg = 126,
mre_1_3_rad_avrg_high = 126,
mre_1_2_rad = 126,
mre_1_2_rad_avrg = 126,
mre_1_2_rad_avrg_high = 126,
mre_1_1_rad = 126,
mre_1_1_rad_avrg = 126,
mre_1_1_rad_avrg_high = 126,
beanz_rad = 86,
beanz_rad_avrg = 86,
beanz_rad_avrg_high = 86,
chili_rad = 106,
chili_rad_avrg = 106,
chili_rad_avrg_high = 106,
tomatoes_rad = 98,
tomatoes_rad_avrg = 98,
tomatoes_rad_avrg_high = 98,
tushonka_rad = 149,
tushonka_rad_avrg = 149,
tushonka_rad_avrg_high = 149,
corn_rad = 60,
corn_rad_avrg = 60,
corn_rad_avrg_high = 60,
chocolate_rad = 77,
chocolate_rad_avrg = 77,
chocolate_rad_avrg_high = 77,
chocolatebar_rad = 78,
chocolatebar_rad_avrg = 78,
chocolatebar_rad_avrg_high = 78,
snickers_rad = 80,
snickers_rad_avrg = 80,
snickers_rad_avrg_high = 80,
mars_rad = 80,
mars_rad_avrg = 80,
mars_rad_avrg_high = 80,
raisins_rad = 96,
raisins_rad_avrg = 96,
raisins_rad_avrg_high = 96,
nuts_2_rad = 62,
nuts_2_rad_avrg = 62,
nuts_2_rad_avrg_high = 62,
beef_rad = 80,
beef_rad_avrg = 80,
beef_rad_avrg_high = 80,
bullheads_rad = 110,
bullheads_rad_avrg = 110,
bullheads_rad_avrg_high = 110,
water_large_1_rad = -161,
water_large_1_rad_avrg = -161,
water_large_1_rad_avrg_high = -161,
water_large_2_rad = -161,
water_large_2_rad_avrg = -161,
water_large_2_rad_avrg_high = -161,
water_can_1_rad = -151,
water_can_1_rad_avrg = -151,
water_can_1_rad_avrg_high = -151,
water_can_2_rad = -151,
water_can_2_rad_avrg = -151,
water_can_2_rad_avrg_high = -151,
cocacola_rad = -147,
cocacola_rad_avrg = -147,
cocacola_rad_avrg_high = -147,
redbull_rad = -128,
redbull_rad_avrg = -128,
redbull_rad_avrg_high = -128,
guru_rad = -108,
guru_rad_avrg = -108,
guru_rad_avrg_high = -108,
}
RegisterScriptCallback("actor_on_update",actor_on_update)
RegisterScriptCallback("actor_on_item_use",actor_on_item_use)
if (USE_MARSHAL) then
RegisterScriptCallback("save_state",save_state)
RegisterScriptCallback("load_state",load_state)
end
end

function destroy()
UnregisterScriptCallback("actor_on_update",actor_on_update)
UnregisterScriptCallback("actor_on_item_use",actor_on_item_use)
if (USE_MARSHAL) then
UnregisterScriptCallback("save_state",save_state)
UnregisterScriptCallback("load_state",load_state)
end
alife_storage_manager.get_state().drink = nil
end

function on_game_start()
-- if (axr_main.config:r_value("mm_options","enable_sleep_deprived",1,false) == false) then
-- return
-- end
create()
end

function save(package)
if (USE_MARSHAL) then
return
end
package:w_u8(last_drink)
package:w_u16(last_drink_chk)
end
function load(package)
if (USE_MARSHAL) then
return
end
last_drink = package:r_u8() or 0
last_drink_chk = package:r_u16() or 0
end
--//--------------------------------------------------------------//--
function save_state(m_data)
if (USE_MARSHAL) then
m_data.drink = m_data.drink or {}
m_data.drink["last_drink"] = last_drink
m_data.drink["chk_drink"] = last_drink_chk
end
end

function load_state(m_data)
if (USE_MARSHAL) then
last_drink = m_data.drink and m_data.drink.last_drink or 0
last_drink_chk = m_data.drink and m_data.drink.chk_drink or nil
end
end

function actor_on_item_use(item)
for i,j in pairs(items) do
if item:section() == i then
-- log('!Использован предмет: '..item:section()..' Изменение жажды на: '..j..' Жажды до: '..last_drink)
if j < 0 then
last_drink = last_drink + j
if last_drink < 0 then last_drink = 0 end
test_blur()
break
elseif j > 0 then
last_drink = last_drink + j
if last_drink > 1000 then last_drink = 1000 end
test_blur()
break
end
end
end
end

function actor_on_update(b,d)
-- printf("last_drink_chk=%s last_drink=%s",last_drink_chk and game.get_game_time():diffSec(last_drink_chk) or "nil",last_drink)
if last_drink > start_blur_1 then
local tg = time_global()
if (pwr_chk == nil or tg > pwr_chk) then
if (db.actor.power > 0) then
db.actor.power = pwr_rate*((last_drink-start_blur_1)*rng_factor)/10
db.actor.health = pwr_rate*((last_drink-start_blur_1)*rng_factor)/100
end
pwr_chk = tg+100
end
end
if (last_drink_chk and game.get_game_time():diffSec(last_drink_chk) < 300) then
indicator_update()
return
end
last_drink_chk = game.get_game_time()
-- log('!Обычное повышение жажды на 6. Жажды до: '..last_drink)
last_drink = last_drink + up_drink
if last_drink < 0 then last_drink = 0 elseif last_drink > 1000 then last_drink = 1000 end
test_blur()
end

function test_blur()
level.remove_pp_effector(39568)
if last_drink >= start_blur_1 then
level.add_pp_effector("yantar_underground_psi.ppe", 39568, false)
if last_drink >= start_blur_1 and last_drink < start_blur_2 then
level.remove_pp_effector(39568)
-- level.set_pp_effector_factor(39568, (last_drink-start_blur_1) * itn_mul)
elseif last_drink >= start_blur_2 and last_drink < start_blur_3 then
level.set_pp_effector_factor(39568, (last_drink-start_blur_1) * itn_mul)
SetHudMsg(game.translate_string("Вы давно не пили и должны попить"),3)
elseif last_drink >= start_blur_3 and last_drink < start_blur_4 then
level.set_pp_effector_factor(39568, (last_drink-start_blur_1) * itn_mul)
SetHudMsg(game.translate_string("Вы давно не пили и должны попить"),5)
elseif last_drink >= start_blur_4 and last_drink < force then
level.set_pp_effector_factor(39568, (last_drink-start_blur_1) * itn_mul)
elseif last_drink >= force and math.random(100) <= force_slp and not db.actor:has_info("actor_is_sleeping")==true then
db.actor:give_info_portion("force_slp")
force_sleep()
SetHudMsg(game.translate_string("Вы крайне истощены - необходимо попить!"),5)
end
end
end

function force_sleep()
ui_sleep_dialog.sleep_forced()
if math.random(100) < die_chance then
SetHudMsg(game.translate_string("st_sleep_deprived"),5)
db.actor:kill(db.actor)
end
disable_info("force_slp")
end
--'-----------------------------------------------------------------------------
--' INDICATORS NEW
--'-----------------------------------------------------------------------------
local d_hud={
x=990,
y=500,
height=25,
weight=25}
function indicator_update(bShow)
local hud=get_hud()
local drk=hud:GetCustomStatic("indicator_drink")
local wnd
if(bShow==false or db.actor:is_talking() )then
if(drk~=nil)then
hud:RemoveCustomStatic("indicator_drink")
drk=nil
end
return
end
if(drk==nil)then
hud:AddCustomStatic("indicator_drink",true)
drk=hud:GetCustomStatic("indicator_drink")
wnd=drk:wnd()
if(wnd~=nil)then
wnd:SetWndPos(vector2():set(d_hud.x,d_hud.y))
if utils.is_widescreen() then
wnd:SetWndSize(vector2():set(d_hud.weight-7,d_hud.height))
else
wnd:SetWndSize(vector2():set(d_hud.weight,d_hud.height))
end
wnd:SetAutoDelete(true)
end
end
if(drk~=nil)then
wnd=drk:wnd()
wnd:InitTexture(get_color_drink())
end
end

function get_color_drink()
local textures={
[0]="ui_inGame2_circle_drink_empty",
[1]="ui_inGame2_circle_drink_green",
[2]="ui_inGame2_circle_drink_yellow",
[3]="ui_inGame2_circle_drink_orange",
[4]="ui_inGame2_circle_drink_red"
}
local color=0
if last_drink>start_blur_4 then color=4
elseif last_drink>start_blur_3 then color=3
elseif last_drink>start_blur_2 then color=2
elseif last_drink>start_blur_1 then color=1
elseif last_drink<start_blur_1 then color=0
end
if color2~=color then
-- log('!СМЕНА ИКОНКИ!')
end
color2=color
-- log('@'..textures[color])
return textures[color]
end