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

 

[aidzava]

Делаешь какой то бред, к тому же не объясняешь что тебе конкретно нужно. Подробнее можно пожалуйста, что за строка в onServerMessage, и что ты от неё хочешь.

Lua - Fog distance

с помощью этого скрипта можно изменять дальность прорисовки почти без ограничений. использование: /fogdist [0-3600] в чат, еще можно указать свою команду, написав ее напротив ключа cmd_alias в конфиге (moonloader/config/fogdist.ini) введенное после команды значение сохраняется и применяется при...

www.blast.hk

нужно узнать ид, из списка который в начале скрипта, то-есть если чел на сервере из этого списка, я получаю ид его по НИКУ. и потом ищу строку с его ИД, который я получил до этого

 

[madrasso]

нужно узнать ид, из списка который в начале скрипта, то-есть если чел на сервере из этого списка, я получаю ид его по НИКУ. и потом ищу строку с его ИД, который я получил до этого

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

 

[aidzava]

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

как это сделать?

 

[madrasso]

как это сделать?

Полную строку дай

 

[aidzava]

Полную строку дай

if text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)') then
local admnick, admid, othz = text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)')
end

 

[percheklii]

Делаешь какой то бред, к тому же не объясняешь что тебе конкретно нужно. Подробнее можно пожалуйста, что за строка в onServerMessage, и что ты от неё хочешь.

Lua - Fog distance

с помощью этого скрипта можно изменять дальность прорисовки почти без ограничений. использование: /fogdist [0-3600] в чат, еще можно указать свою команду, написав ее напротив ключа cmd_alias в конфиге (moonloader/config/fogdist.ini) введенное после команды значение сохраняется и применяется при...

www.blast.hk

Ну и зачем ты это скинул?😵

 

[madrasso]

if text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)') then
local admnick, admid, othz = text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)')
end

local function findInArray(array, value)
    for i = 1, #array do
        if (array[i] == value) then
            return i;
        end
    end
    return false;
end


if text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)') then
    local admnick, admid, othz = text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)')
    local name = sampGetPlayerNickname(tonumber(admid));

    if (findInArray(no_forms, name)) then
        -------------------------
    end
end

 

[percheklii]

А че за прикол, почему меняет только высоту иконки кулака, а оружия нет?

local gunH = ffi.cast('float*', ffi.C.malloc(4))
gunH[0] = 55
ffi.cast('float**', 0x58D94D)[0] = gunH

UPD: Если менять так, то все нормально 😳

memory.setfloat(memory.getuint32(0x58D94D), 55)

 

[aidzava]

local function findInArray(array, value)
    for i = 1, #array do
        if (array[i] == value) then
            return i;
        end
    end
    return false;
end


if text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)') then
    local admnick, admid, othz = text:match('Игрок/админ (.+)%[(%d+)%] зашел (.+)')
    local name = sampGetPlayerNickname(tonumber(admid));

    if (findInArray(no_forms, name)) then
        -------------------------
    end
end

спасибо, за старание но чуть-чуть не то, короче смотри код, надеюсь поймешь че я хочу
я выделил строки, мне нужно проверить список ников через ид, и если этот ид равен player в строке, значит stop_forma = true

script_name('auto_forms')
script_author('aidzava')
script_properties("work-in-pause")



requests = require "requests"
se = require("lib.samp.events")
encoding = require("encoding")
encoding.default = 'CP1251'
u8 = encoding.UTF8


active_forma = false
stop_forma = false
work = true

no_forms = {'Ricky_Late', 'Farmer', 'Sam_Mason', 'Conor', 'Dorian_Gray', 'Stalker_Team', 'Sebastian_Disney', 'Jackie_Wilson', 'Derick_Stealer', 'Sapphire_Davydov', 'Maxim_Cordero', 'Don_Morrison', 'Nicolas_Source', 'Alfredo Reynolds'}

admin_rukvo = {'Farmer', 'Sam_Mason', 'Conor', 'Dorian_Gray', 'Stalker_Team', 'Sebastian_Disney', 'Jackie_Wilson', 'Derick_Stealer', 'Sapphire_Davydov', 'Maxim_Cordero', 'Don_Morrison', 'Nicolas_Source'}

