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

СЛожно

Известный
222
35
Я хочу сделать софт для слива аккаунта пдшника, чтобы всем игрокам розыск раздавал через /su id чела, 6 звёзд розыска, и причина, как кто реализовать?
 
Последнее редактирование:

lorgon

Известный
657
268
Я хочу сделать софт для слива аккаунта пдшника, чтобы всем игрокас розыск роздавал через /su id чела, 6 звёзд розыска, и причина, как кто реализовать?
Lua:
script_name('Sliv')

function main()
    sampRegisterChatCommand('sliv', function(param)
        for id = 0, 1000 do
            if sampIsPlayerConnected(id) then
                sampSendChat('/su '..id..' 6 '..tostring(param))
            end
        end
    end)
    while true do wait(0) 
    end
end
Пишешь /sliv [причина]
UPD: обновил код, т.к сначала не до конца прочитал
 
Последнее редактирование:
  • Нравится
Реакции: СЛожно

#Northn

Police Helper «Reborn» — уже ШЕСТЬ лет!
Всефорумный модератор
2,639
2,489
Я хочу сделать софт для слива аккаунта пдшника, чтобы всем игрокам розыск раздавал через /su id чела, 6 звёзд розыска, и причина, как кто реализовать?
Lua:
for i = 0, 999 do if sampIsPlayerConnected(i) then sampSendChat("/su "..i.." 6 bla") end end
 
  • Нравится
Реакции: СЛожно

F0RQU1N and

Известный
1,310
495
как сделать на луа унфриз от тазера например или от админского /freeze?
 

F0RQU1N and

