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

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

 

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

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

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

 

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

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

---

[Kirgudu 1 299]

  07.11.2024 в 09:35, Norman Eisenherz сказал:

anim_head, anim_global

Это же просто строки, если правильно помню. Как они могут давать вылет при определении типа?
Но вообще интересный вопрос, надо будет поэкспериментировать как-нибудь.

[DimoNULL 0]

Надеюсь меня не казнят за то, что я второй раз задаю вопрос. Как сделать проверку на то, есть ли соприкосновение какой либо отдельной части динамического объекта с любым статическим объектом на карте? Например м землёй, или стеной какого либо здания, и тд. 

[Капрал Хикс 547]

Можно ли отследить, что ГГ обыскивает труп именно мутанта и в таком случае не отображать отношение мутанта к ГГ (баг с "другом")?

[Stalkersof 191]

А можно как-то скриптом увеличивать ранг ГГ, добавлять очки, а то в моде куча предметов на локациях бесхозных уникальных. Можно попробовать сделать что-то типа бонусов. Идея какая-то такая витает. ОГСР движок.

Изменено 8 Ноября 2024 пользователем Stalkersof

[mole venomous 3 587]

 

db.actor:set_character_rank(db.actor:character_rank() + number)

[Stalkersof 191]

Ребята а можно в хранилище данных на огср движке. Хранить таблицы, пополнять их и читать. Сделал я на калбеке on_item_take (obj) систему вознаграждения при поднятии уникальных предметов. Но есть проблемка если выкинуть предмет и снова подобрать то опять система сработает. Вот думаю может таблицу надо создавать уже поднятых предметов и проверять их наличие(что они уже были подобранны), чтоб повторно скрипт не срабатывал на уже поднятый предмет.

Если можно на огср дайте пример кода.

function item_take(obj) local sect = obj:section() local reputation local rang for i=1,#list_items do if sect == list_items[i].section then reputation = list_items[i].reputation rang = list_items[i].rang db.actor:change_character_reputation(reputation) db.actor:set_character_rank(db.actor:character_rank() + rang) local news_text = "%c[255,160,160,160]".."Уникальный предмет".."\\n".."%c[default]".."Ранг+ "..rang.." ".."Репутация+ "..reputation local hud = get_hud() hud:AddCustomStatic("main_task", true) hud:GetCustomStatic("main_task"):wnd():SetTextST(news_text) hud:GetCustomStatic("main_task").m_endTime = time_global()/1000 + 5 log1(list_items[i].section.."-"..rang.."-"..reputation) break end end end

function item_take(obj)
	local sect = obj:section()
	local reputation
	local rang

	for i=1,#list_items do
		if sect == list_items[i].section then
		    reputation = list_items[i].reputation
			rang = list_items[i].rang
			db.actor:change_character_reputation(reputation)
			db.actor:set_character_rank(db.actor:character_rank() + rang)
			
			local news_text = "%c[255,160,160,160]".."Уникальный предмет".."\\n".."%c[default]".."Ранг+ "..rang.."  ".."Репутация+ "..reputation
			local hud = get_hud()
	        hud:AddCustomStatic("main_task", true)
	        hud:GetCustomStatic("main_task"):wnd():SetTextST(news_text)
	        hud:GetCustomStatic("main_task").m_endTime = time_global()/1000 + 5
			log1(list_items[i].section.."-"..rang.."-"..reputation)
			break
		end
	end
	
end

 

Изменено 9 Ноября 2024 пользователем Stalkersof

[Капрал Хикс 547]

  09.11.2024 в 16:10, Stalkersof сказал:

чтоб повторно скрипт не срабатывал на уже поднятый предмет.

Делай проще. Выдавай инфопоршень при наличии у ГГ предмета. На поршень повесь выдачу бонуса.

[Stalkersof 191]

  09.11.2024 в 16:45, Капрал Хикс сказал:

