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

 

[Aniki]

Всё равно не получается...
Смотри, я вывожу в рендер - строку чата

renderFontDrawText(my_font, str12, 15, 180, cstr12)

Перед этим я значение str12 - даю текст который мне выдали, а cstr12 - цвет

не формать тогда строку, а просто сделай сдвиг

bit.rshift(clr, 8)

 

[SHREMOV]

ты же внутри эвента это написал?

local sampev = require 'lib.samp.events'

function sampev.onPlayerJoin(id, color, isNpc, nickname)
    if nickname == 'Test_Test' then
        sampAddChatMessage('PLAYER CONNECTED: ' .. nickname .. '[' .. id .. ']', -1)
    end
end

ага.. всё равно ничего не происходит..

 

[Atlantick]

Как сделать включение/выключение HotKey? Вот код:

while true do
      wait(0)
      if isKeyDown(VK_F2) then
        sampSendChat("Тест")
        wait(5000)
        sampSendChat("Тест2")
        wait(5000)
        sampSendChat("Тест3")
        wait(5000)
        sampSendChat("Тест4")
        while isKeyDown(VK_F2) do
          wait(100)
           end
        end
     end

 

[imring]

Как сделать включение/выключение HotKey? Вот код:

while true do
      wait(0)
      if isKeyDown(VK_F2) then
        sampSendChat("Тест")
        wait(5000)
        sampSendChat("Тест2")
        wait(5000)
        sampSendChat("Тест3")
        wait(5000)
        sampSendChat("Тест4")
        while isKeyDown(VK_F2) do
          wait(100)
           end
        end
     end

while true do
  wait(0)
  if wasKeyPressed(VK_F2) then
    act = not act
  end
  if act then
    sampSendChat("Тест")
    wait(5000)
    sampSendChat("Тест2")
    wait(5000)
    sampSendChat("Тест3")
    wait(5000)
    sampSendChat("Тест4")
  end
end

 

[argentina]

Посоветовали скачать atom для своих первых начинаниях в lua скриптинге, ну типа скачал, а самого языка там нету. Помогите.

 

[ShuffleBoy]

Посоветовали скачать atom для своих первых начинаниях в lua скриптинге, ну типа скачал, а самого языка там нету. Помогите.

Настройки >> Пакеты >> moonloader
Информация - MoonLoader - разработка^{(https://blast.hk/threads/13315/)}

А вообще нахуй атом, нпп юзай меньше ебли будет

 

[RedApple]

sampAddChatMessage('Hello world!', -1)

Так же, к сожалению, ошибка (команда не найдена).
Клиент модицифированный

 

[T1cKz]

Так же, к сожалению, ошибка (команда не найдена).
Клиент модицифированный

require "lib.sampfuncs"

есть?

 

[tlwsn]

есть код

function main()
  while not isSampAvailable() do wait(100) end
  sampRegisterChatCommand('officer', officer)
  while true do wait(0)
  end
end

function officer(id)
  if #id == 0 then
    sampAddChatMessage(" [Police Helper] {ffffff}Вы ввели неверный id.", 0xFF8C00)
  end
  lua_thread.create(function()
    sampAddChatMessage(" /me передал погоны офицера", -1)
    wait(1100)
    sampAddChatMessage(" /giverank " ..id.. " 2", -1)
    wait(1100)
    sampAddChatMessage(" /time", -1)
  end)
end

мне нужно что бы когда ввожу /officer id кидалась оттыгровка, а когда не ввожу id отправлялось только

sampAddChatMessage(" [Police Helper] {ffffff}Вы ввели неверный id.", 0xFF8C00)

но в этом коде даже если не ввожу ид оно отправляет вторую часть скрипта.
як це пофиксить

 

[RedApple]

require "lib.sampfuncs"

есть?

Нет, в сампе у меня в скриптах работало sampAddChatMessage(string.format("куку"), 0xFFFFFF)

а сейчас я даже в консоли сампфункса пишу sampAddChatMessage и она говорит, что такой команды нет

P.S. сообщения собейта в чате появляются. Типа помощи по командам

 

[for (;;)]

Нет, в сампе у меня в скриптах работало sampAddChatMessage(string.format("куку"), 0xFFFFFF)

а сейчас я даже в консоли сампфункса пишу sampAddChatMessage и она говорит, что такой команды нет

P.S. сообщения собейта в чате появляются. Типа помощи по командам

Напиши в консоли
>> sampAddChatMessage("gdfgd", -1)

 

[штейн]

вопрос, можно ли как-то сделать проверку, типа если local id, sec, sec2, text = string.match(param, '(%d+) (%d+) (%d+) (.+)') тогда выполнять одно, а если уже например не введут id, но введут sec, sec2 и text, тогда выполнять другое

например я ввожу /xui 1 1 1 sosi, тогда он должен выполнять одно, но если я введу xui 1 1 sosi, тогда он будет выполнять другое

 

[#Northn]

вопрос, можно ли как-то сделать проверку, типа если local id, sec, sec2, text = string.match(param, '(%d+) (%d+) (%d+) (.+)') тогда выполнять одно, а если уже например не введут id, но введут sec, sec2 и text, тогда выполнять другое

например я ввожу /xui 1 1 1 sosi, тогда он должен выполнять одно, но если я введу xui 1 1 sosi, тогда он будет выполнять другое

Нет, потому что ID идёт первым, нужно хотя-бы чтобы было последним.

 

[imring]

вопрос, можно ли как-то сделать проверку, типа если local id, sec, sec2, text = string.match(param, '(%d+) (%d+) (%d+) (.+)') тогда выполнять одно, а если уже например не введут id, но введут sec, sec2 и text, тогда выполнять другое

например я ввожу /xui 1 1 1 sosi, тогда он должен выполнять одно, но если я введу xui 1 1 sosi, тогда он будет выполнять другое

local text, number1, number2, text 2 = param:match('(.+) (%d+) (%d+) (.+)')
if text then
    if tonumber(text, 10) then -- если text - число
         -- code
    else -- если text - строка
        -- code
    end
end

 

[CyberSuslik]

Доброго времени суток господа :) Возникла небольшая проблема :) Немного ранее, мне здесь у Вас посоветовали код, для бинда на мегафон полиции :) Так вот не могу понять, что не так, почему он отказывается работать в игре. Может Вы поможете ? Спасибо