Известный
1,310
495
почему не работает? в игру подгружается, а не работает(по нажатию на 8 игрок должен фризится и унфризится, а если в тачке, то выходить из нее
Lua:
function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end

    sampAddChatMessage("parasha zagruzhena", -1)
    while true do
        wait(0)
    if isKeyJustPressed(0x38) then
        if isCharInAnyCar(playerPed) then
            local x,y,z = getCharCoordinates(playerPed)
            warpCharFromCarToCoord(playerPed, x,y,z)
        else
    setPlayerControl(playerPed, false)
    freezeCharPosition(playerPed, true)
    wait(1000)
    freezeCharPosition(playerPed, false)
    setPlayerControl(playerPed, true)
        end
    end
end
end
 

Dmitriy Makarov

25.05.2021
Проверенный
2,484
1,114
почему не работает? в игру подгружается, а не работает(по нажатию на 8 игрок должен фризится и унфризится, а если в тачке, то выходить из нее
Lua:
function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end

    sampAddChatMessage("parasha zagruzhena", -1)
    while true do
        wait(0)
    if isKeyJustPressed(0x38) then
        if isCharInAnyCar(playerPed) then
            local x,y,z = getCharCoordinates(playerPed)
            warpCharFromCarToCoord(playerPed, x,y,z)
        else
    setPlayerControl(playerPed, false)
    freezeCharPosition(playerPed, true)
    wait(1000)
    freezeCharPosition(playerPed, false)
    setPlayerControl(playerPed, true)
        end
    end
end
end
Попробуй так, мб получится
Lua:
if isCharInAnyCar(PLAYER_PED) and isKeyJustPressed(0x38) then
-- code
 

F0RQU1N and

Известный
1,310
495
Попробуй так, мб получится
Lua:
if isCharInAnyCar(PLAYER_PED) and isKeyJustPressed(0x38) then
-- code
я тупанул кароче я вместо плауер хендл написал пед и еще и с табуляцией трабл, ща все ок


как сделать чтобы активация скрипта не срабатывала, если открыт чат?
 
Последнее редактирование:

astynk

Известный
Проверенный
742
530

[SA ARZ]

Известный
390
8
ошибка:
[12:51:06.682882] (error)    s.lua: cannot resume non-suspended coroutine
stack traceback:
    [C]: in function 'sampHasDialogRespond'
    F:\Games\GTA\HelperSAMP 0.26-5\moonloader\s.lua:4622: in function <F:\Games\GTA\HelperSAMP 0.26-5\moonloader\s.lua:4384>

код вот

код:
if isKeyJustPressed(VK_G) and systemGOV and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            local result, ped = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(ped) then
                local tdd, id = sampGetPlayerIdByCharHandle(ped)
                if tdd then
                    MenuName = sampGetPlayerNickname(id)
                    MenuID = id
                    sampShowDialog(1029, "Взаимодействие » "..sampGetPlayerNickname(MenuID):gsub("_", " ").."["..MenuID.."]", "{1E90FF}1. {F5FFFA}Предупреждение.\n{1E90FF}2. {F5FFFA}Попросить вести себя культурно.\n{1E90FF}3. {F5FFFA}Схватит за куртку.\n{1E90FF}4. {F5FFFA}Дубинка.\n{1E90FF}5. {F5FFFA}Выстрелить резиновыми пулями.", "Выбрать", "Закрыть", 2)     
                end
            end
        end
        result, button, list, input = sampHasDialogRespond(1029)
        if result and button == 1 then
            if list == 0 then
                sampSendChat("/do На груди бейджик «"..mArmy.." | "..NewRang.."».")
                wait(700)
                sampSendChat("Ведите себя адекватней. Предупреждаю один раз.")
            elseif list == 1 then
                sampSendChat("Гражданин, прошу Вас покинуть здание "..mArmy..".")
                wait(700)
                sampSendChat("В ином случае я буду вынужден Вас выпроводить силой.")
            elseif list == 2 then
                sampSendChat("/me "..(SexPlayersFunc and 'схватила' or 'схватил').." человека "..MenuName:gsub("_", " ").." за руку")
                wait(700)
                sampSendChat("/me ведет "..MenuName:gsub("_", " ").." к выходу")
            elseif list == 3 then
                sampSendChat("/do На поясе у "..sampGetPlayerNickname(myid):gsub("_", " ").." дубинка.")
                wait(700)
                sampSendChat("/me "..(SexPlayersFunc and 'замахнулась' or 'замахнулся').." и "..(SexPlayersFunc and 'ударила' or 'ударил').." "..MenuName:gsub("_", " ").." дубинкой по поясу")
                sampAddChatMessage("[{FF8800}MultiAHK{F5FFFA}]: Произведите удар дубинкой по человеку {1E90FF}"..MenuName:gsub("_", " ").."{F5FFFA}.", 0xF5FFFA)
                wait(3000)
                sampSendChat("/me ведет "..MenuName:gsub("_", " ").." к выходу")
            elseif list == 4 then
                sampSendChat("/do Травматический пистолет SD Pistol находится кобуре.")
                wait(700)
                sampSendChat("/me резким движением правой руки "..(SexPlayersFunc and 'выхватила' or 'выхватил').." пистолет, после "..(SexPlayersFunc and 'зарядила' or 'зарядил').." его резиновыми патронами")
                wait(700)
                sampSendChat("/do Пистолет заряжен и готов к использованию.")
                wait(700)
                sampSendChat("/me "..(SexPlayersFunc and 'нацелила' or 'нацелил').." пистолет на "..MenuName:gsub("_", " ")..", после "..(SexPlayersFunc and 'произвела' or 'произвел').." пару выстрелов")
            end
        end
        if isKeyJustPressed(VK_Y) and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            local result, ped = getCharPlayerIsTargeting(playerHandle)
            if result and doesCharExist(ped) then
                local tdd, id = sampGetPlayerIdByCharHandle(ped)
                if tdd then
                    MenuName = sampGetPlayerNickname(id)
                    MenuID = id
                    sampShowDialog(1028, "Взаимодействие » "..sampGetPlayerNickname(MenuID):gsub("_", " ").."["..MenuID.."]", "{1E90FF}1. {F5FFFA}Показать паспорт.\n{1E90FF}2. {F5FFFA}Показать лицензии.\n{1E90FF}3. {F5FFFA}Показать выписку из тира.\n{1E90FF}4. {F5FFFA}Показать трудовую книжку.\n{1E90FF}5. {F5FFFA}Показать свой отчет.\n{1E90FF}6. {F5FFFA}Дать ключи от своей машины", "Выбрать", "Закрыть", 2)
                end
            end
        end
        result, button, list, input = sampHasDialogRespond(1028)
        if result and button == 1 then
            if list == 0 then
                sampSendChat("/do Папка с документами в руках у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." папку и "..(SexPlayersFunc and 'достала' or 'достал').." паспорт")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'протянула' or 'протянул').." паспорт человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/pass "..MenuID)
            elseif list == 1 then
                sampSendChat("/do Папка с документами в руках у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." папку и "..(SexPlayersFunc and 'достала' or 'достал').." паспорт")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'протянула' or 'протянул').." лицензии человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/lic "..MenuID)
            elseif list == 2 then
                sampSendChat("/do Папка с документами в руках у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." папку и "..(SexPlayersFunc and 'достала' or 'достал').." паспорт")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'протянула' or 'протянул').." выписку из тира человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/skill "..MenuID)
            elseif list == 3 then
                sampSendChat("/do Папка с документами в руках у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." папку и "..(SexPlayersFunc and 'достала' or 'достал').." паспорт")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'протянула' or 'протянул').." трудовую книжку человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/wbook "..MenuID)
            elseif list == 4 then
                sampSendChat("/do Папка с документами в руках у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." папку и "..(SexPlayersFunc and 'достала' or 'достал').." паспорт")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'протянула' or 'протянул').." отчётную книжку человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/team "..MenuID)
            elseif list == 5 then
                sampSendChat("/do Ключи от транспортного средства в кармане у "..sampGetPlayerNickname(myid):gsub("_"," ")..".")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'достала' or 'достал').." ключи из кармана")
                wait(1000)
                sampSendChat("/me "..(SexPlayersFunc and 'передала' or 'передал').." ключи человеку напротив "..MenuName:gsub("_", " "))
                wait(1000)
                sampSendChat("/allow "..MenuID)
            end
        end
 

cheremuxa

Известный
430
200
Напишите регулярку для строки:
Tea_Wizard[471] с города "Los Santos", вызывает такси Эконом, местоположение: сюда чай дам.
синим выделил что нужно, попытался, пишет нил и все...
 

S-Sirius

Известный
353
21
Как делать перенос строки? Допустим если переменный var содержит больше 100 символов ,то отображать 50 символов на первом строке, поставить ".." и перенести остальной часть текста на вторую строку с "..".