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

 

[qdIbp]

Как можно ловить все сообщения с чата (Серверные, клиента) и отправлять в телеграмм?

Исходник - Гайд - Как сделать управление игрой через Telegram + отправка уведомлений

новый пример, мне лень обновлять тему (юзать его) Хай, я тут поискал и не нашел темы о том, как сделать управление игрой через Telegram и решил сделать сам Позже постараюсь выложить обновленную версию с кнопками(ну когда разберусь:)) Если нашли какой-то баг - отпишите в теме

www.blast.hk

Исходник - Гайд - Lua jmp hook

Как я понял, крашить может из-за того, что в секунду сервер посылает сразу несколько пакетов сообщений. Если честно, сам не понимаю, как это можно исправить. Тогда используй трамплин

www.blast.hk

а так на

script_name('Telegram Notifications Source')
script_authors('ronnyscripts, ronny_evans')

-- подключаем библиотеки
local effil = require("effil")
local encoding = require("encoding")
encoding.default = 'CP1251'
u8 = encoding.UTF8

chat_id = '' -- чат ID юзера
token = '' -- токен бота

local updateid -- ID последнего сообщения для того чтобы не было флуда

function threadHandle(runner, url, args, resolve, reject)
    local t = runner(url, args)
    local r = t:get(0)
    while not r do
        r = t:get(0)
        wait(0)
    end
    local status = t:status()
    if status == 'completed' then
        local ok, result = r[1], r[2]
        if ok then resolve(result) else reject(result) end
    elseif err then
        reject(err)
    elseif status == 'canceled' then
        reject(status)
    end
    t:cancel(0)
end

function requestRunner()
    return effil.thread(function(u, a)
        local https = require 'ssl.https'
        local ok, result = pcall(https.request, u, a)
        if ok then
            return {true, result}
        else
            return {false, result}
        end
    end)
end

function async_http_request(url, args, resolve, reject)
    local runner = requestRunner()
    if not reject then reject = function() end end
    lua_thread.create(function()
        threadHandle(runner, url, args, resolve, reject)
    end)
end

function encodeUrl(str)
    str = str:gsub(' ', '%+')
    str = str:gsub('\n', '%%0A')
    return u8:encode(str, 'CP1251')
end

function sendTelegramNotification(msg) -- функция для отправки сообщения юзеру
    msg = msg:gsub('{......}', '') --тут типо убираем цвет
    msg = encodeUrl(msg) -- ну тут мы закодируем строку
    async_http_request('https://api.telegram.org/bot' .. token .. '/sendMessage?chat_id=' .. chat_id .. '&text='..msg,'', function(result) end) -- а тут уже отправка
end

function get_telegram_updates() -- функция получения сообщений от юзера
    while not updateid do wait(1) end -- ждем пока не узнаем последний ID
    local runner = requestRunner()
    local reject = function() end
    local args = ''
    while true do
        url = 'https://api.telegram.org/bot'..token..'/getUpdates?chat_id='..chat_id..'&offset=-1' -- создаем ссылку
        threadHandle(runner, url, args, processing_telegram_messages, reject)
        wait(0)
    end
end

function calc(str) --это тестовая функция, её не требуется переносить в ваш код
    return assert(load("return "..str))()
end

function processing_telegram_messages(result) -- функция проверОчки того что отправил чел
    if result then
        -- тута мы проверяем все ли верно
        local proc_table = decodeJson(result)
        if proc_table.ok then
            if #proc_table.result > 0 then
                local res_table = proc_table.result[1]
                if res_table then
                    if res_table.update_id ~= updateid then
                        updateid = res_table.update_id
                        local message_from_user = res_table.message.text
                        if message_from_user then
                            -- и тут если чел отправил текст мы сверяем
                            local text = u8:decode(message_from_user) .. ' ' --добавляем в конец пробел дабы не произошли тех. шоколадки с командами(типо чтоб !q не считалось как !qq)
                            if text:match('^!qq') then
                                sendTelegramNotification('Ку')
                            elseif text:match('^!q') then
                                sendTelegramNotification('Привет!')
                            elseif text:match('^!stats') then
                                sendTelegramNotification('Это тестовая версия блин')
                            elseif text:match('^!calc') then
                                local arg = text:gsub('!calc ','',1) -- вот так мы получаем аргумент команды
                                if #arg > 0 then
                                    local result_calc = calc(arg)
                                    if result_calc then
                                        sendTelegramNotification('Вы ввели пример: '..arg..'\nОтвет: '..result_calc)
                                    else
                                        sendTelegramNotification('Неверный пример!')
                                    end
                                      
                                else
                                    sendTelegramNotification('Эм, ты не ввел аргумент')
                                end
                            else -- если же не найдется ни одна из команд выше, выведем сообщение
                                sendTelegramNotification('Неизвестная команда!')
                            end
                        end
                    end
                end
            end
        end
    end
