--собственно спавн
function spawn_anom_vis(section,position,lvid,gvid)
  local sobj = alife():create(section,position,lvid,gvid)
  repack_visual_zone(sobj) --выбираем 1 из 2 вариантов ниже
end

--это для аномалий типа жгучий пух, с уточнением зоны срабатывания
function repack_visual_zone(sobj)
  if sobj == nil then return sobj end
  local data = read_zone_visual_params(sobj)
  data.shapes[1]={}
  data.shapes[1].shtype=1
  data.shapes[1].v1 = vector():set(1.70797920227051,0,0.0645924285054207)
  data.shapes[1].v2 = vector():set(0,9.54259395599365,0)
  data.shapes[1].v3 = vector():set(-0.0645924285054207,0,1.70797920227051)
  data.shapes[1].offset = vector():set(-0.119056679308414,-2.79967045783997,-0.000208642595680431)
  data.max_power = 1
  data.idle_animation = "idle"
  data.attack_animation = "idle" --у некоторых может быть "blast"
  write_zone_visual_params(data, sobj)
  return sobj
end

--для сферических аномалий
function repack_visual_zone(sobj)
  if sobj == nil then return sobj end
  local data = read_zone_visual_params(sobj)
  data.shapes[1]={}
  data.shapes[1].shtype=0
  data.shapes[1].center = vector():set(0,0,0)
  data.shapes[1].radius = 2
  data.max_power = 1
  data.idle_animation = "idle"
  data.attack_animation = "blast" --у некоторых может не быть "blast", тогда ставим "idle"
  write_zone_visual_params(data, sobj)
  return sobj
end

function parse_shape_packet(t,stpk,uppk)
    local shape_count = stpk:r_u8()
    t.shapes={}
    for i=1,shape_count do
        local shape_type = stpk:r_u8()
        t.shapes[i]={}
        t.shapes[i].shtype=shape_type
        if shape_type == 0 then
            -- sphere
            t.shapes[i].center = stpk:r_vec3()
            t.shapes[i].radius = stpk:r_float()
        else
            -- box
            t.shapes[i].v1 = stpk:r_vec3()
            t.shapes[i].v2 = stpk:r_vec3()
            t.shapes[i].v3 = stpk:r_vec3()
            t.shapes[i].offset = stpk:r_vec3()
        end
    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_shape_packet(t,stpk,updpk)
    stpk:w_u8(table.getn(t.shapes))
    for i=1,table.getn(t.shapes) do
        stpk:w_u8(t.shapes[i].shtype)
        if t.shapes[i].shtype == 0 then
            stpk:w_vec3(t.shapes[i].center)
            stpk:w_float(t.shapes[i].radius)
        else
            stpk:w_vec3(t.shapes[i].v1)
            stpk:w_vec3(t.shapes[i].v2)
            stpk:w_vec3(t.shapes[i].v3)
            stpk:w_vec3(t.shapes[i].offset)
        end  
    end
end

function fill_visual_packet(ret,stpk,updpk)
    stpk:w_stringZ(ret.visual)
    stpk:w_u8(ret.vsu8u1)
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 read_zone_visual_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
    stpk:w_begin(0)
    uppk:w_begin(0)
    sobj:STATE_Write(stpk)
    sobj:UPDATE_Write(uppk)
    local size=stpk:w_tell()
    local size1=uppk:w_tell()
    stpk:r_seek(2)
    uppk:r_seek(2)
    local t={}
    parse_object_packet(t,stpk,uppk,size)
    parse_shape_packet(t,stpk,uppk,size)
    t.restrictor_type = stpk:r_u8()
    t.max_power = stpk:r_float()
    t.owner_id = stpk:r_s32()
    t.enabled_time = stpk:r_s32()
    t.disabled_time = stpk:r_s32()
    t.start_time_shift = stpk:r_s32()
    t.effective_radius = stpk:r_float()
    t.offline_interactive_radius = stpk:r_float()
    t.artefact_spawn_count = stpk:r_u16()
    t.artefact_position_offset = stpk:r_s32()
    parse_visual_packet(t,stpk,uppk)
    t.idle_animation = stpk:r_stringZ()
    t.attack_animation = stpk:r_stringZ()
    return t
end

function write_zone_visual_params(t,sobj)
    local stpk=net_packet()
    local uppk=net_packet()
    stpk:w_begin(0)
    uppk:w_begin(0)
    fill_object_packet(t,stpk,uppk)
    fill_shape_packet(t,stpk,uppk)
    stpk:w_u8(t.restrictor_type)
    stpk:w_float(t.max_power)
    stpk:w_s32(t.owner_id)
    stpk:w_s32(t.enabled_time)
    stpk:w_s32(t.disabled_time)
    stpk:w_s32(t.start_time_shift)
    stpk:w_float(t.effective_radius)
    stpk:w_float(t.offline_interactive_radius)
    stpk:w_u16(t.artefact_spawn_count)
    stpk:w_s32(t.artefact_position_offset)
    fill_visual_packet(t,stpk,uppk)
    stpk:w_stringZ(t.idle_animation)
    stpk:w_stringZ(t.attack_animation)
    local size=stpk:w_tell()
    local size1=uppk:w_tell()
    stpk:r_seek(2)
    uppk:r_seek(2)
    sobj:STATE_Read(stpk,size)
    sobj:UPDATE_Read(uppk)
end