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

 

[atizoff]

Почему не бежит через функцию BeginToPoint.
Просто поворачивается в сторону координат и все
Через команду mbot бежит а если я напишу кодовое слово которое он ищет не бежит, причем все в цикле все как надо

function main()
        if not isSampLoaded() or not isSampfuncsLoaded() then return end
            while not isSampAvailable() do wait(100) end
            sampRegisterChatCommand('mbot', cmd_bot)
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            X, Y, Z = GetCoordinates()
            result, text, color, posX, posY, posZ, distance, ignoreWalls, player, vehicle = Search3Dtext(X, Y, Z, 50.000000, "")
            --BeginToPoint(958.7637,2097.6128,1011.0230, 1.000000, -255, false)
            --BeginToPoint(958.9478,2110.3118,1011.0303, 1.000000, -255, false)
            --BeginToPoint(942.8935,2110.8289,1011.0303, 1.000000, -255, false)
            --BeginToPoint(942.3065,2115.9771,1011.0303, 1.000000, -255, false)
            --BeginToPoint(945.7603,2116.3323,1011.0303, 1.000000, -255, false)
            --BeginToPoint(959.3434,2117.1147,1011.0303, 1.000000, -255, false)
            --BeginToPoint(959.2208,2121.6768,1011.0234, 1.000000, -255, false)
            if result then
                if text:find('Готово к обработке') then
                    BeginToPoint(posX, posY, posZ, 1.000000, -255, false)
                    lua_thread.create(myasoobrab)
                end
            end
            -------------
                enabled = false
            end
            textmsg, _, _, _ = sampGetChatString(99)
            if textmsg:find('кекс') then
            sampAddChatMessage('Нашел надпись', -1)
            X, Y, Z = GetCoordinates()
            result, text, color, posX, posY, posZ, distance, ignoreWalls, player, vehicle = Search3Dtext(X, Y, Z, 50.000000, "")
            sampAddChatMessage('Бегуу!', -1)
            BeginToPoint(946.8373,2116.5750,1011.0303, 1.000000, -255, false)
            --BeginToPoint(935.5505,2116.8933,1011.0234, 1.000000, -255, false)
            --BeginToPoint(932.9997,2129.4546,1011.0234, 1.000000, -255, false)
            --BeginToPoint(935.5505,2116.8933,1011.0234, 1.000000, -255, false)
            --BeginToPoint(946.8373,2116.5750,1011.0303, 1.000000, -255, false)
            if result then
            if text:find('Готово к обработке') then
                BeginToPoint(posX, posY, posZ, 1.000000, -255, false)
                lua_thread.create(myasoobrab)
             
            end
        end
            enabled = false
    end
--------------------------------------------------------------------------- 
    end
end

может потому что ты не задал функцию begintopoint?

 

[LZTD]

может потому что ты не задал функцию begintopoint?

Смотри , я код добавил, все я задал все как надо вставил.
Через команду бежит на 1 коорды, добежал , на другие и т.д. как надо.
А через кодовое слово, он тупо поворачивается туда

 

[imring]

Помогите, должен в print() выводить ARGB цвета ника

print(('%08X'):format(color))
-- или
print(bit.tohex(color))

Как исправить рандом чтобы он не выдавал одни и те же цифры даже после перезапуска скрипта?

math.randomseed(os.time())

но не os.clock, да @Vincent Vercetti?

 

[Parobax]

Ребят, почему не работает пункт 4 в меню?

require "lib.moonloader"

