--*********************************************
--**TESTING**
--*********************************************
--
-- Создает в заданном месте калаш
function ak_create()
   local a = vector() -- db.actor:position()
   a.x = -220.21
   a.y = -19.93
   a.z = -158.98
   alife():create("wpn_ak47",a,33447,47,65535)
end

--*********************************************
--**TESTING**
--*********************************************
--
-- Создает в заданном месте калаш
function ak_create()
   local a = vector() -- db.actor:position()
   a.x = -220.21
   a.y = -19.93
   a.z = -158.98
   alife():create("wpn_ak47",a,33447,47,65535)
end

for id=1,65535 do
local obj = level.object_by_id(id)
if obj~= nil then
if IsMonster(obj) then
return true
else
return false
end
end
end

local a = vector()
   a.x = -220.21
   a.y = -19.93
   a.z = -158.98
   alife():create("wpn_ak47",a,33447,47,65535)
end

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

local mutants = {
"zombie_ghost_hell",
"zombie_normal_hell",
"zombie_immortal_hell",
"bloodsucker_weak_hell",
"tushkano_normal_hell",
"snork_weak_hell",
"burer_weak_hell",
"cat_weak_hell",
"chimera_weak_hell",
"gigant_strong_hell"
}

function random_spawn()
local count = math.random(5,20) --выбираем кол-во заспавненых мобов
local section = mutants[math.random(table.getn(mutants))] -- выбираем секцию моба
local lv = math.random(level_vertexes[level.name()]["lvid"]) --выбираем левел вертекс
local gv = level_vertexes[level.name()]["gvid"] --выбираем гэйм вертекс
for ind = 1, count do
alife():create(section, level.vertex_position(lv), lv, gv)--\\level.vertex_position(lv) - позиция левел вертекса
end
end

function new_group(actor, npc)
if npc:character_community() ~= "(dolg)" then
npc:set_character_community("dolg", 0, 0)
end
end

function ваше_название_функции() local armor = db.actor:item_in_slot(6) --слот брони (НЕ ТРОГАТЬ!) local weapon = db.actor:item_in_slot(2) --слот оружия (для пистолетов в оригинале слот 1)
if db.actor:active_slot()==2 and weapon then -- за место 2 пишем слот оружия еще раз local tmp if armor then tmp = armor:section() else tmp = "none" end
if (not string.find(tmp, "пишем_название_брони" )) and (weapon:section()=="пишем_название_оружия1" or weapon:section()=="пишем_название_оружия2" or weapon:section()=="пишем_название_оружия3") then --если необходима проверка одного оружия то надо писать так: if (not string.find(tmp, "exo" )) and weapon:section()=="wpn_pkm" then
db.actor:drop_item(weapon)
local tmpw = amk.spawn_item_in_inv(weapon:section())
db.actor:transfer_item(weapon,db.actor)
alife():release(tmpw)
news_manager.send_tip(db.actor,"Невозможно взять пулемёт в руки без экзы",nil,nil,10000)
end
end

function actor_binder:update(delta)

function actor_binder:update(delta)
my_script.check_armor()

function name_function()
local se_obj = alife():object("сюда_пишем_что_удалять_будем")
if se_obj then
alife():release(se_obj, true)
end
end

function dell_kluk_final()
local se_obj = alife():object("final_kluk")
if se_obj then
alife():release(se_obj, true)
end
end

function название функции() local obj = alife():create("ВЕЩЬ", db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id(), db.actor:id()) end

function Название функции()
   if db.actor:object("название предмета") then
       return true
   end
   return false
end

function название функции(first_speaker, second_speaker)
   return first_speaker:object("название предмета") ~= nil
end

function название функции(first_speaker, second_speaker)
   return first_speaker:money() >= 2000
end

function название функции() return db.actor:money()>=10000 end в диалог
<precondition>имя скрипта.название функции</precondition>
СПАВН ПРЕДМЕТА function spawn_vintar() alife():create("Название предмета",vector():set(24.725412368774,-3.6072344779968,173.83030700684),993926,210) end

function название функции(npc, actor)
   npc:kill(actor)
end

function название функции(first_speaker, second_speaker)
       local item_sections = {"Предмет"}
       local needed = количество одинаковых предметов, ставится цифра без знаков
       local count = 0
       local item_section
   local function calc(temp, item)
       if item:section() == item_section then
       count = count + 1
end end
   for k,v in pairs(item_sections) do
   item_section = v
   get_story_object("actor"):iterate_inventory(calc, actor)
end
   return count >= needed
end

function название функции(first_speaker, second_speaker)
   dialogs.relocate_money_to_actor(first_speaker, second_speaker, 2000)
end

function название функции(actor, npc)
  dialogs.relocate_money(npc,кол-во,"out")   
end

function название скрипта(actor, npc)
   npc:force_set_goodwill(-5000, actor)
end

function название функции проверки(actor,npc)
  return has_alife_info("инфо смерти")
end