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

 

[#Northn]

Скинь пример. Типо при активации скрипта чекается /id (nick) и берётся ид из этого сообщения

-- main()
  sampRegisterChatCommand('id', idPlayer)
-- конец main()

function idPlayer(text)
    local stringtext = string.match(text, '%q*(.+)')
    if stringtext ~= nil then
        local idplayer = tonumber(stringtext)
        if idplayer == nil then
            for i = 0, 1000 do
                local _, myid = sampGetPlayerIdByCharHandle(playerPed)
                if sampIsPlayerConnected(i) or i == myid then
                    local nick = sampGetPlayerNickname(i)
                    if string.find(string.lower(nick), string.lower(stringtext)) then
                        local ping = sampGetPlayerPing(i)
                        local color = string.format("%06X", ARGBtoRGB(sampGetPlayerColor(i)))
                        local score = sampGetPlayerScore(i)
                        sampAddChatMessage('* Ник: {'..color..'}'..nick..' {0088ff}| ID:{FFFFFF} '..i..' {0088ff}| Уровень:{FFFFFF} '..score..' {0088ff}| Ping: {FFFFFF}'..ping, 0x0088ff)
                    end
                end
            end
        else
            for i = 0, 1000 do
                local _, myid = sampGetPlayerIdByCharHandle(playerPed)
                if idplayer == i then
                    if sampIsPlayerConnected(i) or i == myid then
                        local nick = sampGetPlayerNickname(i)
                        local ping = sampGetPlayerPing(i)
                        local color = string.format("%06X", ARGBtoRGB(sampGetPlayerColor(i)))
                        local score = sampGetPlayerScore(i)
                        sampAddChatMessage('* Ник: {'..color..'}'..nick..' {0088ff}| ID:{FFFFFF} '..i..' {0088ff}| Уровень:{FFFFFF} '..score..' {0088ff}| Ping: {FFFFFF}'..ping, 0x0088ff)
                    end
                end
            end
        end
    else
        sampAddChatMessage('[ PHELP ]{FFFFFF}: Вывод информации об игроке [ {0088ff}/id Ник | ID{FFFFFF} ]', 0x0088ff)
    end
end

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

Спасибо @imring и сори за спизженный код, гы

Спойлер

Не надо регистрировать команду в цикле, просто перед бесконечным циклом поставь и всё.

 

[imring]

Спасибо @imring и сори за спизженный код, гы

спасибо что показал мой старый быдло-код.

function idPlayer(text)
    local bit = require 'bit'
    local _, myid = sampGetPlayerIdByCharHandle(playerPed)
    if #text > 0 then
        if tonumber(text) and ( sampIsPlayerConnected(text) or tonumber(text) == myid ) then
            sampAddChatMessage(sampGetPlayerNickname(text)..'['..text..']'..' | Score: '..sampGetPlayerScore(text)..' | Ping: '..sampGetPlayerPing(text), bit.band(sampGetPlayerColor(text), 0xFFFFFF))
        else
            for i = 0, 1000 do
                if ( sampIsPlayerConnected(i) or i == myid ) and sampGetPlayerNickname(i):find(text) then
                    sampAddChatMessage(sampGetPlayerNickname(i)..'['..i..']'..' | Score: '..sampGetPlayerScore(i)..' | Ping: '..sampGetPlayerPing(i), bit.band(sampGetPlayerColor(i), 0xFFFFFF))
                end
            end
        end
    end
end

 

[WhackerH]

как .lua превратить в .luac? и как принудительно выключить скрипт?

 

[штейн]

как .lua превратить в .luac? и как принудительно выключить скрипт?

luaJIT найди, с ним можно компилировать скрипты

thisScript():unload()

 

[WhackerH]

luaJIT найди, с ним можно компилировать скрипты

thisScript():unload()

[15:16:34.152759] (error) E:\mvd\moonloader\shpora.luac: cannot load incompatible bytecode

 

[#Northn]

Компилируешь компилятором, который для moonloader 0.26, а пользуешься 0.25, или же наоборот.

 

[WhackerH]

Компилируешь компилятором, который для moonloader 0.26, а пользуешься 0.25, или же наоборот.

скинь компилятор для 0.25 если не сложно

 

[#Northn]

скинь компилятор для 0.25 если не сложно

 

[trefa]

значит файлы ещё не скачены. жди пока скачаются файлы

если файла в config/healme.ini не существует, то тебе возвращает то, что на 1 аргументе (в твоем случае это nil).

А как в

downloadUrlToFile

проверить что закачался файл? Vожно через функцию, но если так юзать то код просто идёт дальше, не ждёт пока загрузится файл. Может ещё вариант какой то есть?

 

[#Northn]

А как в

downloadUrlToFile

проверить что закачался файл? Vожно через функцию, но если так юзать то код просто идёт дальше, не ждёт пока загрузится файл. Может ещё вариант какой то есть?

local dlstatus = require('moonloader').download_status
local vk = require 'vkeys'
function download_handler(id, status, p1, p2)
  if stop_downloading then
    stop_downloading = false
    download_id = nil
    print('Загрузка отменена.')
    return false -- прервать загрузку
  end
  if status == dlstatus.STATUS_DOWNLOADINGDATA then
    print(string.format('Загружено %d из %d.', p1, p2))
  elseif status == dlstatus.STATUS_ENDDOWNLOADDATA then
    print('Загрузка завершена.')
  end
end
function main()
  print('Нажмите F1, чтобы начать загрузку файла.')
  while true do
    wait(0)
    if wasKeyPressed(vk.VK_F1) and not download_id then
      local url = 'http://nonexistentfilehosting.com/nonexistentfile.dat'
      local file_path = getWorkingDirectory() .. '/downloads/file.dat'
      download_id = downloadUrlToFile(url, file_path, download_handler)
      print('Загрузка начата. Нажмите F2, чтобы отменить её.')
    elseif wasKeyPressed(vk.VK_F2) and download_id then
      stop_downloading = true
    end
  end
end

lua - downloadurltofile | BlastHack — DEV_WIKI^{(https://blast.hk/wiki/lua%3Adownloadurltofile)}

 

[trefa]

local dlstatus = require('moonloader').download_status
local vk = require 'vkeys'
function download_handler(id, status, p1, p2)
  if stop_downloading then
    stop_downloading = false
    download_id = nil
    print('Загрузка отменена.')
    return false -- прервать загрузку
  end
  if status == dlstatus.STATUS_DOWNLOADINGDATA then
    print(string.format('Загружено %d из %d.', p1, p2))
  elseif status == dlstatus.STATUS_ENDDOWNLOADDATA then
    print('Загрузка завершена.')
  end
end
function main()
  print('Нажмите F1, чтобы начать загрузку файла.')
  while true do
    wait(0)
    if wasKeyPressed(vk.VK_F1) and not download_id then
      local url = 'http://nonexistentfilehosting.com/nonexistentfile.dat'
      local file_path = getWorkingDirectory() .. '/downloads/file.dat'
      download_id = downloadUrlToFile(url, file_path, download_handler)
      print('Загрузка начата. Нажмите F2, чтобы отменить её.')
    elseif wasKeyPressed(vk.VK_F2) and download_id then
      stop_downloading = true
    end
  end
end

lua - downloadurltofile | BlastHack — DEV_WIKI^{(https://blast.hk/wiki/lua%3Adownloadurltofile)}

Зачем кидать то, что я и описал.

 

[imring]

Зачем кидать то, что я и описал.

не пробовал это?

-- downloadUrlToFile
while not doesFileExist(path) do wait(0) end

 

[trefa]

не пробовал это?

-- downloadUrlToFile
while not doesFileExist(path) do wait(0) end

Вне мейна будет ругаться на

wait(0)

 

[imring]

Вне мейна будет ругаться на

wait(0)

поток создай.

 

[trefa]

поток создай.

Даже после загрузки, он не может найти бибиотеку.

lua_thread.create(function()
local ok, err = pcall(require, 'imgui')
if not ok then
downloadUrlToFile("https://github.com/Trefa2254/medhelp/raw/master/imgui.lua",  getWorkingDirectory().."\\lib\\imgui.lua")
while not doesFileExist(getWorkingDirectory().."\\lib\\imgui.lua") do wait(0) end
downloadUrlToFile("https://github.com/Trefa2254/medhelp/raw/master/MoonImGui.dll",  getWorkingDirectory().."\\lib\\MoonImGui.dll")
while not doesFileExist(getWorkingDirectory().."\\lib\\MoonImGui.dll") do wait(0) end
imgui = require 'imgui'
end
imgui = require 'imgui'
end)

[17:37:31.015007] (error)    MedHelp.lua: C:\Games\GTA_San_Andreas\moonloader\MedHelp.lua:74: attempt to index global 'imgui' (a nil value)
stack traceback:
    C:\Games\GTA_San_Andreas\moonloader\MedHelp.lua:74: in main chunk
[17:37:31.015007] (error)    MedHelp.lua: Script died due to an error. (18E2422C)