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

 

[Oleg1337228]

Сделайте пожалуйста чтобы при запуске игры вводилась комманда /dels в чат

 

[Corrygan]

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

--function main()
        for k, v in pairs(getAllChars()) do
            local result, id = sampGetPlayerIdByCharHandle(v)
                if result and isCharOnScreen(v) then
                    local color = tonumber("0xFF"..(("%X"):format(sampGetPlayerColor(id))):gsub(".*(......)", "%1"))
                    local dist = getDistanceBetweenCoords3d(myX, myY, myZ, pedX, pedY, pedZ)
                    if settings.car_health == true then
                        car = storeCarCharIsInNoSave(v)
                        if isCharSittingInCar(v, car) == true then
                            car_hp = getCarHealth(car)
                            renderFontDrawText(font_nick_stats, '{808080}CAR HP:{ffffff} '.. car_hp, nrX - renderGetFontDrawTextLength(font_nick_stats, 'CAR HP: '.. car_hp) / 2, nrY + 35, 0xFFFFFFFF, 0x90000000)
                        end
                    end
                end
            end
        end

[ML] (error) Trainer: opcode '03C0' call caused an unhandled exception
stack traceback:
[C]: in function 'storeCarCharIsInNoSave'
D:\Games\RADMIR Games\RADMIR CRMP\moonloader\trainer.lua:471: in function <D:\Games\RADMIR Games\RADMIR CRMP\moonloader\trainer.lua:153>
[ML] (error) Trainer: Script died due to an error. (09EADD3C)

 

[Winstаl]

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

--function main()
        for k, v in pairs(getAllChars()) do
            local result, id = sampGetPlayerIdByCharHandle(v)
                if result and isCharOnScreen(v) then
                    local color = tonumber("0xFF"..(("%X"):format(sampGetPlayerColor(id))):gsub(".*(......)", "%1"))
                    local dist = getDistanceBetweenCoords3d(myX, myY, myZ, pedX, pedY, pedZ)
                    if settings.car_health == true then
                        car = storeCarCharIsInNoSave(v)
                        if isCharSittingInCar(v, car) == true then
                            car_hp = getCarHealth(car)
                            renderFontDrawText(font_nick_stats, '{808080}CAR HP:{ffffff} '.. car_hp, nrX - renderGetFontDrawTextLength(font_nick_stats, 'CAR HP: '.. car_hp) / 2, nrY + 35, 0xFFFFFFFF, 0x90000000)
                        end
                    end
                end
            end
        end

Ты хендл машины получаешь раньше, чем проверяешь, в машине ли пед. То есть, если пед не в машине, ты пытаешься получить грубо говоря ничего. isCharInAnyCar перед car = storeCarCharIsInNoSave(v) поставь, и эту проверку можно убрать - if isCharSittingInCar(v, car) == true then

 

[Oleg1337228]

очень нужен такой скрипт который полностью блокирует появление всех обьектов сервером лаунчер arizona rp​

 

[gdtparser]

Сделайте пожалуйста чтобы при запуске игры вводилась комманда /dels в чат

function main()
    if isSampLoaded() and isSampfuncsLoaded() then
        sampProcessChatInput("/dels")
    end
end

 

[Winstаl]

function main()
    if isSampLoaded() and isSampfuncsLoaded() then
        sampProcessChatInput("/dels")
    end
end

У тебя до запуска сампа скрипт завершится, так как одно из условий будет false, и конструкция if просто пропустится.
Нужен цикл, до момента инициализации структур сампа.

function main()
    while not isSampAvailable() do wait(0) end;
    --[[ тут нужно установить задержку, так как скрипт может загрузиться раньше,
         чем скрипт, для которого нужно вводить команду ]]--
    wait(1000);
    sampProcessChatInput("/dels");
end

 

[gdtparser]

У тебя до запуска сампа скрипт завершится, так как одно из условий будет false, и конструкция if просто пропустится.
Нужен цикл, до момента инициализации структур samp'а.