all_forms = {'ban', 'warn', 'kick', 'mute', 'jail'}

function ssampGetPlayerIdByNickname(nick)
    local _, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
    if nick == sampGetPlayerNickname(myid) then return myid end
    for i = 0,  999 do if sampIsPlayerConnected(i) and sampGetPlayerNickname(i) == nick then return i end end
    return false
end

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end


    while not isSampAvailable() do wait(100) end

    sampRegisterChatCommand('fr', function ()
        work = not work
        if work then printStringNow('AUTO FORMS~g~ ON', 1000) end
        if not work then printStringNow('AUTO FORMS~r~ OFF', 1000) end
    end)

    while true do wait(0)

        for a, b in ipairs(admin_rukvo) do
        local id = ssampGetPlayerIdByNickname(b)
            if id then
                work = false
                break
            end
        end



        if isGamePaused() then
            afkwork = false
        elseif not isGamePaused() then
            wait(1000)
            afkwork = true
        end
    end
end



function se.onServerMessage(color, text)
    lua_thread.create(function()

    if work and afkwork and not active_forma then
        for k,v in ipairs(all_forms) do
            local anick, aid, kmd, player, time, oth = text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /(.+) (.+) (%d+) (.+)')
            if text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /'..v..'%s(.*)') then
            admin_nick, admin_id, admin_other = text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /'..v..'%s(.*)')
            for i, d in pairs(admin_rukvo) do
                if d == admin_nick then
                    stop_forma = true
                end
            end
            for kk, vv in pairs(no_forms) do
                if vv == player then
                    stop_forma = true
                end
            end
            for a, b in ipairs(no_forms) do
                local id = sampGetPlayerIdByNickname(b)
                if id == player then
                    stop_forma = true
                end
            end

                wait(100); sampSendChat('/re '..player..'')
                wait(500); sampSendChat('/a @'..anick..', у тебя есть доказательства?')
                active_forma = true
                cmd = v
                forma()
            end
        end
    end

    if active_forma then
            if text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: (+)') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            elseif text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: da') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            elseif text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: да') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            end
        end
    end)
end

function forma()
    if active_forma then
        lua_thread.create(function()
            lasttime = os.time()
            lasttimes = 0
            time_out = 7
            while lasttimes < time_out do wait(0)
                lasttimes = os.time() - lasttime
                printStyledString("ADMIN FORM " .. time_out - lasttimes .. " WAIT", 1000, 4)
                if lasttimes == time_out then
                    printStyledString("FORMA SKIPPED", 1000, 4)
                    sampSendChat('/reoff')
                    active_forma = false
                end
                if stop_forma then
                    active_forma = false
                    break
                end
            end
        end)
    end
end
function sampGetPlayerIdByNickname(nick)
    nick = tostring(nick)
    local _, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
    if nick == sampGetPlayerNickname(myid) then return myid end
    for i = 0, 1003 do
      if sampIsPlayerConnected(i) and sampGetPlayerNickname(i) == nick then
        return i
      end
    end
 end

/
скрипт ошибок не выдает, просто не работает эта штука

 for a, b in ipairs(no_forms) do
local id = sampGetPlayerIdByNickname(b)
    if id == player then
        stop_forma = true
   end
end

 

[de_clain]

спасибо, за старание но чуть-чуть не то, короче смотри код, надеюсь поймешь че я хочу
я выделил строки, мне нужно проверить список ников через ид, и если этот ид равен player в строке, значит stop_forma = true

script_name('auto_forms')
script_author('aidzava')
script_properties("work-in-pause")



requests = require "requests"
se = require("lib.samp.events")
encoding = require("encoding")
encoding.default = 'CP1251'
u8 = encoding.UTF8


active_forma = false
stop_forma = false
work = true

