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

 

[Arahis]

Как сделать так, чтобы интерфейс /admins закрывался сразу же? а то он открывается и стопит тебя.

local sampev = require('lib.samp.events')
local font_flag = require('moonloader').font_flag

local checker_x = 10
local checker_y = 400
local checker_indent = 11
local admins = {}
local arial = renderCreateFont('Lays-Bold', 10, 5)

function compareRanks(a, b)
    local rankOrder = {
        ['Заместитель Главного Администратора'] = 1,
        ['Куратор'] = 2,
        ['Администратор'] = 3,
        ['Старший Модератор'] = 4,
        ['Модератор'] = 5,
        ['Младший Модератор'] = 6
    }

    return rankOrder[a.rank] < rankOrder[b.rank]
end

local adminRanksColors = {
    ['Младший Модератор'] = '6495ed',
    ['Модератор'] = '456cdd',
    ['Старший Модератор'] = 'ffcb00',
    ['Администратор'] = '147f1a',
    ['Куратор'] = '6642cc',
    ['Заместитель Главного Администратора'] = 'ff0000'
}

local isCheckerEnabled = false
local lastCheckTime = os.time()
local isSpectated = false
local isReportShowed = false

function main()
    while not isSampAvailable() do wait(0) end
    sampAddChatMessage('loaded', -1)
    sampRegisterChatCommand('rl1', function()
        isCheckerEnabled = not isCheckerEnabled
        sampAddChatMessage('/admins', -1)

        lua_thread.create(function()
            wait(50)
            setVirtualKeyDown(27, true)
            wait(100)
            setVirtualKeyDown(27, false)
        end)
    end)

    while true do
        wait(0)
        if isCheckerEnabled then
            local currentTime = os.time()
       
            if currentTime - lastCheckTime >= 4 and (not sampIsChatInputActive() and not isSpectated) then
                sampSendChat('/admins')
                lastCheckTime = currentTime

                lua_thread.create(function()
                    wait(50)
                    setVirtualKeyDown(27, true)
                    wait(100)
                    setVirtualKeyDown(27, false)
                end)
            end
        end
        renderFontDrawText(arial, 'Администрация в сети:', checker_x, checker_y, 0xFFFFFFFF)
        local y = checker_y
        for _, admin in ipairs(admins) do
            y = y + checker_indent
            renderFontDrawText(arial, ('{%s}%s %s[%d] {ffffff}- REP: %d - STATE: %s - AFK: %s'):format(adminRanksColors[admin.rank], admin.rank, admin.nickname, admin.id, admin.rep, admin.state, admin.afk), checker_x, y, 0xFFFFFFFF)
        end
    end
end

function sampev.onTogglePlayerSpectating(state)
    isSpectated = state
end

addEventHandler('onReceivePacket', function(id, bs, ...)
    if id == 220 then
        raknetBitStreamIgnoreBits(bs, 8)
        local packetType = raknetBitStreamReadInt8(bs)
        if packetType == 46 then -- диалог
            raknetBitStreamIgnoreBits(bs, 72) -- 8*9
            local dialogTitleLen = raknetBitStreamReadInt16(bs)
            local dialogTitle = raknetBitStreamReadString(bs, dialogTitleLen)
            if dialogTitle:find('Администрация в сети') then
                admins = {}
                raknetBitStreamIgnoreBits(bs, 320) -- 8*40
                local dialogTextLen = raknetBitStreamReadInt16(bs)
                local dialogText = raknetBitStreamReadString(bs, dialogTextLen)
                for line in dialogText:gmatch('[^\n]+') do
                    if line:find('Заместитель Главного Администратора') then
                        goto continue
                    end
                    local rank, nickname, id, rep, state, afk = line:match('^%{FFFFFF%}(.*) ([%w_]+)%[(%d+)%]\t(%d+)\t(.*)\t(.*)$')
                    table.insert(admins, {
                        rank = rank,
                        nickname = nickname,
                        id = id,
                        rep = rep,
                        state = state,
                        afk = afk
                    })
                    ::continue::
                end
                table.sort(admins, compareRanks)
            end
        elseif packetType == 41 then
            local textLen = raknetBitStreamReadInt16(bs)
            local jsonString = raknetBitStreamReadString(bs, textLen)
            local jsonData = decodeJson(jsonString)
            if jsonData.show and jsonData.type == "REPORT_SHOW" then
                isReportShowed = jsonData.show == "admin"      
            end
        end
    end
end)