end

function getLastUpdate() -- тут мы получаем последний ID сообщения, если же у вас в коде будет настройка токена и chat_id, вызовите эту функцию для того чтоб получить последнее сообщение
    async_http_request('https://api.telegram.org/bot'..token..'/getUpdates?chat_id='..chat_id..'&offset=-1','',function(result)
        if result then
            local proc_table = decodeJson(result)
            if proc_table.ok then
                if #proc_table.result > 0 then
                    local res_table = proc_table.result[1]
                    if res_table then
                        updateid = res_table.update_id
                    end
                else
                    updateid = 1 -- тут зададим значение 1, если таблица будет пустая
                end
            end
        end
    end)
end

function main()
    while not isSampAvailable() do wait(0) end
    sampChatHook = hook.new('void(__thiscall *)(void *this, uint32_t type, const char* text, const char* prefix, uint32_t color, uint32_t pcolor)', ChatHook, getModuleHandle('samp.dll') + 0x64010)
    getLastUpdate() -- вызываем функцию получения последнего ID сообщения
    lua_thread.create(get_telegram_updates) -- создаем нашу функцию получения сообщений от юзера
    while true do
        wait(0)
    end
end

local ffi = require 'ffi'
local hook = {hooks = {}}
addEventHandler('onScriptTerminate', function(scr)
    if scr == script.this then
        for i, hook in ipairs(hook.hooks) do
            if hook.status then
                hook.stop()
            end
        end
    end
end)

ffi.cdef [[
    int VirtualProtect(void* lpAddress, unsigned long dwSize, unsigned long flNewProtect, unsigned long* lpflOldProtect);
]]

function hook.new(cast, callback, hook_addr, size)
    local size = size or 5
    local new_hook = {}
    local detour_addr = tonumber(ffi.cast('intptr_t', ffi.cast('void*', ffi.cast(cast, callback))))
    local void_addr = ffi.cast('void*', hook_addr)
    local old_prot = ffi.new('unsigned long[1]')
    local org_bytes = ffi.new('uint8_t[?]', size)
    ffi.copy(org_bytes, void_addr, size)
    local hook_bytes = ffi.new('uint8_t[?]', size, 0x90)
    hook_bytes[0] = 0xE9
    ffi.cast('uint32_t*', hook_bytes + 1)[0] = detour_addr - hook_addr - 5
    new_hook.call = ffi.cast(cast, hook_addr)
    new_hook.status = false
    local function set_status(bool)
        new_hook.status = bool
        ffi.C.VirtualProtect(void_addr, size, 0x40, old_prot)
        ffi.copy(void_addr, bool and hook_bytes or org_bytes, size)
        ffi.C.VirtualProtect(void_addr, size, old_prot[0], old_prot)
    end
    new_hook.stop = function() set_status(false) end
    new_hook.start = function() set_status(true) end
    new_hook.start()
    table.insert(hook.hooks, new_hook)
    return setmetatable(new_hook, {
        __call = function(self, ...)
            self.stop()
            local res = self.call(...)
            self.start()
            return res
        end
    })
end


function ChatHook(HOOKED_CHAT_THIS, HOOKED_CHAT_TYPE, HOOKED_CHAT_TEXT, HOOKED_CHAT_PREFIX, HOOKED_CHAT_COLOR, HOOKED_CHAT_PCOLOR)
    local text = ffi.string(HOOKED_CHAT_TEXT)
        sendTelegramNotification(text)--тут крч работай
    sampChatHook(HOOKED_CHAT_THIS, HOOKED_CHAT_TYPE, HOOKED_CHAT_TEXT, HOOKED_CHAT_PREFIX, HOOKED_CHAT_COLOR, HOOKED_CHAT_PCOLOR)
