Сборочный цех

Zander_driver · 21 Августа 2015

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

Изменено 1 Декабря 2021 пользователем Zander_driver
Привел в соответствие современным реалиям.

RayTwitty · 22 Августа 2015

Расширение стандартных таблиц значениями, которые доложить почему-то забыли:

DIK_keys (Показать)

DIK_keys["MOUSE_4"] = 340
DIK_keys["MOUSE_5"] = 341
DIK_keys["MOUSE_6"] = 342
DIK_keys["MOUSE_7"] = 343
DIK_keys["MOUSE_8"] = 344

key_bindings (Показать)

key_bindings["kSPRINT_TOGGLE"] = 8
key_bindings["kENGINE"] = 15
key_bindings["kARTEFACT"] = 30
key_bindings["kWPN_FIREMODE_PREV"] = 38
key_bindings["kWPN_FIREMODE_NEXT"] = 39
key_bindings["kPAUSE"] = 40
key_bindings["kCHAT_TEAM"] = 45
key_bindings["kACTIVE_JOBS"] = 53
key_bindings["kMAP"] = 54
key_bindings["kCONTACTS"] = 55
key_bindings["kVOTE_BEGIN"] = 57
key_bindings["kVOTE"] = 58
key_bindings["kVOTEYES"] = 59
key_bindings["kVOTENO"] = 60
key_bindings["kSPEECH_MENU_0"] = 63
key_bindings["kSPEECH_MENU_1"] = 64
key_bindings["kUSE_BANDAGE"] = 73
key_bindings["kUSE_MEDKIT"] = 74
key_bindings["kQUICK_SAVE"] = 75
key_bindings["kQUICK_LOAD"] = 76

Несколько функций в стандартные пространства имен:

table, math, string (Показать)

-- возвращает реальный размер таблицы
-- пример: table.size({"first", "two"}) => 2
function table.size(t)
    if t then
        local c = 0
        for k, v in pairs(t) do
            c = c + 1
        end
        return c
    end
end
	-- округляет число до заданной точности после запятой
-- пример: math.round(0.56765895, 2) => 0.57
function math.round(v, exp)
    if v then
        if not exp then
            exp = 0
        end
        return tonumber(string.format("%."..exp.."f", v))
    end
end
	-- выравнивает значение числа, если оно находится за диапазоном
-- пример: math.clamp(12, 1, 10) => 10
function math.clamp(v, min, max)
    if v then
        if v < min then
            return min
        elseif v > max then
            return max
        end
        return v
    end
end
	-- возвращает количество вхождений шаблона
-- можно посчитать, сколько определенных символов есть в строке
-- пример: string.count("молоко", "о") => 3
function string.count(s, pattern)
    local res, c = string.gsub(s, pattern, "_")
    return c
end

-- возвращает реальный размер таблицы
-- пример: table.size({"first", "two"}) => 2
function table.size(t)
    if t then
        local c = 0
        for k, v in pairs(t) do
            c = c + 1
        end
        return c
    end
end
	-- округляет число до заданной точности после запятой
-- пример: math.round(0.56765895, 2) => 0.57
function math.round(v, exp)
    if v then
        if not exp then
            exp = 0
        end
        return tonumber(string.format("%."..exp.."f", v))
    end
end
	-- выравнивает значение числа, если оно находится за диапазоном
-- пример: math.clamp(12, 1, 10) => 10
function math.clamp(v, min, max)
    if v then
        if v < min then
            return min
        elseif v > max then
            return max
        end
        return v
    end
end
	-- возвращает количество вхождений шаблона
-- можно посчитать, сколько определенных символов есть в строке
-- пример: string.count("молоко", "о") => 3
function string.count(s, pattern)
    local res, c = string.gsub(s, pattern, "_")
    return c
end

Глобальное пространство имен (Показать)

-- переводит значение в булевое
-- пример: toboolean("0") => false
function toboolean(e)
    return e ~= nil and e ~= 0 and e ~= "0" and e ~= "false" and e ~= false
end

Добавить в _G.

Nazgool · 22 Августа 2015

Использовать string.format в функции math.round это очень медленно.

Более чем в два раза быстрее :

function math.round (num, limit)
    local mul = math.pow(10, limit or 0)
    return math.floor(num * mul + 0.5) / mul
end

Хотя стоп. Снимается и извиняюсь. Это работает только в нормальном lua, а не в сталкеровском ))

Да и функция toboolean достаточно специфична. Это я про ноль.

А если nil на входе? Возвратит nil. Но это же не boolean, что подразумевает функция.

Гораздо логичнее будет так :

function toboolean(e)
    return not not e
end

Изменено 22 Августа 2015 пользователем Nazgool

Kirgudu · 22 Августа 2015

Давно пора.

Внесу свои (чужие, конечно) 5 копеек в виде подборки модулей Артоса (все - последних опубликованных автором версий) и одного от xStream - на случай, если у автора темы какого-то из них нет. После принятия к сведению пост можно потереть.

@Artos:

Ссылки на устаревшие версии модулей Artos'а удалены.

Актуальные версии (с исправлением найденных ошибок) опубликованы в этом посте.

@xStream:

xs_sandbox - система событий, «песочница» по терминологии автора.

Все модули мультиплатформенные, инструкция вложена в каждый архив.

@Dennis_Chikin, здесь, на мой взгляд, допустимо обсуждение самих готовых модулей, вопросов их использования и т. п.

О подключении модуля se_stor к ЗП: Начиная отсюда, несколько следующих постов.

Zander.

Изменено 10 Августа 2016 пользователем Kirgudu

Viнt@rь · 22 Августа 2015

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

Платформа ЗП, ориентированна на пропатченный двиг с помощью X-Ray Extentions

http://www.amk-team.ru/forum/index.php?showtopic=12633

Многое есть, в том числе и инструкция внутри архива и в самой теме.

В последнем посте темы есть ссыль на обновленную версию(обновил месяц назад).

Изменено 22 Августа 2015 пользователем Viнt@rь

Zander_driver · 22 Августа 2015

m_net_utils by Artos (Показать)

что это? (Показать)

ссылка на скачивание (Показать)

установка (Показать)

инструкции (Показать)

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

Получение нетпакета:
local packet = m_net_utils.Get_NetPacket(sobj) --- только "state" часть
local packet = m_net_utils.Get_NetPacket(sobj, true) --- вместе с "update"-частью.

Нетпакет возвращается в виде таблицы, опционально в ней находится подтаблица upd, хранящая данные из update-части
пакета.

Присвоение нетпакета объекту:
m_net_utils.Set_NetPacket(sobj, packet)

Обратите внимание что sobj здесь, это серверный объект.
При добавлении новых классов в class_registrator, их надо так же регистрировать в m_net_utils.ltx

Примеры использования:

Узнаем, прицеплен ли к оружию глушитель
function weapon_silenced(weapon_id)
    local sobj = alife():object(weapon_id)
    local packet = m_net_utils.Get_NetPacket(sobj)
    local addon_flags = packet.addon_flags
    if addon_flags == 4 or addon_flags == 5 or addon_flags == 6 or addon_flags == 7 then
    return true
    end
return false
end

Записываем свои данные в кастом-дату объекта:
function set_custom_data(obj_id, data)
    local sobj = alife():object(obj_id)
    local packet = m_net_utils.Get_NetPacket(sobj)
        if sobj and packet then
            packet.custom_data = data
            m_net_utils.Set_NetPacket(sobj, packet)
        end
end

Доработка от Zander: модуль спокойно переносит тот случай когда в него вместо серверного объекта передается nil.
Поэтому возможны и работают конструкции вида

    local sobj = alife():object(obj_id)
    local packet = m_net_utils.Get_NetPacket(sobj)
        if sobj and packet then

......

Zander_driver · 22 Августа 2015

sm_wpns (Показать)

По теме... откопайте кто-нибудь мне инструкцию-описание к расширению Луа от RvP.
А то пользуюсь сам по памяти, скинуть могу, а вот инструкцию к нему приложить, что там лежит - кхм, не смогу)

assembly_dialogs.script (Показать)

Что это такое и для чего? (Показать)

Какие преимущества это дает? (Показать)

Диалог пишется в файле ltx-конфига, и избавлен от громоздкой мишуры xml-тегов. Возможно это мое субъективное мнение, но форма написания диалога получается более наглядной.

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

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

Ряд возможных ошибок при составлении диалога, ранее приводивших к неинформативным или безлоговым вылетам, теперь сопровождаются более ясной информацией в логе. примеры:

