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

 

[meowprd]

Привет

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 в тексте

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

А можно сделать круг а не треугольник?

самповскими методами, наверное, нет

 

[Mr_XyZz]

Hi , How can I kill the player with Physics (using car for example) ?

 

[meowprd]

тоесть только треугольник верно?

не треугольник, а квадрат.
треугольник показывается только когда цель выше/ниже

 

[Gorskin]

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

 

[meowkins]

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

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!]

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]

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

хуево искал

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

 

[kizn]

@Gorskin наверно может игра повиснуть, если повиснет то юзай вот так:

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

 

[meowprd]

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

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

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

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

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.]

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]

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

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

достаточно зайти в гугл

 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

 

[Curtis]

Все скобки закрыты, по почему-то скрипт ругается

 

[#Kai-]

Посмотреть вложение 107545Посмотреть вложение 107544
Все скобки закрыты, по почему-то скрипт ругается

{encodeJson(...)},

 

[Smeruxa]

{encodeJson(...)},

нет

Посмотреть вложение 107545Посмотреть вложение 107544
Все скобки закрыты, по почему-то скрипт ругается

184 строка, поставь запятую

 

[meowprd]

Посмотреть вложение 107545Посмотреть вложение 107544
Все скобки закрыты, по почему-то скрипт ругается

ой лучше бы я так делать не стал, ты потом иник ведь не сможешь сохранить нормально (ини не умеет работать со вложенными таблицами внутри таблиц)
если и пользуешься json форматом, то сохряняй все в JSON
да и в аргументах функции encodeJson() должна быть переменная в которой, например, открыт json файл