Делай проще. Выдавай инфопоршень при наличии у ГГ предмета. На поршень повесь выдачу бонуса.

Чем это проще на 50 предметов 50 пошней и скриптов

[Капрал Хикс 547]

@Stalkersof , меньше возни со скриптами. Можно поршни тоже в таблицу забить.

[Stalkersof 191]

Да там три строчки кода. Обозначить таблицу, записать данные, считать данные. Если предмета нет в таблице то выполнить скрипт. Просто я пока не докумекал как)))

 

Пс Докумекал, вопрос снят

Изменено 9 Ноября 2024 пользователем Stalkersof

[Norman Eisenherz 339]

[ТЧ 1.0006]

Пытаюсь расставить метки на группе NPC приведенным ниже скриптом, но создается только одна метка посреди лагеря. Если указывать определенные id, метка будет создана именно на NPC, но только на первом из списка. В чем может быть причина?

  Показать

local gobj = xr_gulag.get_gulag_by_name("esc_bridge") for id, v in pairs(gobj.npc_info) do level.map_add_object_spot(id, "green_location") end

		local gobj = xr_gulag.get_gulag_by_name("esc_bridge")

		for id, v in pairs(gobj.npc_info) do
			level.map_add_object_spot(id, "green_location")
		end

 

 

[phalcor 60]

  10.11.2024 в 12:06, Norman Eisenherz сказал:

В чем может быть причина?

level.map_add_object_spot(v, "green_location") --v вместо id?

level.map_add_object_spot(v, "green_location") --v вместо id?

 

[Norman Eisenherz 339]

Нет, v – таблица с данными NPC

[Ghilli 0]

При попытке заменить чтение нет-пакета с состоянием актора(бег, шаг, прыжок и т.д.) "вручную":

    se_upk:w_begin(0)     alife():actor():UPDATE_Write(se_upk)     se_upk:r_seek(41)     local state = se_upk:r_u16()

    se_upk:w_begin(0)
    alife():actor():UPDATE_Write(se_upk)
    se_upk:r_seek(41)
    local state = se_upk:r_u16()

на чтение с помощью функционала m_netpk:

    local act = alife():actor()     local se_upk = get_netpk(act, 2)     local data = se_upk:get()     local state = data.actor_state or 0

    local act = alife():actor()
    local se_upk = get_netpk(act, 2)
    local data = se_upk:get()
    local state = data.actor_state or 0

Стал получать следующий вылет:

  Вылет (Показать)

[print_output()] SCRIPT RUNTIME ERROR: attempt to call a nil value stack traceback:     [C]: at 0x7ff9775bf180     [C]: in function 'get_netpk'

[print_output()] SCRIPT RUNTIME ERROR:
attempt to call a nil value
stack traceback:
    [C]: at 0x7ff9775bf180
    [C]: in function 'get_netpk'

 

Не понимаю, в чем конкретно прокол

[phalcor 60]

@Norman Eisenherz @Norman Eisenherz , а если так:
 

for id,_ in pairs(gobj.Object) do --вместо npc_info используем таблицу объектов в гулаге    level.map_add_object_spot(id, "green_location") end

for id,_ in pairs(gobj.Object) do --вместо npc_info используем таблицу объектов в гулаге
   level.map_add_object_spot(id, "green_location")
end

 

  10.11.2024 в 17:28, Ghilli сказал:

Не понимаю, в чем конкретно прокол

У меня пару лет назад также начались вылеты при юзании m_netpk, решил заменой строки

if stpk:r_elapsed()~=0 or uppk:r_elapsed()~=0 then

на 

if (stpk and stpk:r_elapsed()~=0) or (uppk and uppk:r_elapsed()~=0) then

Вдруг поможет?

[Kirgudu 1 299]

  10.11.2024 в 17:28, Ghilli сказал:

в чем конкретно прокол