1) Старые методы: При указании функции для прекондишена, допущена опечатка/функция не существует. Результат: пока не добраться до той фразы, все работает. Дойдя до проблемной фразы, уже разговаривая с нпс в игре, получаем безлоговый вылет.
Новый метод: Еще при формировании диалога, выполняется проверка существования всех вызываемых в нем функций. В случае, если функция не существует, произойдет вылет:
Dialog <имя диалога>; line <номер строки в диалоге>: function <файл>.<функция> not exist
2) Старые методы: В большом разветвленном диалоге, из-за ошибки в связях между фразами, к какой-либо фразе отсутствует входящая связь. Результат: насколько я помню, довольно неинформативный вылет, никак не помогающий найти ошибку.
Новый метод: Еще при формировании диалога, проверяется его структура. В случае такой ошибки произойдет вылет:
Отсутствует входящий линк для фразы. section <имя диалога>, phrase <номер строки>
3) Старые методы: По ошибке/невнимательности, модостроитель при составлении сложноразветвленного диалога, допустил нарушение чередования фраз актор/нпс. Результат: непредсказуемое поведение диалога в игре, как правило не то что ожидалось, причину приходится искать вручную.
Новый метод: Существует возможность настроить отслеживание фраз. обычный диалог - первая фраза принадлежит актору. старт-диалог - первая фраза принадлежит нпс. Если чередование фраз нарушено, Это будет обнаружено еще при формировании диалога, и произойдет такой вылет:
Нарушено чередование фраз npc/actor. section <имя диалога>, line <номер строки>
указывающий точно, где именно произошло "столкновение" с фразой, принадлежащей не тому собеседнику.
Так же есть возможность отключить отслеживание чередования для отдельно взятого диалога.

Какие есть недостатки? (Показать)

Как установить, с чем совместимо? (Показать)

Как пользоваться? (Показать)

Ну для начала

рекомендации (Показать)

Как создать диалог.

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

Пишем диалог...

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

1. Идем в gamedata\config\dialogs, открываем наш файл my_first_dialog.ltx, где мы создали пока еще пустую, секцию диалога. Диалог в конфиге пишется при помощи команд, далее я напишу какие команды что делают.

2. НЕОБЯЗАТЕЛЬНО.
вот пример простенького диалога:
[my_first_dialog]
x0 = текст_первой_фразы
link0 = 1

x1 = текст_второй_фразы
link1 = 2

x2 = текст_третьей_фразы
Тут все, я думаю, очевидно и понятно.
команды x<номер фразы> - создают новую фразу в диалоге. значение команды это ее текст.
Можно писать текст прямо тут, можно приводить string_id из файлов папки config/text/rus. рекомендуется второй вариант.
Диалог всегда начинается с фразы x0, она здесь обязательна.
команды link<номер фразы> = № следующей фразы - создают связи между фразами.

Теперь возьмем пример посложнее.
[my_first_dialog]
x0 = текст_первой_фразы
link0 = 1
x1 = текст_второй_фразы
link1 = 10, 20, 30

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

Тут у нас актор произносит фразу х0, нпс ему отвечает фразой х1, а далее актору открывается выбор из трех фраз, х10, х20, х30, каждая из которых ведет в свою ветку диалога. Из любой фразы можно сделать неограниченное число линков, разделяя их запятыми. Этот пример так же показывает тот факт, что нумерация фраз не обязана быть сплошной. В них могут быть разрывы до сотни.

И еще вот такой пример:

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

здесь после 4-й фразы (нпс) актору открывается выбор, продолжить диалог или вернуться к началу.
Думаю, с созданием фраз и связей между ними, все уже понятно.

4. Добавляем другие команды
все команды пишутся по принципу <команда><номер фразы>
команда a - добавит вызов функции в указанной фразе (аналогично тегу <action>)
команда p - добавит прекондишен (проверку условия) в указанной фразе (аналогично тегу <precondition>)
команда h - добавит проверку наличия инфопоршня в указанной фразе (аналогично тегу <has_info>)
команда d - добавит проверку отсутствия инфопоршня в указанной фразе (аналогично тегу <dont_has_info>)
команда gi - выдать актору инфопоршень в указанной фразе (аналогично тегу <give_info>)
команда di - отнять у актора инфопоршень в указанной фразе. (аналогично тегу <disable_info>)

Команды для работы с предметами (Показать)

команда item - заспавнить в инвентарь актора итем указанной секции и количества. количество пишется через точку, если не указано то считается равным единице.
пример:
item5 = bandage.10, medkit.5 ; заспавнит 10 бинтов и 5 аптечек
пример2:
item5 = antirad, wpn_pm.2 ; заспавнит 1 антирад и два ПМа.
команда remove - удалить из инвентаря актора итемы указанных секций и количества. Если у актора меньше итемов, удаляются те что есть. Т.е. проверка необходимого количества здесь не выполняется. Если такая проверка нужна, используйте команду has_item.
пример:
remove5 = wpn_pm ; удалит ПМ
пример2:
remove5 = bandage.2, medkit.3, antirad.4, vodka.5 ; удалит 2 бинта, 3 аптечки, 4 антирада и 5 бутылок водки. если чего-то не хватает, это не помешает.
команда has_item - вставляет проверку наличия в инвентаре актора, указанных предметов в указанном количестве.
фраза не будет пропущена, если хоть какого-то из указанных итемов не хватает.
пример:
has_item5 = wpn_abakan ; фраза будет доступна если у актора есть абакан
пример2:
has_item5 = af_medusa.10, bandage.4 ; фраза будет доступна если у актора есть 10 медуз и 4 бинта.
команда donthas_item - вставляет проверку, что в инвентаре актора указанных предметов меньше заданного количества.
пример:
donthas_item5 = wpn_pm, wpn_abakan, wpn_mp5, medkit ; фраза будет доступна только если у актора нет ничего из перечисленного оружия и нет аптечек.
пример2:
donthas_item5 = bandage.25, medkit ; фраза будет доступна если у актора нет ни одной аптечки, и количество бинтов в его инвентаре менее 25.

пример:

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

тут мы в стартовой фразе х0, вызываем скриптовую функцию spawn.minigun,
в следующей выдаем актору некий инфопоршень, затем у нас развилка на три ветки.
первая ветка начинается с фразы 5, в ней предусловие - my_script.answer_function
и если указанная функция вернет истину, то только тогда эта ветка диалога будет доступна. в следующей фразе вызываем три функции, spawn.ammo_1, spawn.medkit, xr_motivator.kill_all_bandits - для любой команды, можно указывать любое количество аргументов, разделяя их запятыми. при вызове, очередность их следования будет соблюдаться.
в другой ветке, начинающейся с фразы x10, на входе мы проверяем наличие двух каких-то инфопоршней. ветка будет доступна если у актора есть оба. третья ветка, начинается с фразы x15, доступна в любом случае и не снабжена никакими командами.

что можно сказать по итогам. К каждой фразе можно прицепить неограниченное количество каких вам угодно команд, и каждой указать любое количество аргументов через запятую. Не надо только повторять команды. к примеру такая запись:
x5 = text
a5 = my_script.xxx_function
link5 = 6
a5 = my_file.answer_function
неправильна, из двух команд a5, читаться будет только одна. Правильный способ записи в таком случае будет выглядеть так:
x5 = text
a5 = my_script.xxx_function, my_file.answer_function
link5 = 6
5. прописываем в профиле любого удобного вам НПС, новый диалог
<actor_dialog>my_first_dialog</actor_dialog>
И идем проверять как все работает.

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

Работа с блоками, Основы (Показать)

Для начала, что такое диалоговый блок. Это некоторый фрагмент диалога, у него есть вход - начальная фраза. Некоторое число фраз, от одной до - много. и есть фразы, (от нуля до сколько захотите), которые считаются выходами диалогового блока. Я не случайно говорю "от нуля" - выходы могут и отсутствовать.
Что такое выходы - это те фразы, к которым будет подключать линки на последующие внешние для этого блока, фразы, внешний для него же, конструктор диалога.
Пока все может быть не очень понятно, наберитесь терпения. когда доберемся до конкретных примеров, все станет яснее.

Как создаются диалоговые блоки? А точно так же как и диалоги. создаем секцию, в нее пишем фразы, линки и команды. Начальная фраза - вход, выходов может быть нет, может быть есть один, может быть много.
Чем же отличается диалоговый блок, от самого диалога? А отличается он тем, что может быть подключен к другому диалогу, в любом месте.

Для создания выходов диалогового блока, существует команда exit. аргумент, который для нее указывается - это порядковый номер выхода.
Давайте уже перейдем к примерам. Создадим простенький диалоговый блок с одним выходом:

Код и диаграмма (Показать)

