Скриптование

[Svoboда 3]

Тема для обсуждения скриптов всего и всех в серии игр STALKER.

Задавая вопрос (!):
1. Внимательно изучите суть вопроса. Вопрос должен соответствовать выбранной Вами темы. Это поможет сохранить порядок и читабельность темы, а также облегчит поиск и понимание сего;
2. Изучите то, что уже есть в теме (пролистайте "руками", воспользуйтесь поиском на форуме);
3. Изучите информацию которая может вам помочь:

  Информация (Показать)

  Общая (Показать)

Stalkerin. Там есть много хороших статей касательно данной темы.
Уроки по модостроению. Есть рабочие примеры готовых скриптов различного назначения.

  Скрипты (Показать)

Справочное руководство по языку Lua 5.1
https://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual/ru
Справочник по функциям и классам. Собрано много информации по функциям и классам, не всем, но по основные сведения предоставлены.

  Логика (Показать)

Логика со вступлением и четырьмя частями:

  Просмотр (Показать)

Вступление
Часть первая
Часть вторая
Часть третья
Часть четвертая.

Smart_terrain (в простонароде - гулаг)
Интересный способ настроики логики для гулагов
Скриптовая часть игровой логики

4. Дабы не превращать обсуждение в "кашу" разной информативной направленности, задавайте несколько вопросов по порядку (в разных постах) после того, как получите ответ на предыдущий вопрос;
5. "Спасибо" и тому подобное - будьте так любезны в ПМ. Если не любите писать в ПМ, в конце вопроса напишите фразу: "Заранее спасибо!" - или что-то в этом духе;
6. ПОЖАЛУЙСТА! Указывайте, для какой игры Вам необходима информация (ТЧ, ЧН, ЗП), если стоит мод - укажите название мода;
7. Если Вы что-то сделали и результат не такой, какой Вами задумывался, то, пожалуйста, приводите коды которые Вы изменяли/писали целиком! Это поможет другим правильно ответить на Ваш вопрос, а также оградит Вас от лишней писанины.
8. Оформляйте сообщение. Пользуйтесь тегами для того, чтобы отделить код от текста. Пишите грамотно - ПОЛЬЗУЙТЕСЬ ЗНАКАМИ ПРЕПИНАНИЯ.
9. И помните: «Правильно заданный вопрос – половина ответа».

 

Какие вопросы следует задавать, а какие нет...

  Читать рекомендуется. (Показать)

Задавайте вопросы, которые касаются непосредственно скриптов и их работы, т.е. Вы что-то делаете, а у Вас что-то не получается, при этом у Вас на руках должен быть хотя бы какой-то код, свидетельствующий о Вашей причастности к вопросу.

 

Вопросы которые будут удалятся, следовательно их задавать не нужно:
-- Где находится та или иная функция?
Для ответа используем поиск по словам среди файлов оригинальной игры или мода, если объект поиска относится к нему, при помощью программы, которая Вам наиболее симпатизирует;
-- Как сделать что-то/то-то?
С подобными вопросами, либо в "ковырялки", где Вам вероятнее всего так же не ответят, либо выдвигаем мысли, подкреплённые теорией, практикой (идеальный вариант) и здравым рассудком;
-- Вопросы со смыслом: "сделайте", "совместите" и подобными глаголами повелительного наклонения.
-- К тому же удалению будут подвергаться вопросы, в которых масштабно не используются теги, для отделения кода и цитат от основного текста, а также не вписан в спойлер код размером превышающие семь строк.
Ответ на возможно возникший вопрос: В какую тему можно обратиться по поводу логики и спавна объектов?
В тему "ковырялок" соответствующей версии игры, для которой Вы задаёте вопрос.

И последнее: очень рекомендовано к прочтению Правила форума
 

---

[AKKK1 6]

@FonSwong,

  Цитата

 

Можно ли скриптом собрать смарты на локации и узнать их координаты?

Смотря что ты подразумеваеш под смартами.