end

 

[RoAB]

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

UPD: Чел подсказал вроде как нужно добавить InCar sync, только вопрос, как это сделать(на ракботе)

 

[artie]

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

Johny_Power[216]{FFFFFF} с города 'San Fierro', вызывает полицию, местоположение: {B03131}армия сф{FFFFFF}.

получилось так, но не работает

if text:find('^%S+%[%d+%]{FFFFFF}%sс%sгорода%s(.+)%p%sвызывает%sполицию%p%sместоположение%p%s.+') then
   local city = text:match('города%s(.+)%p%s')
   sampAddChatMessage(city,-1)
end

 

[accord-]

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

Johny_Power[216]{FFFFFF} с города 'San Fierro', вызывает полицию, местоположение: {B03131}армия сф{FFFFFF}.

получилось так, но не работает

if text:find('^%S+%[%d+%]{FFFFFF}%sс%sгорода%s(.+)%p%sвызывает%sполицию%p%sместоположение%p%s.+') then
   local city = text:match('города%s(.+)%p%s')
   sampAddChatMessage(city,-1)
end

    if text:find(".+ с города '.+', вызывает полицию, местоположение%: .+") then
        local gorod = text:match(".+ с города '(.+)', вызывает полицию, местоположение%: .+")
        sampAddChatMessage(gorod,-1) 
    end

 

[ChаtGPT]

Возможно сделать такую imgui.Button? или только с imgui.ImageButton

 

[Fomikus]

Возможно сделать такую imgui.Button? или только с imgui.ImageButton

Посмотреть вложение 168384

AddLine

 

[xanndiane]

Как тут сделать чтобы выходило из игры когда почти взорвался? Пол часа дрочусь уже не понимаю что не так сделал (автор скрипта chapo)

 

[YarikVL]

Как тут сделать чтобы выходило из игры когда почти взорвался? Пол часа дрочусь уже не понимаю что не так сделал (автор скрипта chapo)

28 строку замени на sampProcessChatInput("/q")
Ещё можешь после 28 строки дописать перезагрузку скрипта, что-то похожее на это: thisScript():unload()
Чтобы не багался скрипт ( вдруг будет такое )

 

[ChаtGPT]

Как style.WindowRounding засунть в imgui.PushStyleColor()? Мне нужно что бы закругление было только на 1 имгуи окне

 

[ARMOR]

Как style.WindowRounding засунть в imgui.PushStyleColor()? Мне нужно что бы закругление было только на 1 имгуи окне

Попробуй менять после imgui.Begin

 

[ChаtGPT]

Попробуй менять после imgui.Begin

как именно? imgui.PushStyleColor(imgui.style.WindowRounding, imgui.ImVec4(6))?

 

[shibaTaidjy]

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

 

[chapo]

Как style.WindowRounding засунть в imgui.PushStyleColor()? Мне нужно что бы закругление было только на 1 имгуи окне

imgui.PushStyleVar

Попробуй менять после imgui.Begin

надо наоборот перед бегином

 

[linmsqn]

попробовал сделать запрос через luasql, но выбивает ошибку, помогите пж

local res, mysql_drv = pcall(require, 'luasql.mysql')
assert(res, 'CA: Нет библиотеки MySQL.')

--function main()
sampRegisterChatCommand("testsql", test_mysql)

--сама функция
function test_mysql()
    mysql = mysql_drv.mysql()
    mysqlconn = mysql:connect('название', 'название', 'пасс', 'localhost', 3306)
    mysqlconn:execute('CREATE TABLE testtable (id int NOT NULL)') -- 102 строка
end

--ошибка
.lua:102: attempt to index global 'mysqlconn' (a nil value)

 

[RoAB]

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

function onCreatePickup(pickupId)
            local data = getPickup(pickupId)
            if data.position.x == -2276.0407714844 and data.position.y == 535.40997314453 and data.position.z == 35.109798431396 then
                printLog("Пошёл нахуй")
            end
end