function название функции(first_speaker, second_speaker)
dialogs.relocate_item_section(second_speaker, "vodka", "in",2)
end

<action>названия_скрипта.название_функции</action>

function название функции(first_speaker, second_speaker)
dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka", "out",2)
end

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

function название_функции()
if db.actor:object("vodka") 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:object("название предмета") ~= nil or
first_speaker:object("название предмета") ~= nil or
first_speaker:object("название предмета") ~= nil
end

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

function название функции()
return db.actor:money()>=10000
end

function spawn_vintar()
alife():create("vodka",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

<action>dialogs.medic_magic_potion</action>

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

function название_функции()
local obj = alife():create(,2)
end

function gop_stop_actor(actor, npc)  
local actor = db.actor  
all_money_actor = actor:money()  
if actor and npc then  
dialogs.relocate_money(npc, all_money_actor, "out")
end  
end

function teleport_actor(actor, npc, p)  
local point = patrol(p[1])  
local look = patrol(p[2])

db.actor:set_actor_position(point:point(0))  
local dir = look:point(0):sub(point:point(0))  
db.actor:set_actor_direction(-dir:getH())  
end

db.actor:set_actor_position(patrol("t_walk_2"):point(0))

function название_функции(actor, npc)  
local actor = db.actor  
all_money_actor = actor:money()  
if actor and npc then  
dialogs.relocate_money(npc, Количество, "out")
end  
end

local idMyNPC = nil --/ тут будем хранить ID заспавненного непися!
function spawnych()
local soObj = alife():create("esc_kvest_killer1",vector():set(-232,-19,-115),22645,8)
if soObj then --/ перепроверка для безопасности
idMyNPC = soObj.id --/ запоминаем!!!
end
end

function Delete_ak74u_from_Actor()
local oItem = db.actor:object("предмет") --/ определяем предмет у ГГ
if oItem then --/ у ГГ есть предмет
db.actor:drop_item(oItem) --/ выбрасываем предмет (опционально)
alife():release(alife():object(oItem:id()), true) --/ удаляем из игры
end
end

function Release_3_Kalash()
local cnt = db.actor:object_count()
local ch=0
for i=0, cnt-1 do
local item = db.actor:object(i)
if item:section() == "предмет" then
local sobj = alife():object(item:id())
if sobj then
alife():release(sobj,true)
ch = ch+1
if ch ==кол-во_предметов then
break end
end
end
end
end

function npc_spawn() -- имя функции
local obj = alife():create("профильное_имя_нпс",vector():set(x,y,z),level_vertex,game_vertex) -- координаты
local tbl = amk.read_stalker_params(obj)
tbl.sid = 97120 -- ID - любое число, но оно не должно повторятся с уже существующими (см. файл: game_story_ids в конфигах)
amk.write_stalker_params(tbl, obj)
end

local obj = alife():create("esc_stalker_respawn_1",db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id())
local tbl = amk.read_stalker_params(obj)
tbl.health = 0.1
tbl.updhealth = 0.05
amk.write_stalker_params(tbl, obj)

function spawn_x14()  
alife():create("Секция",vector():set(-7.32,-34.48,13.18),1542,2799)  
end

<function_complete>файл.функция</function_complete>

function search_weapon_complete1(actor, npc)  
if db.actor ~= nil then  
if db.actor:object("Предмет") then  
db.actor:give_info_portion("Поршень")  
return true  
end  
end  
return false  
end

local t_wpn = {"Предмет1", "Предмет1", "Предмет1"}  
function search_ALL_weapons_complete()  
local gg = db.actor  
if gg then  
for i=1,#t_wpn do  
if not gg:object(t_wpn[i]) then  
return false  
end  
end  
gg:give_info_portion("Поршень")  
return true  
end  
return false  
end

function Actor_Has_ListItems(sSection,iNum)  
if not iNum then iNum = 1 end  
local oActor = db.actor  
local iCnt = 0  
if oActor and sSection then  
oActor:iterate_inventory(  
function (dummy, oItem)  
if oItem:section() == sSection then  
iCnt = iCnt + 1  
if iCnt >= iNum then  
return true --/> актор имеет N предметов  
end  
end  
end  
,nil)  
end  
return iCnt >= iNum --/> имеет ли актор N предметов  
end

function search_2_bumazhki_sidr_complete()  
return this.Actor_Has_ListItems("medkit", 10)  
end

function search_weapon_complete(actor, npc)  
if db.actor ~= nil then  
return db.actor:object("wpn_vintorez")~=nil  
end  
return false  
end

function punch()  
-- set_inactivate_input_time(30)  
local snd_obj = xr_sound.get_safe_sound_object([[affects\hit_fist]])  
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)  
level.add_cam_effector("camera_effects\fusker.anm", 999, false, "")  
end