Если рестриктор определенной формы (шейп) назначаемый смарту то координаты узнать, скорее всего можно.

Ну а если координаты работ и путей смарта то

  Цитата

 

6) Работы могут находиться на разных уровнях.
7) Скриптовая зона СТ теперь не используется для захвата персонажей.
8) Симуляция заключается в миграции персонажей между разными СТ.

http://stalkerin.gameru.net/wiki/index.php?title=%D0%9D%D0%B0%D1%81%D1%82%D1%80%D0%BE%D0%B9%D0%BA%D0%B0_%D0%BB%D0%BE%D0%B3%D0%B8%D0%BA%D0%B8._%D0%A7%D0%B0%D1%81%D1%82%D1%8C_4#3.11.3._.D0.9D.D0.BE.D0.B2.D1.8B.D0.B5_.D0.BE.D1.81.D0.BE.D0.B1.D0.B5.D0.BD.D0.BD.D0.BE.D1.81.D1.82.D0.B8_.D1.81.D0.BC.D0.B0.D1.80.D1.82.D1.82.D0.B5.D1.80.D1.80.D0.B5.D0.B9.D0.BD.D0.BE.D0.B2

 

PS. Не заблуждайтесь

Радиус смарта используеться только в СДК для визуализации.

И ни на что не влияет.

Главное что бы от нуля отличался .

PSS.  Распакуйте алл спавн  и измените радиус любого смарта (шейпы тойсть формы).

Типа тест хоть на 00000000000.1

Изменено 27 Октября 2016 пользователем AKKK1

[Карлан 1 050]

Вот тебе бабушка и Юрьев день.

 

@AKKK1, данные любых поинтов ты можешь узнать где угодно. Вот например я сделал дамп барного пути на Кордоне:

 

  Показать

 

[27.10.16 22:06:45.551] { ----- id table: 2CEA00B0 ----- [27.10.16 22:06:45.551]     [0] = [27.10.16 22:06:45.551]         { ----- id table: 2CEA0100 ----- [27.10.16 22:06:45.551]             ["gv"] = [1180], [27.10.16 22:06:45.551]             ["name"] = ["wp00"], [27.10.16 22:06:45.551]             ["ln"] = ["l05_bar"], [27.10.16 22:06:45.551]             ["index"] = [0], [27.10.16 22:06:45.551]             ["lv"] = [42114], [27.10.16 22:06:45.551]             ["data"] = [27.10.16 22:06:45.551]                 { ----- id table: 2CEA03A8 ----- [27.10.16 22:06:45.551]                     ["flags"] = <*flags[16/32]>, [27.10.16 22:06:45.551]                     ["wp00"] = ["true"], [27.10.16 22:06:45.551]                 }, [27.10.16 22:06:45.551]             ["pos"] = <*vector[x=161.396,y=0.18,z=7285]>, [27.10.16 22:06:45.551]         }, [27.10.16 22:06:45.551]     ["pathname"] = ["bar_arena_guard_walk"], [27.10.16 22:06:45.551] }

[27.10.16 22:06:45.551] { ----- id table: 2CEA00B0 -----
[27.10.16 22:06:45.551]     [0] =
[27.10.16 22:06:45.551]         { ----- id table: 2CEA0100 -----
[27.10.16 22:06:45.551]             ["gv"] = [1180],
[27.10.16 22:06:45.551]             ["name"] = ["wp00"],
[27.10.16 22:06:45.551]             ["ln"] = ["l05_bar"],
[27.10.16 22:06:45.551]             ["index"] = [0],
[27.10.16 22:06:45.551]             ["lv"] = [42114],
[27.10.16 22:06:45.551]             ["data"] =
[27.10.16 22:06:45.551]                 { ----- id table: 2CEA03A8 -----
[27.10.16 22:06:45.551]                     ["flags"] = <*flags[16/32]>,
[27.10.16 22:06:45.551]                     ["wp00"] = ["true"],
[27.10.16 22:06:45.551]                 },
[27.10.16 22:06:45.551]             ["pos"] = <*vector[x=161.396,y=0.18,z=7285]>,
[27.10.16 22:06:45.551]         },
[27.10.16 22:06:45.551]     ["pathname"] = ["bar_arena_guard_walk"],
[27.10.16 22:06:45.551] }

 

 

