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

 

[chapo]

ML] (error) jopasuka.lua: ...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:4: bad argument #1 to '(for generator)' (table expected, got nil)
stack traceback:
    [C]: in function '(for generator)'
    ...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:4: in function 'isValueInTable'
    ...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:23: in function 'getClosestCarId'
    ...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:43: in function <...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:42>
stack traceback:
    [C]: in function 'create'
    ...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:42: in function <...iles (x86)\a gta bh\red-blue gta\moonloader\jopasuka.lua:41>
[ML] (error) jopasuka.lua: Script died due to an error. (439A942C)

что не так делаю?

local ignore_car = {434, 440, 448, 449, 463, 464, 500, 536, 537, 563, 568, 569, 570, 583, 589, 590, 593, 605, 606, 607, 609, 610, }
local ignore_moto = {447, 460, 461, 462, 467, 480, 508, 509, 520, 521, 522, 580, 585, }
function isValueInTable(tbl, value)
    for k, v in next, tbl do
        if v == value then
            return true
        end
    end
    return false
end
function getClosestCarId()
    local minDist = 300
    local closestId = -1
    local x, y, z = getCharCoordinates(PLAYER_PED)
    for i = 0, 1800 do
        local streamed, pedID = sampGetCarHandleBySampVehicleId(i)
        if streamed then
            local xi, yi, zi = getCarCoordinates(pedID)
            local dist = math.sqrt( (xi - x) ^ 2 + (yi - y) ^ 2 + (zi - z) ^ 2 )
            if dist < minDist then
                minDist = dist
                local model = getCarModel(pedID)
                if not isValueInTable(ignote_car, model) then
                    if not isValueInTable(ignote_moto, model) then
                        closestId = i
                    else
                        local door = getCarDoorLockStatus(pedID)
                        if door == 0 then
                            closestId = i
                        end
                    end
                end
            end
        end
    end
    return closestId
end
function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand('seatt', function()
        lua_thread.create(function()
            local _, veh = sampGetCarHandleBySampVehicleId(getClosestCarId())
            if _ then
                sampSendEnterVehicle(getClosestCarId(), true)
                wait(1000)
                warpCharIntoCar(playerPed, veh)
            end
        end)
    end)
    wait(-1)
end

у тебя таблица называется ignoRe_moto, в при вызове функции ты написал ignoTe_moto

 