function reputation_down_10(stalker, player)  
db.actor:change_character_reputation(db.actor:character_reputation() - 10)  
end

function reputation_up_10(stalker, player)  
db.actor:change_character_reputation(db.actor:character_reputation() + 10)  
end

function malo_hp()  
db.actor.health = -0.3 --Минус 30% дезек  
end

function Delete_2_bumazhki_sidora_from_Actor()  
local cnt = db.actor:object_count()  
local ch=0  
for i=0, cnt-1 do  
local item = db.actor:object(i)  
if item:section() == "medkit" then  
local sobj = alife():object(item:id())  
if sobj then  
alife():release(sobj,true)  
ch = ch+1  
if ch == 7 then --7 - кол-во удаляемых аптечек  
break end  
end  
end  
end  
end

function ReleaseRandomItem(num)  
local actor = db.actor  
local cnt = actor:object_count()  
if cnt<num then return end  
for i=1,num do  
local item = actor:object(math.random(0, cnt-1))  
local sobj = alife():object(item:id())  
if sobj then alife():release(sobj,true)  
cnt = actor:object_count()  
end  
end  
end

ReleaseRandomItem(5) -- 5 - число удаляемых предметов

function RRI()  
имя_файла.ReleaseRandomItem(5)  
end

<action>имя_файла.RRI</action>

function join_monolith (actor, npc) -- ставить на дельта апдейт  
printf ("ACTOR NOW IN имя группировки COMMUNITY")  
if db.actor and level_id.имя уровня then -- пример l01_escape и т.п  
db.actor:set_character_community ("имя группировки", 0, 0)  
end  
end

function test_index()  
local cnt = db.actor:object_count()  
for i=0, cnt-1 do  
local item = db.actor:object(i)  
local sobj = alife():object(item:id())  
if sobj then  
alife():release(sobj,true)  
end  
end  
end

local iTimer  
function Start_Timer_5_minutes() --/ (пере)запуск таймера (из диалога)  
iTimer = time_global() + 5*1000 --/ взводим таймер на 5cek  
end  

function Timer_N_minutes() --/ вызывается из ':update' сталкер-биндера  
if iTimer and iTimer < time_global() then --/ проверка текущего значения  
iTimer = nil --/ выключаем таймер  
скрипт.функция() --/ выполняем действие  
end  
end

local iTimer  
local last  
function start_timer_minutes_test(seconds)  
if last~= nil then  
iTimer = time_global()+last --/ взводим таймер на остаток времени last  
else  
iTimer = time_global() + 7*1000 --/ взводим таймер например 7 сек.  
end  
end  

function timer_n_minutes_test() --/ вызывается из ':update' сталкер-биндера  
if iTimer then  
last=iTimer-time_global() -- присваиваем переменной остаток времени до конца работы таймера  
if iTimer < time_global() then  
iTimer = nil --/ выключаем таймер  
last=nil  
Скрипт.Функция --/ выполняем действие  
end  
end  
end  

-- выводим значение таймера в обратном отсчете на худ  
function hud_static() --/ вызывается из ':update' сталкер-биндера  
local hud = get_hud()  
local st  
if iTimer then  
st = hud:GetCustomStatic("hud_timer")  
if st==nil then  
hud:AddCustomStatic("hud_timer", true)  
st = hud:GetCustomStatic("hud_timer")  
end  
if last~=nil then  
local hours = math.floor(last/3600000)  
local minutes = math.floor(last/60000 - hours*60)  
local seconds = math.floor(last/1000 - hours*3600 - minutes*60)  
local text = string.format("%02d:%02d:%02d",hours,minutes,seconds) -- выводим время в формате 00:00:00  
--local text=string.format("%.f",last/1000)  
st:wnd():SetTextST(text)  
end  
else  
if hud:GetCustomStatic("hud_timer")~=nil then  
hud:RemoveCustomStatic("hud_timer")  
end  
end  
end

