Вопросы по Lua скриптингу

Общая тема для вопросов по разработке скриптов на языке программирования Lua, в частности под MoonLoader.
  • Задавая вопрос, убедитесь, что его нет в списке частых вопросов и что на него ещё не отвечали (воспользуйтесь поиском).
  • Поищите ответ в теме посвященной разработке Lua скриптов в MoonLoader
  • Отвечая, убедитесь, что ваш ответ корректен.
  • Старайтесь как можно точнее выразить мысль, а если проблема связана с кодом, то обязательно прикрепите его к сообщению, используя блок [code=lua]здесь мог бы быть ваш код[/code].
  • Если вопрос связан с MoonLoader-ом первым делом желательно поискать решение на wiki.

Частые вопросы

Как научиться писать скрипты? С чего начать?
Информация - Гайд - Всё о Lua скриптинге для MoonLoader(https://blast.hk/threads/22707/)
Как вывести текст на русском? Вместо русского текста у меня какие-то каракули.
Изменить кодировку файла скрипта на Windows-1251. В Atom: комбинация клавиш Ctrl+Shift+U, в Notepad++: меню Кодировки -> Кодировки -> Кириллица -> Windows-1251.
Как получить транспорт, в котором сидит игрок?
Lua:
local veh = storeCarCharIsInNoSave(PLAYER_PED)
Как получить свой id или id другого игрока?
Lua:
local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED) -- получить свой ид
local _, id = sampGetPlayerIdByCharHandle(ped) -- получить ид другого игрока. ped - это хендл персонажа
Как проверить, что строка содержит какой-то текст?
Lua:
if string.find(str, 'текст', 1, true) then
-- строка str содержит "текст"
end
Как эмулировать нажатие игровой клавиши?
Lua:
local game_keys = require 'game.keys' -- где-нибудь в начале скрипта вне функции main

