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

 

[Smeruxa]

Как запретить вводить в sampShowDialog (INPUT) все символы, кроме цифр?

на сколько знаю - ни как, но можно проверять, если нажата кнопка например сохранить, >> если text ~= "(%d+)" то повторно показать диалог

 

[suumer]

на сколько знаю - ни как, но можно проверять, если нажата кнопка например сохранить, >> если text ~= "(%d+)" то повторно показать диалог

Не помогло

 

[Tol4ek]

play_col_ = (("%06X"):format(sampGetPlayerColor(tnick)))
play_col = ARGBtoRGB(play_col_)
return {play_col, skaz}

function ARGBtoRGB(color)
    local a = bit.band(bit.rshift(color, 24), 0xFF)
    local r = bit.band(bit.rshift(color, 16), 0xFF)
    local g = bit.band(bit.rshift(color, 8), 0xFF)
    local b = bit.band(color, 0xFF)
    local rgb = b
    rgb = bit.bor(rgb, bit.lshift(g, 8))
    rgb = bit.bor(rgb, bit.lshift(r, 16))
    return rgb
end

Что не так?
строка 522 это local a = bit.band(bit.rshift(color, 24), 0xFF)

Спойлер: мунлог

[18:38:39.290944] (error) myfract.lua: C:\games\GTA San Andreas\moonloader\myfract.lua:522: bad argument #1 to 'rshift' (number expected, got string)
stack traceback:
[C]: in function 'rshift'
C:\games\GTA San Andreas\moonloader\myfract.lua:522: in function 'ARGBtoRGB'
C:\games\GTA San Andreas\moonloader\myfract.lua:515: in function 'callback'
...ames\GTA San Andreas\moonloader\lib\samp\events\core.lua:80: in function <...ames\GTA San Andreas\moonloader\lib\samp\events\core.lua:54>
[18:38:39.299947] (error) myfract.lua: Script died due to an error. (1C7C11EC)

 

[suumer]

Как сделать следующую проверку в диалоге7

если введено число больше 600 или число меньше 100, то
...
все

 

[Yuriy Code]

Как сделать следующую проверку в диалоге7

если введено число больше 600 или число меньше 100, то
...
все

Если используешь sampShowDialog,
то в бесконечном цикле

result, button, list, input = sampHasDialogRespond(тут ID диалога)
input = tonumber(input)
if input < 100 or input > 600 then
-- тут свой код
end

Но ещё надо сделать проверку, что юзер введёт цифры.
Проверить можно так:

result, button, list, input = sampHasDialogRespond(тут ID диалога)
if tonumber(input) then
input = tonumber(input)
if input < 100 or input > 600 then
-- тут свой код
end
end

Если помог, оцени лайком пожалуйста :)

 

[Gorskin]

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[suumer]

Как добавить такую штуку?

 

[chapo]

Как добавить такую штуку?

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

имгуи

 

[Sedoj]

if text:match("%[FA%] .+ Family .+: .+") then
    color = argb_to_rgba(join_argb(211, colors.fam.r, colors.fam.g, colors.fam.b))
    return {color, text}
end

Есть такой код, помогите написать text:match, чтобы цвет менял ник: Jon_Tayler

{E69A00}[A] Администратор Jon_Tayler [39]: {E6C600}Ну вот..

 

[BARRY BRADLEY]

Может кто то продемонстрировать нормальную загрузку картинки на обработчик PHP, передать картинку нужно в image=ТУТ_КАРТИНКА, нужно передавать уже в base64.
Пробовал передавать io.open(file, 'rb'), а в обработчике делать уже base64_encode, но надо как то без доп. обработчика передать multipart/form-data через effil запрос.

Данная тема не подходит ибо не рабочая тема как не пробовал та и там через измененный copas:

Полезные сниппеты и функции

можно объединить в одну проверку аналогично Знаю, но мне очень сложно читать такие большие проверки, поэтому принял решение оставить так. Если кому-то такое не нравится - может сам исправить под себя, ведь так?

www.blast.hk

Остальные темы в Гугле тоже не канают.

Загружать буду на imgbb через API:

"https://api.imgbb.com/1/upload?expiration=600&key=YOUR_CLIENT_API_KEY"
--forma
"image=R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7"

 

[Smeruxa]

*** Скрытый текст не может быть процитирован. ***

было же на бх. посмотри

 

[Gorskin]

было же на бх. посмотри

против passanger рванки нет ещё, всё перерыл

 

[Sedoj]

Что не так?

{E69A00}[A] Администратор Tom_Red [49]: {E6C600}Ну вот..

if text:match("%[A%] Администратор (%a+_%a+)%[(%d+)%]: (.+)") then
    color = argb_to_rgba(join_argb(211, colors.fam.r, colors.fam.g, colors.fam.b))
    return {color, text}
end

 

[Hatiko]

Что не так?

{E69A00}[A] Администратор Tom_Red [49]: {E6C600}Ну вот..

if text:match("%[A%] Администратор (%a+_%a+)%[(%d+)%]: (.+)") then
    color = argb_to_rgba(join_argb(211, colors.fam.r, colors.fam.g, colors.fam.b))
    return {color, text}
end

У тебя между ником и ид пробел, либо он лишний, либо ты его не учёл.

 

[Corrygаn]

Пытался сделать imgui.Selector по этому фиче https://www.blast.hk/threads/13380/post-653069

local sw, sh = getScreenResolution()
local menu = {
    u8"Главная",
    u8"Бот для фермы",
    u8"Бот для шахты",
    u8"Другое"
}
local selected_label = imgui.ImInt(0)
local selector_pos = imgui.ImInt(0)

function imgui.OnDrawFrame()
    if farm.v then
        imgui.SetNextWindowSize(imgui.ImVec2(900, 525), imgui.Cond.FirstUseEver)
        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.Begin("##1", farm, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse)
        imgui.NewLine()
        imgui.PushFont(ds_font)
        imgui.Text("Farm Bot")
        imgui.PopFont()
        imgui.Separator()
        imgui.Columns(2, "##columns1", true)
        imgui.SetColumnWidth(-1, 225)
        imgui.BeginChild("##child1", imgui.ImVec2(210, 160), true)
            _, id = sampGetPlayerIdByCharHandle(PLAYER_PED)
            nick = sampGetPlayerNickname(id)
            ping = sampGetPlayerPing(id)
            x, y, z = getCharCoordinates(PLAYER_PED)
            imgui.Text(u8"Ваш NickName: " .. nick)
            imgui.Text(u8"Ваш ID: " .. id)
            imgui.Text(u8"Ваш пинг: " .. ping)
            imgui.Text(u8"Ваше местоположение:\nX: " .. math.floor(x) .. "\nY: " .. math.floor(y) .. "\nZ: " .. math.floor(z))
        imgui.EndChild()
        imgui.NewLine()
        imgui.NewLine()
        imgui.Selector(menu, imgui.ImVec2(130, 50), selected_label, selector_pos, 10)
        imgui.NextColumn()
        imgui.BeginChild("##child2", imgui.ImVec2(657, 440), true)
        imgui.EndChild()
        imgui.End()
    end
end

И выходит вот такой прикол