Expression : fatal error
Function : CScriptEngine::lua_error
File : .\script_engine.cpp
Line : 75
Description : <no expression>
Arguments : LUA error: ....k.e.r. - lost alpha\gamedata\scripts\ui_safe.script:108: attempt to call global 'get_netpk' (a nil value)

--[[ ----------------------------------------------------------------------------------------------
File : ui_safe.script
Description: "Safes"
Copyright : 2009 © LA-team
Author : barin(29.08.2009)
Editors : barin(05.07.2010)
Last edit : 13.03.2013 [...]
--]] ----------------------------------------------------------------------------------------------

--/ -----------------------------------------------------------------
--/ VARIABLEs
--/ -----------------------------------------------------------------
ITEM_GENERIC = 0
ITEM_AMMO = 1
ITEM_MONEY = 2
ITEM_WEAPON = 3
ITEM_OUTFIT = 4

local SAFE = nil
local ACTOR_ITEMS = {}
local sini = system_ini()
--/ --------------------------
local sModule = script_name()
--/ -----------------------------------------------------------------
local log = function(fmt,...) _G.log(sModule..":"..tostring(fmt),...) end
--/ -----------------------------------------------------------------
--/ Priocess
--/ -----------------------------------------------------------------
function DisplaySafeWindow(se_obj)
SAFE = se_obj
ACTOR_ITEMS = this.get_actor_items()

local wnd = ui_inv_wnd.uiInvWnd()
wnd:SetCallback(sModule, "OnSafeClose")

wnd.left_panel:SetCaption("ui_st_mnu_backpack")
wnd.left_panel:SetCapacity(sini:r_float("actor", "max_item_mass"))
wnd.left_panel:AddItems("actor", ACTOR_ITEMS)

wnd.right_panel:SetCaption("ui_st_mnu_safe")
wnd.right_panel:SetCapacity(sini:r_float("safe_object", "max_capacity"))
wnd.right_panel:AddItems("trunk", se_obj:get_items())

wnd.right_panel:UpdateMoveAllButton()
wnd.left_panel:UpdateMoveAllButton()

level.start_stop_menu(wnd, true)
end

function OnSafeClose(actor_items, safe_items)
local tbl = this.compare_tbl(ACTOR_ITEMS, actor_items)
for section, data in pairs(tbl) do
for k, v in pairs(data) do
if v.count < 0 then
this.dispose_items(section, v) --/ item: backpack -> safe
elseif v.count > 0 then
this.inventory_spawn(section, v) --/ item: backpack <- safe
end
end
end

if SAFE then
SAFE:set_items(safe_items)
end
end
--/ -----------------------------------------------------------------
--/ HELPERs --/ Note! This functions used by 'ui_car_trunk'!
--/ -----------------------------------------------------------------
local discard_sections = {
bolt = true,
device_torch = true,
wpn_binoc = true,
wpn_knife = true,
device_pda = true,
xray_pda = true,
af_merger = true,
--detector_simple = true,
--detector_advances = true,
--detector_elite = true,
}

function can_display_item(section)
if discard_sections[section] == nil then
discard_sections[section] = Get_Cfg_Bool(sini, section, "quest_item", false)
end
return not discard_sections[section]
end

function get_actor_items()
local items = {}
local inv_item, section, idx, t = nil, nil, nil, nil

for index = 0, db.actor:object_count() - 1 do
inv_item = db.actor:object(index)
section = inv_item:section()

if this.can_display_item(section) then
t = {}
t.cond = inv_item:condition()
t.count = 1

if all_items.is_ammo(section) then
t.item_type = ITEM_AMMO
t.count = this.get_ammo_left(inv_item)
elseif all_items.is_weapon(section) and not all_items.is_grenade(section) then
t.item_type = ITEM_WEAPON
ASSERT(type(get_netpk) == 'function', "get_actor_items: Not exist la_netpk!") --/#???#
local data = get_netpk(inv_item):get()
t.ammo_elapsed = data.ammo_elapsed
t.ammo_type = data.ammo_type
t.addon_flags = data.addon_flags
if data.upd.grenade_mode then --/#~# restored old one lox, questions to gri
t.gl_mode = data.upd.grenade_mode
end
elseif all_items.is_money(section) then
t.item_type = ITEM_MONEY
elseif all_items.is_outfit(section) then
t.item_type = ITEM_OUTFIT
else
t.item_type = ITEM_GENERIC
end

if items[section] == nil then
items[section] = {}
end

idx = this.get_idx_by_cond(items[section], t)
if idx == -1 then
table.insert(items[section], t)
else --/ summing items with same 'wear'
items[section][idx].count = items[section][idx].count + t.count
end
end
end

return items --/> table
end

function compare_tbl(a, b)
local items = {}
local diff, idx = nil, nil

for k, v in pairs(a) do
for kk, vv in pairs(v) do
idx = this.get_idx_by_cond(b[k], vv)
if idx == -1 then
se_safe.add_item(items, k, -vv.count, vv) --/ actor -> trunk
else
if vv.count ~= b[k][idx ].count then
diff = math.abs(vv.count - b[k][idx ].count)
if vv.count > b[k][idx ].count then
diff = diff * (-1) --/ actor -> trunk
end
se_safe.add_item(items, k, diff, vv)
end
end
end
end

for k, v in pairs(b) do
for kk, vv in pairs(v) do
idx = this.get_idx_by_cond(a[k], vv)
if idx == -1 then
se_safe.add_item(items, k, vv.count, vv) --/ actor <- trunk
end
end
end

return items
end