Скорее всего в использованном модуле m_netpk. Предположу, что взята версия от 2017 года, что выкладывалась тут неоднократно, в том числе мной, а эксперименты проводятся на платформе ЧН или ЗП (но не ТЧ).

Есть в ней один авторский недосмотр: для класса net_se_actor использован конструктор function net_cse_alife_creature_actor:__init(obj,mode), вероятно взятый копипастом из предыдущего одноимённого класса. Попытка создать экземпляр класса net_se_actor (при чтении нет-пакета актора) очевидным образом должна завершиться ошибкой.
Решение простое: классу net_se_actor должен соответствовать конструктор funstion net_se_actor:__init(obj,mode). Нужный код уже давно можно найти в разных модах (не помню, у кого первого заметил соотв. правку), а вот сделать аналогичную замену в теме "Сборочный цех" я почему-то забыл. Исправляюсь. Свежую версию m_netpk можно скачать здесь:

 

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

[Norman Eisenherz 339]

@phalcor Те же шарики.

 

Нашел: в ЧН сталкивался с остановкой скрипта без вылета при пустом тексте подсказки – видимо, это проблема всей трилогии, потому что при добавлении хотя бы текста "" выводятся все метки.

[Stalkersof 191]

Поторопился я и обнадежился. Вопрос повторяю можно на ОГСР движке сохранять данные таблицы в хранилище и считывать их. В игре все работает при загрузке сейвов скрипт выполняется. Надо сохранять данные таблицы подобранных предметов в хранилище, но как?

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

local items_podobral = {} function item_take(obj) local sect = obj:section() local reputation local rang for i=1,#list_items do if sect == list_items[i].section then if not items_podobral[ sect ] then reputation = list_items[i].reputation rang = list_items[i].rang db.actor:change_character_reputation(reputation) db.actor:set_character_rank(db.actor:character_rank() + rang) local text = "%c[255,160,160,160]".."Уникальный предмет".."\\n".."%c[default]".."Ранг+ "..rang.." ".."Репутация+ "..reputation local hud = get_hud() hud:AddCustomStatic("main_task", true) hud:GetCustomStatic("main_task"):wnd():SetTextST(text) hud:GetCustomStatic("main_task").m_endTime = time_global()/300 + 5 items_podobral[sect] = list_items[i].section log1(list_items[i].section.."-"..rang.."-"..reputation) break end end end end

local items_podobral = {}

function item_take(obj)
	local sect = obj:section()
	local reputation
	local rang

	for i=1,#list_items do
		if sect == list_items[i].section then
		    if not items_podobral[ sect ] then
		        reputation = list_items[i].reputation
			    rang = list_items[i].rang
			    db.actor:change_character_reputation(reputation)
			    db.actor:set_character_rank(db.actor:character_rank() + rang)
			
			    local text = "%c[255,160,160,160]".."Уникальный предмет".."\\n".."%c[default]".."Ранг+ "..rang.."  ".."Репутация+ "..reputation
			    local hud = get_hud()
	            hud:AddCustomStatic("main_task", true)
	            hud:GetCustomStatic("main_task"):wnd():SetTextST(text)
	            hud:GetCustomStatic("main_task").m_endTime = time_global()/300 + 5
			
			    items_podobral[sect] = list_items[i].section 
			    log1(list_items[i].section.."-"..rang.."-"..reputation)
			    break
		    end
		end
	end
	
end

 

 

[Kirgudu 1 299]

@Stalkersof можно использовать SCRIPT_VARS_STORAGE

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

[Stalkersof 191]

  11.11.2024 в 09:37, Kirgudu сказал:

@Stalkersof можно использовать SCRIPT_VARS_STORAGE

Да мне бы пример нормальный. Как записать в таблицу и как считать и хранилища.

 

В вики написано, как с обычными таблицами.

Объявил таблицу так:

local xvars = get_stored_vars()
xvars.items_podobral = {}

Вылет. Дайте пример.

Изменено 11 Ноября 2024 пользователем Stalkersof