875 lines
21 KiB
Plaintext
875 lines
21 KiB
Plaintext
|
function init()
|
|||
|
|
rank_unit = 1/ranks.get_rank_interval(get_rank_list()[#get_rank_list()])[1]
|
|||
|
|
init_clsid()
|
|||
|
|
end
|
|||
|
|
--------------------------------------ini---------------------------------------
|
|||
|
|
local sys_ini = system_ini()
|
|||
|
|
function read_from_ini(ini,sec,lin,def,typ)
|
|||
|
|
if not (sec and lin) then
|
|||
|
|
ABORT("read_from_ini: ini [%s] sec [%s] lin [%s] def [%s] typ [%s]",ini~=nil,sec,lin,def,typ)
|
|||
|
|
end
|
|||
|
|
if not ini then
|
|||
|
|
ini = sys_ini
|
|||
|
|
end
|
|||
|
|
if ini:line_exist(sec,lin) then
|
|||
|
|
if typ == 1 then
|
|||
|
|
return ini:r_string(sec,lin) or def
|
|||
|
|
elseif typ == nil then
|
|||
|
|
return ini:r_float(sec,lin) or def
|
|||
|
|
elseif typ == 0 then
|
|||
|
|
local r = ini:r_bool(sec,lin)
|
|||
|
|
return r == nil and def or r
|
|||
|
|
elseif typ == 2 then
|
|||
|
|
return ini:r_string_wq(sec,lin) or def
|
|||
|
|
elseif typ == 3 then
|
|||
|
|
return ini:r_s32(sec,lin) or def
|
|||
|
|
elseif typ == 4 then
|
|||
|
|
return ini:r_vector(sec,lin) or def
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return def
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function collect_sections(ini,sections,vfunc,dval,convert)
|
|||
|
|
if vfunc == true then
|
|||
|
|
vfunc = tonumber
|
|||
|
|
end
|
|||
|
|
local r,p,c = {},{},{}
|
|||
|
|
for k,v in ipairs(sections) do
|
|||
|
|
if ini:section_exist(v) then
|
|||
|
|
local n = ini:line_count(v)
|
|||
|
|
if n > 0 then
|
|||
|
|
for i = 0,n-1 do
|
|||
|
|
local res,id,val = ini:r_line(v,i,"","")
|
|||
|
|
if r[id] == nil then
|
|||
|
|
r[id] = dval or vfunc and vfunc(val) or val
|
|||
|
|
if convert ~= nil then
|
|||
|
|
table.insert(c,convert == false and r[id] or id)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
p[k] = n
|
|||
|
|
else
|
|||
|
|
p[k] = 0
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
if convert ~= nil then
|
|||
|
|
return c,r
|
|||
|
|
end
|
|||
|
|
return r,p
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function parse_list(ini,sec,val,convert,vfunc)
|
|||
|
|
local tmp = str_explode(",",read_from_ini(ini,sec,val,"",1))
|
|||
|
|
if vfunc then
|
|||
|
|
if vfunc == true then
|
|||
|
|
vfunc = tonumber
|
|||
|
|
end
|
|||
|
|
for i,v in ipairs(tmp) do
|
|||
|
|
local res = vfunc(v)
|
|||
|
|
if res ~= nil then
|
|||
|
|
tmp[i] = res
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
if convert then
|
|||
|
|
local swap,func = convert == -1,type(convert) == "function"
|
|||
|
|
local t = {}
|
|||
|
|
for i,v in ipairs(tmp) do
|
|||
|
|
t[v] = swap and i or func and convert(v,i) or convert
|
|||
|
|
end
|
|||
|
|
return t,tmp
|
|||
|
|
end
|
|||
|
|
return tmp
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local ranksl
|
|||
|
|
function get_rank_list()
|
|||
|
|
if ranksl then
|
|||
|
|
return ranksl
|
|||
|
|
end
|
|||
|
|
local tmp = parse_list(nil,"game_relations","rating")
|
|||
|
|
ranksl = {}
|
|||
|
|
for i,rn in ipairs(tmp) do
|
|||
|
|
if not tonumber(rn) then
|
|||
|
|
table.insert(ranksl,rn)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return ranksl
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local communitiesl
|
|||
|
|
function get_communities_list()
|
|||
|
|
if communitiesl then
|
|||
|
|
return communitiesl
|
|||
|
|
end
|
|||
|
|
local tmp = parse_list(nil,"game_relations","communities")
|
|||
|
|
communitiesl = {}
|
|||
|
|
for i,cn in ipairs(tmp) do
|
|||
|
|
if not tonumber(cn) then
|
|||
|
|
table.insert(communitiesl,cn)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return communitiesl
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
rank_unit = 0.01
|
|||
|
|
--------------------------------------str---------------------------------------
|
|||
|
|
function trim(s)
|
|||
|
|
return (string.gsub(s,"^%s*(.-)%s*$","%1"))
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function str_explode(div,str)
|
|||
|
|
local t = {}
|
|||
|
|
for sect in str:gmatch('[^%s*%'..div..']+') do
|
|||
|
|
if sect and sect ~= "" then
|
|||
|
|
table.insert(t, sect)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return t
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function vec_to_str(vec)
|
|||
|
|
if vec == nil then return "<nil>" end
|
|||
|
|
return string.format("[%s:%s:%s]",vec.x,vec.y,vec.z)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local function format_safe(str,...)
|
|||
|
|
local i,args = 0,{...}
|
|||
|
|
local f = function()
|
|||
|
|
i = i + 1
|
|||
|
|
local a = args[i]
|
|||
|
|
if a == nil then
|
|||
|
|
return "<nil>"
|
|||
|
|
elseif type(a) == "userdata" then
|
|||
|
|
if a.setHP then
|
|||
|
|
return vec_to_str(a)
|
|||
|
|
elseif a.name then
|
|||
|
|
return "<obj>:"..a:name()
|
|||
|
|
end
|
|||
|
|
return "<userdata>"
|
|||
|
|
end
|
|||
|
|
return tostring(a)
|
|||
|
|
end
|
|||
|
|
return string.gsub(str,"%%s",f)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
----------------------------------------------------------------------------------
|
|||
|
|
function count_table(t)
|
|||
|
|
local cnt = 0
|
|||
|
|
for k,v in pairs(t) do
|
|||
|
|
cnt = cnt+1
|
|||
|
|
end
|
|||
|
|
return cnt
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function transform_tiny(m,v)
|
|||
|
|
local res = vector()
|
|||
|
|
res.x = m.i.x * v.x + m.k.x * v.z + m.j.x * v.y + m.c.x;
|
|||
|
|
res.y = m.k.y * v.z + m.j.y * v.y + m.i.y * v.x + m.c.y;
|
|||
|
|
res.z = m.k.z * v.z + m.j.z * v.y + m.i.z * v.x + m.c.z;
|
|||
|
|
return res
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function random_choice(...)
|
|||
|
|
local args = {...}
|
|||
|
|
if #args == 1 then
|
|||
|
|
return args[1][math.random(#args[1])]
|
|||
|
|
end
|
|||
|
|
return args[math.random(#args)]
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------class---------------------------------------
|
|||
|
|
actor_clsid = clsid.script_actor
|
|||
|
|
|
|||
|
|
creatures_clslist = {
|
|||
|
|
actor = actor_clsid,
|
|||
|
|
stalker = clsid.script_stalker,
|
|||
|
|
dog = clsid.dog_s,
|
|||
|
|
boar = clsid.boar_s,
|
|||
|
|
flesh = clsid.flesh_s,
|
|||
|
|
pseudodog = clsid.pseudodog_s,
|
|||
|
|
bloodsucker = clsid.bloodsucker_s,
|
|||
|
|
snork = clsid.snork_s,
|
|||
|
|
tushkano = clsid.tushkano_s,
|
|||
|
|
zombie = clsid.zombie_s,
|
|||
|
|
giant = clsid.gigant_s,
|
|||
|
|
chimera = clsid.chimera_s,
|
|||
|
|
burer = clsid.burer_s,
|
|||
|
|
controller = clsid.controller_s,
|
|||
|
|
poltergeist = clsid.poltergeist_s,
|
|||
|
|
fracture = clsid.fracture_s,
|
|||
|
|
cat = clsid.cat_s,
|
|||
|
|
psy_dog = clsid.psy_dog_s,
|
|||
|
|
psy_dog_phantom = clsid.psy_dog_phantom_s
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
local firearm_clst
|
|||
|
|
function item_is_fa(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
if c and firearm_clst[c] then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local knife_cls
|
|||
|
|
function item_is_knife(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
return c == knife_cls
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local grenade_clst
|
|||
|
|
function item_is_grenade(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
if c and grenade_clst[c] then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local blaster_clst
|
|||
|
|
function item_is_blaster(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
if c and blaster_clst[c] then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local ammo_clst
|
|||
|
|
function item_is_ammo(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
if c and ammo_clst[c] then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function is_actor(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
return c == actor_clsid
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local anom_clst
|
|||
|
|
function is_anomaly(o,c)
|
|||
|
|
if not c then
|
|||
|
|
c = o and o:clsid()
|
|||
|
|
end
|
|||
|
|
if c and anom_clst[c] then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function is_story_object(game_obj)
|
|||
|
|
return game_obj:story_id() < 4294967296
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function init_clsid()
|
|||
|
|
firearm_clst = {
|
|||
|
|
[clsid.wpn_pm_s] = true,
|
|||
|
|
[clsid.wpn_walther_s] = true,
|
|||
|
|
[clsid.wpn_usp45_s] = true,
|
|||
|
|
[clsid.wpn_hpsa_s] = true,
|
|||
|
|
[clsid.wpn_bm16_s] = true,
|
|||
|
|
[clsid.wpn_shotgun_s] = true,
|
|||
|
|
[clsid.wpn_ak74_s] = true,
|
|||
|
|
[clsid.wpn_lr300_s] = true,
|
|||
|
|
[clsid.wpn_groza_s] = true,
|
|||
|
|
[clsid.wpn_val_s] = true,
|
|||
|
|
[clsid.wpn_vintorez_s] = true,
|
|||
|
|
[clsid.wpn_svu_s] = true,
|
|||
|
|
[clsid.wpn_svd_s] = true,
|
|||
|
|
[clsid.wpn_rg6_s] = true,
|
|||
|
|
[clsid.wpn_rpg7_s] = true,
|
|||
|
|
-- [clsid.wpn_knife_s] = true,
|
|||
|
|
}
|
|||
|
|
blaster_clst = {
|
|||
|
|
[clsid.wpn_rg6_s] = true,
|
|||
|
|
[clsid.wpn_rpg7_s] = true
|
|||
|
|
}
|
|||
|
|
grenade_clst = {
|
|||
|
|
[clsid.wpn_grenade_f1] = true,
|
|||
|
|
[clsid.wpn_grenade_rgd5] = true
|
|||
|
|
}
|
|||
|
|
ammo_clst = {
|
|||
|
|
[clsid.wpn_ammo] = true,
|
|||
|
|
[clsid.wpn_ammo_vog25] = true,
|
|||
|
|
[clsid.wpn_ammo_m209] = true,
|
|||
|
|
[clsid.wpn_ammo_og7b] = true
|
|||
|
|
}
|
|||
|
|
anom_clst = {
|
|||
|
|
-- [clsid.ameba_zone] = true,
|
|||
|
|
[clsid.torrid_zone] = true,
|
|||
|
|
[clsid.zone_acid_fog] = true,
|
|||
|
|
[clsid.zone_bfuzz] = true,
|
|||
|
|
[clsid.zone_bfuzz_s] = true,
|
|||
|
|
[clsid.zone_dead] = true,
|
|||
|
|
[clsid.zone_galant_s] = true,
|
|||
|
|
[clsid.zone_galantine] = true,
|
|||
|
|
[clsid.zone_mbald_s] = true,
|
|||
|
|
[clsid.zone_mincer] = true,
|
|||
|
|
[clsid.zone_mincer_s] = true,
|
|||
|
|
[clsid.zone_mosquito_bald] = true,
|
|||
|
|
-- [clsid.zone_radioactive] = true,
|
|||
|
|
[clsid.zone_rusty_hair] = true,
|
|||
|
|
-- [clsid.zone_torrid_s] = true
|
|||
|
|
}
|
|||
|
|
knife_cls = clsid.wpn_knife_s
|
|||
|
|
end
|
|||
|
|
--------------------------------------sch---------------------------------------
|
|||
|
|
function add_anim(npc,anim,hand_usage,use_movement_controller)
|
|||
|
|
if anim then
|
|||
|
|
npc:add_animation(anim,hand_usage==true,use_movement_controller==true)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_sound(snd)
|
|||
|
|
if snd then
|
|||
|
|
return sound_object(snd)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
--------------------------------------net------------------------------------------
|
|||
|
|
local stpk = net_packet()
|
|||
|
|
local nph,npt -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
function get_weapon_data(sobj)
|
|||
|
|
if not sobj then
|
|||
|
|
return {}
|
|||
|
|
end
|
|||
|
|
if time_global() == npt then
|
|||
|
|
if nph[sobj] then
|
|||
|
|
return nph[sobj]
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
nph = {}
|
|||
|
|
npt = time_global()
|
|||
|
|
end
|
|||
|
|
stpk:w_begin(0)
|
|||
|
|
sobj:STATE_Write(stpk)
|
|||
|
|
local size = stpk:w_tell()
|
|||
|
|
stpk:r_seek(2)
|
|||
|
|
local t = {}
|
|||
|
|
parse_object_packet(t,stpk)
|
|||
|
|
parse_visual_packet(t,stpk)
|
|||
|
|
parse_item_packet(t,stpk)
|
|||
|
|
parse_item_weapon_packet(t,stpk)
|
|||
|
|
nph[sobj] = t
|
|||
|
|
return t
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function parse_object_packet(ret,stpk)
|
|||
|
|
ret.gvid = stpk:r_u16()
|
|||
|
|
ret.obf32u1 = stpk:r_float()
|
|||
|
|
ret.obs32u2 = stpk:r_s32()
|
|||
|
|
ret.lvid = stpk:r_s32()
|
|||
|
|
ret.oflags = stpk:r_s32()
|
|||
|
|
ret.custom = stpk:r_stringZ()
|
|||
|
|
ret.sid = stpk:r_s32()
|
|||
|
|
ret.obs32u3 = stpk:r_s32()
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function parse_visual_packet(ret,stpk)
|
|||
|
|
ret.visual = stpk:r_stringZ()
|
|||
|
|
ret.vsu8u1 = stpk:r_u8()
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function parse_item_packet(ret,stpk)
|
|||
|
|
ret.condition = stpk:r_float()
|
|||
|
|
ret.upgrades = readvu32stringZ(stpk)
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function parse_item_weapon_packet(ret,stpk)
|
|||
|
|
ret.ammo_current = stpk:r_u16()
|
|||
|
|
ret.ammo_elapsed = stpk:r_u16()
|
|||
|
|
ret.weapon_state = stpk:r_u8()
|
|||
|
|
ret.addon_flags = stpk:r_u8()
|
|||
|
|
ret.ammo_type = stpk:r_u8()
|
|||
|
|
ret.xz1 = stpk:r_u8()
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function readvu8uN(packet,n)
|
|||
|
|
local v = {}
|
|||
|
|
for i=1,n,1 do
|
|||
|
|
table.insert(v,packet:r_u8())
|
|||
|
|
end
|
|||
|
|
return v
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function set_weapon_data(t,sobj)
|
|||
|
|
if sobj then
|
|||
|
|
stpk:w_begin(0)
|
|||
|
|
fill_object_packet(t,stpk)
|
|||
|
|
fill_visual_packet(t,stpk)
|
|||
|
|
fill_item_packet(t,stpk)
|
|||
|
|
fill_item_weapon_packet(t,stpk)
|
|||
|
|
local size = stpk:w_tell()
|
|||
|
|
stpk:r_seek(2)
|
|||
|
|
sobj:STATE_Read(stpk,size)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function fill_object_packet(ret,stpk)
|
|||
|
|
stpk:w_u16(ret.gvid)
|
|||
|
|
stpk:w_float(ret.obf32u1)
|
|||
|
|
stpk:w_s32(ret.obs32u2)
|
|||
|
|
stpk:w_s32(ret.lvid)
|
|||
|
|
stpk:w_s32(ret.oflags)
|
|||
|
|
stpk:w_stringZ(ret.custom)
|
|||
|
|
stpk:w_s32(ret.sid)
|
|||
|
|
stpk:w_s32(ret.obs32u3)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function fill_visual_packet(ret,stpk)
|
|||
|
|
stpk:w_stringZ(ret.visual)
|
|||
|
|
stpk:w_u8(ret.vsu8u1)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function fill_item_packet(ret,stpk)
|
|||
|
|
stpk:w_float(ret.condition)
|
|||
|
|
writevu32stringZ(stpk,ret.upgrades)
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function fill_item_weapon_packet(ret,stpk)
|
|||
|
|
stpk:w_u16(ret.ammo_current)
|
|||
|
|
stpk:w_u16(ret.ammo_elapsed)
|
|||
|
|
stpk:w_u8(ret.weapon_state)
|
|||
|
|
stpk:w_u8(ret.addon_flags)
|
|||
|
|
stpk:w_u8(ret.ammo_type)
|
|||
|
|
stpk:w_u8(ret.xz1)
|
|||
|
|
return ret
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function writevu8uN(pk,v)
|
|||
|
|
local len = table.getn(v)
|
|||
|
|
for i=1,len,1 do
|
|||
|
|
pk:w_u8(v[i])
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function readvu32stringZ(packet)
|
|||
|
|
local v = {}
|
|||
|
|
local len = packet:r_s32()
|
|||
|
|
for i=1,len,1 do
|
|||
|
|
table.insert(v,packet:r_stringZ())
|
|||
|
|
end
|
|||
|
|
return v
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function writevu32stringZ(pk,v)
|
|||
|
|
if v == nil then
|
|||
|
|
v = {}
|
|||
|
|
end
|
|||
|
|
local len = #v
|
|||
|
|
pk:w_s32(len)
|
|||
|
|
for i=1,len,1 do
|
|||
|
|
pk:w_stringZ(v[i])
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------weapon---------------------------------------
|
|||
|
|
|
|||
|
|
game_object.get_wm = function (npc,enabled_only)
|
|||
|
|
local wm = rx_ai.get_storage(npc:id()).wm
|
|||
|
|
if wm and not (enabled_only and wm.disabled) then
|
|||
|
|
return wm
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_weapon(npc)
|
|||
|
|
local wm = rx_ai.get_storage(npc:id()).wm
|
|||
|
|
return wm and wm:get_weapon() or npc:best_weapon()
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_ammo_type(wpn,id)
|
|||
|
|
return get_weapon_data(alife():object(id or wpn:id())).ammo_type or 0
|
|||
|
|
end
|
|||
|
|
--[[
|
|||
|
|
function in_grenade_mode(wpn)
|
|||
|
|
local pak = get_weapon_w_gl_full_data(alife():object(wpn:id()))
|
|||
|
|
if bit_and(pak.addon_flags,2) == 2 then
|
|||
|
|
return pak.updgrenade_mode ~= 0
|
|||
|
|
end
|
|||
|
|
return false
|
|||
|
|
end]]
|
|||
|
|
|
|||
|
|
EWeaponStates = {
|
|||
|
|
eFire = 5,
|
|||
|
|
eFire2 = 6,
|
|||
|
|
eReload = 7,
|
|||
|
|
eMisfire = 8,
|
|||
|
|
eMagEmpty = 9,
|
|||
|
|
eSwitch = 10
|
|||
|
|
}
|
|||
|
|
function get_weapon_state(wpn,id)
|
|||
|
|
return get_weapon_data(alife():object(id or wpn:id())).weapon_state
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_mag_size(section)
|
|||
|
|
return (rx_wmgr and not rx_wmgr.wm_modes.forbiddens[section] and rx_wmgr.read_wpn_params(section).mag) or read_from_ini(nil,section,"ammo_mag_size",1,3)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_wpn_type(section)
|
|||
|
|
return (rx_wmgr and not rx_wmgr.wm_modes.forbiddens[section] and rx_wmgr.read_wpn_params(section).typ) or read_from_ini(nil,section,"ef_weapon_type",0,3)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------addons---------------------------------------
|
|||
|
|
function get_addon_status(wpn,addon)
|
|||
|
|
if addon == "sc" then
|
|||
|
|
return wpn:weapon_scope_status()
|
|||
|
|
elseif addon == "sl" then
|
|||
|
|
return wpn:weapon_silencer_status()
|
|||
|
|
elseif addon == "gl" then
|
|||
|
|
return wpn:weapon_grenadelauncher_status()
|
|||
|
|
end
|
|||
|
|
return 0
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function get_addon_flag(wpn,with_int)
|
|||
|
|
local flag = 0
|
|||
|
|
if wpn:weapon_is_scope() then
|
|||
|
|
if with_int or get_addon_status(wpn,"sc") == 2 then
|
|||
|
|
flag = 1
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
if wpn:weapon_is_silencer() then
|
|||
|
|
if with_int or get_addon_status(wpn,"sl") == 2 then
|
|||
|
|
flag = flag+4
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
if wpn:weapon_is_grenadelauncher() then
|
|||
|
|
if with_int or get_addon_status(wpn,"gl") == 2 then
|
|||
|
|
flag = flag+2
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return flag
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local ft = {sc = 1,sl = 4,gl = 2}
|
|||
|
|
function addon_attached(wpn,addon,flag)
|
|||
|
|
if ft[addon] then
|
|||
|
|
return bit_and(flag or get_addon_flag(wpn,true),ft[addon]) == ft[addon]
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------ai-----------------------------------------
|
|||
|
|
function cover_in_direction(lvid,dir,bs)
|
|||
|
|
if bs == move.crouch then
|
|||
|
|
return level.low_cover_in_direction(lvid,dir)
|
|||
|
|
else
|
|||
|
|
return level.high_cover_in_direction(lvid,dir)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function npc_in_cover(npc,stand)
|
|||
|
|
local st = rx_ai.get_storage(npc:id(),"in_cover")
|
|||
|
|
local be,de = npc:best_enemy(),db.storage[npc:id()].danger_flag
|
|||
|
|
if (be and not xr_wounded.is_wounded(be) or de) then
|
|||
|
|
if stand and not npc:path_completed() then
|
|||
|
|
st.evn = false
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
local tg = time_global()
|
|||
|
|
if (st.wait or 0) > tg then
|
|||
|
|
return st.evn
|
|||
|
|
end
|
|||
|
|
local enemies,tt = {},{}
|
|||
|
|
if be and not xr_wounded.is_wounded(be) then
|
|||
|
|
enemies[1] = be
|
|||
|
|
tt[be:id()] = true
|
|||
|
|
else -- <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if not be and de and npc:best_danger() then
|
|||
|
|
local bd = npc:best_danger()
|
|||
|
|
local dir = bd:position():sub(npc:position())
|
|||
|
|
if dir:magnitude() < (bd:type() == danger_object.grenade and 20 or 8) or 1-cover_in_direction(npc:level_vertex_id(),dir,npc:body_state()) < 0.3 then
|
|||
|
|
st.evn = false
|
|||
|
|
st.wait = tg+3000
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
st.evn = true
|
|||
|
|
st.wait = tg+2000
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
for o in npc:memory_visible_objects() do
|
|||
|
|
local obj = o:object()
|
|||
|
|
if obj then
|
|||
|
|
local id = obj:id()
|
|||
|
|
if not tt[id] and obj:alive() and npc:relation(obj) == game_object.enemy and (IsStalker(obj) and not xr_wounded.is_wounded(obj) or IsMonster(obj)) then
|
|||
|
|
table.insert(enemies,obj)
|
|||
|
|
tt[id] = true
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
for o in npc:memory_sound_objects() do
|
|||
|
|
local obj = o:object()
|
|||
|
|
if obj and obj:alive() and not tt[obj:id()] and npc:relation(obj) == game_object.enemy and (IsStalker(obj) and not xr_wounded.is_wounded(obj) or IsMonster(obj)) then
|
|||
|
|
table.insert(enemies,obj)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
local npc_lvid,npc_id,bs = npc:level_vertex_id(),npc:id(),npc:body_state()
|
|||
|
|
local f = 28
|
|||
|
|
for i,enemy in ipairs(enemies) do
|
|||
|
|
if IsMonster(enemy) then
|
|||
|
|
local dist = enemy:position():distance_to_sqr(npc:position())
|
|||
|
|
local ebe = enemy:get_enemy()
|
|||
|
|
if (dist < 12*12 and enemy:see(npc)) or (dist < 50*50 and ebe and ebe:id() == npc_id) then
|
|||
|
|
st.evn = false
|
|||
|
|
st.wait = tg+5000
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
local dir = enemy:position():sub(npc:position())
|
|||
|
|
local dist = dir:magnitude()
|
|||
|
|
local seez = npc:see(enemy) and enemy:see(npc) -- <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
local cover = cover_in_direction(npc_lvid,dir,bs)
|
|||
|
|
if seez or dist < 7 or cover > 0.8 or dist*cover > dist-f*cover then -- <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
st.evn = false
|
|||
|
|
st.wait = tg+2500
|
|||
|
|
return false
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
st.evn = true
|
|||
|
|
st.wait = tg+400
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function actor_aiming_at_me(npc,df)
|
|||
|
|
local aim_dir = device().cam_dir
|
|||
|
|
local my_dir = npc:center():sub(device().cam_pos)
|
|||
|
|
local aH,aP = aim_dir:getH(),aim_dir:getP()
|
|||
|
|
local fH,fP = my_dir:getH(),my_dir:getP()
|
|||
|
|
local f = 0.03+(df or 0.5)/my_dir:magnitude()
|
|||
|
|
if (aH > fH and aH-fH or fH-aH) < f and (aP > fP and aP-fP or fP-aP) < f*2 then
|
|||
|
|
return true
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function eat_medkit(npc,medkit)
|
|||
|
|
local health = read_from_ini(nil,medkit:section(),'npc_eat_health')
|
|||
|
|
if health then
|
|||
|
|
npc.health = health
|
|||
|
|
end
|
|||
|
|
npc:eat(medkit)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function IsTrader(npc)
|
|||
|
|
local st = rx_ai.get_storage(npc:id())
|
|||
|
|
if st.is_trader == nil then
|
|||
|
|
local dbst = db.storage[npc:id()]
|
|||
|
|
local trader = false
|
|||
|
|
if npc:character_community() == "trader" or npc:clsid() == clsid.script_trader then
|
|||
|
|
trader = true
|
|||
|
|
elseif string.find(npc:section(),"trader") or string.find(npc:name(),"trader") then
|
|||
|
|
trader = true
|
|||
|
|
elseif dbst.ini and dbst.section_logic and dbst.ini:section_exist(dbst.section_logic) and dbst.ini:line_exist(dbst.section_logic,"trade") then
|
|||
|
|
trader = true
|
|||
|
|
end
|
|||
|
|
if dbst.stype then -- <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
st.is_trader = trader
|
|||
|
|
else
|
|||
|
|
return trader
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
return st.is_trader == true
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function safe_bone_pos(npc,bone)
|
|||
|
|
local cls = npc:clsid()
|
|||
|
|
if cls == clsid.burer_s then
|
|||
|
|
return npc:center()
|
|||
|
|
elseif cls == clsid.gigant_s then
|
|||
|
|
return npc:center()
|
|||
|
|
elseif cls == clsid.chimera_s then
|
|||
|
|
return npc:bone_position("neck_r")
|
|||
|
|
else
|
|||
|
|
return npc:bone_position(bone or get_fire_bone(npc:section(),"torso"))
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
local gfb_torso,gfb_head,gfb_fire = {},{},{}
|
|||
|
|
function get_fire_bone(sec,part)
|
|||
|
|
if part == "head" then
|
|||
|
|
if not gfb_head[sec] then
|
|||
|
|
gfb_head[sec] = read_from_ini(nil,sec,"bone_head","bip01_head",1)
|
|||
|
|
end
|
|||
|
|
return gfb_head[sec]
|
|||
|
|
elseif part == "torso" then
|
|||
|
|
if not gfb_torso[sec] then
|
|||
|
|
gfb_torso[sec] = read_from_ini(nil,sec,"bone_torso",nil,1) or read_from_ini(nil,sec,"bone_spin","bip01_spine",1)
|
|||
|
|
end
|
|||
|
|
return gfb_torso[sec]
|
|||
|
|
end
|
|||
|
|
if not gfb_fire[sec] then
|
|||
|
|
gfb_fire[sec] = read_from_ini(nil,sec,"bone_fire","bip01_head",1)
|
|||
|
|
end
|
|||
|
|
return gfb_fire[sec]
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------switch---------------------------------------
|
|||
|
|
function switch_online(id)
|
|||
|
|
if id == -1 then return end
|
|||
|
|
local sim = alife()
|
|||
|
|
if sim then
|
|||
|
|
sim:set_switch_online(id,true)
|
|||
|
|
sim:set_switch_offline(id,false)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function switch_offline(id)
|
|||
|
|
local sim = alife()
|
|||
|
|
if sim then
|
|||
|
|
sim:set_switch_online(id,false)
|
|||
|
|
sim:set_switch_offline(id,true)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------output---------------------------------------
|
|||
|
|
function printf(str,...)
|
|||
|
|
get_console():execute("load ~#I#:"..format_safe(str,...))
|
|||
|
|
-- log(format_safe(str,...))
|
|||
|
|
-- get_console():execute("flush")
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function prints(str)
|
|||
|
|
get_console():execute("load ~#I#:"..str)
|
|||
|
|
-- log(str)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function give_game_news(str,time,...)
|
|||
|
|
if db.actor then
|
|||
|
|
db.actor:give_game_news("",format_safe(str,...),"ui_iconsTotal_grouping",0,time,0)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function ABORT(s,...)
|
|||
|
|
printf("rx_utils.abort: "..s,...)
|
|||
|
|
sys_ini:r_bool("___aborting","a")
|
|||
|
|
end
|
|||
|
|
_G['ABORTX'] = ABORT
|
|||
|
|
|
|||
|
|
function ASSERT(o,s,...)
|
|||
|
|
if not o then
|
|||
|
|
ABORT(s,...)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
_G['ASSERTX'] = ASSERT
|
|||
|
|
|
|||
|
|
function print_table(t,name)
|
|||
|
|
local print_r_cache={}
|
|||
|
|
local function sub_print_r(t,indent)
|
|||
|
|
if (type(t)~="userdata" and print_r_cache[tostring(t)]) then
|
|||
|
|
prints(indent.."*"..tostring(t))
|
|||
|
|
else
|
|||
|
|
if type(t)~="userdata" then
|
|||
|
|
print_r_cache[tostring(t)]=true
|
|||
|
|
end
|
|||
|
|
if (type(t)=="table") then
|
|||
|
|
for pos,val in pairs(t) do
|
|||
|
|
if (type(val)=="table") then
|
|||
|
|
prints(indent.."["..pos.."] => "..tostring(t).." {")
|
|||
|
|
sub_print_r(val,indent..string.rep(" ",string.len(pos)+8))
|
|||
|
|
prints(indent..string.rep(" ",string.len(pos)+6).."}")
|
|||
|
|
elseif (type(val)=="string") then
|
|||
|
|
prints(indent.."["..pos..'] => "'..val..'"')
|
|||
|
|
elseif(type(val)=="userdata") then
|
|||
|
|
prints(indent.."["..pos..'] => "userdata"')
|
|||
|
|
else
|
|||
|
|
prints(indent.."["..pos.."] => "..tostring(val))
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
elseif(type(t)=="userdata") then
|
|||
|
|
prints(indent.."userdata")
|
|||
|
|
else
|
|||
|
|
prints(indent..tostring(t))
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
if (type(t)=="table") then
|
|||
|
|
printf("print_table %s: %s {",(name or 'unnamed'),tostring(t))
|
|||
|
|
sub_print_r(t," ")
|
|||
|
|
prints("}")
|
|||
|
|
else
|
|||
|
|
printf("print_table %s: %s(%s) is not table!",(name or 'unnamed'),type(t),t)
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--------------------------------------spy------------------------------------------
|
|||
|
|
|
|||
|
|
class "prof_spy"
|
|||
|
|
function prof_spy:__init()
|
|||
|
|
self.store = {}
|
|||
|
|
self.global_timer = time_global()
|
|||
|
|
end
|
|||
|
|
function prof_spy:__finalize()
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function prof_spy:start(name)
|
|||
|
|
if not self.store[name] then
|
|||
|
|
self.store[name] = {timer = profile_timer(),count = 0,time = 0,min_time = 0,max_time = 0,prev_ptime = 0}
|
|||
|
|
end
|
|||
|
|
local st = self.store[name]
|
|||
|
|
st.timer:start()
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function prof_spy:finish(name)
|
|||
|
|
local st = self.store[name]
|
|||
|
|
ASSERTX(st,"spy finish %s",name)
|
|||
|
|
st.timer:stop()
|
|||
|
|
local ptime = st.timer:time()
|
|||
|
|
local rtime = ptime-st.prev_ptime
|
|||
|
|
if rtime == 0 then
|
|||
|
|
return
|
|||
|
|
end
|
|||
|
|
st.prev_ptime = ptime
|
|||
|
|
st.time = st.time+rtime
|
|||
|
|
st.count = st.count+1
|
|||
|
|
st.min_time = (st.min_time == 0 or rtime < st.min_time) and rtime or st.min_time
|
|||
|
|
st.max_time = rtime > st.max_time and rtime or st.max_time
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function prof_spy:get_stat(name)
|
|||
|
|
if name then
|
|||
|
|
local st = self.store[name]
|
|||
|
|
if not st then
|
|||
|
|
return "nil"
|
|||
|
|
end
|
|||
|
|
local global_time = time_global()-self.global_timer
|
|||
|
|
local exec_ms_in_sec = st.time/global_time
|
|||
|
|
local str = string.format("\n[%s]: cnt=[%s] time=[%s] min=[%s] max=[%s] prd=[%s] ret=[%s] insec=[%s]",name,st.count,st.time,st.min_time,st.max_time,global_time/st.count,st.time/st.count,exec_ms_in_sec)
|
|||
|
|
return str
|
|||
|
|
else
|
|||
|
|
local tt = {}
|
|||
|
|
for name,st in pairs(self.store) do
|
|||
|
|
local global_time = time_global()-self.global_timer
|
|||
|
|
local exec_ms_in_sec = st.time/global_time
|
|||
|
|
local str = string.format("\n[%s]: cnt=[%s] time=[%s] min=[%s] max=[%s] prd=[%s] ret=[%s] insec=[%s]",name,st.count,st.time,st.min_time,st.max_time,global_time/st.count,st.time/st.count,exec_ms_in_sec)
|
|||
|
|
table.insert(tt,str)
|
|||
|
|
end
|
|||
|
|
return tt
|
|||
|
|
end
|
|||
|
|
end
|