local anomal = {   
"zone_zharka_static",   
"zone_witches_galantine",   
"zone_mosquito_bald",   
"zone_mincer",   
"zone_gravi_zone",   
"zone_buzz"   
}   

local level_vertexes={   
l01_escape = {lvid=595580, gvid=44}   
l02_garbage = {lvid=384039, gvid=265},   
l03_agroprom = {lvid=438379, gvid=693},   
l04_darkvalley = {lvid=392517, gvid=813},   
l06_rostok = {lvid=69283, gvid=1311},   
l07_military = {lvid=915663, gvid=1546},   
l10_radar = {lvid=796328, gvid=1868},   
l11_pripyat = {lvid=295965, gvid=2269}   
}   

function spawn_anom()   
local count = math.random(5,20) --выбираем кол-во заспавненых aномалий   
local section = anomal[math.random(table.getn(anomal))] -- выбираем аномалию   
local lv = math.random(level_vertexes[level.name()]["lvid"]) --выбираем левел вертекс   
local gv = level_vertexes[level.name()]["gvid"] --выбираем гэйм вертекс   
for ind = 1, count do   
this.create_anom(section, level.vertex_position(lv), lv, gv,3,1)   
end   
end   

function create_anom(name_anom, posit_anom, lvid_anom, gvid_anom, radius_anom, power_anom)   
local obj = alife():create(name_anom, posit_anom, lvid_anom, gvid_anom) 
-----------------------write----------------------   
local packet = net_packet()   
obj:STATE_Write(packet)   

-------------------------load---------------------   
-- cse_alife_object   
local game_vertex_id = packet:r_u16()   
local distance = packet:r_float()   
local direct_control = packet:r_u32()   
local level_vertex_id = packet:r_u32()   
local object_flags = packet:r_u32()   
local custom_data = packet:r_stringZ()   
local story_id = packet:r_u32()   
local spawn_story_id = packet:r_u32()   

-- cse_shape   
local shape_count = packet:r_u8()   
for i=1,shape_count do   
local shape_type = packet:r_u8()   
if shape_type == 0 then   
-- sphere   
local center = packet:r_vec3()   
local radius = packet:r_float()   
else   
-- box   
local box = packet:r_matrix()   
end   
end   

-- cse_alife_space_restrictor   
local restrictor_type = packet:r_u8()   

-- cse_alife_custom_zone   
local max_power = packet:r_float()   
local owner_id = packet:r_u32()   
local enabled_time = packet:r_u32()   
local disabled_time = packet:r_u32()   
local start_time_shift = packet:r_u32()   

-- cse_alife_anomalous_zone   
local offline_interactive_radius = packet:r_float()   
local artefact_spawn_count = packet:r_u16()   
local artefact_position_offset = packet:r_u32()   

-- se_zone_anom   
local last_spawn_time_present = packet:r_u8()   

local left = packet:r_elapsed()   
if (string.find (name_anom, 'zone_zharka_static') ~= nil   
or string.find (name_anom, 'zone_witches_galantine') ~= nil   
or string.find (name_anom, 'zone_mosquito_bald') ~= nil   
or string.find (name_anom, 'zone_mincer') ~= nil   
or string.find (name_anom, 'zone_gravi_zone') ~= nil   
or string.find (name_anom, 'zone_buzz') ~= nil )   
and left ~= 0 then   
abort("left=%d", left)   
end   

---------------------------save--------------------   
-- cse_alife_object   
packet:w_begin(game_vertex_id)   
packet:w_float(distance)   
packet:w_u32(direct_control)   
packet:w_u32(level_vertex_id)   
object_flags = bit_not(193)   
packet:w_u32(object_flags)   
packet:w_stringZ(custom_data)   
packet:w_u32(-1)   
packet:w_u32(spawn_story_id)   

-- cse_shape   
packet:w_u8(1) -- количество фигур   
packet:w_u8(0) -- тип фигуры: сфера   
packet:w_vec3(vector():set(0, 0, 0))   
if radius_anom ~= nil then   
packet:w_float(radius_anom)   
else   
packet:w_float(1.0)   
end   

-- cse_alife_space_restrictor   
packet:w_u8(restrictor_type)   

-- cse_alife_custom_zone   
if power_anom ~= nil then   
packet:w_float(power_anom)   
else   
packet:w_float(max_power)   
end   
packet:w_u32(owner_id)   
packet:w_u32(enabled_time)   
packet:w_u32(disabled_time)   
packet:w_u32(start_time_shift)   

-- cse_alife_anomalous_zone   
packet:w_float(offline_interactive_radius)   
packet:w_u16(artefact_spawn_count)   
packet:w_u32(artefact_position_offset)   

-- se_zone_anom   
packet:w_u8(last_spawn_time_present)   

------------------------read---------------------------   
packet:r_seek(0)   
obj:STATE_Read(packet, packet:w_tell())   

end