no_forms = {'Ricky_Late', 'Farmer', 'Sam_Mason', 'Conor', 'Dorian_Gray', 'Stalker_Team', 'Sebastian_Disney', 'Jackie_Wilson', 'Derick_Stealer', 'Sapphire_Davydov', 'Maxim_Cordero', 'Don_Morrison', 'Nicolas_Source', 'Alfredo Reynolds'}

admin_rukvo = {'Farmer', 'Sam_Mason', 'Conor', 'Dorian_Gray', 'Stalker_Team', 'Sebastian_Disney', 'Jackie_Wilson', 'Derick_Stealer', 'Sapphire_Davydov', 'Maxim_Cordero', 'Don_Morrison', 'Nicolas_Source'}

all_forms = {'ban', 'warn', 'kick', 'mute', 'jail'}

function ssampGetPlayerIdByNickname(nick)
    local _, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
    if nick == sampGetPlayerNickname(myid) then return myid end
    for i = 0,  999 do if sampIsPlayerConnected(i) and sampGetPlayerNickname(i) == nick then return i end end
    return false
end

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end


    while not isSampAvailable() do wait(100) end

    sampRegisterChatCommand('fr', function ()
        work = not work
        if work then printStringNow('AUTO FORMS~g~ ON', 1000) end
        if not work then printStringNow('AUTO FORMS~r~ OFF', 1000) end
    end)

    while true do wait(0)

        for a, b in ipairs(admin_rukvo) do
        local id = ssampGetPlayerIdByNickname(b)
            if id then
                work = false
                break
            end
        end



        if isGamePaused() then
            afkwork = false
        elseif not isGamePaused() then
            wait(1000)
            afkwork = true
        end
    end
end



function se.onServerMessage(color, text)
    lua_thread.create(function()

    if work and afkwork and not active_forma then
        for k,v in ipairs(all_forms) do
            local anick, aid, kmd, player, time, oth = text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /(.+) (.+) (%d+) (.+)')
            if text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /'..v..'%s(.*)') then
            admin_nick, admin_id, admin_other = text:match('%[A%] %{......%}(.*)%[(%d+)%]%{......%}: /'..v..'%s(.*)')
            for i, d in pairs(admin_rukvo) do
                if d == admin_nick then
                    stop_forma = true
                end
            end
            for kk, vv in pairs(no_forms) do
                if vv == player then
                    stop_forma = true
                end
            end
            for a, b in ipairs(no_forms) do
                local id = sampGetPlayerIdByNickname(b)
                if id == player then
                    stop_forma = true
                end
            end

                wait(100); sampSendChat('/re '..player..'')
                wait(500); sampSendChat('/a @'..anick..', у тебя есть доказательства?')
                active_forma = true
                cmd = v
                forma()
            end
        end
    end

    if active_forma then
            if text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: (+)') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            elseif text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: da') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            elseif text:match('%[A%] %{......%}'..admin_nick..'%['..admin_id..'%]%{......%}: да') then
                printStyledString("ADMIN FORM ACCEPTED", 1000, 4)
                wait(100); sampSendChat('/reoff')
                wait(100); sampSendChat('/'..cmd..' '..admin_other)
                active_forma = false
            end
        end
    end)
end

function forma()
    if active_forma then
        lua_thread.create(function()
            lasttime = os.time()
            lasttimes = 0
            time_out = 7
            while lasttimes < time_out do wait(0)
                lasttimes = os.time() - lasttime
                printStyledString("ADMIN FORM " .. time_out - lasttimes .. " WAIT", 1000, 4)
                if lasttimes == time_out then
                    printStyledString("FORMA SKIPPED", 1000, 4)
                    sampSendChat('/reoff')
                    active_forma = false
                end
                if stop_forma then
                    active_forma = false
                    break
                end
            end
        end)
    end
end
function sampGetPlayerIdByNickname(nick)
    nick = tostring(nick)
    local _, myid = sampGetPlayerIdByCharHandle(PLAYER_PED)
    if nick == sampGetPlayerNickname(myid) then return myid end
    for i = 0, 1003 do
      if sampIsPlayerConnected(i) and sampGetPlayerNickname(i) == nick then
        return i
      end
    end
 end