function sampev.onShowDialog(id, style, title, button1, button2, text)
    if id == 220 then
        if title:find('Администрация в сети') then
            admins = {}
            for list in string.gmatch(text, "[^\r\n]+") do
                local rank, nickname, id, rep, state, afk = line:match('^%{FFFFFF%}(.*) ([%w_]+)%[(%d+)%]\t(%d+)\t(.*)\t(.*)$')
                table.insert(admins, {
                        rank = rank,
                        nickname = nickname,
                        id = id,
                        rep = rep,
                        state = state,
                        afk = afk
                    })
            end
            table.sort(admins, compareRanks)
            return false
        end
    end
end

 

[Oki_Bern]

как строковое значение конвертировать в числовое

 

[chromiusj]

как строковое значение конвертировать в числовое

tonumber("string value")

 

[Oki_Bern]

tonumber("string value")

пробовал так, но в строковом значение у меня было 100, а так нил выдавало

 

[ARMOR]

пробовал так, но в строковом значение у меня было 100, а так нил выдавало

Значит у тебя не 100

 

[Hidetaka]

Но, Чтобы закрепить камеру за персонажем - Я не знаю ответа, сам ищю на протяжении 2х дней, Ответа не нашёл. Даже тему оставил...

setCameraBehindPlayer()

Не благодари :)

 

[varkon]

while not sampIsLocalPlayerSpawned() do wait(0) end
--somecode

Как заставить эту проверку сработать еще раз после релога? (Без выхода из игры)

 

[Gmailer]

Каким образом сервер выкидывает меня из тс если я нопнул входящий пакет?

 

[LuaMaster]

Приветсвую
https://www.blast.hk/threads/184692/ - взято с данного гайда
Взято метод отправки
function sendCef(str)
local bs = raknetNewBitStream()
raknetBitStreamWriteInt8(bs, 220)
raknetBitStreamWriteInt8(bs, 18)
raknetBitStreamWriteInt8(bs, string.len(str))
raknetBitStreamWriteInt8(bs, 0)
raknetBitStreamWriteInt8(bs, 0)
raknetBitStreamWriteInt8(bs, 0)
raknetBitStreamWriteString(bs, str)
raknetBitStreamWriteInt8(bs, 0)
raknetBitStreamWriteInt8(bs, 0)
raknetBitStreamWriteInt8(bs, 0)
raknetSendBitStreamEx(bs, 2, 9, 6)
end
Как понять что мне нужно отправить что бы нажалась например клавиша ентер либо альт? Как мне отслеживать кнопки или есть какая то таблица?

 

[Arahis]

while not sampIsLocalPlayerSpawned() do wait(0) end
--somecode

Как заставить эту проверку сработать еще раз после релога? (Без выхода из игры)

function main()
   while not isSampAvailable() do wait(100) end
   repeat
      wait(0)
   until sampIsLocalPlayerSpawned()
   sampAddChatMessage("Персонаж заспавнился", -1)
end

 

[KlerOn]

while not sampIsLocalPlayerSpawned() do wait(0) end
--somecode

Как заставить эту проверку сработать еще раз после релога? (Без выхода из игры)

function main()
   while not isSampAvailable() do wait(100) end
   while true do wait(0)
      repeat wait(0) until sampIsLocalPlayerSpawned()
      -- your code
   end
end

 

[varkon]

Как можно что - либо отметить как либо?
Например, если был в этой точке > отметка?
Иконка, пикап - все равно, главное что бы не сильно жрал фпс
Надеюсь, изъяснил ясно свою мысль. Спасибо

 

[Wer_tyn]

Помогите пожалуйста, мне нужно чтобы в определенное время сервера выполнялась моя функция. RakSAMP

 

[chromiusj]

Помогите пожалуйста, мне нужно чтобы в определенное время сервера выполнялась моя функция. RakSAMP

в функции onUpdate сравнивай нужное тебе время с os.date(это время на компе, не на сервере)

 

[Wer_tyn]

в функции onUpdate сравнивай нужное тебе время с os.date(это время на компе, не на сервере)

Пробую так: if os.date('%HH:%MM:%SS') == '17:01:00' then print('ok') end, ничего не происходит