Quality: 3
MinDist: 1.00
MaxDist: 24.00
BaseVolume: 1.00
GameType: World ambient / undefined
MaxAIDist: 24.00

local tg_temp
local who2 = nil
local actor2 = nil
local impulse = nil
local power = nil
local type = nil

sounds_hit = {}, {}
local mask_list = { --—писок шлемов и костюмов без шлема
helm_respirator = true,
helm_protective = true,
helm_tactic = true,
helm_battle = true,
helm_m40 = true,
helm_respirator_2 = true,
helm_facemask = true,
helm_respirator_gp5 = true,
helm_respirator_half = true,
helm_tactic_2 = true,
scientific_outfit = true,
monolith_scientific_outfit = true,
dolg_scientific_outfit = true,
merc_scientific_outfit = true,
svoboda_scientific_outfit = true,
cs_scientific_outfit = true,
isg_scientific_outfit = true,
scientific_heavy_outfit = true,
nbc_outfit = true,
cs_nbc_outfit = true,
monolith_nbc_outfit = true,
radiation_outfit = true,
dolg_radiation_outfit = true,
svoboda_radiation_outfit = true,
merc_radiation_outfit = true,
monolith_radiation_outfit = true,
ecolog_outfit_orange = true,
ecolog_outfit_green = true,
ecolog_outfit_white = true,
ecolog_outfit_blue = true,
exo_outfit = true,
exo_proto_outfit = true,
svoboda_exo_outfit = true,
bandit_exo_outfit = true,
merc_exo_outfit = true,
monolith_exo_outfit = true,
dolg_exo_outfit = true,
cs_exo_outfit = true,
military_exo_outfit = true
}

function on_game_start()

RegisterScriptCallback("actor_on_before_hit", actor_on_before_hit)
RegisterScriptCallback("actor_on_hit_callback", actor_on_hit_callback)
caching('sounds_hit')
end

function actor_on_before_hit(shit,bone_id,flags)

who2 = shit.draftsman
impulse = shit.impulse
power = shit.power
type = shit.type

end

function actor_on_hit_callback(obj,amount,local_direction,who,bone_index)
-- obj = актор
--[[
if (obj:name() == who:name()) then -- есле игрок ударил сам себ¤
local bleeding = db.actor.bleeding > 0 -- кровотечь
local radiation = db.actor.radiation > 0 -- радиацы¤
local psy_health = db.actor.psy_health < 1.0 -- пси хп

if (bleeding or radiation or psy_health) then
return
end

end
]]--
local hit_to_section = {
[hit.light_burn] = "light_burn", -- хз
[hit.burn] = "burn", -- хз
[hit.strike] = "strike", -- хз
[hit.shock] = "shock", -- от електрика
[hit.wound] = "wound", -- от хз
[hit.radiation] = "radiation", -- от радиацыя
[hit.telepatic] = "telepatic", -- от пси
[hit.chemical_burn] = "chemical_burn", -- от хз
[hit.explosion] = "explosion", -- от взрыв
[hit.fire_wound] = "fire_wound", -- от оружые
}

if(who2 ~= nil and power ~= nil and type ~= nil)then
printf("actor_on_hit_callback obj %s who %s type %s" ,obj:name(),who2:name(),hit_to_section[type])

if (hit_to_section[type] == "explosion") then -- не кричим от взрыва
return
end

if (hit_to_section[type] == "telepatic") then -- не кричим от пси урон
return
end

if (hit_to_section[type] == "radiation") then -- не кричим от радиацыя
return
end

if (hit_to_section[type] == "burn") then
return
end
if (hit_to_section[type] == "light_burn") then
return
end

local who2 = nil
local impulse = nil
local power = nil
local type = nil
end

local mode = "sounds_hit"