/
скрипт ошибок не выдает, просто не работает эта штука

 for a, b in ipairs(no_forms) do
local id = sampGetPlayerIdByNickname(b)
    if id == player then
        stop_forma = true
   end
end

А зачем у тя 2 цикла одинаковых pairs & ipairs на no_forms

 

[aidzava]

А зачем у тя 2 цикла одинаковых pairs & ipairs на no_forms

один на ник второй на ид, только на ид не работает

 

[Tango]

function sampev.onShowDialog(id, style, title, button1, button2, text)
 
if mode == 3 and #myBuyArray <= 0 and text:find('Прекратить покупку товара') and text:find('Удалить товар с продажи') then
    sms('Список товаров на скуп пустой')
    mode = 0
  end

  if mode == 3 and #myBuyArray > 0 then
    for i, data in ipairs(myBuyArray) do
      if mode == 3 and text:find('Удалить товар с продажи') and text:find('Прекратить покупку товара') and #myBuyArray > 0 then
        lua_thread.create(function ()
          wait(tw)
          sampSendDialogResponse(id, 1, getLineOnTextDialog(text, 'Добавить товар на покупку %(поиск по предметам%)'), nil)
        end)
      end
 
      if mode == 3 and text:find('Введите наименование товара, который хотите найти и выставить на скупку.') and #myBuyArray > 0 then
        lua_thread.create(function ()
          wait(tw)
          sampSendDialogResponse(id, 1, nil, data[1])
        end)
      end

      if mode == 3 and title:find('Поиск товара') and not text:find('Введите наименование товара, который хотите найти и выставить на скупку.') and #myBuyArray > 0 then
        lua_thread.create(function ()
          wait(tw)
                  local text = text:gsub('{......}', '')
          local text = text:gsub('%d.','')
          sampSendDialogResponse(id, 1, 0, nil)
        end)
      end

      if mode == 3 and text:find('Введите цену за товар') then
        lua_thread.create(function ()
          wait(tw)
          sampSendDialogResponse(id, 1, nil, data[3])
        end)
      end

      if mode == 3 and text:find('Введите количество и цену за один товар') then
        lua_thread.create(function ()
          wait(tw)
          sampSendDialogResponse(id, 1, nil, data[2]..','..data[3])
        end)
      end

    end
end
  end

Надеюсь будет понятно и без обьяснений функций, крч как правильно перебрать массив myBuyArray в ивенте onshowdialog. Он при окончании по новой тоже самое делает

Up
upd доделал нормально уже

 

[de_clain]

один на ник второй на ид, только на ид не работает

Всмысле если ты одну таблицу парсишь там че значения меняются
Делай в 1 цикле все

 

[percheklii]

Хочу изменить позицию денег, но происходит следущее : когда двигаю по оси X, если веду мышь влево, оно двигает вправо, двигаю вправо, оно двигает влево. По оси Y все норм.

где-то в беск цикле
local moneyX = ffi.cast('float*', ffi.C.malloc(4))
    local moneyY = ffi.cast('float*', ffi.C.malloc(4))
    moneyX[0] = ini.money.x
    moneyY[0] = ini.money.y
    ffi.cast('float**', 0x58F5FC)[0] = moneyX
    ffi.cast('float**', 0x58F5DC)[0] = moneyY
   
где-то в ondrawframe
if imgui.Button(u8"Изменить позицию", imgui.ImVec2(150, 25)) then
                imgui_on.v = false
                lua_thread.create(function()
                    while not isKeyJustPressed(0x01) do wait(0)
                        local px, py = getCursorPos()
                        local x, y = convertWindowScreenCoordsToGameScreenCoords(px, py)
                        sampSetCursorMode(4)
                        ini.money.x = x
                        ini.money.y = y
                    end
                    imgui_on.v = true
                    sampSetCursorMode(0)
                    inicfg.save(ini, path)
                end)
            end

 

[the same]

почему при использовании функции getCharHealth(id)
выдает хп игрока (любого в радиусе стрима) 1000?