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

 

[eenz]

Можно как-то с помощью samp events схукать в /stats слово "наркозависимость",не открывая /stats?

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

Дайте пожалуйтса код Recconect'a

sampDisconnectWithReason(quit)
wait(5000)
sampSetGamestate(1)

Как сделать проверку на сытность. Например, если её меньше 50%, то делать функцию

это поможет найти сытость - https://blast.hk/threads/24764/

 

[BARRY BRADLEY]

Как изменить цвет PieMenu?

 

[Vespan]

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

sampDisconnectWithReason(quit)
wait(5000)
sampSetGamestate(1)

это поможет найти сытость - https://blast.hk/threads/24764/

Как переконектиться с другим ником?

 

[Eugene Crabs]

И снова приветствую всех. Что не так с этим кодом? Он должен отправлять серверу сообщение о том, что я нажал на определенную клавишу

local ev = require 'lib.samp.events'


script_name("ML-ReloadAll")
script_author("FYP")
script_description("Press Ctrl + R to reload all lua scripts. Also can be used to load new added scripts.")

function main()
  while true do
    wait(40)
    if isKeyDown(17) and isKeyDown(82) then -- CTRL+R
      while isKeyDown(17) and isKeyDown(82) do wait(80) end
            sampAddChatMessage("Reload All performed its function", -1)
            reloadScripts()
    end
  end
wait(-1)
end

function onSendPlayerSync(data)
    data.keys.32 = true
    return data
end

p.s. Да, встроил в этот скрипт

 

[Vespan]

Как сделать,что-бы было ограничение(что нельзя было ввести /test и число до бесконечности)(мне надо ограничение от 1 до 60)

 

[Сырник]

local question = {
[1] = 'Как покакать?'
[2] = 'Как подтерется?'
}

local answer = {
[1] = 'Легко и просто!'
[2] = 'Никак, зови друга.'
}

Вот у меня есть таблица. Как мне сделать что бы question считывало с диалога, а в answer при нужном вопросе писало в диалог через sampSetCurrentDialogEditboxText("")

 

[S-Sirius]

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then
        return
    end
    _, pID = sampGetPlayerIdByCharHandle(playerPed)
    if sampGetPlayerNickname(pID) ~= "Nick_Name1" and sampGetPlayerNickname(pID) ~= "Nick_Name2" and sampGetPlayerNickname(pID) ~= "Nick_Name3" then
    sampAddChatMessage("* [TEST]: {ffffff}У Вас нет доступа к тестовому версию скрипта.",0x288e6e)
    thisScript():unload()
    else
    local dlstatus = require('moonloader').download_status
    while not isSampAvailable() do wait(5000) end
    sampAddChatMessage("* [TEST]: {ffffff}Вы успешно зашли как тестер скрипта [ //TEST1 - список команд ]",0x288e6e)
    sampRegisterChatCommand("/TEST1", help)
    sampRegisterChatCommand("/TEST2", reconnect)
    sampRegisterChatCommand("/TEST3", function ()
        window.v = not window.v
    end)
    font_chhelp = renderCreateFont(FontName, FontSize, FontFlag)
    font_fps = renderCreateFont('Arial', 20, 2)
    lua_thread.create(func)
    while true do wait(0)
    imgui.Process = window.v
    local re, bu, li, inp = sampHasDialogRespond(1040)
    while not isPlayerPlaying(PLAYER_HANDLE) do wait(0) end
    hp()
    hp2()
    armour()
    get_fps()
    eight = math.ceil(six)
    final = tostring(eight)
    if fpsshow then
        renderFontDrawText(font_fps, final, 1380, 860, 0xffffffff)
    end
    if res and time ~= nil then
        sampDisconnectWithReason(quit)
        wait(time*1000)
        sampSetGamestate(1)
        res= false
        else if res and time == nil then
            sampDisconnectWithReason(quit)
            wait(15500)
            sampSetGamestate(1)
            res= false
        end
    end
    end
end
end

При первом запуске игры скрипт не запускается.

[ML] (error) SA:MP Indicators: opcode '0B2B' call caused an unhandled exception
stack traceback:
[C]: in function 'sampGetPlayerIdByCharHandle'
...Andreas\moonloader\[TEST] SAMP Indicators by Apollon.lua:182: in function <...Andreas\moonloader\[TEST] SAMP Indicators by Apollon.lua:178>
[ML] (error) SA:MP Indicators: Script died due to an error. (078A6B34)

А после перезагрузки всех скриптов начнет работать корректно. Что делать?

 

[Vespan]

Когда закрываю Imgui меню, то на экране остается курсор как исправить?

function sampev.onDisplayGameText(style, time, text)
  if text:find("~w~Welcome ~n~~b~") then
    two_gui.v = true
    imgui.Process = true
  end