Как видим, в середине есть возможность вернуться в начало, образуя петлю, в конце есть развилка, одна ветка ведет вникуда, т.е. приводит к обрыванию диалога, другая - вроде бы тоже, но в ней объявлен пока загадочный для нас ВЫХОД. Пока получается что-то похожее на диалог, правда?
Кстати обратите внимание на еще одно отличие - в диалоговом блоке первая фраза x1, а не x0.
Ну и, не лишне будет сказать, при создании диалоговых блоков так же можно пользоваться всеми командами, описанными выше.

Теперь идем далее. Слегка усложним один из примеров диалогов, приведенных ранее.
Это не диалоговый блок, это сам диалог.

Код и диаграмма (Показать)

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

Ну так вот. любую фразу в диалоге можно заменить на диалоговый блок.
Делается это например так:

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

Берем вот этот кусок
x31 = text31
link31 = 32

x32 = text32
link32 = 40
И меняем вот так:
x31 = text31
link31 = 32

block32   = dlg_block_test, block_1
link32 = 40
вместо команды x (создание фразы) - команда block. подключение диалогового блока.

первый аргумент команды - секция конфига подключаемого блока. второй аргумент - имя блока, должно быть уникальным для данного блока. Вы ведь уже поняли что можно вставлять один и тот же блок несколько раз в разных местах диалога? имена только им надо давать разные.

Например, вставим наш блок вместо фраз 12, 22, 32:
block12   = dlg_block_test, block_1
...
block22   = dlg_block_test, block_2
...
block32   = dlg_block_test, block_3
Мы сделали это с тем диалогом что приведен выше, my_first_dialog.
Что же в итоге получится? А вот что:

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

Ну и теперь самый смак. помните, что я говорил, что при создании диалогового блока доступны все те же команды что и для диалога? Так вот. команда block - тоже доступна. Вы можете составлять блоки из блоков, а те в свою очередь еще из блоков - сколько уровней вложенности вам понадобится, столько и будет.
Единственное, чего не стоит делать, это вставлять диалоговый блок внутри себя самого. Спровоцируете бесконечный цикл, который завершится переполнением стека и вылетом.
Таким образом, в код диалогового блока можно вставлять любые другие блоки, кроме него самого.

Блоки с несколькими выходами (Показать)

Создаем диалоговый блок с четырьмя выходами (Показать)

пишем такой диалог:

Код и диаграмма (Показать)

Подробнее... (Показать)

Можно к примеру сделать так, что в каждой из 4-х фраз-выходов диалогового блока, будет выбор, в какую из веток пойти. сделаем все 5 веток доступными для всех выходов:
link3 = 10, 20, 30, 40, 50 | 10, 20, 30, 40, 50 | 10, 20, 30, 40, 50 | 10, 20, 30, 40, 50
Или например: к второму и третьему выходу не будем ничего подключать:
link3 = 10, 20, 30, 40, 50 | | | 10, 20, 30, 40, 50
Или еще пример: оставим к каждому выходу одну фразу, 50 и 51 фразы удалим из диалога:
link3 = 10 | 20 | 30 | 40
Как видите, каждый выход из диалогового блока - может подключаться к любому числу фраз или не подключаться никуда, каждым выходом-потоком можно управлять отдельно. Тут есть один момент. При написании аргумента к команде link диалогового блока, можно записать меньше потоков, чем есть в блоке. Проблем от этого не возникнет, например если я сделаю так:
link3 = 10, 20, 30, 40 | 50
то будут подключены 10,20,30,40-я фразы к первому выходу, 50-я ко второму. к остальным двум выходам не будет подключено ничего.
А вот если я сделаю так:
link3 = 10 | 20 | 30 | 40 | 50
Получится запись которая требует 5 выходов. А у этого диалогового блока есть только четыре. В таком случае произойдет такой вылет:
Dialog <имя диалога>; line <номер строки>: Число выходов диалогового блока недостаточно для подключаемых входов.
Число потоков, подключаемых к выходам диалогового блока, не должно превышать число имеющихся у него выходов.

Диалоговые блоки - скриптерам. Динамическая генерация. (Показать)

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

Возьмем диалог из последнего примера. Там диалоговый блок подключался вот так:
block3 = test_block_2, inserted_block
link3 = 10 | 20 | 30, 40 | 50
и тут, все характеристики этого блока читаются из конфига, который, как ни крути, статичен. Однако можно сделать иначе:
block3 = barter_manager_3.buy_terminal_all, inserted_block
link3 = 10, 20, 30, 40, 50
Здесь - диалоговый блок это не секция конфига. Это указание вида файл.функция. На свою функцию формирования диалогового блока. inserted_block - все так же, уникальное имя этого блока в этом диалоге.
И вы можете свои функции для формирования диалоговых блоков, писать в любом файле скрипта, где вам удобно. Генератор диалога сначала проверит, что такая функция существует, затем ее вызовет, предоставив ей генерировать диалоговый блок по своему разумению.

Для того чтобы работать с этой системой, ваша скриптовая функция должна выполнять ряд правил:
1. генератор вызывая вашу функцию, передает ей 5 аргументов:
*table: phr_tbl, - таблица, хранящая объекты фраз генерируемого диалога (точнее, ссылка на нее)
number: phr_k, - следующий индекс, в который вам предоставлено писать свои фразы
*userdata: dlg, - ссылка на объект диалога, созданный движком, и переданный в скрипты для генерации
string: block_name, - уникальное имя диалогового блока
string: block_input_key - адрес фразы, из которой подан линк на вход вашего блока. Это не id фразы, а ее адрес в системе генератора.
2. ваша функция обязана после завершения своей работы, вернуть генератору аргумент - таблицу.
В этой таблице должны быть два элемента, с числовыми ключами. Первый - следующий после вас, свободный индекс в таблице фраз. Второй - еще таблица, в которой по числовым индексам, хранятся строковые адреса фраз, являющихся выходами вашего блока.
3. при каждом добавлении фразы, обязательно добавлять счетчик фраз на единицу.
4. адреса фраз, создаваемых внутри вашей функции, составлять с применением выданного на входе, имени диалогового блока. Так вы обеспечите уникальность адресов в тех случаях, когда ваш диалоговый блок будет подключаться несколько раз к одному диалогу. Если вы уверены что такого не будет, то 4-е правило соблюдать не обязательно.
еще, в качестве рекомендации, для добавления фраз советую обратить внимание на функцию assembly_dialogs.assembly_phrase_ex. формирует фразы, опираясь не на конфиг, а на переданные в нее данные.

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

