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

[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. И помните: «Правильно заданный вопрос – половина ответа».

 

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

 

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

 

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

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

---

[I am Dead 918]

1 час назад, Norman Eisenherz сказал:

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

Вот так 

    if wnd then
        wnd:DetachWnd()
        wnd = nil
    end

[AndreySol 215]

18 часов назад, phalcor сказал:

В общем, у меня задача стояла такая - определить, является ли запрашиваемый параметр оружия "родным" (прописанным непосредственно под секцией это оружия), или же он наследуемый.

Мне когда такое понадобилось - сделал движковую правку.

@Norman Eisenherz 

z:SetAutoDelete(true) - должно помочь.

[naxac 2 477]

5 часов назад, Norman Eisenherz сказал:

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

При net_destroy надо отсоединять элементы от окна:

if inv then

  inv:DetachChild(z)

  inv, wnd, z = nil, nil, nil

end

 

Изменено 27 Июля 2021 пользователем naxac

[Norman Eisenherz 322]

По результатам проверки хватило принудительного отсоединения кнопки – AutoDelete работает и так для всех окон.

[phalcor 60]

Доброго дня!

Скажите, а досрочный выход из цикла iterate предусмотрен? Return явно не работает, ибо в log я получаю iter=50.

local i=0
db.actor:iterate_inventory_simple(function(item)
	i=i+1
	if item then
		return								
	end
end)
log("iter="..i)

 

 

[dsh 3 824]

@phalcor @phalcor что-то я не нахожу в движке такого метода. iterate_inventory нахожу, а iterate_inventory_simple нету.

[Zander_driver 10 342]

1 час назад, phalcor сказал:

Return явно не работает

Работает. Он выходит из тела анонимной функции.

Вот этой:

1 час назад, phalcor сказал:

function(item)
	i=i+1
	if item then
		return								
	end
end

А iterate_inventory или его аналоги, запускает задание на циклический вызов указанной функции. И для отмены/прерывания задания, метода нету. Но, а зачем он нужен?

 

Можно же сделать что-то в таком духе:

local i=0
local ido = true
db.actor:iterate_inventory(function(item)
    if ido then -- Здесь наши действия если перебор продолжается
      i=i+1
      if item then ido = false end
    else -- Здесь - если нет
      return
    end
end)
log("iter="..i)

 

Только что, dsh сказал:

я не нахожу в движке такого метода.

Кстати, я тоже. Все равно какая-то вариация на тему, по образу и подобию... не все ли равно?)

[phalcor 60]

@dsh это из движка ОП 2.1. Но суть не в том, стандартный iterate ведёт себя так же (без выхода по return!):

local i=0
db.actor:iterate_inventory(
	function(dummy,item)
		i=i+1
		if item then
			return								
		end
	end,db.actor)
log("iter2="..i)

 

@Zander_driver 

2 минуты назад, Zander_driver сказал:

Можно же сделать что-то в таком духе:

Можно конечно, но прогонка цикла, когда он уже не нужен, отнимает время (пусть и малое). Я-то думал, есть волшебный break! Ну нет, так нет :-)

[Zander_driver 10 342]

Только что, phalcor сказал:

стандартный iterate ведёт себя так же

Естественно так же. Любой подобный итератор делает простую вещь - запускает в движке цикл перебора, в котором вызывается указанная функция.

Т.к. цикл крутится в движке, остановить его из скриптов естественно невозможно. Будет крутиться до тех пор пока все итемы не переберет. Но его и не нужно останавливать ни для чего...

Только что, phalcor сказал:

прогонка цикла, когда он уже не нужен, отнимает время (пусть и малое).

Ну формально да. Но, т.к. это цикл в движке - это очень малое время. Очень.

В среднестатистическом моде, есть куда более весомые вещи, которые можно оптимизировать.

[dsh 3 824]

3 hours ago, Zander_driver said:

не все ли равно?)

Нет. Возможно там сделали возможность досрочного выхода из цикла, кто знает.

[WinCap 316]

9 часов назад, phalcor сказал:

досрочный выход из цикла iterate предусмотрен?

В стандартном методе "iterate_inventory" точно нет, а в неизвестном "iterate_inventory_simple" - всё может быть.

Попробуй вернуть что-нибудь из функции, например "true".

 

Скрытый текст

local i=0
db.actor:iterate_inventory_simple(function(item)
	i=i+1
	if item then
		return true
	end
end)
log("iter="..i)

 

[AndreySol 215]

18 часов назад, phalcor сказал:

Скажите, а досрочный выход из цикла iterate предусмотрен? Return явно не работает

А ничего, что return, в твоем примере кода, вызывается в кэллбэк-ф-ции, которая, в свою очередь, вызывается из движка для каждого имеющегося предмета инветаря? Смотри пример ниже, там специально кэллбэк-ф-ция вынесена отдельно:

local npc_obj = level.object_by_id(alife():story_object(104).id)
if npc_obj then
    npc_obj:iterate_inventory(check_inv_items, npc_obj)
end

function check_inv_items(npc, item)

     .......

     return

     .......

end

Соответственно, понятно, что область действия оператора return ограничена ф-цией check_inv_items, и уж никак не може влиять на npc_obj:iterate_inventory.

Или я не прав?

[Zander_driver 10 342]

@AndreySol 

Это разобрали несколькими постами ранее...

[naxac 2 477]

28.07.2021 в 19:40, phalcor сказал:

досрочный выход из цикла iterate предусмотрен?

Можно вместо iterate_inventory использовать

local obj

