local fr_prob={
       {
           position={x=61.039547,y=0.723375,z=220.970230},
           gv=360,
           lv=233087
           },
       {
           position={x=27.548447,y=0.445163,z=234.682190},
           gv=359,
           lv=200767
           },
       {
           position={x=34.454678,y=-0.485814,z=205.007660},
           gv=359,
           lv=208283
           }
         
}

function sp_rand()
       local a = fr_prob[math.random(table.getn(fr_prob))]
       local obj = alife():create("scientific_outfit", vector():set(a.position.x,a.position.y,a.position.z), a.lv, a.gv)
end

local variables = {1,2,3}
    function spawn()
    local w = variables[math.random(table.getn(variables))]
    if w == 1 then
    alife():create("agr_stalker_regular", vector():set(-62.27,-3.97,-71.70),213851,74) end
    if w == 2 then
    alife():create("agr_soldier_regular", vector():set(-90.90,-4.74,-80.11),172928,75) end
    if w == 3 then
    alife():create("agr_bandit_respawn_1", vector():set(-62.27,-3.97,-71.70),213851,74)
    end
    end

function pust_info()
news_manager.send_tip(db.actor, "%c[255,0,255,0]".."Автор сообщения:".."\\n".."%c[255,255,255,0] Текст сообщения.".."".."\n", nil, nil, 30000)
end    

function actor_set_monolith(actor, npc)
    printf("ACTOR NOW IN [MONOLITH] COMMUNITY")
    if db.actor then
     db.actor:set_character_community("monolith", 0, 0)
    end
    return true
end    

function del_pusto()
local sim = alife()
local se_obj = sim:story_object(888)  --номер обьекта в game_stori_ids
if se_obj then
sim:release(se_obj, true)
end
end

function del_tele_dva()
for a=10,65634,1 do
local obj=alife():object(a)
if obj and string.find(obj:name(),"fan_tel") then          ---имя секции обьекта
alife():release(obj,true)
end
end
end

function pusto_vrag_enemy(actor, npc)
    local dar_stukatch = level_object_by_sid(888)   --номер обьекта в game_stori_ids

    if dar_stukatch then
     dar_stukatch:set_relation(game_object.enemy, actor)
    end
end    

function bar_nps_enemy(first_speaker, second_speaker)
       second_speaker:set_relation(game_object.enemy, first_speaker)
end

function set_drug(actor, npc)
    local dar_stukatch = level_object_by_sid(888)

    if dar_stukatch then
     dar_stukatch:set_relation(game_object.friend, actor)
    end
end    

function zvuk_info()    
    db.actor:disable_info_portion("zvuk")      --удаляем выданный инфопоршень--
end

function tester()
local obj= alife():create("имя_секции_нпс",vector():set(-38.981,-17.916,355.841),273797,1816)
obj:on_death()
end

function give_sidor_docs(first_speaker, second_speaker)
       dialogs.relocate_item_section(second_speaker, "ПРЕДМЕТ", "out")
end

function give_nagrada_x14 (trader, actor)
       dialogs.relocate_item_section(trader, "ПРЕДМЕТ", "in")
end

--=========Функции-"much"-1 ======--
local items_count=0
local itemin=nil
function item_much(itm,need_namber)
local actor=db.actor
items_count=0
itemin=itm
actor:iterate_inventory(cheking_item,actor)
     if items_count>=need_namber then
      return true
     else
      return false
     end
end     
function cheking_item(actor,item)
local items=item:section()
     if items==itemin then
      items_count=items_count+1
     end
end
function create_items(npc,section,number)
            for i=1,number do
       alife():create(section,     
                npc:position(),
                npc:level_vertex_id(),      
                npc:game_vertex_id(),
                npc:id())
            end     
end

local reloc_params={}
local stalk
function out_item_much(itm_section,need_number)
     reloc_params.itm_section=itm_section
     reloc_params.itm_cnt=need_number
     reloc_params.itm_cnt_found=0
     db.actor:iterate_inventory(checkout_items_count,db.actor)
     reloc_params.itm_cnt_found=0
     if reloc_params.itm_cnt_found<=reloc_params.itm_cnt then
      db.actor:iterate_inventory(out_items_count,db.actor)
     end
     news_manager.relocate_item(db.actor, "out", itm_section)
     reloc_params={}
end
function checkout_items_count(actor,item)
     if item.section and item:section()==reloc_params.itm_section then
      reloc_params.itm_cnt_found = reloc_params.itm_cnt_found + 1
     end
end
function out_items_count(actor,item)
     if item.section and item:section()==reloc_params.itm_section and reloc_params.itm_cnt_found<reloc_params.itm_cnt then
      ваш_скрипт.remove_item_from_inventory(item, actor)
      reloc_params.itm_cnt_found = reloc_params.itm_cnt_found + 1
     end
end

function have_akkum()
return     
твой_скрипт.item_much("ammo_gauss",2) ~= false
end

function ваша_функция()
return
ваш_скрипт.item_much("conserva",10) ~= false and
ваш_скрипт.item_much("kolbasa",5) ~= false and
ваш_скрипт.item_much("bread",5) ~= false
end
Проверка на количество разных предметов

function ваша_функция(second_speaker, first_speaker)
ваш_скрипт.out_item_much("conserva",10)
ваш_скрипт.out_item_much("kolbasa",5)
ваш_скрипт.out_item_much("bread",5)
end

local all_text = {

     a = {
   
      msg_1 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_2 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_3 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      ......
      msg_10 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n"
      },

      b = {
   
      msg_1 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_2 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_3 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      ......
      msg_10 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n"
      },

      .....

      d = {
   
      msg_1 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_2 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      msg_3 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n",
      ......
      msg_10 = "%c[10,241,129,129]".."Заголовок:".."\\n".."%c[10,241,129,129]Сообщение....".."\n"
      }

}

function text() return all_text end

local txt = all_txt["text"]()

function pod_war_1()
     news_manager.send_tip(db.actor, txt.a.msg_1, nil, nil, 30000)
end

function zvuk()
      local snd_obj = xr_sound.get_safe_sound_object([[путь к звуковому файлу]])
      snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
end

function zvuk()
local snd_obj = xr_sound.get_safe_sound_object([[путь к звуковому файлу]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
local snd_obj = xr_sound.get_safe_sound_object([[путь к звуковому файлу]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
end

function remove_obj(name)
local obj
       for a=1,65535 do
          obj = alife():object(a)
            if obj and string.find(obj:name(),name) then
               alife():release(obj, true)
            end
       end
end

function remove_freaks()
local tbl_remove = { "bloodsucker_1", "bloodsucker_2"}
       for _, v in pairs (tbl_remove) do
         remove_obj(v)
       end
end