function dlgblock_select_costitem(section_item, cnt_item, phr_tbl, phr_k, dlg, type_key, input_key)
    --[[
        блок выбора артефакта/трофея для оплаты. цена оплаты определена до этого,
        наличие у ГГ ценных предметов определено до этого
        Actor
        Название х Количество
        
        Прекондишн: проверить наличие требуемого количества нужных артов
        Прекондишн: проверить что это та цена которая требуется
        Акшн: внести выбранное название в память.
        Блок в одну фразу. все построение блока сводится к формированию функций обработки фразы.
        
    ]]
    --printf(string.format("dlgblock_select_costitem %s", section_item))
    --local inside_key = 1
    --local lost_attempts = 0
    --local inside_links = {}
    --local block_links = {} -- источник - полный адрес. цель - номер в локальной сети.
    local exit_table = {}
    --local item_count = barter_manager_3.Get_Art_Count(section_item)
    if not din_functions_dlg then
        _G.din_functions_dlg = {}
    end
    din_functions_dlg[string.format("costprec_%s_%i", section_item, cost_increment_table[cnt_item])] = function(a,
        local item_count = barter_manager_3.Get_Art_Count(section_item)
        if cnt_item > item_count then return false end -- у ГГ нет столько артов этого вида
        local cost_level = af_memory.level
        local self_cost = af_ranks[section_item] + cost_increment_table[cnt_item]
        return cost_level == self_cost
    end
    local p_tbl = {string.format("din_functions_dlg.costprec_%s_%i", section_item, cost_increment_table[cnt_item])}
    local cost_level = af_memory.level
    din_functions_dlg[string.format("costact_%s_%i", section_item, cost_increment_table[cnt_item])] = function(a,
        barter_manager_3.set_af_memory(section_item, cnt_item, cost_level)
    end
    local a_tbl = {string.format("din_functions_dlg.costact_%s_%i", section_item, cost_increment_table[cnt_item])}
    local textn = ltx:r_string(section_item, "inv_name")
    local text = string.format("%s x %i", game.translate_string(textn), cnt_item)
    assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, string.format("%s%i", type_key, 1), input_key, a_tbl, p_tbl)
    phr_k = phr_k + 1    
    exit_table[1] = string.format("%s%i", type_key, 1)
--- после завершения формирования реальных фраз, надо обработать массив дополнительных линков.
    --phr_k = assembly_dialogs.final_link_BD(inside_key, inside_links, phr_tbl, phr_k, dlg, type_key)
    --phr_k = assembly_dialogs.final_blocklink_BD(block_links, phr_tbl, phr_k, dlg, type_key)
    return {phr_k, exit_table}
    --- возвращаем следующий свободный ид в таблице фраз, и таблицу полных ид фраз, являющихся выходами данного блока.
end
	function buy_terminal_all(phr_tbl, phr_k, dlg, block_name, block_input_key)
    --[[
        блок выбора оплаты, можно подключать к стандартно-формируемым диалогам.
        выбор производится по всем категориям средств оплаты
        структура:
        NPC                 Actor                 NPC
        чем расплатишься? ->     [1 артефакт "А"] ->      Хорошо, получаются у нас
                        [2 артефакта "А"]        вот такие условия сделки:
                         [4 артефакта "А"]        (вывод условий сделки)
                        * * *
                        [1 артефакт "B"]
                        * * *
    ]]
    local exit_table = {}
    local exit_blocks_data = {}
    local text = "Чем расплатишься?"
    local PHR_id = block_name.."buy_terminal_all_input"
    local a_tbl, p_tbl = {}, {}
    assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, PHR_id, block_input_key, a_tbl, p_tbl)
    phr_k = phr_k + 1
    for k, v in pairs(af_ranks) do
        local a = 1
        while a < 100 do
            local BD = barter_manager_3.dlgblock_select_costitem(k, a, phr_tbl, phr_k, dlg, string.format("sel_cost_all_%s_%i", k, a), PHR_id)
            phr_k = BD[1]
            local n_exit = BD[2]
            table.insert(exit_blocks_data, n_exit[1])
        a = a * 2
        end
    end
    text = "Итак, получается у нас с тобой сделка на таких условиях:"
    local PHR_exit = block_name.."buy_terminal_all_exit"
    local exit_created = false
    local exit_a_tbl = {
    "barter_manager_3.get_params_transaction"
    }
    for i, j in pairs(exit_blocks_data) do
        if exit_created then
            phr_tbl[phr_k] = dlg:AddPhrase("", assembly_dialogs.dia(PHR_exit), assembly_dialogs.dia(j), 0)
            phr_k = phr_k + 1
        else
            assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, PHR_exit, j, exit_a_tbl, p_tbl)
            phr_k = phr_k + 1
            exit_created = true
        end
    end
    exit_table[1] = PHR_exit
    return {phr_k, exit_table}
    --- возвращаем следующий свободный ид в таблице фраз, и таблицу полных ид фраз, являющихся выходами данного блока.
end

function dlgblock_select_costitem(section_item, cnt_item, phr_tbl, phr_k, dlg, type_key, input_key)
    --[[
        блок выбора артефакта/трофея для оплаты. цена оплаты определена до этого,
        наличие у ГГ ценных предметов определено до этого
        Actor
        Название х Количество
        
        Прекондишн: проверить наличие требуемого количества нужных артов
        Прекондишн: проверить что это та цена которая требуется
        Акшн: внести выбранное название в память.
        Блок в одну фразу. все построение блока сводится к формированию функций обработки фразы.
        
    ]]
    --printf(string.format("dlgblock_select_costitem %s", section_item))
    --local inside_key = 1
    --local lost_attempts = 0
    --local inside_links = {}
    --local block_links = {} -- источник - полный адрес. цель - номер в локальной сети.
    local exit_table = {}
    --local item_count = barter_manager_3.Get_Art_Count(section_item)
    if not din_functions_dlg then
        _G.din_functions_dlg = {}
    end
    din_functions_dlg[string.format("costprec_%s_%i", section_item, cost_increment_table[cnt_item])] = function(a,
        local item_count = barter_manager_3.Get_Art_Count(section_item)
        if cnt_item > item_count then return false end -- у ГГ нет столько артов этого вида
        local cost_level = af_memory.level
        local self_cost = af_ranks[section_item] + cost_increment_table[cnt_item]
        return cost_level == self_cost
    end
    local p_tbl = {string.format("din_functions_dlg.costprec_%s_%i", section_item, cost_increment_table[cnt_item])}
    local cost_level = af_memory.level
    din_functions_dlg[string.format("costact_%s_%i", section_item, cost_increment_table[cnt_item])] = function(a,
        barter_manager_3.set_af_memory(section_item, cnt_item, cost_level)
    end
    local a_tbl = {string.format("din_functions_dlg.costact_%s_%i", section_item, cost_increment_table[cnt_item])}
    local textn = ltx:r_string(section_item, "inv_name")
    local text = string.format("%s x %i", game.translate_string(textn), cnt_item)
    assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, string.format("%s%i", type_key, 1), input_key, a_tbl, p_tbl)
    phr_k = phr_k + 1    
    exit_table[1] = string.format("%s%i", type_key, 1)
--- после завершения формирования реальных фраз, надо обработать массив дополнительных линков.
    --phr_k = assembly_dialogs.final_link_BD(inside_key, inside_links, phr_tbl, phr_k, dlg, type_key)
    --phr_k = assembly_dialogs.final_blocklink_BD(block_links, phr_tbl, phr_k, dlg, type_key)
    return {phr_k, exit_table}
    --- возвращаем следующий свободный ид в таблице фраз, и таблицу полных ид фраз, являющихся выходами данного блока.
end
	function buy_terminal_all(phr_tbl, phr_k, dlg, block_name, block_input_key)
    --[[
        блок выбора оплаты, можно подключать к стандартно-формируемым диалогам.
        выбор производится по всем категориям средств оплаты
        структура:
        NPC                 Actor                 NPC
        чем расплатишься? ->     [1 артефакт "А"] ->      Хорошо, получаются у нас
                        [2 артефакта "А"]        вот такие условия сделки:
                         [4 артефакта "А"]        (вывод условий сделки)
                        * * *
                        [1 артефакт "B"]
                        * * *
    ]]
    local exit_table = {}
    local exit_blocks_data = {}
    local text = "Чем расплатишься?"
    local PHR_id = block_name.."buy_terminal_all_input"
    local a_tbl, p_tbl = {}, {}
    assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, PHR_id, block_input_key, a_tbl, p_tbl)
    phr_k = phr_k + 1
    for k, v in pairs(af_ranks) do
        local a = 1
        while a < 100 do
            local BD = barter_manager_3.dlgblock_select_costitem(k, a, phr_tbl, phr_k, dlg, string.format("sel_cost_all_%s_%i", k, a), PHR_id)
            phr_k = BD[1]
            local n_exit = BD[2]
            table.insert(exit_blocks_data, n_exit[1])
        a = a * 2
        end
    end
    text = "Итак, получается у нас с тобой сделка на таких условиях:"
    local PHR_exit = block_name.."buy_terminal_all_exit"
    local exit_created = false
    local exit_a_tbl = {
    "barter_manager_3.get_params_transaction"
    }
    for i, j in pairs(exit_blocks_data) do
        if exit_created then
            phr_tbl[phr_k] = dlg:AddPhrase("", assembly_dialogs.dia(PHR_exit), assembly_dialogs.dia(j), 0)
            phr_k = phr_k + 1
        else
            assembly_dialogs.assembly_phrase_ex(text, phr_tbl, phr_k, dlg, PHR_exit, j, exit_a_tbl, p_tbl)
            phr_k = phr_k + 1
            exit_created = true
        end
    end
    exit_table[1] = PHR_exit
    return {phr_k, exit_table}
    --- возвращаем следующий свободный ид в таблице фраз, и таблицу полных ид фраз, являющихся выходами данного блока.
end

Послесловие (Показать)

ссылка на скачивание (Показать)

Опять же просьба к модераторам - вот эту тему http://www.amk-team.ru/forum/index.php?showtopic=13195под снос.
Все нужные данные скопированы сюда, так что хранить этот модуль в отдельной теме смысла уже не имеет.
Кстати модули Артоса гораздо больше заслуживают отдельной темы, чем это мое творение.

zander_log (Показать)

zander_utils.script (Показать)

local table_read = false
local table_shiftindex = 0
local go_read = false
	function v_to_str(v)
return string.format("x: %G; y: %G; z: %G", v.x, v.y, v.z)
end
	function any_data_tostring(v)