end

if two_gui.v then
    imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
    imgui.SetNextWindowSize(imgui.ImVec2(450, 250), imgui.Cond.FirstUseEver)
    imgui.Begin("TWO", two_gui, imgui.WindowFlags.NoCollapse + imgui.WindowFlags.NoResize)
    imgui.BeginChild("##2", imgui.ImVec2(120, 0), true)
    imgui.EndChild()
    imgui.End()
  end

Добавь - imgui.ShowCursor = false

 

[Dmitriy Makarov]

есть ли функция кроме этой

img = imgui.CreateTextureFromFile(getGameDirectory() .. '\\moonloader\\')

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

 

[Seetvek]

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

 

[Dmitriy Makarov]

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

хз визуально или нет

changeCarColour

Меняет цвет машины

blast.hk

 

[Сырник]

function question()
for i = 1, #question do
if sampIsDialogActive() and sampGetDialogCaption():find(question) then
sampSetCurrentDialogEditboxText("")
end
end
end


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

local question = {
[1] = 'Как покакать?'
[2] = 'Как подтерется?'
}

local answer = {
[1] = 'Легко и просто!'
[2] = 'Никак, зови друга.'
}

 

[S-Sirius]

Как сделать вот такое сверху?
Напарник Elizabeth

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

Окно ImgUi вроде это

 

[#Northn]

И снова приветствую всех. Что не так с этим кодом? Он должен отправлять серверу сообщение о том, что я нажал на определенную клавишу

local ev = require 'lib.samp.events'


script_name("ML-ReloadAll")
script_author("FYP")
script_description("Press Ctrl + R to reload all lua scripts. Also can be used to load new added scripts.")

function main()
  while true do
    wait(40)
    if isKeyDown(17) and isKeyDown(82) then -- CTRL+R
      while isKeyDown(17) and isKeyDown(82) do wait(80) end
            sampAddChatMessage("Reload All performed its function", -1)
            reloadScripts()
    end
  end
wait(-1)
end

function onSendPlayerSync(data)
    data.keys.32 = true
    return data
end

p.s. Да, встроил в этот скрипт

data -- это не таблица, а cdata

 

[S-Sirius]

Как исправить это?? После обновление скачивается другой файл.

Ссылка на JSON

Код автообновление:

script_version("0.2")
function main()
while not isSampAvailable() do wait(100) end
autoupdate("https://raw.githubusercontent.com/Gayranyan/update/master/IndicatorsUpdate.json", '['..string.upper(thisScript().name)..']: ', "https://raw.githubusercontent.com/Gayranyan/update/master/IndicatorsUpdate.json")
while true do wait(0)
end
end

function autoupdate(json_url, prefix, url)
  local dlstatus = require('moonloader').download_status
  local json = getWorkingDirectory() .. '\\'..thisScript().name..'-version.json'
  if doesFileExist(json) then os.remove(json) end
  downloadUrlToFile(json_url, json,
    function(id, status, p1, p2)
      if status == dlstatus.STATUSEX_ENDDOWNLOAD then
        if doesFileExist(json) then
          local f = io.open(json, 'r')
          if f then
            local info = decodeJson(f:read('*a'))
            updatelink = info.updateurl
            updateversion = info.latest
            f:close()
            os.remove(json)
            if updateversion ~= thisScript().version then
              lua_thread.create(function(prefix)
                local dlstatus = require('moonloader').download_status
                local color = -1
                sampAddChatMessage((prefix..'Обнаружено обновление. Пытаюсь обновиться c '..thisScript().version..' на '..updateversion), color)
                wait(250)
                downloadUrlToFile(updatelink, thisScript().path,
                  function(id3, status1, p13, p23)
                    if status1 == dlstatus.STATUS_DOWNLOADINGDATA then
                      print(string.format('Загружено %d из %d.', p13, p23))
                    elseif status1 == dlstatus.STATUS_ENDDOWNLOADDATA then
                      print('Загрузка обновления завершена.')
                      sampAddChatMessage((prefix..'Обновление завершено!'), color)
                      goupdatestatus = true
                      lua_thread.create(function() wait(500) thisScript():reload() end)
                    end
                    if status1 == dlstatus.STATUSEX_ENDDOWNLOAD then
                      if goupdatestatus == nil then
                        sampAddChatMessage((prefix..'Обновление прошло неудачно. Запускаю устаревшую версию..'), color)
                        update = false
                      end
                    end
                  end
                )
                end, prefix
              )
            else
              update = false
              print('v'..thisScript().version..': Обновление не требуется.')
            end
          end
        else
          print('v'..thisScript().version..': Не могу проверить обновление. Смиритесь или проверьте самостоятельно на '..url)
          update = false
        end
      end
    end
  )
  while update ~= false do wait(100) end
end