for i = 0, db.actor:object_count()-1 do

  obj = db.actor:object(i)

...

end

Тут можно и break, и return использовать.

Изменено 29 Июля 2021 пользователем naxac

[Norman Eisenherz 322]

Здрасьте.

 

ТЧ 1.0006.

 

Безлоговый вылет при удалении простого скриптового окна, если оно открыто в момент перезагрузки (ситуация "смерть или переход при открытом инвентаре"). Проблема в том, что вылет случается только на сейвах, сделанных после начала задания Волка – дефолтный сейв all.sav не сбоит.

 

Условия теста:

• оставить в папке [gamedata] только указанный ниже файл

• начать новую игру
• открыть инвентарь с новым окном
• консоль: load_last_save        -- нет вылета
• взять задание Волка
• сделать сейв
• открыть инвентарь и новым окном
• консоль: load_last_save        -- вылет

 

Может, так и должно быть, а метод __finalize() нужен только для того, чтобы сборщик мусора не пытался убить окно на ближайшем апдейте?

 

Spoiler

[scripts\bind_stalker.script]
function actor_binder:info_callback(npc, info_id)
(+)
	if info_id == "ui_inventory" then
		show()
	end


(+)
function show()
	cui = test()
	level.start_stop_menu(cui)
end


class "test" (CUIScriptWnd)

function test:__init() super()
	self:Init(0, 0, 1024, 768)

	local b = CUIStatic()
		self:AttachChild(b)
	b:Init(0, 0, 1024, 768)
	b:InitTexture("ui_frame_back")
	b:SetStretchTexture(true)
end

function test:__finalize()
end

 

 

[I am Dead 918]

@Norman Eisenherz А убирать окно кто будет? Странно что при повторном открытии инвентаря вылет не ловишь.

[Norman Eisenherz 322]

@I am Dead Точнее, пожалуйста: кого, куда и как убирать. Добавлять к указанному коду cui = nil в net_destroy бесполезно, cui:GetHolder():start_stop_menu(cui) там же вообще не находит ссылки на окно.

Если вывести интерактивное окно при закрытых движковых окнах, оно удаляется без дополнительных действий (в ТЧ – в ЧН/ЗП уже нет) – проверял оба вида окон на одном сейве.

[I am Dead 918]

@Norman Eisenherz Вот пример 

 

Скрытый текст

 

function samopal_ammo_preparing()
    local spwn = ammo_preparing(get_hud())
    level.start_stop_menu(spwn,true)
end

class "ammo_preparing" (CUIScriptWnd)

function ammo_preparing:__init(owner) super()
    self.dlg = self
    self.owner = owner
    self:InitControls()
    self:InitCallBacks()
end

function ammo_preparing:__finalize() end

function ammo_preparing:InitControls()

    self.btn_1 = xml:Init3tButton("btn_1", self)
    self:Register(self.btn_1, "btn_1")
    self.btn_1:Enable(false)
    self.btn_2 = xml:Init3tButton("btn_2", self)
    self:Register(self.btn_2, "btn_2")
    self.btn_2:Enable(false)

    self.btn_1:Enable(true)
    self.btn_2:Enable(true)
end

function ammo_preparing:InitCallBacks()
    self:AddCallback("btn_1", ui_events.BUTTON_CLICKED,  self.btn1, self)
    self:AddCallback("btn_2", ui_events.BUTTON_CLICKED,  self.btn2, self)
end

function ammo_preparing:btn1()
    self:quit()
    addon.remove_items("bearing", 1)
    addon.remove_items("powder", 1)
    amk.spawn_ammo_in_inv("ammo_samopal", 16)
    --amk.spawn_ammo_in_inv("ammo_5.56x45_ap", 16)
end

function ammo_preparing:btn2()
    self:quit()
    addon.remove_items("bearing", 1)
    addon.remove_items("powder", 1)
    amk.spawn_ammo_in_inv("ammo_samopal_big", 8)
    --amk.spawn_ammo_in_inv("ammo_5.56x45_ap", 16)
end

function ammo_preparing:quit()
    self:GetHolder():start_stop_menu (self,true)
    self.dlg = nil
    collectgarbage("collect")
end

 

 

P.S Извиняюсь что не под спойлером, на мобильной версии сайта нету данной функции.

Изменено 30 Июля 2021 пользователем Опричник
спойлер

[Norman Eisenherz 322]

@I am Dead Как сослаться на метод quit() вне класса? Сделал, как показано ниже –  вылет "attempt to index a nil value" со ссылкой на строку self:GetHolder()…

Spoiler

[scripts\bind_stalker.script]

function actor_binder:net_destroy()
(+)
	delete()						-- +++


function actor_binder:info_callback(npc, info_id)
(+)
	if info_id == "ui_inventory" then
		show()
	end


(+)
function show()
	cui = test()
	level.start_stop_menu(cui)
end


function delete()						-- +++
	if cui then
		cui:quit()
	end
end


class "test" (CUIScriptWnd)

function test:__init() super()
	self.dlg = self						-- +++
	self:Init(0, 0, 1024, 768)

	local b = CUIStatic()
		self:AttachChild(b)
	b:Init(0, 0, 1024, 768)
	b:InitTexture("ui_frame_back")
	b:SetStretchTexture(true)
end

function test:__finalize()
end

function test:quit()						-- +++
	self:GetHolder():start_stop_menu(self)
	self.dlg = nil
end

 

 

 

[I am Dead 918]

self:GetHolder():start_stop_menu(self, true)

Я выделил то что ты забыл