function inventory_spawn(section, t)
if t.item_type == ITEM_MONEY then
db.actor:give_money(t.count * sini:r_u32(section, "cost"))
return
elseif t.item_type == ITEM_AMMO then
Spawn_AmmoInInv(section, t.count)
return
elseif t.item_type == ITEM_GENERIC then
Spawn_ItemsInInv(section, t.count)
return
elseif t.item_type ~= ITEM_OUTFIT and t.item_type ~= ITEM_WEAPON then
return
end
local a_pos,lvid, gvid = db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id()
local se_item, pos = nil, nil

for index = 1, t.count do
pos = vector():set(a_pos)
pos.x = pos.x + 2 --/#?#
pos.z = pos.z - 10 --/#?#

se_item = alife():create(section, pos, lvid, gvid)
--/ set callback
--la_checker.setup_checker(se_item, "la_checker.is_online", "la_checker.update_condition", false, nil, t.cond) --/#x#
level.client_spawn_manager():add(se_item.id, 0, this.callback_net_spawn, t.cond)

if t.item_type == ITEM_WEAPON then
ASSERT(type(get_netpk) == 'function', "inventory_spawn: Not exist la_netpk!") --/#???#
local pk = get_netpk(se_item)
local data = pk:get()
data.upd.ammo_elapsed = t.ammo_elapsed
data.upd.addon_flags = t.addon_flags
data.upd.ammo_type = t.ammo_type

if t.gl_mode then
-- FIXME!!! - not working and info about mag ammo is lost: that's because when
-- gl_mode is on (1) then ammo_elapsed and upd_ammo_elapsed holds number of
-- grenades (0 or 1, that is) in grenade launcher, so ammo_elapsed is pointing to
-- grenade launcher not to mag ammo therefore info about mag ammo
-- (ammo elapsed and ammo type) is lost and only one bullet will be spawned in mag

--data.upd.grenade_mode = t.gl_mode

-- temporary fix:
-- spawn grenade in backpack (if there was any)
-- and then spawn weapon without ammo in mag

if t.ammo_elapsed > 0 then
local ammo_class = parser.r_string_list(sini, section, "grenade_class", nil)
if ammo_class then
Spawn_AmmoInInv(ammo_class[t.ammo_type + 1], t.ammo_elapsed)
end
end

data.upd.ammo_elapsed = 0
data.ammo_elapsed = 0

data.upd.ammo_type = 0
data.ammo_type = 0
else
data.ammo_elapsed = t.ammo_elapsed
data.ammo_type = t.ammo_type
end

data.addon_flags = t.addon_flags
pk:set(data)
end
end
end

function callback_net_spawn(cond, item_id, item) --/#+#
if item:condition() ~= cond then
item:set_condition(cond)
end
item:transfer_item(item, db.actor)
end

function dispose_items(section, t)
local counter = math.abs(t.count)

if counter == 0 then
return
end

if t.item_type == ITEM_AMMO then
this.dispose_ammo(section, counter)
return
end

local inv_item, se_item = nil, nil
local cnt = 0

for index = 0, db.actor:object_count() - 1 do
inv_item = db.actor:object(index)
if inv_item:section() == section and inv_item:condition() == t.cond then
if t.item_type == ITEM_WEAPON then
ASSERT(type(get_netpk) == 'function', "dispose_items: Not exist la_netpk!") --/#???#
local data = get_netpk(inv_item,1):get()
if t.ammo_elapsed == data.ammo_elapsed and t.ammo_type == data.ammo_type and t.addon_flags == data.addon_flags then
--/ no need to check gl_mode
se_item = alife():object(inv_item:id())
if se_item then
alife():release(se_item, true)
end
cnt = cnt + 1
end
else
se_item = alife():object(inv_item:id())
if se_item then
alife():release(se_item, true)
end
cnt = cnt + 1
end
if cnt == counter then
return
end
end
end
end

function get_ammo_left(inv_item)
local sobj = alife():object(inv_item:id())
local packet = net_packet()
sobj:STATE_Write(packet)
packet:r_seek(packet:w_tell() - 2)
return packet:r_u16() --/> "ammo_left" (number: 0...)
end

function get_ammo(section)
local boxes, count = 0, 0
local inv_item = nil
--/ calculating quantity of box'es and ammo in them
for i = 0, db.actor:object_count() - 1 do
inv_item = db.actor:object(i)
if section == inv_item:section() then
count = count + this.get_ammo_left(inv_item)
boxes = boxes + 1
end
end

return boxes, count --/> quantity of boxes of current section and ammo in them
end

function dispose_ammo(section, counter)
local all_boxes, all_count = this.get_ammo(section)
if all_boxes == 0 then
return
end
--/ deleting all boxes:
local item,se_item,cnt = nil,nil,0
for i = 0, db.actor:object_count() - 1 do
item = db.actor:object(i)
if item:section() == section then
se_item = alife():object(item:id())
if se_item then
alife():release(se_item, true)
end
cnt = cnt + 1
if cnt == boxes then
break
end
end
end

local to_spawn = all_count - counter
if to_spawn > 0 then
Spawn_AmmoInInv(section, to_spawn)
end
end

function get_idx_by_cond(tbl, t)
if tbl and next(tbl) then
for index, item in pairs(tbl) do
if item.cond == t.cond then
if t.item_type == ITEM_WEAPON then
if item.ammo_elapsed == t.ammo_elapsed then
if item.ammo_type == t.ammo_type then
if item.addon_flags == t.addon_flags then
--/ no need to check item.gl_mode and t.gl_mode
--/ because section is the same for both items
return index
end
end
end
else
return index
end
end
end
end
return -1
end
--/ ------------------------------------------------------------------------------------------------