if isKeyJustPressed(VK_NUMPAD6) and not sampIsChatInputActive() and not sampIsDialogActive() and not isPauseMenuActive() then
    if isCharInAnyCar(playerPed) then
        peds = getAllChars()
        if peds ~= nil then
            for _, hm in pairs(peds) do
                _ , id = sampGetPlayerIdByCharHandle(hm)
                _ , m = sampGetPlayerIdByCharHandle(PLAYER_PED)
                if id ~= -1 and id ~= m and doesCharExist(hm) and sampIsPlayerConnected(id) then
                    local x, y, z = getCharCoordinates(hm)
                    local mx, my, mz = getCharCoordinates(PLAYER_PED)
                    local dist = getDistanceBetweenCoords3d(mx, my, mz, x, y, z)
                    local color = string.format("%06X", ARGBtoRGB(sampGetPlayerColor(hm)))
                    if dist <= 55 then
                        if isCharInAnyCar(hm) then
                            if color ~= '0066FF' and color ~= '6666FF' and color ~= 'F4A460' and color ~= 'FF6666' and color ~= 'FFCC66' and color ~= '000080' and color ~= '333300' and color ~= '00CC99' and color ~= '339966' then
                                if storeCarCharIsInNoSave(hm) ~= storeCarCharIsInNoSave(playerPed) then
                                    if isCharInCarDriver(hm) then
                                        carh = storeCarCharIsInNoSave(hm)
                                        nameofcar = getNameOfVehicleModel(getCarModel(carh))
                                        _ , idofplayercar = sampGetPlayerIdByCharHandle(hm)
                                        sampSendChat(string.format("/m Водитель транспорта %s под номером %d. ", nameofcar, idofplayercar))
                                        wait(3500)
                                        sampSendChat('/m Прижмите своё транспортное средство к обочине! ')
                                    end
                                end
                            end
                        end
                    end
                end
            end
        else
            sampAddChatMessage("[ PHELP ]{ffffff}: Не найден ни один игрок в зоне прорисовки для объявления в мегафон.", 0x0088ff)
            sampAddChatMessage("[ PHELP ]{ffffff}: Для объявления в мегафон о нарушении вам необходимо быть не более 50 метров от нарушителя.", 0x0088ff)
        end
    else
        sampAddChatMessage("[ PHELP ]{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

function isCharInCarDriver(ped)
    return isCharInAnyCar(ped) and getDriverOfCar(storeCarCharIsInNoSave(ped)) == ped
end