По радиусу, смарту важен шейп, а сфера то или бокс совершенно без разницы. Смарт это самый обычный объект, с позиции движка тот же респавнер. Небольшими манипуляциями серверного объекта в движке смартом можно сделать и консервную банку, утрированно, но не далеко от истины.

 

Еще есть у юзеров SDK забава подгонять респавнер для ящиков по миллиметрам. Прямо говорить, ящикам нужен другой подход, респавнеры (для ящиков) в том виде, в каком они есть совершенно не нужны. Сиды оставим, сидом мы ассоциируем смарту ящик, как смарт там разрождается у нас, так мы в этот ящик и суем барахло, откуда дровишки? А прямо из кастом даты ящика.

[AKKK1 6]

@Карлан,

Извени забыл добавить что

  Цитата

 

Ну а если координаты работ и путей смарта то

Тоже можно только другим способом.

И да я не разу не скриптер.

Еще раз радиус

(размер) абсолютно не важен.

Шейп это и есть сфера или бокс.

Изменено 27 Октября 2016 пользователем AKKK1

[FonSwong 33]

Я просто сделал так:

local gg = game_graph():vertex(smart.m_game_vertex_id) local lvid = gg:level_vertex_id() local pos = level.vertex_position(lvid)

local gg = game_graph():vertex(smart.m_game_vertex_id)
local lvid = gg:level_vertex_id()
local pos = level.vertex_position(lvid)

Изменено 28 Октября 2016 пользователем FonSwong

[Sla-Sla 43]

  Карлан писал(а):

в ЗП есть лаконичный метод:

а как он работает? Мне надо название визуала использовать как ключ в таблице.

  Карлан писал(а):

Допустим я здесь вижу ряд взаимоисключающих вещей, которые неизбежно приведут к ошибкам.

уже разобрался, все в порядке.

[Карлан 1 050]

@Sla-Sla, я вот как-то так делаю:

 ['stalker_zombie8'] = {'$outfit|stalker_zombi', 37, 48},

 ['stalker_zombie8'] = {'$outfit|stalker_zombi', 37, 48},

    local visual = string.split(npc:get_visual_name(), '\\');     visual = drop_outfit_base[visual[3]]; local section = visual[1]

    local visual = string.split(npc:get_visual_name(), '\\');
    visual = drop_outfit_base[visual[3]]; local section = visual[1]

[Sla-Sla 43]

@Карлан, а у серверного объекта как визуал получить?

[FonSwong 33]

В чём проблема?

 

  Показать

 

function Get_Smarts() local t = {} for k, v in pairs(db.smart_terrain_by_id) do local smart = alife():object(k) if smart and smart:clsid() == clsid.smart_terrain then local gg = game_graph():vertex(smart.m_game_vertex_id) local lvl = alife():level_name(gg:level_id()) local lvid = gg:level_vertex_id() local pos = level.vertex_position(lvid) if not t[lvl] then t[lvl] = {} end table.insert(t[lvl], pos) end end return t end

function Get_Smarts()
	local t = {}
	for k, v in pairs(db.smart_terrain_by_id) do
		local smart = alife():object(k)
		if smart and smart:clsid() == clsid.smart_terrain then
			local gg = game_graph():vertex(smart.m_game_vertex_id)
			local lvl = alife():level_name(gg:level_id())
			local lvid = gg:level_vertex_id()
			local pos = level.vertex_position(lvid)
			if not t[lvl] then
				t[lvl] = {}
			end
			table.insert(t[lvl], pos)
		end
	end
	return t
end

 

 

Но на смарте с id 12871 почему-то скрипт зависает при попытке получения level.vertex_position(lvid)