function main()
    while not isSampAvailable() do wait(0) end;
    --[[ тут нужно установить задержку, так как скрипт может загрузиться раньше,
         чем скрипт, для которого нужно вводить команду ]]--
    wait(1000);
    sampProcessChatInput("/dels");
end

сонный строчил, май бед, спасибо

 

[Oleg1337228]

У тебя до запуска сампа скрипт завершится, так как одно из условий будет false, и конструкция if просто пропустится.
Нужен цикл, до момента инициализации структур сампа.

function main()
    while not isSampAvailable() do wait(0) end;
    --[[ тут нужно установить задержку, так как скрипт может загрузиться раньше,
         чем скрипт, для которого нужно вводить команду ]]--
    wait(1000);
    sampProcessChatInput("/dels");
end

легенда

 

[jeminek]

Привествую , в СТК есть CEF-диалог возле столов. Как сделать так, чтобы при появлении этого CEF-диалога автоматически происходило нажатие клавиши N?

 

[minxty]

--[[ тут нужно установить задержку, так как скрипт может загрузиться раньше, чем скрипт, для которого нужно вводить команду ]]--

а еще легче, поставить z, y и прочие символы в начале имени, что бы скрипт самым последним загрузился

 

[Corrygan]

как юзать dl:AddConvexPolyFilled()

пытаюсь так, игру крашит без ошибок в мунлоге:

function AddPlayerToChamsQuery(handle, color)
    ChamsQuery[handle] = color
end

function RemoveFromChamsQuery(handle)
    ChamsQuery[handle] = nil
end

