Вопросы по 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.

— Как получить транспорт, в котором сидит игрок?

Спойлер

local veh = storeCarCharIsInNoSave(PLAYER_PED)

— Как получить свой id или id другого игрока?

Спойлер

local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED) -- получить свой ид
local _, id = sampGetPlayerIdByCharHandle(ped) -- получить ид другого игрока. ped - это хендл персонажа

— Как проверить, что строка содержит какой-то текст?

Спойлер

if string.find(str, 'текст', 1, true) then
-- строка str содержит "текст"
end

— Как эмулировать нажатие игровой клавиши?

Спойлер

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 другого игрока, в которого целюсь я?

Спойлер

local valid, ped = getCharPlayerIsTargeting(PLAYER_HANDLE) -- получить хендл персонажа, в которого целится игрок
if valid and doesCharExist(ped) then -- если цель есть и персонаж существует
  local result, id = sampGetPlayerIdByCharHandle(ped) -- получить samp-ид игрока по хендлу персонажа
  if result then -- проверить, прошло ли получение ида успешно
    -- здесь любые действия с полученным идом игрока
  end
end

— Как зарегистрировать команду чата SAMP?

Спойлер

-- До бесконечного цикла/задержки
sampRegisterChatCommand("mycommand", function (param)
     -- param будет содержать весь текст введенный после команды, чтобы разделить его на аргументы используйте string.match()
    sampAddChatMessage("MyCMD", -1)
end)

— Крашит игру при вызове sampSendChat. Как это исправить?

Спойлер

Это происходит из-за бага в SAMPFUNCS, когда производится попытка отправки пакета определенными функциями изнутри события исходящих RPC и пакетов. Исправления для этого бага нет, но есть способ не провоцировать его. Вызов sampSendChat изнутри обработчика исходящих RPC/пакетов нужно обернуть в скриптовый поток с нулевой задержкой:

function onSendRpc(id)
  -- крашит:
  -- sampSendChat('Send RPC: ' .. id)

  -- норм:
  lua_thread.create(function()
    wait(0)
    sampSendChat('Send RPC: ' .. id)
  end)
end

 

[bottom_text]

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

 

[Tol4ek]

Я изменил размер шрифта в имгуи, но хочу добавить туда пару иконок из faIcons. Когда добавляю, то появляются символы вмeсто иконок. Такое только бывает, если есть изменение шрифта. Как сделать так, чтобы работало адекватно?

 

[#SameLine]

Как под:

                        if button == 1 and list == 0 then
                            lua_thread.create(function()
                            sampShowDialog(220, "ку\nку"), "Выбрать", "Закрыть", 2)
                            end)

Сделать ещё диалог?, помогите, а то я уже голову сломал

function main()

        while not isSampAvailable() do wait(0) end

            sampRegisterChatCommand("test", kuku)
            sampAddChatMessage("Loaded", -1)
        
        while true do
        wait(0)
    
        local result, button, list, input = sampHasDialogRespond(1999)
                if result then
                    if button == 1 and list == 0 then
                            lua_thread.create(function()
                            sampShowDialog(220, "ку\nку"), "Выбрать", "Закрыть", 2)
                            end)
                        end
                        if button == 0 then
                        sampCloseCurrentDialogWithButton(0)
                        end
                    end
                end
end

function kuku()
    sampShowDialog(225, "куку", "ку", "Закрыть",nil, 0)
    end

Буду благодарен!

 

[moreveal]

Всем привет. Мне нужно вытащить текст из диалога. Код есть, но текст в диалоге расположен так:

Спойлер: Пример текста

Жалоба:
«Тут текст, который написал игрок»

Ищу текст в диалоге так:

Спойлер: код

function sampev.onShowDialog(dialogId,s,t,b1,b2,text)
    for line in text:gmatch("[^\n]+") do
        if line:find('Жалоба: .+') then
            zhaloba = line:match('Жалоба: (.+)')
            sampAddChatMessage(zhaloba, -1)
        end
    end
end

Ну и в итоге он ничего не находит. Вопрос: как мне вытащить текст, который ниже слова «Жалоба»?

Если текст ниже слова "Жалоба", значит он расположен на другой строке. Ты же пытаешься взять данные с одной строки, думаю, сработает этот вариант:

function sampev.onShowDialog(dialogId,s,t,b1,b2,text)
    if text:find('Жалоба:') then -- лучше сделать проверку по ID диалога
        for line in text:gmatch("[^\n]+") do
            if not line == 'Жалоба:' then
                local message = line:match('«(.+)»')
                sampAddChatMessage(message, -1)
            end
        end
    end
end

 

[HpP]

Пытаюсь сделать меню для взаимодействия с игроком. Получился такой код:

-- беск.цикл
if isKeyJustPressed(69) then
            local result, targetplayer = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(targetplayer) then
                WindowTargetPlayer[0] = true
            end
        end

Но окно появляется только на один кадр. Что делать?(Использую mimgui)

 

[JustMini]

Пытаюсь сделать меню для взаимодействия с игроком. Получился такой код:

-- беск.цикл
if isKeyJustPressed(69) then
            local result, targetplayer = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(targetplayer) then
                WindowTargetPlayer[0] = true
            end
        end

Но окно появляется только на один кадр. Что делать?(Использую mimgui)

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

 

[saspepir]

почему поезд едет очень медленно с setgamekeystate?

 

[HpP]

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

function main()
    if not isSampLoaded() and not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('gg', function() WindowMain[0] = not WindowMain[0] end)
    sampAddChatMessage(tag_name_script..' Скрипт загружен! | Автор: HpP', tag_white_color)
    while true do
        
        if isKeyJustPressed(69) then
            local result, targetplayer = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(targetplayer) then
                WindowTargetPlayer[0] = true
            end
        end
        wait(0)
    end
