function disable_anomaly();
function enable_anomaly();

--'-----------------------------------------------------------------------------
--'           ANOMALY HOLDER (RED75)
--'-----------------------------------------------------------------------------
anomaly_beside={}

function add_anomaly(id,position,radius)
   anomaly_beside[id]={pos=position,rad=radius}
end

function remove_anomaly(id)
   if anomaly_beside[id] then
  anomaly_beside[id]=nil
   end
end

local excluded_npcs={
--zaton
"zat_b14_stalker_1_name",
"zat_b18_noah_name",
"zat_b38_stalker_cop_name",
"zat_b53_artefact_hunter_1_name",
"zat_b53_artefact_hunter_2_name",
--jupiter
"jup_a12_stalker_prisoner",
"jup_b4_monolith_squad_leader_name",
"jup_b19_freedom_yar_name",
"jup_b217_stalker_tech",
--pripyat
"pri_b305_strelok_name",
}

function excluded(npc)
   for i=1,#excluded_npcs do
     if string.find(excluded_npcs[i],npc:name()) or string.find(npc:character_name(),GetString(excluded_npcs[i])) then
       return true
     end
   end
   return false
end

function get_nearest_anomaly(npc,dirp)
   if db.actor:has_info("jup_b6_anom_1") or db.actor:has_info("jup_b6_anom_2") then return false end
   if excluded(npc) then return false end
   local posnpc=npc:position()
   local anomid=nil
   local mindist=50
   local pos1=nil
   local anomdesc={}
   local dir
   if dirp then
     dir=dirp
   else
     dir=npc:direction()
   end
   for obj_id,o in pairs(anomaly_beside) do
     local obj=level.object_by_id(obj_id)
  if obj then
    if not o.rad then
         o.rad=4.5
       end
    if not o.pos or o.pos==0 then
         o.pos=obj:position()
       end
       local dist=posnpc:distance_to(o.pos)-o.rad
       if dist<mindist then
         local delta=vector():set(o.pos):sub(posnpc)
         local scalarmul=(delta.x*dir.x+delta.z*dir.z)/math.sqrt(delta.x*delta.x+delta.z*delta.z)
      -- если скалярное произведения текущего направления движения NPC
   -- и относительного радиус вектора аномалии меньше 0, то NPC удаляется от аномалии
         if scalarmul>-0.4 then
           mindist=dist
           anomid=obj_id
           pos1=o.pos
           anomdesc=o
   end
       end
    if dist+o.rad<o.rad*0.75 then
      local npc_id=npc:id()
         local snpc=alife():object(npc_id)
         if snpc and not snpc.ripper_start then
           snpc.ripper_start=true
           snpc.reason=obj_id
           alife():create("bolt",vector():set(o.pos.x,o.pos.y+1,o.pos.z),obj:level_vertex_id(),obj:game_vertex_id())
           local wpn=npc:active_item()
           if wpn then
             wpn_id=wpn:id()
           else
             wpn_id=65535
           end
           if wpn_id~=65535 then
             local str=wpn_id.."_"..obj_id
             ars_cop.start_timer("init_remove"..str,0.5,str)
           end
           local sect=obj:section()
           if string.find(sect,"gravi") then
             local ini=system_ini()
             local time_cum=utils.cfg_get_number(ini,sect,"accamulate_time",false,false,4000)
             ars_cop.start_timer("body_ripper"..npc_id,time_cum/1000+1, npc_id)
           end
           local h=hit()
           h.type=hit.explosion
           h:bone("pelvis")
           h.power=15
           h.impulse=750
           h.draftsman=npc
           h.direction=npc:position():sub(o.pos)
           npc:hit(h)
     drop_outfits.advanced_hit(npc_id,2)
         end
    end
     end
   end
   if anomid then
     return true,anomid,pos1,mindist+anomdesc.rad,anomdesc.rad
   else
     return false
   end
end

--'-----------------------------------------------------------------------------
--'           DEAD BODY RIPPER
--'-----------------------------------------------------------------------------
local dead_particle1=particles_object("anomaly2\\body_tear_00")
local dead_particle2=particles_object("anomaly2\\gravi_anomaly_shield_00")
local dead_sound=sound_object([[anomaly\anomaly_body_tear_1]])
function dead_body_ripper_particles(npc_id)
   local npc=level.object_by_id(npc_id)
   if npc then
     local npc_pos=npc:position()
     dead_particle1:play_at_pos(npc_pos)
     dead_particle2:play_at_pos(npc_pos)
     dead_sound:play_at_pos(npc,npc_pos,0.5)
     ars_cop.start_timer("body_remove"..npc_id,0,npc_id)
   end
end

function dead_body_ripper_body_remove(id)
   local snpc=alife():object(tonumber(id))
   if snpc then
     alife():release(snpc,true)
   end
end

function dead_body_ripper_init_remove(str)
   str=xr_s.str_explode("_",str)
   local wpn=level.object_by_id(tonumber(str[1]))
   local obj=level.object_by_id(tonumber(str[2]))
   if wpn and isWeapon(wpn) and obj then
     local wpn_dir=vector_rotate_y(obj:position():sub(wpn:position()),math.random(60,120))
     wpn_dir:normalize()
     local ps=wpn:get_physics_shell()
     if ps then
       ps:apply_force(40000*wpn_dir.x,40000*wpn_dir.y,40000*wpn_dir.z)
     end
   end
end