Вопросы по 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
 
Последнее редактирование:

copypaste_scripter

Известный
1,437
293
Есть команда /leaders, которая показывает лидеров в сети(в чате).
Как сделать чекер лидеров в сети по чекбоксу в интерфейсе? Сказали хукать чат, ещё бы знать как это сделать.
этот скрипт переделай может?
 

Tol4ek

Известный
216
56
theme.SwitchColorTheme - функция, которая через import берёт из другого луа тему для imgui, соответствующую аргументу. Я сделал так, что через имгуи можно меня число в json, которое за это отвечает. Переношу это число из файла, но в аргумет функции приходит 0. Что делать, чтобы адекватные числа приходили?
Lua:
if not doesFileExist("moonloader/config/PoliceInfo/DBase.json") then
        local file = io.open("moonloader/config/PoliceInfo/DBase.json", "w")
        file:write(encodeJson({
            settings = {
                fract_name = "Название вашей фракции",
                theme_script = "1"
            }}))
end

if doesFileExist("moonloader/config/PoliceInfo/DBase.json") then
    local file = io.open("moonloader/config/PoliceInfo/DBase.json", "r")
    if file then
        database = decodeJson(file:read("*a"))
        io.close(file)
    end
end

local settingsScript = {
    fract_name = imgui.ImBuffer(u8(database["settings"]["fract_name"]), 100),
    theme_numb = (u8(database["settings"]["theme_script"])),
    theme_script = imgui.ImInt(u8(database["settings"]["theme_script"]))
}

theme.SwitchColorTheme(settingsScript["theme_numb"])
 

Tol4ek

Известный
216
56
Вот так попробуй
Lua:
script_name('Sbiv')
script_author('BR1V')
script_version('1.0v')
function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        if isKeyJustPressed(222) then
            sampSendChat("/Anim 1")
            wait(12)
            setVirtualKeyDown(13, true)
            wait(150)
            setVirtualKeyDown(13, false)
        end
    end
end
Хочу зделать сбив анимки я зделал что-бы писал команду но на арз чтобы убрать анимку надо нажать ентер и хочу что сам скрипт нажимал ентер

Lua:
script_name('Sbiv')
script_author('BR1V')
script_version('1.0v')
function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        if isKeyJustPressed(222) then
            sampSendChat("/Anim 1")
            wait(12)
            Вот сюда хочу добавить код для кнопки
end
end
end
 

br1v

Новичок
6
2
Пацаны а как зделать так что-бы когда включилась гта писался текст в чате? Типо скрипт работает норм
вот скрипт
Lua:
script_name('Sbiv')
script_author('BR1V')
script_version('1.0v')
function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        if isKeyJustPressed(4) then
            sampSendChat("/Anim 1")
            wait(12)
            setVirtualKeyDown(13, true)
            wait(150)
            setVirtualKeyDown(13, false)
        end
    end
end
 

PanSeek

t.me/dailypanseek
Всефорумный модератор
912
1,795
Хочу зделать сбив анимки я зделал что-бы писал команду но на арз чтобы убрать анимку надо нажать ентер и хочу что сам скрипт нажимал ентер

Lua:
script_name('Sbiv')
script_author('BR1V')
script_version('1.0v')
function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        if isKeyJustPressed(222) then
            sampSendChat("/Anim 1")
            wait(12)
            Вот сюда хочу добавить код для кнопки
end
end
end
Lua:
local wm = require 'windows.message'
addEventHandler("onWindowMessage", function (msg, wparam, lparam)
    if (msg == wm.WM_KEYUP or msg == wm.WM_SYSKEYUP) and wparam == 0xDE and not isSampfuncsConsoleActive() and not sampIsChatInputActive() and not sampIsDialogActive() and not isPauseMenuActive() then
        lua_thread.create(function()
            sampSendChat('/anim 1')
            setVirtualKeyDown(13, true)
            wait(300)
            setVirtualKeyDown(13, false)
        end)
    end
end)
Но вообще я бы по-другому делал сбив, без анимаций. Но если так хочешь, то вот.
 
Последнее редактирование:
  • Нравится
Реакции: James Saula

Corrygаn

Участник
225
6
Почему не работает? Прикол в том, что никакой ошибки нет, скрипт работает, просто не работает эта функция.
Lua:
local sampev = require "lib.samp.events"
local lead_check = imgui.ImBool(false)
local sw, sh = getScreenResolution()

--main
lead_flooder = false

function imgui.OnDrawFrame()
    if main_goses.v then
        if imgui.Checkbox(u8"Чекер лидеров", lead_check) then
            lead_flooder = true
        end
    end
end
            
function lead_flooder()
    while true do
        wait(10000)
        if lead_flooder then
            sampSendChat("/leaders")
        end
    end
end

function sampev.OnServerMessage(color, text)
    if text:find("Лидеры онлайн%:") then
        lead_name, lead_id, lead_org, lead_num = text.match("(%W+ %W+)%[(%d+)]% - (.*) | Номер%: (%d+)")
        renderFontDrawText(lead_org .. " - " .. lead_name .. "[" .. lead_id .. "]", sw / 2, sh / 2, 0xFFFFFF)
    end
end
 

sep

Известный
714
79
подскажите есть такая штука код ниже
как сделать чтобы диолога небыло видно но инфа с диолога обновлялясь
если я делаю так диолога не видно но и даные с него неберутся
if dialogid == 0 then
return false
end


код:
if getto and isKeyDown(VK_F6) then
sampSendChat("/mn")
sampSendDialogResponse(27, 1, 0, text)
wait(150)
sampCloseCurrentDialogWithButton(0)
setVirtualKeyDown(VK_F6, true)
wait(20)
setVirtualKeyDown(VK_F6, false)
end


function sampev.onShowDialog(dialogid,s,t,b1,b2,text)
--print(text)
 
    if getto and text:find('.-:            %d+') then
    pt = text:match('Патроны:            %d+')
    --sampAddChatMessage(""..pt, 0x00FF00)
    mt = text:match('Металл:            %d+')
    --sampAddChatMessage(""..mt, 0x00FF00)
    nar = text:match('Наркотики:            %d+')
    --sampAddChatMessage(""..nar, 0x00FF00)
    mas = text:match('Маски:                %d+')
    --sampAddChatMessage(""..mas, 0x00FF00)
    apt = text:match('Аптечки:            %d+')
    --sampAddChatMessage(""..apt, 0x00FF00)
    end
             
end
 

copypaste_scripter

Известный
1,437
293
Почему не работает? Прикол в том, что никакой ошибки нет, скрипт работает, просто не работает эта функция.
Lua:
local sampev = require "lib.samp.events"
local sw, sh = getScreenResolution()

--main
lead_flooder = true
            
function lead_flooder()
    while true do
        wait(10000)
        if lead_flooder then
            sampSendChat("/leaders")
        end
    end
end

function sampev.OnServerMessage(color, text)
    if text:find("Лидеры онлайн%:") then
        lead_name, lead_id, lead_org, lead_num = text.match("(%W+ %W+)%[(%d+)]% - (.*) | Номер%: (%d+)")
        renderFontDrawText(lead_org .. " - " .. lead_name .. "[" .. lead_id .. "]", sw / 2, sh / 2, 0xFFFFFF)
    end
end
 

copypaste_scripter

Известный
1,437
293
Lua:
function main()
if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(100) end
  while true do
    wait(0)
    setVehicleCameraTweak(526, 0, 0, 0)
  end
end

помогитеееее, сделал эту фигню (пробовал сделать новую камеры для машины) и теперь камера через жопу работает на этом ТС, как починить?Посмотреть вложение 96737
что с этим делать?