local string_returned = ""
local t = type(v)
    if t == "string" then                    --- COMPLETE
        string_returned = " STRING:"..v
    elseif t == "number" then                --- COMPLETE
        string_returned = " NUMBER:"..tostring(v)                
    elseif t == "boolean" then                --- COMPLETE
        if v then
            string_returned = " BOOLEAN:true"
        else
            string_returned = " BOOLEAN:false"
        end
    elseif t == "nil" then                    --- NIL ТЕРЯЕТСЯ ПРИ МАССОВОЙ ПЕРЕДАЧЕ АРГУМЕНТА. COMPLETE
        string_returned = " NIL"
    elseif t == "function" then                --- COMPLETE
        string_returned = " FUNCTION"
        if not v then string_returned = string_returned.."<nil>" end
    elseif t == "userdata" then                --- COMPLETE
        string_returned = " USERDATA"
        go_read = true
        if not v then string_returned = string_returned.."<nil>" end
    elseif t == "table" then
        string_returned = " TABLE:"
        table_read = true
        if not v then string_returned = string_returned.."<nil>" end
    else
        string_returned = "UNKNOWN DATA"
        if not v then string_returned = string_returned.."<nil>" end
    end
    return string_returned
end
	function table_to_str(tbl)
    if type(tbl) ~= "table" then return end
    table_shiftindex = table_shiftindex + 1
    local s = string.rep(" ", table_shiftindex * 3)
    log(s.."{")
    for k,v in pairs(tbl) do
        --log(s.."[KEY: "..zander_utils.any_data_tostring(k).."] = VALUE: "..zander_utils.any_data_tostring(v)..";")
        log(string.format("%s[KEY: %s] = VALUE: %s;", s, zander_utils.any_data_tostring(k), zander_utils.any_data_tostring(v)))
        if table_read then
        table_read = false
            if type(k) == "table" then
                log(s.."Table key:")
                zander_utils.table_to_str(k)
            end
            if type(v) == "table" then
                log(s.."Table value:")
                zander_utils.table_to_str(v)
            end
        end
        if go_read then
        --game_object_tostr(v)
        end
    end
    log(s.."}")
    table_shiftindex = table_shiftindex - 1
end
	function userdata_to_log(go)
if type(go) == "userdata" then
if go.id ~= nil and type(go.id) == 'function' and go.section ~= nil and type(go.section) == 'function' then
    local t = {
        id = go:id(),
        parent = go:parent(),
        section = go:section(),
        position = v_to_str(go:position()),
        lv = go:level_vertex_id(),
        gv = go:game_vertex_id(),
        clsid = go:clsid(),
        story_id = go:story_id()
        ---
    }
    log(";*game_object parameters")
    table_to_str(t)
elseif go.x and type(go.x) == 'number' then
--- attempt unpack as vector
    if go.y and go.z and type(go.y) == 'number' and type (go.z) == 'number' then
    log(";vector parameters")
    local v = {
        x = go.x,
        y = go.y,
        z = go.z
    }
    table_to_str(v)
    else
    log("unknown userdata")
    end
elseif go.id and type(go.id) == 'number' and go.section_name and type(go.section_name) == 'function' then
    local ts = {
        id = go.id,
        section = go:section_name(),
        name = go:name(),
        clsid = go:clsid()
    }
    log(";*server_object parameters")
    table_to_str(ts)
else
    log("unknown userdata")
end
end
end
	function zander_log(...)
table_shiftindex = 0
local o = {...}
for k,v in pairs(o) do
log(zander_utils.any_data_tostring(v)..";")
    if table_read then
    table_read = false
    zander_utils.table_to_str(v)
    end
    if go_read and type(v) == "userdata" then
    zander_utils.userdata_to_log(v)
    end
end
end

local table_read = false
local table_shiftindex = 0
local go_read = false
	function v_to_str(v)
return string.format("x: %G; y: %G; z: %G", v.x, v.y, v.z)
end
	function any_data_tostring(v)
local string_returned = ""
local t = type(v)
    if t == "string" then                    --- COMPLETE
        string_returned = " STRING:"..v
    elseif t == "number" then                --- COMPLETE
        string_returned = " NUMBER:"..tostring(v)                
    elseif t == "boolean" then                --- COMPLETE
        if v then
            string_returned = " BOOLEAN:true"
        else
            string_returned = " BOOLEAN:false"
        end
    elseif t == "nil" then                    --- NIL ТЕРЯЕТСЯ ПРИ МАССОВОЙ ПЕРЕДАЧЕ АРГУМЕНТА. COMPLETE
        string_returned = " NIL"
    elseif t == "function" then                --- COMPLETE
        string_returned = " FUNCTION"
        if not v then string_returned = string_returned.."<nil>" end
    elseif t == "userdata" then                --- COMPLETE
        string_returned = " USERDATA"
        go_read = true
        if not v then string_returned = string_returned.."<nil>" end
    elseif t == "table" then
        string_returned = " TABLE:"
        table_read = true
        if not v then string_returned = string_returned.."<nil>" end
    else
        string_returned = "UNKNOWN DATA"
        if not v then string_returned = string_returned.."<nil>" end
    end
    return string_returned
end
	function table_to_str(tbl)
    if type(tbl) ~= "table" then return end
    table_shiftindex = table_shiftindex + 1
    local s = string.rep(" ", table_shiftindex * 3)
    log(s.."{")
    for k,v in pairs(tbl) do
        --log(s.."[KEY: "..zander_utils.any_data_tostring(k).."] = VALUE: "..zander_utils.any_data_tostring(v)..";")
        log(string.format("%s[KEY: %s] = VALUE: %s;", s, zander_utils.any_data_tostring(k), zander_utils.any_data_tostring(v)))
        if table_read then
        table_read = false
            if type(k) == "table" then
                log(s.."Table key:")
                zander_utils.table_to_str(k)
            end
            if type(v) == "table" then
                log(s.."Table value:")
                zander_utils.table_to_str(v)
            end
        end
        if go_read then
        --game_object_tostr(v)
        end
    end
    log(s.."}")
    table_shiftindex = table_shiftindex - 1
end
	function userdata_to_log(go)
if type(go) == "userdata" then
if go.id ~= nil and type(go.id) == 'function' and go.section ~= nil and type(go.section) == 'function' then
    local t = {
        id = go:id(),
        parent = go:parent(),
        section = go:section(),
        position = v_to_str(go:position()),
        lv = go:level_vertex_id(),
        gv = go:game_vertex_id(),
        clsid = go:clsid(),
        story_id = go:story_id()
        ---
    }
    log(";*game_object parameters")
    table_to_str(t)
elseif go.x and type(go.x) == 'number' then
--- attempt unpack as vector
    if go.y and go.z and type(go.y) == 'number' and type (go.z) == 'number' then
    log(";vector parameters")
    local v = {
        x = go.x,
        y = go.y,
        z = go.z
    }
    table_to_str(v)
    else
    log("unknown userdata")
    end
elseif go.id and type(go.id) == 'number' and go.section_name and type(go.section_name) == 'function' then
    local ts = {
        id = go.id,
        section = go:section_name(),
        name = go:name(),
        clsid = go:clsid()
    }
    log(";*server_object parameters")
    table_to_str(ts)
else
    log("unknown userdata")
end
end
end
	function zander_log(...)
table_shiftindex = 0
local o = {...}
for k,v in pairs(o) do
log(zander_utils.any_data_tostring(v)..";")
    if table_read then
    table_read = false
    zander_utils.table_to_str(v)
    end
    if go_read and type(v) == "userdata" then
    zander_utils.userdata_to_log(v)
    end
end
end

Как использовать: для удобства можно в _g.script глобально объявить, я так у себя сделал:

if zander_utils then zander_log = zander_utils.zander_log end

Ну и потребуется рабочая функция log. У меня для этого луа-расширение RvP, честно не в курсе насчет других вариантов, но поидее должно быть у каждого)

Ну так вот, как это работает. В любом месте какого угодно кода, где вам надо вывести в лог _что угодно_ - пишем

zander_log(любое, число, каких-то, ваших, переменных)

Причем, вам вообще не надо переживать по поводу того, к какому типу относятся эти переменные.
В лог будет выведено, и тип переменных, и их значение. В случае таблиц любой структуры, производится их разбор с разжевыванием типов и значений всех ключей и всех значений в таблице и всех ее подтаблицах независимо от уровня вложенности, и структура таблицы наглядно отображается в логе. Если где-бы то ни было обнаруживается значение типа юзердата, производится попытка его опознать как клиентский объект, как серверный объект, как вектор. Если окажется что юзердата является клиентским/серверным объектом/вектором, будут выведены в лог некоторые основные параметры объекта. Если опознание не удалось, то просто пишем unknown userdata - неизвестный тип юзердаты.

Пример - вот так разбираются таблицы.

 TABLE:;
   {
   [KEY:  NUMBER:1] = VALUE:  USERDATA;
   [KEY:  NUMBER:2] = VALUE:  STRING:smart;
   [KEY:  NUMBER:3] = VALUE:  STRING:scrhud_dangicon_sa;
   [KEY:  NUMBER:4] = VALUE:  TABLE:;
   Table value:
      {
      [KEY:  NUMBER:1] = VALUE:  NUMBER:14;
      [KEY:  NUMBER:2] = VALUE:  NUMBER:14;
      }
   [KEY:  NUMBER:5] = VALUE:  STRING:atp_killer_barlager;
   }