end
-- окно mimgui
local WindowTargetPlayer = mimgui.OnFrame(
    function() return WindowTargetPlayer[0] end,
    function(player)
        mimgui.SetNextWindowSize(mimgui.ImVec2(600, 400), mimgui.Cond.FirstUseEver)
        mimgui.SetNextWindowPos(mimgui.ImVec2(X / 2, Y / 1.9), mimgui.Cond.FirstUseEver, mimgui.ImVec2(0.5, 0.5))
            mimgui.Begin(u8'Взаимодействие с '..TargetPlayer, WindowTargetPlayer, mimgui.WindowFlags.NoResize)

            mimgui.End()
end)

 

[JustMini]

function main()
    if not isSampLoaded() and not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('gg', function() WindowMain[0] = not WindowMain[0] end)
    sampAddChatMessage(tag_name_script..' Скрипт загружен! | Автор: HpP', tag_white_color)
    while true do
      
        if isKeyJustPressed(69) then
            local result, targetplayer = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(targetplayer) then
                WindowTargetPlayer[0] = true
            end
        end
        wait(0)
    end
end
-- окно mimgui
local WindowTargetPlayer = mimgui.OnFrame(
    function() return WindowTargetPlayer[0] end,
    function(player)
        mimgui.SetNextWindowSize(mimgui.ImVec2(600, 400), mimgui.Cond.FirstUseEver)
        mimgui.SetNextWindowPos(mimgui.ImVec2(X / 2, Y / 1.9), mimgui.Cond.FirstUseEver, mimgui.ImVec2(0.5, 0.5))
            mimgui.Begin(u8'Взаимодействие с '..TargetPlayer, WindowTargetPlayer, mimgui.WindowFlags.NoResize)

            mimgui.End()
end)

Странно, у меня всё работает. У тебя скрипт с ошибкой вылетает? или просто окно закрывается?
Попробуй этот код снизу

function main()
    if not isSampLoaded() and not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('gg', function() WindowMain[0] = not WindowMain[0] end)
    sampAddChatMessage(' Скрипт загружен! | Автор: HpP', -1)
    while true do
        
        if isKeyJustPressed(69) then
            local result, targetplayer = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(targetplayer) then
                WindowTargetPlayer[0] = true
                TargetPlayer = select(2,sampGetPlayerIdByCharHandle(select(2,getCharPlayerIsTargeting())))
            end
        end
        wait(0)
    end
end
-- окно mimgui
local WindowTargetPlayer = mimgui.OnFrame(
    function() return WindowTargetPlayer[0] end,
    function(player)
        mimgui.SetNextWindowSize(mimgui.ImVec2(600, 400), mimgui.Cond.FirstUseEver)
        mimgui.SetNextWindowPos(mimgui.ImVec2(X / 2, Y / 1.9), mimgui.Cond.FirstUseEver, mimgui.ImVec2(0.5, 0.5))
        mimgui.Begin(u8'Взаимодействие с '..TargetPlayer, WindowTargetPlayer, mimgui.WindowFlags.NoResize)

        mimgui.End()
end)

 

[HpP]

Странно, у меня всё работает. У тебя скрипт с ошибкой вылетает? или просто окно закрывается?

У меня окно только на 1 один кадр появляется, а дальше пропадает

 

[JustMini]

У меня окно только на 1 один кадр появляется, а дальше пропадает

Сам скрипт продолжает работать? Или перестаёт?

 

[#SameLine]

Помогите сделать бесконечный поиск игрока, типа системная команда /find id, а хочу /sf id, помогите пожалуйста, образец:

local state = false
local time = os.clock()

function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand("sf", function() state = not state
    end)
    while true do
        wait(0)
        if state then
            if os.clock() - time >= 2 then -- 2 sec
                sampSendChat('/find')
                time = os.clock()
            end
        end
     end
end

Что я сделал не так? как его привести в активность? что бы он делал /sf id

 

[JustMini]

Помогите сделать бесконечный поиск игрока, типа системная команда /find id, а хочу /sf id, помогите пожалуйста, образец:

local state = false
local time = os.clock()

function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand("sf", function() state = not state
    end)
    while true do
        wait(0)
        if state then
            if os.clock() - time >= 2 then -- 2 sec
                sampSendChat('/find')
                time = os.clock()
            end
        end
     end
end

Что я сделал не так? как его привести в активность? что бы он делал /sf id

Если я правильно понял, что ты хочешь, то вот. У меня всё сработало. Вводишь /sf id (удали только лишние сообщения)

local state = false
local time = os.clock()

function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand("sf", function(param)
        if tonumber(param) then
            id = param
            state = not state
            sampAddChatMessage(state and "Включено "..id or "Выключено",-1)
        else
            state = false
            sampAddChatMessage("Выключено",-1)
        end
    end)
    while true do
        wait(0)
        if state then
            if os.clock() - time >= 2 then -- 2 sec
                if id then
                    sampSendChat('/find '..id)
                    sampAddChatMessage(id,-1)
                end
                time = os.clock()
            end
        end
     end
end

 

[HpP]

Сам скрипт продолжает работать? Или перестаёт?

Все решилось. Я просто забыл получать ник выбранного человека, а переменную уже указал в окне)

 

[#SameLine]

Как запихать обычный скрипт, по типу:

require "lib.moonloader"
function main()
  if not isSampfuncsLoaded() or not isSampLoaded() then return end
  while not isSampAvailable() do wait(100) end
  while true do
  wait(0)
    if isKeyJustPressed(VK_NUMPAD9) then
      sampSendChat('/usearm')
    end
  end
  end

В основной код, а то у меня коротких много около 6-7, я их хочу в свой главный скрипт пихнуть, может потому что в основном уже есть function main()

Помогите, буду благодарен