http://imgdepo.com/id/i9875518

Изменено 28 Октября 2016 пользователем FonSwong

[naxac 2 507]

@FonSwong, а не проще позицию получать непосредственно из объекта?

local pos = smart.position

  П.С.: (Показать)

фунуция level.vertex_position возвращает позицию вертекса на текущей локации. Зависает, т.к., видимо, передаваемого в нее вертекса нет на уровне.

 

Изменено 28 Октября 2016 пользователем naxac

[FonSwong 33]

@naxac, дык спрашивал какие параметры можно из смарта достать, сам не догадался и не подсказал никто

 

 

Почему у некоторых левел вериксов нельзя нельзя узнать позицию, если не существует, значит я неправильно узнаю?

Вот так узнаю кол-во левел вертиксов на уровне:

 

  Показать

 

function Get_Levels_Vertexes() local LevelsVertexes = {} local i = 0 local graph = game_graph() while graph:valid_vertex_id(i) do local v = graph:vertex(i) local ln = alife():level_name(v:level_id()) if not LevelsVertexes[ln] then LevelsVertexes[ln] = v:level_vertex_id() elseif v:level_vertex_id() > LevelsVertexes[ln] then LevelsVertexes[ln] = v:level_vertex_id() end i = i+1 end return t end 

function Get_Levels_Vertexes()
	local LevelsVertexes = {}
	local i = 0
	local graph = game_graph()
	while graph:valid_vertex_id(i) do
		local v = graph:vertex(i)
		local ln = alife():level_name(v:level_id())
		if not LevelsVertexes[ln] then
			LevelsVertexes[ln] = v:level_vertex_id()
		elseif v:level_vertex_id() > LevelsVertexes[ln] then
			LevelsVertexes[ln] = v:level_vertex_id()
		end
		i = i+1
	end
	return t
end 

 

 

Изменено 28 Октября 2016 пользователем FonSwong

[Карлан 1 050]

@Sla-Sla, сделай функцию для серверного объекта, в нет-пакет же пишется визуал. Класс CSE_Visual, там, как это принято здесь говорить, все интуитивно понятно.

 

@FonSwong, тебе уже ответили, потому-что функция только для текущего левел графа, и доступна только при загруженном уровне, что логично.

[nasar75 3 873]

В ОП-2 есть код для проверки зависшей логики вертушек и физ. объектов:

  Показать

 

  -- сообщение по побившейся логике физобъектов и вертолетов   local s_ini = obj:spawn_ini()   if not st.ini_filename and s_ini and logic_not_empty(obj, s_ini) then if obj:clsid() == clsid.script_phys or obj:clsid() == clsid.script_heli -- or ((IAmAStalker[obj:clsid()] or IAmAMonster[obj:clsid()]) and obj:alive()) then abort("У объекта "..obj:name().." повисла логика. Удалите созданное только что сохранение и переиграйте с предыдущего.") if not amk.has_timer("no_save") and not db.debug then amk.start_timer("no_save", 5) -- amk.start_timer("zonedocs_gg_kill",3,0) end end   end ... -- у объекта есть "непустая" логика function logic_not_empty(npc, ini) return ini:section_exist("logic") and ( ini:line_exist("logic", "cfg") or (ini:line_exist("logic", "active") and ini:r_string("logic", "active") ~= "nil") ) end

  -- сообщение по побившейся логике физобъектов и вертолетов
  local s_ini = obj:spawn_ini()
  if not st.ini_filename and s_ini and logic_not_empty(obj, s_ini) then
if obj:clsid() == clsid.script_phys or obj:clsid() == clsid.script_heli
-- or ((IAmAStalker[obj:clsid()] or IAmAMonster[obj:clsid()]) and obj:alive())
then
abort("У объекта "..obj:name().." повисла логика. Удалите созданное только что сохранение и переиграйте с предыдущего.")
if not amk.has_timer("no_save") and not db.debug then
amk.start_timer("no_save", 5)
-- amk.start_timer("zonedocs_gg_kill",3,0)
end
end
  end