RayTwitty · 22 Августа 2015

Zander_driver писал(а):
По теме... откопайте кто-нибудь мне инструкцию-описание к расширению Луа от RvP. А то пользуюсь сам по памяти, скинуть могу, а вот инструкцию к нему приложить, что там лежит - кхм, не смогу)

https://code.google.com/p/xrluafix/wiki/description

Zander_driver · 22 Августа 2015

Там нету ни слова о восстановлении функции log, хотя она восстановлена а в чистом ТЧ не работает, если мне память не изменяет.

Ну, ладно. Пойдет)

Луа-расширение от RvP. описание в архиве. (Показать)

Изменено 22 Августа 2015 пользователем Zander_driver

RayTwitty · 22 Августа 2015

Zander_driver писал(а):
Там нету ни слова о восстановлении функции log, хотя она восстановлена а в чистом ТЧ не работает, если мне память не изменяет.

Функция вывода в лог там есть, называется log123. Я сам эту либу когда-то собирал, все описание точное, за исключением разве что

--xml
--Lua XML
--Тоже оригинальная Lua библиотека. Более подробно в шапке.

она не входит в комплект с этой библиотекой, её надо качать отдельно и подключать через require. Так например сделано в последнем OGSE.

----------------------------

А ведь, несколько лет назад уже была попытка создать такую тему: http://www.amk-team.ru/forum/index.php?showtopic=12753&p=794719

но кое-кто внизу темы полез в... эм... кхм... вы поняли куда и в конечном итоге тему закрыли :|

Изменено 22 Августа 2015 пользователем Shadows

RayTwitty · 22 Августа 2015

Nazgool писал(а):
Я запустил игру и посмотрел своими глазами. А своим глазам я пока ещё верю

Скомпилил то что на гуглокоде? Или запустил OGSE? Если второе, то ясное дело - в OGSE все это уже есть, LuaXML_lib.dll называется, лежит в bin\extensions.

http://viremo.eludi.net/LuaXML/

http://www.amk-team.ru/forum/index.php?showtopic=6185&p=832428

тем более ты сам когда-то тоже самое говорил

Mcbeat7 · 22 Августа 2015

LuaFix 5.1.5 by svarog2741
Он основан на "LuaFix by RvP".

Обновлена библиотека Lua до версии 5.1.5,

так же до последней версии LuaFileSystem.

https://yadi.sk/d/gBDAwRxCgvpn7

RayTwitty · 22 Августа 2015

Вот кстати подправленная функция поиска тегов для LuaXML: http://www.amk-team.ru/forum/index.php?showtopic=6185&p=833939

Было бы неплохо, если кто-то собрал и выложил LuaXML библиотеку со всеми подобными правками готовую к употреблению. У меня к сожалению на руках нет.

З.Ы. посты 27-34, думаю можно удалить, разобрались.

Изменено 22 Августа 2015 пользователем Shadows

Desertir · 22 Августа 2015

Предлагаю оставить в шапке ссылку на тему Полезные скрипты, которую тут выше упомянули.

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

PS: у Маландринуса тоже были модули по всяким сигналам/таймерам, уж не помню, что там точно было.

Изменено 22 Августа 2015 пользователем Desertir

RayTwitty · 22 Августа 2015

Вот еще нашел, потом оформлю в свой пост:

Функция форматирования текста от Nazgool, которую он по просьбе написал мне пару лет назад. Требовалось для расстановки символов переноса строк в GUI-окнах сталкера.

FormatText (Показать)

