Форумы Архив » Свалка Вопросы и ответы (по 05.06.10)

function Check_Distanse()
if not Dictanse then Dictanse = 5 end
local PositionActor = db.actor:position() --/ позиция ГГ (вычисляем 1-раз)
local idActor = db.actor:id() --/ Id ГГ, чтобы НЕ проверял себя же!

local function Compare(id) --/ внутренняя локальная функция сравнения
local obj = level.object_by_id(id)
if obj and IsStalker(obj) and id ~= idActor then
if obj:position():distance_to(PositionActor) <= Dictanse then
news_manager.send_tip(db.actor, "текст", 0, "default", 8000)
end
end
end

if obj_id then --/ если задан id конкретного сталкера
Compare(obj_id)
else --/ иначе перебираем всех на локации
for id=1,65534 do
Compare(id)
end
end
end

local bFlag = false --/ флаг-триггер, для однократности выполнения условия/функции

function Check_Distanse()
  if bFlag then return end --/ на выход. т.к. уже отработано
  if not Dictanse then Dictanse = 5 end
  local PositionActor = db.actor:position() --/ позиция ГГ (вычисляем 1-раз)
  local idActor = db.actor:id() --/ Id ГГ, чтобы НЕ проверял себя же!
 
  local function Compare(id) --/ внутренняя локальная функция сравнения
    local obj = level.object_by_id(id)
    if obj and IsStalker(obj) and id ~= idActor then
      if obj:position():distance_to(PositionActor) <= Dictanse then
        bFlag = true
        news_manager.send_tip(db.actor, "кто-то близко от ГГ", 0, "default", 8000)
      end
    end
  end
 
  if obj_id then --/ если задан id конкретного сталкера
    Compare(obj_id)
  else --/ иначе перебираем всех на локации
    for id=1,65534 do
      Compare(id)
    end
  end
end

Выделенное синим - можешь менять по д свои нужды.
Выделенное зеленым - позже сможешь задействовать, если потребуется.

Функция будет выполнятся при каждом запуске игры, т.к. bFlag не сохраняется в сэйвах.

Как определить Id (айди) объекта? Вариантов множество и зависят от условий и исходных данных.
Если уже известен Story_Id, то взяв уже готовую функцию (азбуку нужно знать!):

local soObj = alife():story_object(Story_Id) --/ серверный объект/персонаж
local Obj_Id = soObj.id --/ искомый id (айди) объекта, который можно и запомнить ...


local bFlag = false --/ флаг-триггер, для однократности выполнения условия/функции

function Check_Distanse(Obj_Id) --/ на входе заданный Id перса
  if bFlag then return end --/ на выход. т.к. уже отработано
  if not Dictanse then Dictanse = 5 end
  local PositionActor = db.actor:position() --/ позиция ГГ (вычисляем 1-раз)
  local idActor = db.actor:id() --/ Id ГГ, чтобы НЕ проверял себя же!
 
  local function Compare(id) --/ внутренняя локальная функция сравнения
    local obj = level.object_by_id(id)
    if obj and IsStalker(obj) and id ~= idActor then
      if obj:position():distance_to(PositionActor) <= Dictanse then
        bFlag = true
        news_manager.send_tip(db.actor, "кто-то близко от ГГ", 0, "default", 8000)
      end
    end
  end
 
  if Obj_Id then --/ если задан id конкретного сталкера
    Compare(obj_id)
  else --/ иначе перебираем всех на локации
    for id=1,65534 do
      Compare(id)
    end
  end
end

Выделенное синим - можешь менять под свои нужды.
Выделенное зеленым - позже сможешь задействовать, если потребуется.

Функция будет выполнятся при каждом запуске игры, т.к. bFlag не сохраняется в сэйвах.

Примечание: Если искомый персонах (Id) - погиб и уже исчез из игры - проверка дистанции будет проводиться в данном варианте уже по ближнему обнаруженному сталкеру.

local soObj = alife():story_object(006) --. серверный объект

local bFlag = false --/ флаг-триггер, для однократности выполнения условия/функции

function Check_Distanse(soObj) --/ на входе заданный Id перса
if bFlag then return end --/ на выход. т.к. уже отработано
bFlag = true
if not Dictanse then Dictanse = 5 end
local PositionActor = db.actor:position() --/ позиция ГГ (вычисляем 1-раз)
local idActor = db.actor:id() --/ Id ГГ, чтобы НЕ проверял себя же!

local function Compare(id) --/ внутренняя локальная функция сравнения
local obj = level.object_by_id(id)
if obj and IsStalker(obj) and id ~= idActor then
if obj:position():distance_to(PositionActor) <= Dictanse then
news_manager.send_tip(db.actor, "кто-то близко от ГГ", 0, "default", 8000)
end
end
end

if Obj_Id then --/ если задан id конкретного сталкера
Compare(obj_id)
else --/ иначе перебираем всех на локации
for id=1,65534 do
Compare(id)
end
end
end

Даже разжеванное и положенное в ротик проглотить не можешь :-( (можешь обижаться, но все же ... нужно и головой немного самому работать!)

local bFlag = false --/ флаг-триггер, для однократности выполнения условия/функции

function Check_Distanse(Story_Id,Dictanse) --/ на входе заданный Id перса и дистания до него
  if bFlag then return end --/ на выход. т.к. уже отработано
  if not Dictanse then Dictanse = 5 end
  local obj = alife():story_object(Story_Id)
  if obj and obj:position():distance_to(db.actor:position()) <= Dictanse then
    bFlag = true
    news_manager.send_tip(db.actor, "ГГ близко!", 0, "default", 8000)
  end
end

Приравняв Story_Id = 006 и Dictanse = 10 - получишь сообщение при подходе ГГ к Волку (или его трупу) на дистанцию 10 метров.

local function Compare(id) --/ внутренняя локальная функция сравнения
local obj=0
if type(id)=='string' then --/ если задан sid конкретного сталкера
obj = alife():story_object(tonumber(id))
elseif type(id)== 'number' --/если задан id конкретного сталкера
obj = level.object_by_id(id)
end
if obj and IsStalker(obj) and id ~= idActor then
if obj:position():distance_to(PositionActor) <= Dictanse then
news_manager.send_tip(db.actor, "кто-то близко от ГГ", 0, "default", 8000)
end
end
end

есть некая грань, которую не стОит переходить. Тут все же не детский сад и разжевывать какждый раз и все до состояния пюре далеко не каждыйможет/хочет.
Сорри, но что-то в твоем возрасте нужно уже делать/додумывать самому. Или хотя бы попробовать сделать ... даже если и не совем все понял.