function in_loc()
if level_name == "l05_bar" then
return true
else
return false
end
end

function metka_gost()
printf ("Поговорить В Баре с Гостом")
news_manager.send_tip(db.actor, "%c[255,0,255,0]ГОСТ\\n%c[default]Зайди в бар, дело есть.", 0, "trader", 10000)
local obj = alife():story_object(504) --сид Госта
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)
ins_metka_gost.add_spot_on_map(obj.id,"green_location","Поговорить с Гостом")
end

--' Загружаем настройки дропа
death_manager.init_drop_settings()
название твоего скрипта.add_spot_on_map2(obj_id,type,text)
Сам скрипт,который ты используешь:
local obj = alife():story_object( 504 ) -- 504 - сид Госта --//(06 - сид Волка)
local obj_id = obj.id
function metka_gost(obj_id,type,text)
if obj_id and level.name() == "l05_bar" 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)
news_manager.send_tip(db.actor, "%c[255,0,255,0]ГОСТ\\n%c[default]Зайди в бар, дело есть.", 0, "trader", 10000)
this.metka_gost(obj.id,"green_location","Поговорить с Гостом")
end

А чтобы функция работала один раз, ставь проверку на инфпоршень:
function add_spot_on_map2(obj_id,type,text)
if not has_alife_info("твой инфопоршень")then -- [color=green]есть ли инфопорция[/green]
news_manager.send_tip(db.actor, "%c[255,0,255,0]ГОСТ\\n%c[default]Зайди в бар, дело есть.", 0, "trader", 10000)
this.metka_gost(obj.id,"green_location","Поговорить с Гостом")
db.actor:give_info_portion("твой инфопоршень") -- [color=green]выдать инфопорцию[/green]
end
end