Вопросы по 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
 
Последнее редактирование:
  • Нравится
  • Клоун
  • Эм
Реакции: EnScryptior, minxty, RatnikSrb и 41 других
Нажмите для раскрытия...
sep

sep

Известный
714
79
chapo написал(а):
Либо создать его через игровую функцию и потом проверять расстояние между игроком и пикапом, либо создать пикап с конкретным айди через эмуляцию рпс и потом хукать отправку поднятия пикапа и внутри сделать проверку на айди
Нажмите для раскрытия...
можно пример как Проше всего реализовать просто такого нет не где
 
chapo

chapo

tg/inst: @moujeek
Всефорумный модератор
9,235
12,650
sep написал(а):
можно пример как Проше всего реализовать просто такого нет не где
Нажмите для раскрытия...
Lua: 
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
 
Последнее редактирование:
  • Клоун
  • Нравится
  • Эм
Реакции: Winstаl, sep, XRLM и 2 других
bmw m3 f80

bmw m3 f80

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

WinOS

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

send_to_server_async: 
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

вайега52

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

send_to_server_async: 
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, которая позволяет работать с системными потоками, а не корутинами
 
  • Нравится
Реакции: 2elnwndrer. и WinOS
ollydbg

ollydbg

Известный
166
115
How to write the addresses to change position?
Lua: 
 local function getWeapIconInfo()
    local fist_game_x = 640 - (ffi.cast("float**", 0x58F925 + 2)[0][0] + 111)
    local fist_game_y = (ffi.cast("float**", 0x58F911 + 2)[0][0])
    local fist_game_width = ffi.cast("float**", 0x58D933 + 2)[0][0]
    local fist_game_height = ffi.cast("float**", 0x58D94B + 2)[0][0]
    local fist_x, fist_y = convertGameScreenCoordsToWindowScreenCoords(fist_game_x, fist_game_y)
    local fist_width, fist_height = convertGameScreenCoordsToWindowScreenCoords(fist_game_width, fist_game_height)
    local res = {
        pos = {x = fist_x, y = fist_y},
        size = {x = fist_width, y = fist_height},
    }
    return res
end
 
R

riiiiiiii

Известный
34
1
Почему не крафтится ган?
Lua: 
[/B]
script_name("ebala3")
script_author("R")
script_description("anti zero ammo /aza")

require "lib.moonloader"
local inicfg = require "inicfg"
local cfg = inicfg.load({
    settings = {
        tocraft = 14,
        count = 2
    },
})
inicfg.save(cfg)
local errors = false

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage("ebala3 loaded", 0x00DD00)
    sampRegisterChatCommand("aza", cmd_aza)
    while true do
        wait(1)
        ammo = getAmmoInCharWeapon(PLAYER_PED, 24)

        local aza_tocraft = tonumber(cfg.settings.tocraft)
        local aza_count = tonumber(cfg.settings.count)
        if errors == false then
            prevammo = getAmmoInCharWeapon(PLAYER_PED, 24)
            if prevammo == aza_tocraft then
                sampsendchat(string.format("/de %d", aza_count))
                taskPlayAnim(PLAYER_PED, "camcrch_stay", "CAMERA", 4.0, false, false, true, false, 1)
                wait(1000)
                nowammo = getAmmoInCharWeapon(PLAYER_PED, 24)
                if prevammo == nowammo then
                    errors = true
                    sampAddChatMessage("ebala3 script stopped due to error", 0x00DD00)
                end
            end
        end
    end
end
function cmd_aza(arg)
    local var1, var2 = string.match(arg, "(%d+)%s+(%d+)") -- всё до "inicfg.save" делал через гпт чат
    if var1 and var2 then
    cfg.settings.tocraft = tonumber(var1)
    cfg.settings.count = tonumber(var2)
    
    inicfg.save(cfg)
    sampAddChatMessage("ebala3 config saved: tocraft ="..var1..", count="..var2, 0x00DD00)
    else
        sampAddChatMessage("ebala3: use /aza [tocraft] [count]", 0x00DD00)
    end
end
function saveData()
    inicfg.save({
        settings = {
            tocraft = cfg.settings.tocraft,
            count = cfg.settings.count
        },
    }) 
end
[B]
 

Вложения

  • ebala3.lua
    2 KB · Просмотры: 0
sssilvian

sssilvian

Активный
5
0
Как телепортировать машину в мои координаты на 10 единиц вперёд от текущих, используя её идентификатор, например, с помощью команды /MOVECAR ID, и как получить список всех идентификаторов и названий машин в диалоговом окне? Знаю, что прошу слишком многого, но я новичок в написании скриптов, в основном в LUA Moonloader.
 
M_D

M_D

Участник
8
0
Можно ли через Lua скрипт, перехвачивать репорты, которые на тебя пишут? Как пример, для серверов Arizona/Evolve
 
Последнее редактирование:
sep

sep

Известный
714
79
ид тексдрайва постоянно меняются можно как то по другому клик сделать ??
такста нет смотрите скрин
пример пожалуйта

54781852602_f6e4b2b737_z.jpg
 
Войдите или зарегистрируйтесь для ответа.

Similar threads

  1. AnWu
    • Закреплено
    Информация Ответы на часто задаваемые вопросы [FAQ]
      • Нравится
      • Влюблен
    Ответы
    26
    Просмотры
    21K
    Lua
    вайега52
    вайега52
  2. Smeruxa
    Вопросы по Lua скриптингу
      • Клоун
    Ответы
    1
    Просмотры
    415
    Общение
    chromiusj
    chromiusj
  3. W
    • Решено
    Не работает у меня downloadUrlToFile
    Ответы
    6
    Просмотры
    2K
    Вопросы
    wintreist
    W
  4. Frapsy
    • Опрос
    Исходник Полноценный исходник фракционного(МО) скрипта ARP
      • Нравится
    Ответы
    74
    Просмотры
    41K
    Lua
    Frapsy
    Frapsy
  5. Taisheika
    • Вопрос
    Вопросы по Lua скриптингу
    Ответы
    2
    Просмотры
    1K
    Помощь
    Vintik
    Vintik
Сверху Снизу