...


-- у объекта есть "непустая" логика
function logic_not_empty(npc, ini)
return ini:section_exist("logic") and (
ini:line_exist("logic", "cfg") or (ini:line_exist("logic", "active") and ini:r_string("logic", "active") ~= "nil")
)
end

 

 

Добавил код для проверки спейс-рестрикторов

if obj:clsid() == clsid.script_phys or obj:clsid() == clsid.script_heli or obj:clsid() == clsid.script_restr

if obj:clsid() == clsid.script_phys or obj:clsid() == clsid.script_heli or obj:clsid() == clsid.script_restr

Сообщения приходят, в лог тоже пишется:

 

А меня терзают смутные сомнения - правильно ли я написал и работает ли код для спейс-рестрикторов...

Зы. почему спрашиваю - некоторые рестрикторы (в логе они есть) не отрабатывают свою логику. Побилась?

И если побилась, то в чем может быть причина?

[AndrewMor 533]

Уважаемые скриптеры, просьба прокомментировать следующий код (что делает и в каком случае вызывается). Предположительно, что делает - очищает хранилище актора: так ли это.

 

  код (Показать)

function actor_binder:save(packet)

local pk1 = fake_net_packet.fake_net_packet()
  self:save_old(pk1)
  --get_console():execute("Packet_size_is_"..pk1:w_tell())
  if pk1:w_tell()>7500 then
     ogsm_debug.clean_pstor()
  end
  self:save_old(packet)
end

 

[Kober(BRUC) 99]

@AndrewMor,я не скриптер, но:

Получаем размер хранилища. Выводим его в консоль. Если оно привышает определенный размер, то очищаем его.

З.ы. Не пинайте если не так.

[Kirgudu 1 299]

Практически так и есть, но дополню.

Вызывается при любом сохранении (это ответ на выделенный жирным вопрос). Если в функциях self:save_old() и ogsm_debug.clean_pstor() содержится то, что можно предположить (OGSM для ТЧ нет под рукой), служит в качестве своеобразного контроля переполнения pstor актора во избежание появления битых сейвов. А именно: производится запись pstor (или что там делает save_old()) в чистый net-пакет, проверяется его размер, если всё в порядке, тогда pstor пишется в net-пакет сейва как есть, если же превышен допустимый для ТЧ максимум - предварительно очищается.

Типичный "предохранитель" того времени, когда ещё не умели создавать кастомные объекты для сохранения большого объёма данных.

[CRAZY_STALKER666 36]

 

 

  Kirgudu писал(а):

кастомные объекты для сохранения большого объёма данных.

А поподробнее можно про это?

[Kirgudu 1 299]

@CRAZY_STALKER666, например se_stor от , который сохраняет данные как раз в таких объектах. Подробную информацию можно найти в постах автора модуля.

Если не ошибаюсь, @Malandrinus тоже делал подобный модуль.

Изменено 2 Ноября 2016 пользователем Kirgudu

[AndrewMor 533]

 

 

  Kirgudu писал(а):

Вызывается при любом сохранении

Включая и автосейв? Или просто сейвы, в т.ч. и квик?

 

 

 

  Kirgudu писал(а):