local tg = time_global()
if tg_temp and tg_temp > tg then
return
end
if math.random(100) < 10 then
return
end
tg_temp = tg + 2000
local comm = character_community(db.actor)
local helmet = db.actor:item_in_slot(12) or db.actor:item_in_slot(7)
local is_mask = helmet and mask_list[helmet:section()] and '_mask' or ''
sound_object(string.format('%s\\%s\\%s%s', mode, comm, this[mode][comm][math.random(#this[mode][comm])], is_mask)):play(db.actor, 0, sound_object.s2d)
printf("actor_on_hit_callback obj %s who %s sond %s " ,obj:name(),who:name(),string.format('%s\\%s\\%s%s', mode, comm, this[mode][comm][math.random(#this[mode][comm])], is_mask))
end

function caching(mode)
local temp = {}
local function func2(node, file_name, fullpath, folder_name)
local name = trim_ext(file_name)
if name:sub(#name - 4, #name) == '_mask' then
name = name:sub(1, #name - 5)
end
if not temp[folder_name][name] then
temp[folder_name][name] = true
end
end
local function func1(node, folder_name)
temp[folder_name] = {}
file_for_each(node..'\\'..folder_name, {"ogg"}, func2, true, folder_name)
end
directory_for_each(getFS():update_path('$game_sounds$', '')..'\\'..mode, func1)
for folder_name, tbl in pairs(temp) do
this[mode][folder_name] = {}
for name, _ in pairs(tbl) do
this[mode][folder_name][#this[mode][folder_name] + 1] = name
end
end
end

-- ѕодгрузка lfs
-- require("lua_extensions")
local lfs = require("lfs")
function trim_ext(str)
local a = string.find(str,"%.")
return a and trim(string.sub(str,1,a-1)) or str
end
function trim(s)
return s and (string.gsub(s, "^%s*(.-)%s*$", "%1"))
end
function get_ext(s)
return string.gsub(s,"(.*)%.","")
end
lfs_ignore_exact_ext_match = false
function file_for_each(node,ext,func,nonrecursive,...)
local stack = {}
while true do
if (node) then
for file in lfs.dir(node) do
if (file ~= ".." and file ~= ".") then
local fullpath = node .. "\\" .. file
local mode = lfs.attributes(fullpath,"mode")
if (mode == "file") then
for i=1,#ext do
if (lfs_ignore_exact_ext_match and string.find(get_ext(file), ext[i]) or get_ext(file) == ext[i]) then
func(node,file,fullpath,...)
end
end
elseif (mode == "directory" and nonrecursive ~= true) then
table.insert(stack,fullpath)
end
end
end
end
if (#stack > 0) then
node = stack[#stack]
stack[#stack] = nil
else
break
end
end
if lfs_ignore_exact_ext_match then
lfs_ignore_exact_ext_match = false
end
end
function directory_for_each(node,func,...)
for l in lfs.dir(node) do
if (l ~= ".." and l ~= ".") then
if lfs.attributes(node.."\\"..l,"mode") == "directory" then
func(node,l,...)
end
end
end
end

* GPU shading: vs(fffe0300/3.0/30), ps(ffff0300/3.0/30)
* GPU vertex cache: unrecognized, 16
* NVAPI is missing.
* Starting rendering as 2-GPU.
*** RESET [1048 ms]
* MEMORY USAGE: 1710894 K
* End of synchronization A[1] R[1]
actor_on_hit_callback obj actor who sim_default_killer_034347 type fire_wound
! [LUA] SCRIPT RUNTIME ERROR
! [LUA] ....k.e.r. - call of chernobyl\gamedata\scripts\ajam.script:146: attempt to get length of a nil value
! [SCRIPT ERROR]: ....k.e.r. - call of chernobyl\gamedata\scripts\ajam.script:146: attempt to get length of a nil value

FATAL ERROR

[error]Expression : <no expression>
[error]Function : CScriptEngine::lua_error
[error]File : ..\xrServerEntities\script_engine.cpp
[error]Line : 189
[error]Description : fatal error
[error]Arguments : LUA error: ....k.e.r. - call of chernobyl\gamedata\scripts\ajam.script:146: attempt to get length of a nil value

stack trace:

0023:020F399C xrCore.dll, xrDebug::fatal()
0023:093684B8 xrGame.dll, CDialogHolder::IgnorePause()
0023:006E51EF xrCDB.dll, ISpatial_DB::_insert()
0023:020F59F8 xrCore.dll, xrCriticalSection::Leave()
0023:094F3440 xrGame.dll, CDialogHolder::IgnorePause()
0023:09789A82 xrGame.dll, CDialogHolder::TopInputReceiver()
0023:09599633 xrGame.dll, CDialogHolder::IgnorePause()
0023:6C5F6BDB atiumdag.dll, XdxInitXopAdapterServices()

Графа [trade_что-то_там_buy] определяет что и по какой цене покупает торгаш у тебя; [trade_что-то_там_sell] тоже самое но покупаешь у него ты.
в таких графах секции имеют подобный вид, например
[trade_что-то_там_buy]
wpn_ak74 = 0.9, 1.1, цифры это ценовой диапазон т.е. продашь ты его за 90%-110% от стоимости предмета указанной в конфиге
или
[trade_что-то_там_sell]
wpn_ak74 = 0.9, 1.1, т.е. купишь ты его за 90%-110% от стоимости предмета
или
wpn_ak74 = NO_TRADE, это означает что предмет не интересует торговца, следовательно мы его не купим, не продадим
Ассортимент указан обычно в графах [supplies_generic] или что-то вроде того. Например
[supplies_generic]
wpn_svd = 1, 0.2 - первая цифра означает потенциальное кол-во предметов этого вида, а вторая цифра шанс выпадения. Если в графах supplies_generic нет предмета, значит у торгаша ты его не увидишь.