function get_story_id_not_replay()
local ST
ST = xr_logic.pstor_retrieve(db.actor, "ScriptAnomId", 0)
if type(ST) ~= "number" or ST == nil then
ST = 9000
xr_logic.pstor_store(db.actor, "ScriptAnomId", ST)
end
if type(ST) == "number" or ST ~= nil then
ST = ST + 1
xr_logic.pstor_store(db.actor, "ScriptAnomId", ST)
end
return tonumber(ST)
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()

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 packet:r_elapsed() ~= 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(get_story_id_not_replay())
packet:w_u32(get_story_id_not_replay())

-- 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

-----------------------------------спавним аномалии-----------------------------------

function spawn_anom_zarka()
this.create_anom('zone_gravi_zone', db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(), 15, 2) -- (), радиус, сила) +zone_gravi_zone +zone_mincer
news_manager.send_tip(db.actor, "%c[255,0,255,0]ЗДОРОВЬЕ\\n%c[default]ПАДАЕТ.", 0, "trader", 7000)
end  

[dog_povodyr2_walk]
points = p0,p1,p2,p3,p4
p0:name = wp00
p0:position = 81.306999206543,2.71499991416931,47.4300003051758
p0:game_vertex_id = 3004
p0:level_vertex_id = 1323958
p0:links = p1(1)

p1:name = wp01
p1:position = -28.4349994659424,4.82299995422363,62.0069999694824
p1:game_vertex_id = 2999
p1:level_vertex_id = 1082096
p1:links = p2(1)

p2:name = wp02
p2:position = -83.9209976196289,4.52400016784668,43.5800018310547
p2:game_vertex_id = 2999
p2:level_vertex_id = 962213
p2:links = p3(1)

p3:name = wp03
p3:position = -110.407997131348,4.72300004959106,-41.5629997253418
p3:game_vertex_id = 2999
p3:level_vertex_id = 904974
p3:links = p4(1)

p4:name = wp04|sig=mestod
p4:flags = 0x1
p4:position = -34.6300010681152,2.18499994277954,-251.02799987793
p4:game_vertex_id = 3000
p4:level_vertex_id = 1069462

[/code][smart_terrains]  
  none = true  

    
  [logic]active = mob_home@bloodsucker_albinoss  
  on_death = mob_death@bloodsucker_albinoss  
  on_hit = hit@bloodsucker_albinoss  

  [mob_home@bloodsucker_albinoss]  
  path_home = bloodsucker_popalsya  
  home_min_radius = 75  
  home_max_radius = 100  
  aggressive_home  
  state = vis  

  [mob_combat@bloodsucker_albinoss]  
  on_timer = 60000 | mob_home@bloodsucker_albinoss  

  [mob_death@bloodsucker_albinoss]  
  on_info = %+oxota_minus%  

  [hit@bloodsucker_albinoss]  
  on_info = {=hit_by_actor_mosin} mob_camp@bloodsucker_popalsya6 %+oxota_plus%  

  [mob_camp@bloodsucker_popalsya6]  
  path_home = bloodsucker_popalsya7  
  path_look = bloodsucker_popalsya6  
  friendly = true  
  on_timer = 1500 | mob_walker@bloodsucker_popalsya7  

  [mob_walker@bloodsucker_popalsya7]  
  path_walk = bloodsucker_popalsya7  
  path_look = bloodsucker_popalsya8  
  friendly = true  
  on_signal = mestod | mob_camp@bloodsucker_popalsya8

  [mob_camp@bloodsucker_popalsya8]  
  path_home = bloodsucker_popalsya7  
  path_look = bloodsucker_popalsya6  
  home_min_radius = 0  
  home_max_radius = 1  
  friendly = true  
  on_timer = 45000 | %+oxota_mesto%[code]

[/code][smart_terrains]
none = true

[logic]active = mob_home@bloodsucker_albinoss  
on_death = mob_death@bloodsucker_albinoss  
on_hit = hit@bloodsucker_albinoss  

[mob_home@bloodsucker_albinoss]
path_home = bloodsucker_popalsya
home_min_radius = 75
home_max_radius = 100
aggressive_home
state = vis

[mob_combat@bloodsucker_albinoss]
on_timer = 60000 | mob_home@bloodsucker_albinoss

[mob_death@bloodsucker_albinoss]
on_info = %+oxota_minus%

[hit@bloodsucker_albinoss]
on_info = {=hit_by_actor_mosin} mob_camp@bloodsucker_popalsya6 %+oxota_plus%  

[mob_camp@bloodsucker_popalsya6]
path_home = bloodsucker_popalsya7  
path_look = bloodsucker_popalsya8
friendly = true  
on_timer = 1500 | mob_camp@bloodsucker_popalsya7

[mob_camp@bloodsucker_popalsya7]
path_home = bloodsucker_popalsya7
path_look = bloodsucker_popalsya6  
home_min_radius = 0
home_max_radius = 1
friendly = true
on_timer = 45000 | %+oxota_mesto%[code]