[#SameLine]

if imgui.InputTextMultiline('text', s.textspurs, 128, imgui.ImVec2(-1.0, -0.1)) then
        save()
end

почему сохраняется только верхняя строка, как сделать чтобы текст сохранялся на весь multiline с enter'ами

 

[ch1ps]

как создать иконку на карте? к примеру поставить иконку пистолета на нужные координаты

 

[ARMOR]

как создать иконку на карте? к примеру поставить иконку пистолета на нужные координаты

Marker marker = addSpriteBlipForContactPoint(float atX, float atY, float atZ, int icon)

 

[Julimba]

В чем проблема? Скрипт запускается, но в игре неактивен. Ошибок и ероров в логе нету

require "lib.moonloader" -- подключение библиотеки
local keys = require "vkeys"
local imgui = require 'imgui'
local encoding = require 'encoding'
local hook = require 'lib.samp.events'
encoding.default = 'CP1251'
u8 = encoding.UTF8

imgui.ToggleButton = require('imgui_addons').ToggleButton
imgui.HotKey = require('imgui_addons').HotKey
imgui.Spinner = require('imgui_addons').Spinner
imgui.BufferingBar = require('imgui_addons').BufferingBar

local themes = import "resource/imgui_themes.lua"

local tag = "{dc143c}[BLOCKED] "

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
  
    sampAddChatMessage(tag .. "{FFFFFF}Скрипт успешно {30d5c8}активирован", -1)
    sampAddChatMessage(tag .. "{FFFFFF}Активация на - {ffdb8b}NumPad1", -1)
  
     while true do
        wait(0)
        if isKeyJustPressed(VK_NUMPAD1) then        -- NumPad1
            act = not act
            sampAddChatMessage(act and '{dc143c}[BLOCKED]{FFFFFF} Блокировка сообщений успешно{00ff0d} активирована' or '{dc143c}[BLOCKED]{FFFFFF} Блокировка сообщений{FF0000} деактивирована', -1)
        end
    end
end

function sampev.onServerMessage(color, text)
    if string.find(text, 'Отправитель:', 1, true) then
        return false
    end
end

 

[Julimba]

мунлог дай


актуально. мне нужна функция, которая будет создавать текст для текстдрава, к примеру получается таблица с транспортом в зоне стрима и эта таблица должна выводиться в sampTextdrawCreate

Он подгружается, но в игре неактивный, ошибок и ероров тоже нету.

 

[Sadow]

Как удалить визуально для игрока все объекты по айди записанные в массив?

 

[XRLM]

Как удалить визуально для игрока все объекты по айди записанные в массив?

local array = {}
for i = 1, #array do
    obj = sampGetObjectHandleBySampId(array[i])
    deleteObject(obj)
end

 

[Rezbirp]

После закрытия окна mimgui нестандартным методом (Клавишей ESC), с активным InputText'ом (во время ввода в него), он багаеться и в последующем, я не могу ввести текст.

Это возможно пофиксить?

require 'lib.moonloader'
local imgui = require 'mimgui'
local ffi = require 'ffi'
local renderWindow = imgui.new.bool()
local text = imgui.new.char[128]('')

function main()
    sampRegisterChatCommand("inpt", function() renderWindow[0] = true end)
    
    while true do
        wait(0)
        if isKeyDown(VK_ESCAPE) and renderWindow[0] then
            renderWindow[0] = false
        end
    end
end

local newFrame = imgui.OnFrame(
    function() return renderWindow[0] end,
    function(player)
        imgui.InputText("##text", text, ffi.sizeof(text))
    end
)

Спойлер: Демонстрация

 

[вайега52]

После закрытия окна mimgui нестандартным методом (Клавишей ESC), с активным InputText'ом (во время ввода в него), он багаеться и в последующем, я не могу ввести текст.

Это возможно пофиксить?

require 'lib.moonloader'
local imgui = require 'mimgui'
local ffi = require 'ffi'
local renderWindow = imgui.new.bool()
local text = imgui.new.char[128]('')

function main()
    sampRegisterChatCommand("inpt", function() renderWindow[0] = true end)
   
    while true do
        wait(0)
        if isKeyDown(VK_ESCAPE) and renderWindow[0] then
            renderWindow[0] = false
        end
    end
end

local newFrame = imgui.OnFrame(
    function() return renderWindow[0] end,
    function(player)
        imgui.InputText("##text", text, ffi.sizeof(text))
    end
)

Спойлер: Демонстрация

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

 

[вайега52]

up

В теории перебираешь с помощью фор все кары, чекаешь дистанцию или в зоне стрима они или нет, вносишь в таблицу, потом ее рендеришь

 

[Sadow]

local array = {}
for i = 1, #array do
    obj = sampGetObjectHandleBySampId(array[i])
    deleteObject(obj)
end

Либо я тупой, либо ошибка в твоём коде. Как я написал имеется в файле. Там слишком много кода, в сообщение не влезает

 

[XRLM]

Либо я тупой, либо ошибка в твоём коде. Как я написал имеется в файле. Там слишком много кода, в сообщение не влезает

не ебу

 

[Sadow]

не ебу

Заработало.

 

[chapo]

В чем проблема? Буквально 5 минут назад все работало, код не менял. Проблема во всех скриптах которые используют эту функцию

[ML] (error) query.lua: X:\SAMP Medium PC by chapo\moonloader\query.lua:19: calling 'send' on bad self (udp{connected} expected, got userdata)
stack traceback:
    [C]: in function 'send'
    X:\SAMP Medium PC by chapo\moonloader\query.lua:19: in function 'QueryServerInfo'
    X:\SAMP Medium PC by chapo\moonloader\query.lua:73: in function 'PrintServerInfo'
    X:\SAMP Medium PC by chapo\moonloader\query.lua:98: in function <X:\SAMP Medium PC by chapo\moonloader\query.lua:93>
[ML] (error) query.lua: Script died due to an error. (10207654)

local ffi = require("ffi")
local bit = require("bit")
local socket = require("socket")

function QueryServerInfo(ip, port, timeout)
    local ret, response_data, isThread
    local s = socket.udp()
    s:setpeername(ip, port)
    s:settimeout(0)

    local request_data = ffi.new("char[11]", "\x53\x41\x4D\x50\x00\x00\x00\x00\x00\x00\x69")
    local wPort = ffi.new("uint16_t", port)
    local byteIp = {ip:match("(%d+)%.(%d+)%.(%d+)%.(%d+)")}

    for i = 1, 4 do request_data[3+i] = tonumber(byteIp[i]) or 0 end
    request_data[8] = tonumber(wPort)
    request_data[9] = bit.rshift(tonumber(wPort), 8)
 
    s:send(ffi.string(request_data, 11))

    timeout = os.clock() + (((timeout ~= nil) and timeout or 3000) / 1000)
    isThread = pcall(wait, 0)
    while response_data == nil and os.clock() < timeout do
        if isThread then wait(0) end
        response_data = s:receive()
    end

    if response_data and response_data:len() > 11 and response_data:sub(1, 4) == "\x53\x41\x4D\x50" then
        local szData = ffi.new("char[?]", 1024, response_data)
        for i = response_data:len(), 1023 do szData[i] = 0 end

        local parse_data = function(offs, size)
            if size <= 0 then return ffi.new("char[1]", 0) end -- new
     
            local ret = ffi.new("char[?]", size, 0)
            for i = 0, tonumber(size) - 1 do
                ret[i] = szData[i + offs]
            end
            return ret
        end

        local bytePassword = ffi.new("uint8_t", szData[11])
        local wOnlinePlayers = ffi.cast("uint16_t*", parse_data(12, 2))[0]
        local wMaxPlayers = ffi.cast("uint16_t*", parse_data(14, 2))[0]
        local iHostNameLen = ffi.cast("uint32_t*", parse_data(16, 4))[0]
        local szHostName = parse_data(20, iHostNameLen)
        local iGameModeLen = ffi.cast("uint32_t*", parse_data(iHostNameLen + 20, 4))[0]
        local szGameMode = parse_data(iHostNameLen + 24, iGameModeLen)
        local iLanguageLen = ffi.cast("uint32_t*", parse_data(iHostNameLen + iGameModeLen + 24, 4))[0]
        local szLanguage = parse_data(iHostNameLen + iGameModeLen + 28, iLanguageLen)

        ret = {
            password = (bytePassword ~= 0),
            players = {
                online = tonumber(wOnlinePlayers),
                max = tonumber(wMaxPlayers)
            },
            hostname = ffi.string(szHostName, iHostNameLen),
            gamemode = ffi.string(szGameMode, iGameModeLen),
            language = ffi.string(szLanguage, iLanguageLen)
        }
    end

    s:close()
    return ret
end

-- в случае игнора от сервера в течение 1 секунды - повторит попытку ещё 4 раза
function PrintServerInfo(ip, port)
    local current_attempt = 1

    ::label_try::
    local result = QueryServerInfo(ip, port, 1000)
    if result then
        print("Info about " .. ip .. ":")
        print("Password: " .. (result.password and "true" or "false"))
        print("Players: " .. result.players.online .. '/' .. result.players.max)
        print("Hostname: " .. result.hostname)
        print("Mode: " .. result.gamemode)
        print("Language: " .. result.language)
    else
        if current_attempt <= 5 then
            current_attempt = current_attempt + 1
            goto label_try
        end

        print("Error: cannot get info about " .. ip)
    end

    print()
end

function main()
    if not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end

    -- вызываем из main, игру не будет фризить во время вызовов
    PrintServerInfo("37.230.137.174", 7778)
    PrintServerInfo("185.169.134.4", 7777)
    PrintServerInfo("51.83.207.240", 7777)

    wait(-1)
end

код скопирован отсюда: https://www.blast.hk/threads/13380/page-21#post-915030

UPD: никогда не пойму как работает этот ваш луа, после перезагрузки компа все пофиксилось