if bone_index > 0 and who then  
if who:id() == db.actor:id() then --/ для актора  
local oActiveItem = db.actor:object("wpn_svd")  
if oActiveItem then --/ у актера проверяемое оружие  
local kuda = ""  
if bone_index == 14 or bone_index == 15 then  
kuda = "Ранен в глаз"  
elseif bone_index == 13 then  
kuda = "Ранен в голову"  
elseif bone_index == 16 then  
kuda = "Ранен в челюсть"  
elseif bone_index == 17 then  
kuda = "Ранен в шею"  
elseif bone_index == 9 or bone_index == 10 or bone_index == 11 or bone_index == 18 then  
kuda = "Ранен в грудь"  
elseif bone_index >= 1 and bone_index <= 8 then  
kuda = "Ранен в ногу"  
elseif bone_index >= 19 and bone_index <= 42 then  
kuda = "Ранен в руку"  
end  
news_manager.send_tip(db.actor, kuda, nil, nil, 2000)  
end  
end  
end

if self.st.hit then  
xr_logic.issue_event(self.object, self.st.hit, "hit_callback", obj, amount, local_direction, who, bone_index)  
end

function mochim_five_nps()  
if has_alife_info("первый_грохнут") and  
has_alife_info("второй_грохнут") and  
has_alife_info("третий_грохнут") and  
has_alife_info("четвертый_грохнут") and  
has_alife_info("и_пятый_наконец") then  
return true  
else  
return false  
end  
end

<infoportion_complete>esc_kvest_secret_merc_kill_poslannick</infoportion_complete>  
<function_complete>имя_файла.mochim_five_nps</function_complete>

local ObjId=0  
function pda_killer_spawn()  
local obj= alife():create("pda_merc_killer_glav",vector():set(-223.700,-7.678,-129.688),17000,281)  
local text = "Текст метки"  
level.map_add_object_spot_ser(obj.id, "blue_location", text) --/blue_location - тип метки  
ObjId=obj.id  
end

function delete_spot()  
for a=1,65534 do --Перебор айди  
local obj = alife():object(a)  
if obj and obj:section_name() == "pda_merc_killer_glav" then --/pda_merc_killer_glav -- Секция предмета или НПС  
level.map_remove_object_spot(obj.id,"blue_location")  
break  
end  
end  
end

local obj = alife():story_object( 6 ) -- 6 - сид Волка  
local obj_id = obj.id  
function add_spot_on_map(obj_id,type,text)  
if obj_id then  
if not text then text = "no_text" end  
level.map_add_object_spot_ser(obj_id, type, text)  
end  
end

function add_spot_on_map2(obj_id,type,text)  
имя_файла.add_spot_on_map(obj.id,"green_location","Текст")  
end

local obj = alife():story_object( 6 )  
local obj_id = obj.id  
function remove_spot_from_map(obj_id,type)  
if obj_id and level.map_has_object_spot(obj_id, type) ~= 0 then  
level.map_remove_object_spot(obj_id, type)  
end  
end

function remove_spot()  
this.remove_spot_from_map(obj.id,"green_location")  
end

function kvest_search_2_bumazhki_sidr_complete()  
news_manager.send_tip(db.actor, "%c[255,255,128,128]Автор сообщения\n%c[default]Текст сообщения", 0, "wolf", 17000)  
end

local text = "Здесь текст"  
function test()  
news_manager.send_tip(db.actor, text, 0, "trader", 20000)  
end

function do_something()  
local item = db.actor:object("antirad")
if antirad then  
db.actor:eat(item)  
end  
end

function do_something()  
local item = db.actor:object("antirad")  
if item then  
db.actor:eat(item)  
end  
end

function check_outfit()  
local outfit = db.actor:item_in_slot(6)  
if outfit:section() == "exo_outfit" then --/Если в 6 слоте присутствует "exo_outfit" тогда  
return true --/"exo_outfit" одет  
else  
return false --/"exo_outfit" не одет  
end  
end

function check_outfit()  
local outfit = db.actor:item_in_slot(6)  
if outfit:section() == "exo_outfit" then --/Если в 6 слоте присутствует "exo_outfit" тогда  
return true --/"exo_outfit" не одет  
else  
return false --/"exo_outfit" одет  
end  
end

function hit_nanesti()  
for a=1,65635,1 do  
local obj=level.object_by_id(a)  
if obj and string.find(obj:name(),"Предмет") then  
local h = hit ();  
h.power = 10000;  
h.direction = vector():set (0, 0, 0);  
h.impulse = 0;  
h.draftsman = obj;  
h.type = hit.explosion;  
obj:hit (h);  
end  
end  
end