imgui.OnFrame(
    function() return true end,
    function(self)
        self.HideCursor = true
        if not isSampAvailable() then return end
        if not sampIsLocalPlayerSpawned() then return end
        local dl = imgui.GetBackgroundDrawList()
        local bones_pos = {}
        local bones = {
            head = 8,  -- голова
            neck = 6,  -- шея
            leftarm = 22, -- левая рука
            leftleg = 41, -- левая нога
            ass = 1,  -- таз
            rightleg = 51, -- правая нога
            rightarm = 32, -- правая рука
            returntoneck = 6,  -- вернуться к шее
        }
        for _, bone in pairs(bones) do
            local boneX, boneY, boneZ = getBodyPartCoordinates(bone, v)
            local bonesX, bonesY = convert3DCoordsToScreen(boneX, boneY, boneZ)
            if bonesX and bonesY then
                table.insert(bones_pos, imgui.ImVec2(bonesX, bonesY))
            end
        end
        if settings.chams then
            for handle, color in pairs(ChamsQuery) do
                dl:AddConvexPolyFilled(bones_pos[1], bones_pos[2], bones_pos[3], bones_pos[4], bones_pos[5], bones_pos[6], bones_pos[7], #bones_pos color, true)
            end
        end
    end
)

--main

whil true do
    wait(0)
   
    if elements.chams[0] then
        for k,v in ipairs(getAllChars()) do
            if v ~= PLAYER_PED then
                if ChamsQuery[v] then
                    if not isCharOnScreen(v) then          
                        RemoveFromChamsQuery(v)
                    end
                elseif isCharOnScreen(v) then
                    local _, id = sampGetPlayerIdByCharHandle(v)
                    AddPlayerToChamsQuery(v, sampGetPlayerColor(id))
                end
            end
        end
    end

 

[dmitry.karle]

как юзать dl:AddConvexPolyFilled()

пытаюсь так, игру крашит без ошибок в мунлоге:

function AddPlayerToChamsQuery(handle, color)
    ChamsQuery[handle] = color
end

function RemoveFromChamsQuery(handle)
    ChamsQuery[handle] = nil
end

imgui.OnFrame(
    function() return true end,
    function(self)
        self.HideCursor = true
        if not isSampAvailable() then return end
        if not sampIsLocalPlayerSpawned() then return end
        local dl = imgui.GetBackgroundDrawList()
        local bones_pos = {}
        local bones = {
            head = 8,  -- голова
            neck = 6,  -- шея
            leftarm = 22, -- левая рука
            leftleg = 41, -- левая нога
            ass = 1,  -- таз
            rightleg = 51, -- правая нога
            rightarm = 32, -- правая рука
            returntoneck = 6,  -- вернуться к шее
        }
        for _, bone in pairs(bones) do
            local boneX, boneY, boneZ = getBodyPartCoordinates(bone, v)
            local bonesX, bonesY = convert3DCoordsToScreen(boneX, boneY, boneZ)
            if bonesX and bonesY then
                table.insert(bones_pos, imgui.ImVec2(bonesX, bonesY))
            end
        end
        if settings.chams then
            for handle, color in pairs(ChamsQuery) do
                dl:AddConvexPolyFilled(bones_pos[1], bones_pos[2], bones_pos[3], bones_pos[4], bones_pos[5], bones_pos[6], bones_pos[7], #bones_pos color, true)
            end
        end
    end
)

--main

whil true do
    wait(0)
  
    if elements.chams[0] then
        for k,v in ipairs(getAllChars()) do
            if v ~= PLAYER_PED then
                if ChamsQuery[v] then
                    if not isCharOnScreen(v) then         
                        RemoveFromChamsQuery(v)
                    end
                elseif isCharOnScreen(v) then
                    local _, id = sampGetPlayerIdByCharHandle(v)
                    AddPlayerToChamsQuery(v, sampGetPlayerColor(id))
                end
            end
        end
    end

imgui.OnFrame(
    function() return true end,
    function(self)
        self.HideCursor = true
        if not isSampAvailable() or not sampIsLocalPlayerSpawned() then return end
        local dl = imgui.GetBackgroundDrawList()
        local bones_pos = {}
        local bones = {
            head = 8,     -- голова
            neck = 6,     -- шея
            leftarm = 22, -- левая рука
            leftleg = 41, -- левая нога
            ass = 1,      -- таз
            rightleg = 51,-- правая нога
            rightarm = 32,-- правая рука
            returntoneck = 6, -- замыкаем контур на шею
        }
        for _, bone in pairs(bones) do
            local boneX, boneY, boneZ = getBodyPartCoordinates(bone, v)
            if boneX and boneY and boneZ then
                local scrX, scrY = convert3DCoordsToScreen(boneX, boneY, boneZ)
                if scrX and scrY then
                    table.insert(bones_pos, imgui.ImVec2(scrX, scrY))
                end
            end
        end
        if settings.chams and #bones_pos >= 3 then
            for handle, color in pairs(ChamsQuery) do
                dl:AddConvexPolyFilled(bones_pos, #bones_pos, color, true)
            end
        end
    end
)

check

 

[Corrygan]

как в мимгуи проверить инпут на наличие в нем текста?
if #nick_buffer[0] ~= 0 then - не работает
if nick_buffer[0]:len() ~= 0 then - не работает
if nick_buffer[0] ~= "" then - не работает
сразу крашит без ошибки в мунлоге, фулл код:

local nick_buffer = imgui.new.char[128]()

--OnFrame
imgui.PushItemWidth(100)
imgui.InputText("##nick_buffer_for_exceptions_add", nick_buffer, 128)
imgui.PopItemWidth()

if nick_buffer[0] ~= "" then --?????
    nick_buffer[0] = nick_buffer[0]:gsub("%%", "")
    imgui.SameLine()
    if imgui.Button(nick_buffer[0], imgui.ImVec2(imgui.CalcTextSize(nick_buffer[0]).x + 20, 20)) then
        tryInsert(ignored_nicks, nick_buffer[0])
    end

    local nick_lower = nick_buffer[0]:lower()
    for id = 0, sampGetMaxPlayerId(false) do
        if sampIsPlayerConnected(id) then
            local nick = sampGetPlayerNickname(id)
            if nick:lower():find(nick_lower) then
                imgui.SameLine()
                local button_string = nick.."["..id.."]"
                if imgui.Button(button_string, imgui.ImVec2(imgui.CalcTextSize(button_string).x + 20, 20)) then
                    tryInsert(ignored_nicks, nick)
                end
                break
            end
        end
    end
end

комментировал код частями, оставлял только if nick_buffer[0] с разными вариантами проверок и end, крашило, а когда комментил норм было

imgui.OnFrame(
    function() return true end,
    function(self)
        self.HideCursor = true
        if not isSampAvailable() or not sampIsLocalPlayerSpawned() then return end
        local dl = imgui.GetBackgroundDrawList()
        local bones_pos = {}
        local bones = {
            head = 8,     -- голова
            neck = 6,     -- шея
            leftarm = 22, -- левая рука
            leftleg = 41, -- левая нога
            ass = 1,      -- таз
            rightleg = 51,-- правая нога
            rightarm = 32,-- правая рука
            returntoneck = 6, -- замыкаем контур на шею
        }
        for _, bone in pairs(bones) do
            local boneX, boneY, boneZ = getBodyPartCoordinates(bone, v)
            if boneX and boneY and boneZ then
                local scrX, scrY = convert3DCoordsToScreen(boneX, boneY, boneZ)
                if scrX and scrY then
                    table.insert(bones_pos, imgui.ImVec2(scrX, scrY))
                end
            end
        end
        if settings.chams and #bones_pos >= 3 then
            for handle, color in pairs(ChamsQuery) do
                dl:AddConvexPolyFilled(bones_pos, #bones_pos, color, true)
            end
        end
    end
)

check

тоже не сработало

 

[dmitry.karle]

как в мимгуи проверить инпут на наличие в нем текста?
if #nick_buffer[0] ~= 0 then - не работает
if nick_buffer[0]:len() ~= 0 then - не работает
if nick_buffer[0] ~= "" then - не работает
сразу крашит без ошибки в мунлоге, фулл код:

local nick_buffer = imgui.new.char[128]()

--OnFrame
imgui.PushItemWidth(100)
imgui.InputText("##nick_buffer_for_exceptions_add", nick_buffer, 128)
imgui.PopItemWidth()

if nick_buffer[0] ~= "" then --?????
    nick_buffer[0] = nick_buffer[0]:gsub("%%", "")
    imgui.SameLine()
    if imgui.Button(nick_buffer[0], imgui.ImVec2(imgui.CalcTextSize(nick_buffer[0]).x + 20, 20)) then
        tryInsert(ignored_nicks, nick_buffer[0])
    end

    local nick_lower = nick_buffer[0]:lower()
    for id = 0, sampGetMaxPlayerId(false) do
        if sampIsPlayerConnected(id) then
            local nick = sampGetPlayerNickname(id)
            if nick:lower():find(nick_lower) then
                imgui.SameLine()
                local button_string = nick.."["..id.."]"
                if imgui.Button(button_string, imgui.ImVec2(imgui.CalcTextSize(button_string).x + 20, 20)) then
                    tryInsert(ignored_nicks, nick)
                end
                break
            end
        end
    end
end

комментировал код частями, оставлял только if nick_buffer[0] с разными вариантами проверок и end, крашило, а когда комментил норм было


тоже не сработало

if imgui.InputTextWithHint('##radio', fa.MAGNIFYING_GLASS..u8' Поиск объявлений/эфиров ', radio, ffi.sizeof(radio)) then
    local text = u8:decode(ffi.string(radio))
    if text ~= "" then
        sampAddChatMessage(text, -1)
    else
        sampAddChatMessage("Вы не ввели текст для поиска", -1)
    end
end

под свой код переделай (мой для примера)
а там что за ошибка? так-же краш?

 

[Corrygan]

if imgui.InputTextWithHint('##radio', fa.MAGNIFYING_GLASS..u8' Поиск объявлений/эфиров ', radio, ffi.sizeof(radio)) then
    local text = u8:decode(ffi.string(radio))
    if text ~= "" then
        sampAddChatMessage(text, -1)
    else
        sampAddChatMessage("Вы не ввели текст для поиска", -1)
    end
end

под свой код переделай (мой для примера)
а там что за ошибка? так-же краш?

да, просто краш
ошибки в мунлоге нет