function main()
    if not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand("th", function()
        sampShowDialog(1690, "Taxi", "Инвайт \nИнформация для новеньких \nПремия \nОбъявление", "Закрыть", "", 2)
    end)
    while true do
        wait(0)
        if isKeyJustPressed(VK_F2) then
            sampSendChat("/taxilist")
        end
        if isKeyJustPressed(VK_F3) then
            sampSendChat("/count")
        end
        local result, button, list, input = sampHasDialogRespond(1690)
        if result then
            if list == 0 then
                local _, ped = storeClosestEntities(playerPed)
                local rest, id = sampGetPlayerIdByCharHandle(ped)
                if rest then
                    sampSendChat('/tinvite '..id)
                end
            end
            if list == 1 then
                sampSendChat("/tr Так-с, друзья, сейчас будет малый инструктаж для новеньких.")
                wait(500)
                sampSendChat("/tr Норма нашего такси, 500$ первый час работы, 5500$ сутки.")
                wait(500)
                sampSendChat("/tr Если же вы уехали со штата и не выполнили норму, вы будете уволены.")
                wait(500)
                sampSendChat("/tr После себя обязательно заправлять авто и чинить его, или же вы будете уволены.")
                wait(500)
                sampSendChat("/tr (( /tr - рация RP, MG, оск, флуд, маты - Запрещено, Администрация часто следит за чатами. ))")
                wait(500)
                sampSendChat("/tr (( поэтому вы можете получить наказание. ))")
                wait(500)
                sampSendChat("/tr Если возникнут вопросы, обращайтесь к Управляющим или Руководителю. Удачи на дорогах.")
            end
            if list == 2 then
                sampSendChat("/tr Лучший сотрудник дня получает премию в размере 10.000$")
                wait(400)
                sampSendChat("/tr Итоги подводятся в 20:30 по Москве!")
            end
            if list == 3 then
                sampAddChatMessage("ыва", -1)
            end
        end
    end
end

 

[atizoff]

Смотри , я код добавил, все я задал все как надо вставил.
Через команду бежит на 1 коорды, добежал , на другие и т.д. как надо.
А через кодовое слово, он тупо поворачивается туда

он через 100 метров не может найти кекс, пусть бежит прям в упор слова кекс
и да, ты ищешь слова прямо в main? именно слова, которые в чате?

 

[checkdasound]

Какой идентификатор кнопок mouse4/mouse5?
И есть ли он вообще, а если нет, то как сделать, чтобы при нажатии на эту кнопку на мыши что-то происходило.

 

[LZTD]

он через 100 метров не может найти кекс, пусть бежит прям в упор слова кекс
и да, ты ищешь слова прямо в main? именно слова, которые в чате?

Я пишу слово кекс, он должен побежать по координатам.
А ищу я в sampGetChatString, и эта функция прекрасно работает, тут шляпа с бегин то поинт какая то.
А больше как не в Main это пихать нельзя

 

[atizoff]

Я пишу слово кекс, он должен побежать по координатам.
А ищу я в sampGetChatString, и эта функция прекрасно работает, тут шляпа с бегин то поинт какая то.
А больше как не в Main это пихать нельзя

function sampev.onServerMessage(clr, text)
if one then
if text:find("Всё готов или чо там") then
end

и где-то в коде с поиском one = true
а в начале скрипта one = false

 

[LZTD]

function sampev.onServerMessage(clr, text)
if one then
if text:find("Всё готов или чо там") then
end

и где-то в коде с поиском one = true
а в начале скрипта one = false

я пробовал хуком делать, но бля .
В самой функции BeginToPoint стоит задержка в 0 млс.
Но , wait нельзя использовать в функциях кроме main() и тех что вызываются в ней

 

[atizoff]

я пробовал хуком делать, но бля .
В самой функции BeginToPoint стоит задержка в 0 млс.
Но , wait нельзя использовать в функциях кроме main() и тех что вызываются в ней

lua_thread.create

 

[LZTD]

lua_thread.create

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

 

[Danil_Hades]

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(100)
  end
while true do
  wait(0)
    local h, id = sampGetPlayerIdByCharHandle(PLAYER_PED)
    local color = sampGetPlayerColor(id)
    print(('%08X'):format(color))
  end
end

все равно не работает( Должен выводить цвет ника

 

[Harryss]

Как отформатировать ник без нижнего подчеркивания?

 

[Gradusov]

Как поочередно получить все строки в .txt файле?
В файле 2к строк, подобное решение как ниже работает через раз.

local file = io.open(getWorkingDirectory().."\\config\\Папка\\Документ.txt", "r+")
 for line in file:lines() do
  sampAddChatMessage(line, -1) 
 end 
file:close()

 

[samespoon]

Как заморозить(остановить) машину?