Если в функциях self:save_old() и ogsm_debug.clean_pstor() содержится то, что можно предположить (OGSM для ТЧ нет под рукой

 

  self:save_old() (Показать)

function actor_binder:save_old(packet)

  local save_treasure_manager = true

  printf("actor_binder:save(): self.object:name()='%s'", self.object:name())
  object_binder.save(self, packet)

  --' Сохраняем уровень сложности
  if save_treasure_manager == true then
  packet:w_u8(level.get_game_difficulty() + 128)
  else
    packet:w_u8(level.get_game_difficulty())
  end

  --' Сохраняем данные об отключенном вводе
  if self.st.disable_input_time == nil then
  packet:w_bool(false)
  else
    packer:w_bool(true)
    utils.w_CTime(packet, self.st.disable_input_time)
  end

  xr_logic.pstor_save_all(self.object, packet)
  self.weather_manager:save(packet)

  sr_psy_antenna.save( packet )

  if save_treasure_manager == true then
    treasure_manager.save(packet)
  end

  task_manager.save(packet)
  self.actor_detector:save(packet)
end

 

 

  clean_pstor() (Показать)

-- Экстренная очистка хранилища актора
function clean_pstor()
   for k,v in pairs(ogsm_anomaly.loc) do
     if k ~= level.name() then
      amk.del_variable("an"..ogsm_anomaly.loc[k])
     end
  end

 for i=1,100 do
   amk.del_variable("rt"..i)
   amk.del_variable("rt"..i.."d")
   amk.del_variable("rt"..i.."p")
   amk.del_variable("gt"..i)
   amk.del_variable("gt"..i.."d")
   amk.del_variable("gt"..i.."p")
 end
 

 amk.del_variable("rfx")
 amk.del_variable("blt")
 amk.del_variable("drnk")
 amk.del_variable("slp")
 amk.del_variable("nrg")
 amk.del_variable("smn")
 

 amk.del_variable("aem_team1")
 amk.del_variable("aem_team2")
 amk.del_variable("aem_cr")
 amk.del_variable("aem_cm")
 amk.del_variable("aem_rt")
 amk.del_variable("aem_ct")

 amk.del_variable("aem_lt")
 amk.del_variable("aem_nt")
 amk.del_variable("aem_it")
 amk.del_variable("aem_mt")
 amk.del_variable("aem_mk")

 for i=1,5 do
   amk.del_variable("snd"..i)
 end

 for i=1,65535 do
   local obj = alife():object(i)
   if obj and (obj:name()=="esc_tutorial_dead_novice" or
obj:name()=="val_lager_bandits_borov" or
obj:name()=="rostok_stalker") then
     alife():release(obj, true)
   end
 end

 db.actor:give_info_portion("val_actor_has_borov_key")

--amk.g_start_timer("bl1",0, 9+math.random(-1,1), 0)
--amk.g_start_timer("rsp",0, 5+math.random(-1,1), 0)

 get_console():execute("Actor_storage_has_been_successfully_cleaned!")
end

 

 

И еще вопрос: отчего может переполняться хранилище?

[Kirgudu 1 299]

  AndrewMor писал(а):

Включая и автосейв?

При любом сохранении.

 

Разумеется, хранилище может переполняться от того, что туда пишется слишком много данных. Максимальный размер net-пакета (в том числе актора) в ТЧ равен 8192 байта, в ЧН/ЗП вдвое больше. Обрати внимание на содержимое скопированной тобой функции save_old(): в net-пакет актора что-то пишут менеджеры погоды, тайников и заданий, радара и детектора. Много? Без детального изучения неизвестно. Плюс запись текущих настроек. Плюс pstor, то есть хранилище, в которое пихали данные все, кому не лень. Посмотри в твоей же clean_pstor(): из pstor вычищаются аномалии, таймеры, прочие служебные переменные - на всё это нужно место в net-пакете актора. А сколько в твоём моде других, неучтённых здесь мест использования штатных функций записи/чтения xr_logic.pstor_store() и xr_logic.pstor_retrieve()? То-то и оно. Увлёкся, записал лишнее - опаньки, вышли за 8 килобайт.

 

Потому и начали придумывать альтернативные варианты. Подробнее о разных скриптовых способах записи данных можно прочитать здесь: http://www.amk-team.ru/forum/topic/6185-skriptovanie/page-209#entry694323

Изменено 2 Ноября 2016 пользователем Kirgudu

[AndrewMor 533]

 

 

  Kirgudu писал(а):

таймеры,

А можно про таймеры подробнее? В смысле, в какой момент начинается заполнение пакета: при первом вызове таймера или как-то раньше/в другое время?