function mutant_dog()
alife():create("dog_strong",vector():set

(143.78999328613,0.099520981311798,90.196250915527),38609,978)
end

---------------------------------------------------------------------------------------------------------
---------------------------------------------------AMK---------------------------------------------------
---------------------------------------------------------------------------------------------------------
convert_npc={}

-- серверный объект на входе
function read_stalker_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
local tbl= ins_task.parse_stalker_packet({},stpk,uppk,size)
return tbl
end

function read_monster_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
local tbl= ins_task.parse_se_monster_packet({},stpk,uppk,size)
return tbl
end

-- таблица параметров и серверный объект на входе
function write_stalker_params(tbl,sobj,noconvert)
local stpk=net_packet()
local uppk=net_packet()
ins_task.fill_stalker_packet(tbl,stpk,uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
local npc=level.object_by_id(sobj.id)
if npc and (not noconvert) then
ins_task.convert_npc[sobj.id]=true
npc:stop_talk()
switch_offline(npc)
end
end

function write_monster_params(tbl,sobj)
local stpk=net_packet()
local uppk=net_packet()
ins_task.fill_se_monster_packet(tbl,stpk,uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function add_spot_on_map(obj_id,type,text)
--возможные типы type смотри в ui\map_spots.xml
if obj_id then
if text==nil then text=" " end
-- Ставим метку на серверный объект чтобы её не пришлось обновлять
level.map_add_object_spot_ser(obj_id, type, text)
end
end

function remove_spot_from_map(obj_id,type)
if obj_id and level.map_has_object_spot(obj_id, type)~= 0 then
level.map_remove_object_spot(obj_id, type)
end
end

function parse_stalker_packet(ret,stpk,updpk,size)
parse_human_packet(ret,stpk,updpk)
parse_skeleton_packet(ret,stpk,updpk)
ret.hellodlg=updpk:r_stringZ()
ret.stunk1={}
for i=stpk:r_tell(),size-1,1 do
table.insert(ret.stunk1,stpk:r_u8())
end
return ret
end

function parse_se_monster_packet(ret,stpk,updpk,size)
parse_monster_packet(ret,stpk,updpk,size)
parse_skeleton_packet(ret,stpk,updpk,size)
ret.spec_obj_id=stpk:r_u16()
ret.job_online=stpk:r_u8()
if ret.job_online>3 then
ret.state=true
ret.job_online=ret.job_online-4
else
ret.state=false
end
if ret.job_online==3 then
ret.job_online_condlist=stpk:r_stringZ()
end
ret.was_in_smtr=stpk:r_u8()
ret.stunk1={}
for i=stpk:r_tell(),size-1,1 do
table.insert(ret.stunk1,stpk:r_u8())
end
return ret
end

function on_actor_upade(delta)
for k,v in pairs(convert_npc) do
local obj=level.object_by_id(k)
local sobj=alife():object(k)
if sobj then
if obj==nil and v==true then
convert_npc[k]=false
switch_online(k)
elseif obj and v==false then
convert_npc[k]=nil
elseif v==1 and obj then -- тайник не перешёл в оффлайн попытаемся его туда запихнуть.
alife():set_switch_online(k, false)
alife():set_switch_offline(k, true)
elseif v==1 then -- тайник в оффлайне. выталкиваем.
convert_npc[k]=nil
switch_online(k)
else
-- convert_npc[k]=nil
end
else
convert_npc[k]=nil
end
end
end

function fill_stalker_packet(ret,stpk,updpk)
fill_human_packet(ret,stpk,updpk)
fill_skeleton_packet(ret,stpk,updpk)
updpk:w_stringZ(ret.hellodlg)
for i,v in ipairs(ret.stunk1) do
stpk:w_u8(v)
end
end

function fill_se_monster_packet(ret,stpk,updpk)
fill_monster_packet(ret,stpk,updpk)
fill_skeleton_packet(ret,stpk,updpk)
stpk:w_u16(ret.spec_obj_id)
local st=0
if ret.state then
st=4
end
stpk:w_u8(ret.job_online+st)
if ret.job_online==3 then
stpk:w_stringZ(ret.job_online_condlist)
end
stpk:w_u8(ret.was_in_smtr)
for i,v in ipairs(ret.stunk1) do
stpk:w_u8(v)
end
end

function parse_human_packet(ret,stpk,updpk)
parse_trader_packet(ret,stpk,updpk)
parse_monster_packet(ret,stpk,updpk)
ret.huvu32u8u1=readvu32u8(stpk)
ret.huvu32u8u2=readvu32u8(stpk)
return ret
end

function parse_trader_packet(ret,stpk,updpk)
ret.money=stpk:r_s32()
ret.profile=stpk:r_stringZ()
ret.infammo=stpk:r_s32()
ret.class=stpk:r_stringZ()
ret.communityid=stpk:r_s32()
ret.rank=stpk:r_s32()
ret.reputation=stpk:r_s32()
ret.charname=stpk:r_stringZ()
return ret
end

function parse_monster_packet(ret,stpk,updpk)
parse_creature_packet(ret,stpk,updpk)
ret.baseoutr=stpk:r_stringZ()
ret.baseinr=stpk:r_stringZ()
ret.smtrid=stpk:r_u16()
ret.smtrtaskactive=stpk:r_u8()

ret.updu16u1=updpk:r_u16()
ret.updu16u2=updpk:r_u16()
ret.upds32u3=updpk:r_s32()
ret.upds32u4=updpk:r_s32()
return ret
end

function parse_creature_packet(ret,stpk,updpk)
parse_dynamic_object_visual(ret,stpk,updpk)
ret.team=stpk:r_u8()
ret.squad=stpk:r_u8()
ret.group=stpk:r_u8()
ret.health=stpk:r_float()
ret.crvu32u16u1=readvu32u16(stpk)
ret.crvu32u16u2=readvu32u16(stpk)
ret.killerid=stpk:r_u16()
ret.game_death_time=readvu8u8(stpk)

ret.updhealth=updpk:r_float()
ret.upds32u1=updpk:r_s32()
ret.updu8u2=updpk:r_u8()
ret.updpos={} -- или поставить вектор? ладно потом
ret.updpos.x=updpk:r_float()
ret.updpos.y=updpk:r_float()
ret.updpos.z=updpk:r_float()
ret.updmodel=updpk:r_float()
ret.upddir={}
ret.upddir.x=updpk:r_float()
ret.upddir.y=updpk:r_float()
ret.upddir.z=updpk:r_float()
ret.updteam=updpk:r_u8()
ret.updsquad=updpk:r_u8()
ret.updgroup=updpk:r_u8()
return ret
end

function parse_dynamic_object_visual(ret,stpk,updpk)
parse_object_packet(ret,stpk,updpk)
parse_visual_packet(ret,stpk,updpk)
return ret
end

function parse_object_packet(ret,stpk,updpk)
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,updpk)
ret.visual=stpk:r_stringZ()
ret.vsu8u1=stpk:r_u8()
return ret
end

function parse_skeleton_packet(ret,stpk,updpk)
ret.skeleton=stpk:r_stringZ()
ret.skeleton_flags=stpk:r_u8()
ret.source_id=stpk:r_u16()

-- ret.updsku8u1=updpk:r_u8()
return ret
end

function fill_human_packet(ret,stpk,updpk)
fill_trader_packet(ret,stpk,updpk)
fill_monster_packet(ret,stpk,updpk)
writevu32u8(stpk,ret.huvu32u8u1)
writevu32u8(stpk,ret.huvu32u8u2)
end

function fill_skeleton_packet(ret,stpk,updpk)
stpk:w_stringZ(ret.skeleton)
stpk:w_u8(ret.skeleton_flags)
stpk:w_u16(ret.source_id)

-- updpk:w_u8(ret.updsku8u1)
end

function fill_monster_packet(ret,stpk,updpk)
fill_creature_packet(ret,stpk,updpk)
stpk:w_stringZ(ret.baseoutr)
stpk:w_stringZ(ret.baseinr)
stpk:w_u16(ret.smtrid)
stpk:w_u8(ret.smtrtaskactive)

updpk:w_u16(ret.updu16u1)
updpk:w_u16(ret.updu16u2)
updpk:w_s32(ret.upds32u3)
updpk:w_s32(ret.upds32u4)
end

function fill_trader_packet(ret,stpk,updpk)
stpk:w_s32(ret.money)
stpk:w_stringZ(ret.profile)
stpk:w_s32(ret.infammo)
stpk:w_stringZ(ret.class)
stpk:w_s32(ret.communityid)
stpk:w_s32(ret.rank)
stpk:w_s32(ret.reputation)
stpk:w_stringZ(ret.charname)
end

function fill_creature_packet(ret,stpk,updpk)
fill_dynamic_object_visual(ret,stpk,updpk)
stpk:w_u8(ret.team)
stpk:w_u8(ret.squad)
stpk:w_u8(ret.group)
stpk:w_float(ret.health)
writevu32u16(stpk,ret.crvu32u16u1)
writevu32u16(stpk,ret.crvu32u16u2)
stpk:w_u16(ret.killerid)
writevu8u8(stpk,ret.game_death_time)

updpk:w_float(ret.updhealth)
updpk:w_s32(ret.upds32u1)
updpk:w_u8(ret.updu8u2)
updpk:w_float(ret.updpos.x)
updpk:w_float(ret.updpos.y)
updpk:w_float(ret.updpos.z)
updpk:w_float(ret.updmodel)
updpk:w_float(ret.upddir.x)
updpk:w_float(ret.upddir.y)
updpk:w_float(ret.upddir.z)
updpk:w_u8(ret.updteam)
updpk:w_u8(ret.updsquad)
updpk:w_u8(ret.updgroup)
end

function fill_dynamic_object_visual(ret,stpk,updpk)
fill_object_packet(ret,stpk,updpk)
fill_visual_packet(ret,stpk,updpk)
end

function readvu32u8(packet)
local v={}
local len=packet:r_s32()
for i=1,len,1 do
table.insert(v,packet:r_u8())
end
return v
end

function readvu8u8(packet)
local v={}
local len=8
for i=1,len,1 do
table.insert(v,packet:r_u8())
end
return v
end

function readvu32u16(packet)
local v={}
local len=packet:r_s32()
for i=1,len,1 do
table.insert(v,packet:r_u16())
end
return v
end

function writevu32u8(pk,v)
local len=table.getn(v)
pk:w_s32(len)
for i=1,len,1 do
pk:w_u8(v[i])
end
end

function writevu8u8(pk,v)
local len=8 --table.getn(v)
--pk:w_u8(len)
for i=1,len,1 do
pk:w_u8(v[i])
end
end

function writevu32u16(pk,v)
local len=table.getn(v)
pk:w_s32(len)
for i=1,len,1 do
pk:w_u16(v[i])
end
end

function fill_object_packet(ret,stpk,updpk)
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,updpk)
stpk:w_stringZ(ret.visual)
stpk:w_u8(ret.vsu8u1)
end