-- Форматирование текста для вставки в окно определенного размера
-- Модификатор 'f' - full (или 'ns') - убираются переводы строк и лишние пробелы
-- Модификатор 'n' - перевод строки - убираются переводы строк
-- Модификатор 's' - space - убираются лишние пробелы (несколько пробелов подряд сбиваются в один, убираются пробелы в начале и конце строки)
-- По умолчанию текст оставляется как есть
function FormatText(text, width, mod)
	local new_line_symbol = '\\n' -- '\n'
	local mod_f, mod_n, mod_s
	if type(mod) == 'string' then
		mod_f = mod:match('f')
		mod_n = mod:match('n')
		mod_s = mod:match('s')
	end
	local function TextMod(txt)
		if mod_f or mod_n and mod_s then
			txt = txt:gsub('%s%s+', ' '):gsub('^%s*(.*)%s*$', '%1')
		elseif mod_n then
			txt = txt:gsub(new_line_symbol,'')
		elseif mod_s then
			txt = txt:gsub('[^%S'..new_line_symbol..']+', ' '):gsub('^%s*(.*)%s*$', '%1')
		end
		return txt
	end
	local function SearchEndLine(l, str)
		while str:sub(l, l) ~= ' ' do
			if l == 0 then l = width break end
			l = l - 1
		end
		return l
	end
	text = type(text) == 'string' and TextMod(text) or ''
	width = tonumber(width) or 0
	local NewTab = {}
	local LineTab = {}
	for w in text:gmatch('[^'..new_line_symbol..']+') do
		LineTab[#LineTab + 1] = w
	end
	for i = 1, #LineTab do
		local str = LineTab[i]
		while #str > width do
			local line_len = width
			local s_last = str:sub(line_len, line_len)
			local s_next = str:sub(line_len + 1, line_len + 1)
			if s_last == ' ' or s_next == ' ' then
				NewTab[#NewTab + 1] = TextMod(str:sub(1, line_len))
			else
				local w_line = SearchEndLine(line_len, str)
				NewTab[#NewTab + 1] = TextMod(str:sub(1, w_line))
				line_len = w_line
			end
			str = str:sub(line_len + 1)
		end
		NewTab[#NewTab + 1] = TextMod(str)
	end
	return table.concat(NewTab, new_line_symbol)
end

-- Вызов
local new_text = FormatText(s, 50,'f') -- аргументы 1-й форматируемая строка, 2-й ширина строки(кол-во символов), 3-й модификатор

-- Форматирование текста для вставки в окно определенного размера
-- Модификатор 'f' - full (или 'ns') - убираются переводы строк и лишние пробелы
-- Модификатор 'n' - перевод строки - убираются переводы строк
-- Модификатор 's' - space - убираются лишние пробелы (несколько пробелов подряд сбиваются в один, убираются пробелы в начале и конце строки)
-- По умолчанию текст оставляется как есть
function FormatText(text, width, mod)
	local new_line_symbol = '\\n' -- '\n'
	local mod_f, mod_n, mod_s
	if type(mod) == 'string' then
		mod_f = mod:match('f')
		mod_n = mod:match('n')
		mod_s = mod:match('s')
	end
	local function TextMod(txt)
		if mod_f or mod_n and mod_s then
			txt = txt:gsub('%s%s+', ' '):gsub('^%s*(.*)%s*$', '%1')
		elseif mod_n then
			txt = txt:gsub(new_line_symbol,'')
		elseif mod_s then
			txt = txt:gsub('[^%S'..new_line_symbol..']+', ' '):gsub('^%s*(.*)%s*$', '%1')
		end
		return txt
	end
	local function SearchEndLine(l, str)
		while str:sub(l, l) ~= ' ' do
			if l == 0 then l = width break end
			l = l - 1
		end
		return l
	end
	text = type(text) == 'string' and TextMod(text) or ''
	width = tonumber(width) or 0
	local NewTab = {}
	local LineTab = {}
	for w in text:gmatch('[^'..new_line_symbol..']+') do
		LineTab[#LineTab + 1] = w
	end
	for i = 1, #LineTab do
		local str = LineTab[i]
		while #str > width do
			local line_len = width
			local s_last = str:sub(line_len, line_len)
			local s_next = str:sub(line_len + 1, line_len + 1)
			if s_last == ' ' or s_next == ' ' then
				NewTab[#NewTab + 1] = TextMod(str:sub(1, line_len))
			else
				local w_line = SearchEndLine(line_len, str)
				NewTab[#NewTab + 1] = TextMod(str:sub(1, w_line))
				line_len = w_line
			end
			str = str:sub(line_len + 1)
		end
		NewTab[#NewTab + 1] = TextMod(str)
	end
	return table.concat(NewTab, new_line_symbol)
end

-- Вызов
local new_text = FormatText(s, 50,'f') -- аргументы 1-й форматируемая строка, 2-й ширина строки(кол-во символов), 3-й модификатор

Должна разбивать строку на подстроки расставляя переносы, длина строки задается во втором аргументе

FormatText("тестовый текст тестовый текст тестовый текст тестовый текст тестовый текст тестовый текст", 20) => должно разбить на подстроки по 20 символов

Изменено 22 Августа 2015 пользователем Shadows

Nazgool · 23 Августа 2015

Zander_driver писал(а):
последнее как-то монстровидно

Ну был когда-то и такой вариант функции.

Да мало ли их у меня было? Тем более пару лет назад.

Сейчас например пользуюсь такой :

Показать

-- Форматирование текста по ширине
function string.width(str, width, indent, paragrapf)
    indent    = indent    or 0
    paragrapf = paragrapf or 0
    width     = (width or 80) - indent
    
    local i = string.rep(' ', indent)
    local t = {}
    local line = string.rep(' ', paragrapf)
    
    for exp, word in str:gmatch('(%s-(%S+))') do
        if line == '' and #t ~= 0 then
            exp = word
        end

        local l_len = #line
        local len = l_len + #exp
        
        if len > width then
            t[#t+1], line = line, word
        else
            line = line .. exp
            if l_len == width then
                t[#t+1], line = line, ''
            end
        end
    end

    t[#t+1] = line

    return i .. table.concat(t, '\n' .. i)
end

Всё зависит от целей, которые преследуются.

Zander_driver писал(а):
не помешает инструкция и примеры использования

Вот я писал для себя когда-то. Пришло время поделиться

Там и что-то вроде примеров есть.

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

https://yadi.sk/d/JnegzDX7ibqYw

Можно посмотреть в как я использовал luaxml в файлах OGSE - ogse_musicbox.script, ui_safe.script, ... какие там ещё ...

P.S. В принципе можно обойтись и без LuaXml_lib.dll. С необходимостью использования всех функций этой библиотеки в контексте сталкера я ещё не сталкивался. Достаточно в файл LuaXml.lua дописать три основные функции из dll-ки. Собственно я так и сделал.

Изменено 23 Августа 2015 пользователем Nazgool

naxac · 23 Августа 2015

Внесу и свои три копейки)

Небольшой GUI-класс для имитации поддержки вводв с русской раскладки клавиатуры в CUIEditBox:

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

--[[-----------------------------------------------------------------------------------------------------
	File              : rus_edit_box.script
	Description       : Эмуляция русской раскладки клавиатуры в CUIEditBox (ТЧ)
	Created           : 13.11.2014
	Copyright         : naxac
---------------------------------------------------------------------------------------------------------
Обязательные передаваемые параметры:
 		x, y - координаты верхнего левого угла относительно элемента окна, к которому приаттачивам бокс
		width - ширина окна (высота фиксированная, 25), рекомендуется хотя бы >=100
		stat - элемент базового класса, к которому приаттачиваем бокс
type - необязательный параметр: текстура бокса (см. таблицу box_textures). По умолчанию - ui_linetext_e

Методы:	GetText() - получить введённый текст,
		SetText(string) - поместить в поле текст
		SetTextColor(number,number,number,number) - задать цвет текста (A,R,G,

Пример использования:
	self.edit_box = rus_edit_box.NewEditBox(self.form, 10, 45, 200, "pda")	-- приаттачиваем бокс к базовому классу
Обязательно добавляем в каллбэк на нажатие клавиш базового класса (OnKeyboard):
	self.edit_box:KeyboardCallback(dik)
--]]-----------------------------------------------------------------------------------------------------
local string_sub = string.sub

local eng = [[qwertyuiop[]asdfghjkl;'zxcvbnm,./QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?!@#$%^&*()-_+=\| 0123456789]]
local rus = [[йцукенгшщзхъфывапролджэячсмитьбю.ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,!"№;%:?*()-_+=\/ 0123456789]]
local translit_tbl = {}
for pos = 1, #rus do
	translit_tbl[string_sub(eng, pos, pos)] = string_sub(rus, pos, pos)
end

function translit(s)
	return translit_tbl[s] or s
end

function string.split(str,k)
	local _f, _s = string.match(str, "([^"..k.."]*)"..k.."([^"..k.."]*)")
	return (_f or ""), (_s or "")
end
----------------------------------------------------------------------------------------

class "NewEditBox" (CUIScriptWnd)

local kr = "_"	-- курсор
local box_textures = {
	def		= "ui_linetext_e",
	pda		= "ui_icons_PDA_dialog_string"
	}

function NewEditBox:__init(stat, x, y, width, type) super()
	self.text = kr
	self.lang = "RUS"
	
	local texture = box_textures["def"]
	if type and box_textures[type] then
		texture = box_textures[type]
	end
	
	self.st = CUIStatic()
	self.st:Init(x, y, width, 25)
	
	stat:AttachChild(self.st)
	
	self.edit_box = CUIEditBox()
	self.edit_box:SetAutoDelete(true)
    self.edit_box:Init(0,2,width-39,22)
	self.edit_box:InitTexture(texture)
	self.edit_box:SetTextColor(GetARGB(0,0,0,0))
	self.edit_box:SetFont(GetFontLetterica18Russian())
    self.st:AttachChild(self.edit_box)
	
	self.text_stat = CUIStatic()
	self.text_stat:SetAutoDelete(true)
    self.text_stat:Init(2,4,width-42,22)
	self.text_stat:SetText(self.text)
	self.text_stat:SetTextColor(255,180,255,140)
	self.text_stat:SetFont(GetFontLetterica18Russian())
    self.st:AttachChild(self.text_stat)
	
	self.btn_lang = CUI3tButton()
	self.btn_lang:Init(width-37,0,37,25)
	self.btn_lang:SetAutoDelete(true)
	self.btn_lang:InitTexture("ui_hud_button_voting_01")
	self.btn_lang:SetText(self.lang)
	self.btn_lang:SetTextAlign(CGameFont.alCenter)
	self.btn_lang:SetTextY(1)
	self.btn_lang:SetTextColor(255,216,186,140)
	self.st:AttachChild(self.btn_lang)
	self:Register(self.btn_lang, "btn_lang")
	self:AddCallback("btn_lang", ui_events.BUTTON_CLICKED, self.on_ButtonChangeLang_clicked, self)
end

function NewEditBox:on_ButtonChangeLang_clicked()
	self.lang = (self.lang == "RUS" and "ENG") or "RUS"
	self.btn_lang:SetText(self.lang)
end

function NewEditBox:GetText()
	return string.gsub(self.text, kr, "")
end

function NewEditBox:SetText(text)
	self.text = text..kr
	self.text_stat:SetText(self.text)
end

function NewEditBox:SetTextColor(a,r,g,
	self.text_stat:SetTextColor(a,r,g,
end

function NewEditBox:ChangeText(letter)
	if letter == kr then return end
	local lett = letter and (self.lang=="RUS" and translit(letter) or letter) or ""
	
	local s1, s2 = string.split(self.text,kr)
	self.text = s1..lett..kr..s2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:DeleteLetter(mode)
	local s1, s2 = string.split(self.text,kr)
	if mode then
		s1 = #s1>1 and string_sub(s1,1,-2) or ""
	else
		s2 = #s2>1 and string_sub(s2,2) or ""
	end
	self.text = s1..kr..s2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:CursorMove(mode)
	local s1, s2 = string.split(self.text,kr)
	local str1, str2 = "", ""
	if mode then
		str1 = s1..(#s2>0 and string_sub(s2,1,1) or "")
		str2 = #s2>1 and string_sub(s2,2) or ""
	else
		str1 = #s1>1 and string_sub(s1,1,-2) or ""
		str2 = (#s1>0 and string_sub(s1,-1) or "")..s2
	end
	self.text = str1..kr..str2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:KeyboardCallback(dik)
	if dik == DIK_keys.DIK_BACK then self:DeleteLetter(true)
	elseif dik == DIK_keys.DIK_DELETE then self:DeleteLetter(false)
	elseif dik == DIK_keys.DIK_LEFT then self:CursorMove(false)
	elseif dik == DIK_keys.DIK_RIGHT then self:CursorMove(true)
	elseif dik == DIK_keys.DIK_LMENU or dik == DIK_keys.DIK_RMENU then self:on_ButtonChangeLang_clicked()
	else
		local letter = string_sub(self.edit_box:GetText(),-1)
		if letter and letter~="" then
			self:ChangeText(letter)
			self.edit_box:SetText("")
		end
	end
end

--[[-----------------------------------------------------------------------------------------------------
	File              : rus_edit_box.script
	Description       : Эмуляция русской раскладки клавиатуры в CUIEditBox (ТЧ)
	Created           : 13.11.2014
	Copyright         : naxac
---------------------------------------------------------------------------------------------------------
Обязательные передаваемые параметры:
 		x, y - координаты верхнего левого угла относительно элемента окна, к которому приаттачивам бокс
		width - ширина окна (высота фиксированная, 25), рекомендуется хотя бы >=100
		stat - элемент базового класса, к которому приаттачиваем бокс
type - необязательный параметр: текстура бокса (см. таблицу box_textures). По умолчанию - ui_linetext_e

Методы:	GetText() - получить введённый текст,
		SetText(string) - поместить в поле текст
		SetTextColor(number,number,number,number) - задать цвет текста (A,R,G,

Пример использования:
	self.edit_box = rus_edit_box.NewEditBox(self.form, 10, 45, 200, "pda")	-- приаттачиваем бокс к базовому классу
Обязательно добавляем в каллбэк на нажатие клавиш базового класса (OnKeyboard):
	self.edit_box:KeyboardCallback(dik)
--]]-----------------------------------------------------------------------------------------------------
local string_sub = string.sub

local eng = [[qwertyuiop[]asdfghjkl;'zxcvbnm,./QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?!@#$%^&*()-_+=\| 0123456789]]
local rus = [[йцукенгшщзхъфывапролджэячсмитьбю.ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,!"№;%:?*()-_+=\/ 0123456789]]
local translit_tbl = {}
for pos = 1, #rus do
	translit_tbl[string_sub(eng, pos, pos)] = string_sub(rus, pos, pos)
end

function translit(s)
	return translit_tbl[s] or s
end

function string.split(str,k)
	local _f, _s = string.match(str, "([^"..k.."]*)"..k.."([^"..k.."]*)")
	return (_f or ""), (_s or "")
end
----------------------------------------------------------------------------------------

class "NewEditBox" (CUIScriptWnd)

local kr = "_"	-- курсор
local box_textures = {
	def		= "ui_linetext_e",
	pda		= "ui_icons_PDA_dialog_string"
	}

function NewEditBox:__init(stat, x, y, width, type) super()
	self.text = kr
	self.lang = "RUS"
	
	local texture = box_textures["def"]
	if type and box_textures[type] then
		texture = box_textures[type]
	end
	
	self.st = CUIStatic()
	self.st:Init(x, y, width, 25)
	
	stat:AttachChild(self.st)
	
	self.edit_box = CUIEditBox()
	self.edit_box:SetAutoDelete(true)
    self.edit_box:Init(0,2,width-39,22)
	self.edit_box:InitTexture(texture)
	self.edit_box:SetTextColor(GetARGB(0,0,0,0))
	self.edit_box:SetFont(GetFontLetterica18Russian())
    self.st:AttachChild(self.edit_box)
	
	self.text_stat = CUIStatic()
	self.text_stat:SetAutoDelete(true)
    self.text_stat:Init(2,4,width-42,22)
	self.text_stat:SetText(self.text)
	self.text_stat:SetTextColor(255,180,255,140)
	self.text_stat:SetFont(GetFontLetterica18Russian())
    self.st:AttachChild(self.text_stat)
	
	self.btn_lang = CUI3tButton()
	self.btn_lang:Init(width-37,0,37,25)
	self.btn_lang:SetAutoDelete(true)
	self.btn_lang:InitTexture("ui_hud_button_voting_01")
	self.btn_lang:SetText(self.lang)
	self.btn_lang:SetTextAlign(CGameFont.alCenter)
	self.btn_lang:SetTextY(1)
	self.btn_lang:SetTextColor(255,216,186,140)
	self.st:AttachChild(self.btn_lang)
	self:Register(self.btn_lang, "btn_lang")
	self:AddCallback("btn_lang", ui_events.BUTTON_CLICKED, self.on_ButtonChangeLang_clicked, self)
end

function NewEditBox:on_ButtonChangeLang_clicked()
	self.lang = (self.lang == "RUS" and "ENG") or "RUS"
	self.btn_lang:SetText(self.lang)
end

function NewEditBox:GetText()
	return string.gsub(self.text, kr, "")
end

function NewEditBox:SetText(text)
	self.text = text..kr
	self.text_stat:SetText(self.text)
end

function NewEditBox:SetTextColor(a,r,g,
	self.text_stat:SetTextColor(a,r,g,
end


function NewEditBox:ChangeText(letter)
	if letter == kr then return end
	local lett = letter and (self.lang=="RUS" and translit(letter) or letter) or ""
	
	local s1, s2 = string.split(self.text,kr)
	self.text = s1..lett..kr..s2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:DeleteLetter(mode)
	local s1, s2 = string.split(self.text,kr)
	if mode then
		s1 = #s1>1 and string_sub(s1,1,-2) or ""
	else
		s2 = #s2>1 and string_sub(s2,2) or ""
	end
	self.text = s1..kr..s2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:CursorMove(mode)
	local s1, s2 = string.split(self.text,kr)
	local str1, str2 = "", ""
	if mode then
		str1 = s1..(#s2>0 and string_sub(s2,1,1) or "")
		str2 = #s2>1 and string_sub(s2,2) or ""
	else
		str1 = #s1>1 and string_sub(s1,1,-2) or ""
		str2 = (#s1>0 and string_sub(s1,-1) or "")..s2
	end
	self.text = str1..kr..str2
	
	self.text_stat:SetText(self.text)
end

function NewEditBox:KeyboardCallback(dik)
	if dik == DIK_keys.DIK_BACK then self:DeleteLetter(true)
	elseif dik == DIK_keys.DIK_DELETE then self:DeleteLetter(false)
	elseif dik == DIK_keys.DIK_LEFT then self:CursorMove(false)
	elseif dik == DIK_keys.DIK_RIGHT then self:CursorMove(true)
	elseif dik == DIK_keys.DIK_LMENU or dik == DIK_keys.DIK_RMENU then self:on_ButtonChangeLang_clicked()
	else
		local letter = string_sub(self.edit_box:GetText(),-1)
		if letter and letter~="" then
			self:ChangeText(letter)
			self.edit_box:SetText("")
		end
	end
end

Функция string.lower с поддержкой кириллицы

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

-- 'string.lower' с поддержкой кириллицы.
local low = [[qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапролджэячсмитьбюё]]
local high = [[QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ]]
function string.lower1 (str)
	local ret = ""
	local f
	for s in string.gmatch(str, ".") do
		f = string.find(high, s, 1, true)
		ret = ret..(f and string.sub(low,f,f) or s)
	end
	return ret
endend

Добавить куда-нибудь в _g.script

Изменено 23 Августа 2015 пользователем Murarius

Forser · 23 Августа 2015

Ну в общем есть вот что, правда автора не помню. Clear xrGame. https://yadi.sk/d/IWIubHufMM4Mo

ReadMe (Показать)

Изменено 23 Августа 2015 пользователем Forser

RayTwitty · 29 Августа 2015

Shadows писал(а):
FormatText

Проверил работу функции - все работает, разбивает текст как и задумывалось.

st = CUIStatic()
st:Init("ui\\ui_asus_intro", 0, 0, 295, 140)
st:SetStretchTexture(true)
st:SetText(FormatText(game.translate_string("enc_weapons1_wpn-ak74u"), 40))
st:SetTextComplexMode(true)
get_hud():AddDialogToRender(st)

Изменено 29 Августа 2015 пользователем Shadows

Forser · 19 Сентября 2015

В общем, делал упрощение проверок для себя. Понадобится кому-либо это или нет, я не знаю.

Предмет в слоте (Показать)

В конец _g:

function get_slot_section(n)
 local actor = db.actor
  local item = actor and actor:item_in_slot(n)
  return item and item:section()
end

Пример использования:

  local section = get_slot_section(номер_слота)
   if section == "предмет" then
    ...
  end

Предмет в активном слоте (Показать)

В конец _g:

function active_slot_section(n)
 local actor = db.actor
 local slot = actor and actor:item_in_slot(n)
	if slot and actor:active_slot()==n then
	 local item = actor and actor:item_in_slot(n)
  	 return item and item:section()
     end
end

Пример:


  local section = active_slot_section(номер_слота)
   if section == "предмет" then
    ...
  end

Спасибо за подсказку о подобных функциях: Kirgudu

Войти

Сборочный цех

Рекомендуемые сообщения

Zander_driver 10 345

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Nazgool 250

Ссылка на комментарий

Kirgudu 1 299

Ссылка на комментарий

Viнt@rь 50

Ссылка на комментарий

Zander_driver 10 345

Ссылка на комментарий

Zander_driver 10 345

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Zander_driver 10 345

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Mcbeat7 40

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Desertir 202

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Nazgool 250

Ссылка на комментарий

naxac 2 507

Ссылка на комментарий

Forser 47

Ссылка на комментарий

RayTwitty 534

Ссылка на комментарий

Forser 47

Ссылка на комментарий

Создайте аккаунт или авторизуйтесь, чтобы оставить комментарий

Создать аккаунт

Войти

Недавно просматривали 0 пользователей

Куратор(ы) темы:

AMK Склад