Форумы Архив » Свалка Вопросы и ответы (ТЧ по 11.09.10)

guitar_1 = {min_snd = 7, max_snd = 10, rnd = 100, prior = 5, rnd_id = id(), into_id = id(), max_ids = {}}, ;-)

belt = {}
belt_status = false

local need_update = true
local inventory_open = false
local separator_spawned = false
local separator = "separator"

local debug = false
local flag

function update()

if (need_update == false) then return end

if debug == true and belt_status == true then get_console():execute("belt_status=false") end
belt_status = false

-- Спавним разделяющий елемент
if (separator_spawned == false) then
alife():create(separator,
db.actor:position(),
db.actor:level_vertex_id(),
db.actor:game_vertex_id(),
db.actor:id())
separator_spawned = true
if debug == true then get_console():execute("separator_spawned") end
return
end

belt = {}
flag = 0

-- Сканируем инвентарь
db.actor:inventory_for_each(scan_inv)
need_update = false

-- Удаляем разделяющий елемент
db.actor:inventory_for_each(del_separator)
separator_spawned = false

if debug == true and belt_status == false then get_console():execute("belt_status=true") end
belt_status = true

if debug == true then
for i,k in pairs(belt) do
get_console():execute(i.."="..k)
end
end
end

-- Перебор предметов инвентаря
function scan_inv(item)
local section = item:section()

if section == separator then
flag = 1
return
end

if flag == 1 then
if slot_item(item) ~= nil then
flag = 2
else
insert_to_table(belt, section)
end
end
end

-- Добавление в таблицу
function insert_to_table(tbl, section)
if tbl[section] == nil then
tbl[section] = 1
else
tbl[section] = tbl[section] + 1
end
end

-- Удаление разделяющего предмета
function del_separator(item)
if item:section() == separator then
alife():release(alife():object(item:id()), true)
if debug == true then get_console():execute("separator_removed") end
end
end

-- Определение налечия предмета в одном из слотов
function slot_item(item)
for i=0,12 do
local obj = db.actor:item_in_slot(i)
if obj and item:id() == obj:id() then
return i
end
end

return nil
end

-- Поднятие предмета
function on_item_take(item)
if item:section() == separator then return end

if (inventory_open == false) then
if (separator_spawned == true) then
db.actor:inventory_for_each(del_separator)
separator_spawned = false
end

need_update = true
if debug == true then get_console():execute("item_take") end
end
end

-- Выброс предмета
function on_item_drop(item)
if item:section() == separator then return end

if (inventory_open == false) then
if (separator_spawned == true) then
db.actor:inventory_for_each(del_separator)
separator_spawned = false
end

need_update = true
if debug == true then get_console():execute("item_drop") end
end
end

-- Открытие/закрытие инвентаря
function on_inventory_info(info_id)
if info_id == "ui_inventory" then
inventory_open = true
if debug == true then get_console():execute("inventory_open") end

elseif info_id == "ui_inventory_hide" then
inventory_open = false
need_update = true
if debug == true then get_console():execute("inventory_close") end
end
end

function check_blood()
-- if belt_status == true then
if belt["af_blood"]~=nil and belt["af_blood"]>0 then -- то есть когда параметр пояса[af_blood] равен 1, 2, 3.. Сколько навесишь Камней.
-- amk.send_tip("Кровь Камня на поясе")
end
-- end
end

local actor = db.actor
local cnt = actor:object_count()
for i=0,cnt-1 do
local item = actor:object(i)

Expression : fatal error
Function : weapon_hud_value::load
File : E:\stalker\patch_1_0004\xr_3da\xrGame\WeaponHUD.cpp
Line : 34
Description :
Arguments : There is no 'wpn_knife_0' bone for weapon 'wpn_knife_hud'.