setGameKeyState(game_keys.player.FIREWEAPON, -1) -- будет сэмулировано нажатие клавиши атаки
Все иды клавиш находятся в файле moonloader/lib/game/keys.lua.
Подробнее о функции setGameKeyState здесь: lua - setgamekeystate | BlastHack — DEV_WIKI(https://www.blast.hk/wiki/lua:setgamekeystate)
Как получить id другого игрока, в которого целюсь я?
Lua:
local valid, ped = getCharPlayerIsTargeting(PLAYER_HANDLE) -- получить хендл персонажа, в которого целится игрок
if valid and doesCharExist(ped) then -- если цель есть и персонаж существует
  local result, id = sampGetPlayerIdByCharHandle(ped) -- получить samp-ид игрока по хендлу персонажа
  if result then -- проверить, прошло ли получение ида успешно
    -- здесь любые действия с полученным идом игрока
  end
end
Как зарегистрировать команду чата SAMP?
Lua:
-- До бесконечного цикла/задержки
sampRegisterChatCommand("mycommand", function (param)
     -- param будет содержать весь текст введенный после команды, чтобы разделить его на аргументы используйте string.match()
    sampAddChatMessage("MyCMD", -1)
end)
Крашит игру при вызове sampSendChat. Как это исправить?
Это происходит из-за бага в SAMPFUNCS, когда производится попытка отправки пакета определенными функциями изнутри события исходящих RPC и пакетов. Исправления для этого бага нет, но есть способ не провоцировать его. Вызов sampSendChat изнутри обработчика исходящих RPC/пакетов нужно обернуть в скриптовый поток с нулевой задержкой:
Lua:
function onSendRpc(id)
  -- крашит:
  -- sampSendChat('Send RPC: ' .. id)

  -- норм:
  lua_thread.create(function()
    wait(0)
    sampSendChat('Send RPC: ' .. id)
  end)
end
 
Последнее редактирование:

ufdhbi

Известный
Проверенный
1,455
861
Тебе нужно

Lua:
imgui.OnFrame(function() return ckWallhack[0] and not isGamePaused() and isSampAvailable() and #getAllChars() > 1 end, function()
    theme()
    size = #getAllChars()
    imgui.PushStyleColor(imgui.Col.WindowBg, imgui.ImVec4(0, 0, 0, 0.25))
    imgui.SetNextWindowSize(imgui.ImVec2(width,height))
    imgui.Begin(u8'Список игроков в зоне стрима:')
    local peds = getAllChars()
    for z, v in pairs(peds) do
        local result2, idmwh = sampGetPlayerIdByCharHandle(v)
        if result2 and idmwh ~= sampGetPlayerIdByCharHandle(PLAYER_PED) then
            local exists, handle = sampGetCharHandleBySampPlayerId(idmwh)
            if doesCharExist(handle) then
                local color = sampGetPlayerColor(idmwh)
                if color == 5.53648127e8 then color = 0x99FDFDFD end -- white
                if color == 8025703 then color = 0xFF3333 end -- mask
                if color == 33554432 or color == 419430400 or color == 385875968 then color = 0x90000000 end -- spy-fbi
                local name = sampGetPlayerNickname(idmwh)
                local X, Y, Z = getCharCoordinates(handle)
                local x, y = convert3DCoordsToScreen(X, Y, Z)
                if sampIsPlayerPaused(idmwh) then status = "(AFK)" else status = "" end
                    local text = name..'['..idmwh..'] '..status
                    imgui.Text(text)
                    width = imgui.CalcTextSize(text).x -- переменную width объяви где-то и корректируй как тебе нужно, с учетом CalcTextSize(text).x
                end
            end
        end
    end
    imgui.End()
end).HideCursor = true
Не нужно, окно будет менять размер постоянно
как сделать активацию командой а не кнопкой помогите пожалуйста ребят
Lua:
result, button, list, input = sampHasDialogRespond(229)
        if result and button == 1 then
            if list == 0 then -- Если выбран 1 пункт то..
                sampSendChat('Здравствуйте, Младший Специалист г. San-Fiero Conor McGregor.')
                wait(1000)
                sampSendChat('Могу я увидеть вашу мед.карту?')
            elseif list == 1 then
                sampSendChat("/me взял мед.карту от человека напротив")
                wait(1000)
                sampSendChat("/anim 21")
                wait(3000)
                sampSendChat('/me осмотрел мед.карту на наличие болезней')
                wait(3000)
                sampSendChat('Прошу вас пройти на весы.')
            elseif list == 2 then
                sampSendChat("/do Какой вес у человека стоящего на весах?")
                wait(1000)
                sampSendChat('/n /do У "Ваше Имя и Фамилия" масса тела "Количество" кг.')
            elseif list == 3 then
                sampSendChat("Теперь измерим рост.")
                wait(1000)
                sampSendChat("/do Какой рост у человека?")
                wait(1000)
                sampSendChat('/n /do У "Ваше Имя и Фамилия" рост "Ваш рост" см.')
            elseif list == 4 then
                sampSendChat("Проведём психологическую проверку.")
                wait(1000)
                sampSendChat("Вы когда-то умирали?")
            elseif list == 5 then
                sampSendChat("Вы будете стрелять во врага который находится в толпе мирных жителей?")
            elseif list == 6 then
                sampSendChat('/me поставил(а) в медицинской карте печать "Годен"')
                wait(1000)
                sampSendChat("Поздравляю, Вы прошли мед. комиссию, проходите дальше.")
            elseif list == 7 then
                sampSendChat("К сожалению, Вы не являетесь годным к службе в армии.")
                wait(1000)
                sampSendChat('/me поставил(а) в медицинской карте печать "Не годен"')
            end
        end

        if isKeyDown(0x02) and isKeyJustPressed(VK_P) then
            sampShowDialog(229, "Мед.Проверка", 'Приветствие \nВзять мед. карту \nВес \nРост \nПроверка на МГ - 1 \nПроверка на МГ - 2 \nГоден \nНе годен \0', "Выбрать", "Закрыть", 2)
        end
Lua:
-- пихать в main, до "while true do"
sampRegisterChatCommand("cmd", function() -- cmd - команда, без "/"
    sampShowDialog(229, "Мед.Проверка", 'Приветствие \nВзять мед. карту \nВес \nРост \nПроверка на МГ - 1 \nПроверка на МГ - 2 \nГоден \nНе годен \0', "Выбрать", "Закрыть", 2)
end)
 

Neon3333

Известный
181
71
result, button, list, input = sampHasDialogRespond(229) if result and button == 1 then if list == 0 then -- Если выбран 1 пункт то.. sampSendChat('Здравствуйте, Младший Специалист г. San-Fiero Conor McGregor.') wait(1000) sampSendChat('Могу я увидеть вашу мед.карту?') elseif list == 1 then sampSendChat("/me взял мед.карту от человека напротив") wait(1000) sampSendChat("/anim 21") wait(3000) sampSendChat('/me осмотрел мед.карту на наличие болезней') wait(3000) sampSendChat('Прошу вас пройти на весы.') elseif list == 2 then sampSendChat("/do Какой вес у человека стоящего на весах?") wait(1000) sampSendChat('/n /do У "Ваше Имя и Фамилия" масса тела "Количество" кг.') elseif list == 3 then sampSendChat("Теперь измерим рост.") wait(1000) sampSendChat("/do Какой рост у человека?") wait(1000) sampSendChat('/n /do У "Ваше Имя и Фамилия" рост "Ваш рост" см.') elseif list == 4 then sampSendChat("Проведём психологическую проверку.") wait(1000) sampSendChat("Вы когда-то умирали?") elseif list == 5 then sampSendChat("Вы будете стрелять во врага который находится в толпе мирных жителей?") elseif list == 6 then sampSendChat('/me поставил(а) в медицинской карте печать "Годен"') wait(1000) sampSendChat("Поздравляю, Вы прошли мед. комиссию, проходите дальше.") elseif list == 7 then sampSendChat("К сожалению, Вы не являетесь годным к службе в армии.") wait(1000) sampSendChat('/me поставил(а) в медицинской карте печать "Не годен"') end end if isKeyDown(0x02) and isKeyJustPressed(VK_P) then sampShowDialog(229, "Мед.Проверка", 'Приветствие \nВзять мед. карту \nВес \nРост \nПроверка на МГ - 1 \nПроверка на МГ - 2 \nГоден \nНе годен \0', "Выбрать", "Закрыть", 2) end
Lua:
sampRegisterChatCommand('название команды', название вызываемой командой функции)
 

NoName_001

Участник
152
20
Lua:
function emul_server_message(color, msg)
    local bs = raknetNewBitStream()
    raknetBitStreamWriteInt32(bs, color)
    raknetBitStreamWriteInt32(bs, msg:len())
    raknetBitStreamWriteString(bs, msg)
    raknetEmulRpcReceiveBitStream(93, bs)
end

1. imgui.CollapsingHeader("Test", true)
2. В полезных сниппетах выкладывали функцию для конвертации
3. imgui.Begin(u8'Список игроков в зоне стрима:', ckWallhack, imgui.WindowFlags.AlwaysAutoResize)
при imgui.WindowFlags.AlwaysAutoResize можно выставить минимальный размер по x?
 

ufdhbi

Известный
Проверенный
1,455
861
при imgui.WindowFlags.AlwaysAutoResize можно выставить минимальный размер по x?
Смотри как можно
Lua:
-- перед imgui.End()
imgui.SetWindowSize(u8("тут название окна"), imgui.ImVec2(-1 --[[Значение по X, -1 - автоматически]], -1 -- [[Значение по Y]]))
 
  • Нравится
Реакции: NoName_001

Harley_

Потрачен
3
0
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Привет.
Пытаюсь разобраться с Json, запись, загрузка, но весь гугл обрыл, подробной информации нет для нубов.
1. Каким образом можно записать в json
JSON:
{"text":"Текст один", "Текст два", "Текст три","Текст четыре","Текст пять"}
3. Каким образом выгружать определённый текст "текст пять"?

Заранее спасибо!
 

ufdhbi

Известный
Проверенный
1,455
861
Привет.
Пытаюсь разобраться с Json, запись, загрузка, но весь гугл обрыл, подробной информации нет для нубов.
1. Каким образом можно записать в json
JSON:
{"text":"Текст один", "Текст два", "Текст три","Текст четыре","Текст пять"}
3. Каким образом выгружать определённый текст "текст пять"?

Заранее спасибо!

local json = encodeJson(lua table)
local lua_table = decodeJson(json text)
 
  • Нравится
Реакции: Harley_

Harley_

Потрачен
3
0
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
local json = encodeJson(lua table)
local lua_table = decodeJson(json text)

Записал.
Lua:
local numberjson = 1
local decode = {}
local encode = {"text1", "text2", "text3"}

local f = io.open(getWorkingDirectory().."test.json", "a")
f:write(encodeJson({["" .. numberjson]=encode}))
f:close()

Получилось
Lua:
{"1":["text1","text2","text3"]}

Но хоть убей, не понимаю как выгружать определённый text
Как выгрузить только text3 и записать его в отдельную переменную допустим?
 

Curtis

Участник
282
10
Как увиличишь клавиши Selectabl'a ?

Lua:
if imgui.Selectable(u8("Основная информация"), false) then selected = 1 end
    if imgui.Selectable(u8("Настройки"), false) then selected = 2 end
    if imgui.Selectable(u8("Команды и функции"), false) then selected = 3 end
    if imgui.Selectable(u8("Подсказки"), false) then selected = 4 end
end
 

Sedoj

Участник
56
1
help
чатлог: [FA] AnarchySons Family Pasha Gudkin: {ECECEB}Текст сообщения
ps Family не изменяема, в каждой семье статична
Lua:
if text:match('[FA] .+% Family .+%: .+%') then color = argb_to_rgba(join_argb(255, colors.jail.r, colors.jail.g, colors.jail.b)) end
 
Последнее редактирование:
У

Удалённый пользователь 341712

Гость
Скиньте пожалуйста именно функцию для центрирования текста имгуи
 

ufdhbi

Известный
Проверенный
1,455
861
help
чатлог: [FA] AnarchySons Family Pasha Gudkin: {ECECEB}Текст сообщения
ps Family не изменяема, в каждой семье статична
Lua:
if text:match('[FA] .+% Family .+%: .+%') then color = argb_to_rgba(join_argb(255, colors.jail.r, colors.jail.g, colors.jail.b)) end
В чем вопрос заключается?
Как увиличишь клавиши Selectabl'a ?

Lua:
if imgui.Selectable(u8("Основная информация"), false) then selected = 1 end
    if imgui.Selectable(u8("Настройки"), false) then selected = 2 end
    if imgui.Selectable(u8("Команды и функции"), false) then selected = 3 end
    if imgui.Selectable(u8("Подсказки"), false) then selected = 4 end
end
Lua:
imgui.PushItemWidth(-1)
if imgui.Selectable(u8("Основная информация"), false) then selected = 1 end
    if imgui.Selectable(u8("Настройки"), false) then selected = 2 end
    if imgui.Selectable(u8("Команды и функции"), false) then selected = 3 end
    if imgui.Selectable(u8("Подсказки"), false) then selected = 4 end
imgui.PopItemWidth()
end
Скиньте пожалуйста именно функцию для центрирования текста имгуи
Lua:
function imgui.CenterText(str)
    imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(str).x) / 2);
    imgui.Text(tostring(str));
end
 

Sedoj

Участник
56
1
В чем вопрос заключается?

Lua:
imgui.PushItemWidth(-1)
if imgui.Selectable(u8("Основная информация"), false) then selected = 1 end
    if imgui.Selectable(u8("Настройки"), false) then selected = 2 end
    if imgui.Selectable(u8("Команды и функции"), false) then selected = 3 end
    if imgui.Selectable(u8("Подсказки"), false) then selected = 4 end
imgui.PopItemWidth()
end

Lua:
function imgui.CenterText(str)
    imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(str).x) / 2);
    imgui.Text(tostring(str));
end
В том, что цвет не меняется, мб не так код написан? А именно до then color
 
У

Удалённый пользователь 248267

Гость
Для чего нужна переменная var,и как она работает?