Вопросы по 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
 
Последнее редактирование:

meowprd

Тот самый Котовский
Проверенный
1,278
718
Привет

Lua:
if text:find(' (.+) убил (.+)') then

  local killer ,victim = text:match(' (.+) убил (.+))')

  table.insert(fplayer, {killer})

  table.insert(fplayer, {victim})

end



for k, v in ipairs(fplayer) do

  if v[1] ~= nil then

    imgui.Text(v[1])

  end

end

Как мне в дальнейшем изменить значения? К примеру, вместо Killer вписать Killer.1 при повторном появлении Killer в тексте
Lua:
if text:find(' (.+) убил (.+)') then
  local killer ,victim = text:match(' (.+) убил (.+))')
  local kCount, vCount = 0, 0
  for i = 1, #fplayer do
      if v[i] == killer then kCount = kCount + 1 end
    if v[i] == victim then vCount = vCount + 1 end
  end
  table.insert(fplayer, string.format("%s.%d", killer, kCount))
  table.insert(fplayer, string.format("%s.%d", victum, vCount))
end



for i = 1, #fplayer do
  if v[i] ~= nil then
    imgui.Text(v[i])
  end
end
А можно сделать круг а не треугольник?
самповскими методами, наверное, нет
 

Gorskin

♥ Love Lua ♥
Проверенный
1,332
1,164
Как удалить самую последнюю строку из .txt файла? Вчера пробовал различные варианты из интернета но я наверное что-то делал не так. Кому не сложно дайте пример пожалуйста)
 

meowkins

Новичок
26
0
пытаюсь знач чекбокс подключить, а он мне говорит что я пытаюсь нулевое значение врубить.
Lua:
local imgui = require 'imgui'
local key = require 'vkeys'
local encoding = require 'encoding'
encoding.default = "CP1251"
u8 = encoding.UTF8

local main_window_state = imgui.ImBool(false)
local text_buffer = imgui.ImBuffer(256)
local CheckBox = imgui.ImBool(true)


function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand("flood", test)
    imgui.Process = false
    imgui.Process = main_window_state.v
    while true do
        if main_window_state.v == false then
            imgui.Process = false
        end
        wait(0)
    end
end

function test()
    main_window_state.v = not main_window_state.v
    imgui.Process = main_window_state.v
end

function imgui.OnDrawFrame()
    if main_window_state.v then
        local sW, sH = getScreenResolution()
        imgui.SetNextWindowSize(imgui.ImVec2(500, 100), imgui.Cond.FirstUseEver)
        imgui.SetNextWindowPos(imgui.ImVec2(sW / 2, sH / 2), imgui.Cond.ImGuiCond_Always, imgui.ImVec2(0.5, 0.5))
        imgui.Begin('vrchat', main_window_state, imgui.WindowFlags.NoResize)
        imgui.InputText(u8("Введите текст"), text_buffer)
        if imgui.CheckBox('olkins', CheckBox) then
            if CheckBox.v then
                local wait_time = os.time() + 180
                CheckBox_State = true
                sampSendChat(u8:decode(text_buffer.v))
                lua_thread.create(function ()
                    while true do wait(0)
                        if not(os.time() - wait_time < 0) and CheckBox_State then
                            local wait_time = os.time() + 180
                            sampSendChat(u8:decode(text_buffer.v))
                        end
                    end
                end)
            else
                CheckBox_State = false
            end
        end
    imgui.End()
    end
end
 

Judo!

Участник
38
17
Lua:
if text:find(' (.+) убил (.+)') then
  local killer ,victim = text:match(' (.+) убил (.+))')
  local kCount, vCount = 0, 0
  for i = 1, #fplayer do
      if v[i] == killer then kCount = kCount + 1 end
    if v[i] == victim then vCount = vCount + 1 end
  end
  table.insert(fplayer, string.format("%s.%d", killer, kCount))
  table.insert(fplayer, string.format("%s.%d", victum, vCount))
end



for i = 1, #fplayer do
  if v[i] ~= nil then
    imgui.Text(v[i])
  end
end

самповскими методами, наверное, нет
Привет, спасибо за помощь, но код выдаёт ошибку
: attempt to index upvalue 'v' (a nil value)
 

kizn

\ 0 _ 0 /
Всефорумный модератор
2,407
2,090
Как удалить самую последнюю строку из .txt файла? Вчера пробовал различные варианты из интернета но я наверное что-то делал не так. Кому не сложно дайте пример пожалуйста)
хуево искал
1627475931312.png


Lua:
local function RemoveLastLine(str)
    local pos = 0 -- start position
    while true do -- loop for searching newlines
        local nl = string.find(str, "\n", pos, true) -- find next newline, true indicates we use plain search, this speeds up on LuaJIT.
        if not nl then break end -- We didn't find any newline or no newlines left.
        pos = nl + 1 -- Save newline position, + 1 is necessary to avoid infinite loop of scanning the same newline, so we search for newlines __after__ this character
    end
    if pos == 0 then return str end -- If didn't find any newline, return original string

    return string.sub(str, 1, pos - 2) -- Return substring from the beginning of the string up to last newline (- 2 returns new string without the last newline itself
end

local file = io.open(путь, "w")
if file then
    local content = RemoveLastLine(file:read("*a"))
    file:write(content)
    file:close()
end
 
  • Нравится
Реакции: moreveal и Gorskin

kizn

\ 0 _ 0 /
Всефорумный модератор
2,407
2,090
@Gorskin наверно может игра повиснуть, если повиснет то юзай вот так:
Lua:
local function RemoveLastLine(str)
    local pos = 0 -- start position
    while true do -- loop for searching newlines
        wait(0)
        local nl = string.find(str, "\n", pos, true) -- find next newline, true indicates we use plain search, this speeds up on LuaJIT.
        if not nl then break end -- We didn't find any newline or no newlines left.
        pos = nl + 1 -- Save newline position, + 1 is necessary to avoid infinite loop of scanning the same newline, so we search for newlines __after__ this character
    end
    if pos == 0 then return str end -- If didn't find any newline, return original string

    return string.sub(str, 1, pos - 2) -- Return substring from the beginning of the string up to last newline (- 2 returns new string without the last newline itself
end

local file = io.open(путь, "w")
if file then
    local content = lua_thread.create(RemoveLastLine, file:read("*a"))
    file:write(content)
    file:close()
end
 
  • Нравится
Реакции: Gorskin

meowprd

Тот самый Котовский
Проверенный
1,278
718
Привет, спасибо за помощь, но код выдаёт ошибку
: attempt to index upvalue 'v' (a nil value)
Lua:
if text:find(' (.+) убил (.+)') then
  local killer ,victim = text:match(' (.+) убил (.+))')
  local kCount, vCount = 0, 0
  for i = 1, #fplayer do
      if v[i] == killer then kCount = kCount + 1 end
    if v[i] == victim then vCount = vCount + 1 end
  end
  table.insert(fplayer, string.format("%s.%d", killer, kCount))
  table.insert(fplayer, string.format("%s.%d", victum, vCount))
end



for i = 1, #fplayer do
  if fplayer[i] ~= nil then
    imgui.Text(fplayer[i])
  end
end

да, мой косяк, забыл переменные поправить
пытаюсь знач чекбокс подключить, а он мне говорит что я пытаюсь нулевое значение врубить.
Lua:
local imgui = require 'imgui'
local key = require 'vkeys'
local encoding = require 'encoding'
encoding.default = "CP1251"
u8 = encoding.UTF8

local main_window_state = imgui.ImBool(false)
local text_buffer = imgui.ImBuffer(256)
local CheckBox = imgui.ImBool(true)


function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand("flood", test)
    imgui.Process = false
    imgui.Process = main_window_state.v
    while true do
        if main_window_state.v == false then
            imgui.Process = false
        end
        wait(0)
    end
end

function test()
    main_window_state.v = not main_window_state.v
    imgui.Process = main_window_state.v
end

function imgui.OnDrawFrame()
    if main_window_state.v then
        local sW, sH = getScreenResolution()
        imgui.SetNextWindowSize(imgui.ImVec2(500, 100), imgui.Cond.FirstUseEver)
        imgui.SetNextWindowPos(imgui.ImVec2(sW / 2, sH / 2), imgui.Cond.ImGuiCond_Always, imgui.ImVec2(0.5, 0.5))
        imgui.Begin('vrchat', main_window_state, imgui.WindowFlags.NoResize)
        imgui.InputText(u8("Введите текст"), text_buffer)
        if imgui.CheckBox('olkins', CheckBox) then
            if CheckBox.v then
                local wait_time = os.time() + 180
                CheckBox_State = true
                sampSendChat(u8:decode(text_buffer.v))
                lua_thread.create(function ()
                    while true do wait(0)
                        if not(os.time() - wait_time < 0) and CheckBox_State then
                            local wait_time = os.time() + 180
                            sampSendChat(u8:decode(text_buffer.v))
                        end
                    end
                end)
            else
                CheckBox_State = false
            end
        end
    imgui.End()
    end
end
ошибку лучше из лога покажи
 

Sanchez.

Известный
706
188
Lua:
while true do
        wait(0)
        if drift then
            setCharCoordinates(PLAYER_PED, x, y + 10, z)
            setCharCoordinates(PLAYER_PED, x, y, z)
            setGameKeyState(14, -256)
            setGameKeyState(0, -256)
        end
    end

Я делаю фарм дрифта, и как сделать так, чтобы машина крутилась?
 

Smeruxa

Известный
1,359
721
Lua:
while true do
        wait(0)
        if drift then
            setCharCoordinates(PLAYER_PED, x, y + 10, z)
            setCharCoordinates(PLAYER_PED, x, y, z)
            setGameKeyState(14, -256)
            setGameKeyState(0, -256)
        end
    end

Я делаю фарм дрифта, и как сделать так, чтобы машина крутилась?
достаточно зайти в гугл

Lua:
 if isKeyDown(VK_A) then
                        addToCarRotationVelocity(carHandle, 0.0, 0.0, 0.1)
                    elseif isKeyDown(VK_D) then
                        addToCarRotationVelocity(carHandle, 0.0, 0.0, -0.1)
                    end
 

meowprd

Тот самый Котовский
Проверенный
1,278
718
Посмотреть вложение 107545Посмотреть вложение 107544
Все скобки закрыты, по почему-то скрипт ругается
ой лучше бы я так делать не стал, ты потом иник ведь не сможешь сохранить нормально (ини не умеет работать со вложенными таблицами внутри таблиц)
если и пользуешься json форматом, то сохряняй все в JSON
да и в аргументах функции encodeJson() должна быть переменная в которой, например, открыт json файл
 
  • Нравится
Реакции: Curtis