Вопросы по 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.
— Как получить транспорт, в котором сидит игрок?
Lua: 
local veh = storeCarCharIsInNoSave(PLAYER_PED)
— Как получить свой id или id другого игрока?
Lua: 
local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED) -- получить свой ид
local _, id = sampGetPlayerIdByCharHandle(ped) -- получить ид другого игрока. ped - это хендл персонажа
— Как проверить, что строка содержит какой-то текст?
Lua: 
if string.find(str, 'текст', 1, true) then
-- строка str содержит "текст"
end
— Как эмулировать нажатие игровой клавиши?
Lua: 
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 другого игрока, в которого целюсь я?
Lua: 
local valid, ped = getCharPlayerIsTargeting(PLAYER_HANDLE) -- получить хендл персонажа, в которого целится игрок
if valid and doesCharExist(ped) then -- если цель есть и персонаж существует
  local result, id = sampGetPlayerIdByCharHandle(ped) -- получить samp-ид игрока по хендлу персонажа
  if result then -- проверить, прошло ли получение ида успешно
    -- здесь любые действия с полученным идом игрока
  end
end
— Как зарегистрировать команду чата SAMP?
Lua: 
-- До бесконечного цикла/задержки
sampRegisterChatCommand("mycommand", function (param)
     -- param будет содержать весь текст введенный после команды, чтобы разделить его на аргументы используйте string.match()
    sampAddChatMessage("MyCMD", -1)
end)
— Крашит игру при вызове sampSendChat. Как это исправить?
Это происходит из-за бага в SAMPFUNCS, когда производится попытка отправки пакета определенными функциями изнутри события исходящих RPC и пакетов. Исправления для этого бага нет, но есть способ не провоцировать его. Вызов sampSendChat изнутри обработчика исходящих RPC/пакетов нужно обернуть в скриптовый поток с нулевой задержкой:
Lua: 
function onSendRpc(id)
  -- крашит:
  -- sampSendChat('Send RPC: ' .. id)

  -- норм:
  lua_thread.create(function()
    wait(0)
    sampSendChat('Send RPC: ' .. id)
  end)
end
 
Последнее редактирование:
  • Нравится
  • Клоун
  • Эм
Реакции: EnScryptior, minxty, RatnikSrb и 41 других
Нажмите для раскрытия...
MrDorlik

MrDorlik

Известный
946
377
SyLvy написал(а):
Да, когда вы вводите «/testcommand», он отправляет в чат первый текст, а когда вы вводите команду еще раз, он отправляет второй и последний текст. Если вы отправили второй текст и снова выполнили команду, первый текст должен быть отправлен еще раз.
Нажмите для раскрытия...
ели текстов больше 2, то проверку через числа надо будет делать. если 2, то и так работает
Lua: 
local text1 = 'text1'
local text2 = 'text2'
local n = false
function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand('testcommand', function ()
        n = not n
        sampSendChat(n and text1 or text2)
    end)
    wait(-1)
end
 
M

Madeo Capaldi

Известный
45
2
bulba$h написал(а):
код в студию
Нажмите для раскрытия...
Lua: 
 local ev = require('lib.samp.events
 local list = {
    "Рожь", "Морковь", "Огурцы", "Белый виноград","Лён",}
 
 function main ()
    while not isSampAvailable()  do  wait(0)   end 
           while true do wait(0)
        
           end
   end
 
 
 function ev.onShowDialog (dialogId , style ,title , button1 , button2 ,text )
        for line in text:gmatch("[^\r\n]+") do
            for i = 1, #list do
                if line:find(list[i]) then
                    lua_thread.create(function ()
                    wait(1000)
                    sampAddChatMessage('Найден '..line, -1)
                        if dialogId == 15184 then
                        sampSendDialogResponse(15184, 1, line, nil )
                        wait(500)
                         end
                    end)
                 end
              end
          end
    end
 
TSIDEX

TSIDEX

Известный
86
8
Как замутить проверку на ID, чтобы при неверном аргументе возвращать return false?

Lua: 
function hist(arg)
local nick = sampGetPlayerNickname(arg)
sampSendChat("/history ".. nick .."")
end
 
MrDorlik

MrDorlik

Известный
946
377
TSIDEX написал(а):
Как замутить проверку на ID, чтобы при неверном аргументе возвращать return false?

Lua: 
function hist(arg)
local nick = sampGetPlayerNickname(arg)
sampSendChat("/history ".. nick .."")
end
Нажмите для раскрытия...
Lua: 
function hist(arg)
    if not sampIsPlayerConnected(arg) then
        return false
    end
    local nick = sampGetPlayerNickname(arg)
    sampSendChat("/history ".. nick .."")
end
 
  • Нравится
Реакции: TSIDEX
Dmitriy Makarov

Dmitriy Makarov

25.05.2021
Проверенный
2,515
1,141
Madeo Capaldi написал(а):
Lua: 
 local ev = require('lib.samp.events
 local list = {
    "Рожь", "Морковь", "Огурцы", "Белый виноград","Лён",}
 
 function main ()
    while not isSampAvailable()  do  wait(0)   end
           while true do wait(0)
       
           end
   end
 
 
 function ev.onShowDialog (dialogId , style ,title , button1 , button2 ,text )
        for line in text:gmatch("[^\r\n]+") do
            for i = 1, #list do
                if line:find(list[i]) then
                    lua_thread.create(function ()
                    wait(1000)
                    sampAddChatMessage('Найден '..line, -1)
                        if dialogId == 15184 then
                        sampSendDialogResponse(15184, 1, line, nil )
                        wait(500)
                         end
                    end)
                 end
              end
          end
    end
Нажмите для раскрытия...
Так не работает?
Lua: 
local ev = require('lib.samp.events')
local list = {
    "Рожь", "Морковь", "Огурцы", "Белый виноград","Лён",}
 
 function main()
     while not isSampAvailable() do wait(0) end
     wait(-1) -- Если не используешь бесконечный цикл, то так оставь.
 end
 
 
 function ev.onShowDialog (dialogId , style ,title , button1 , button2 ,text )
     if dialogId == 15184 then
         for line in text:gmatch("[^\r\n]+") do
             for i = 1, #list do
                 if line:find(list[i]) then
                     lua_thread.create(function () wait(10)
                         sampAddChatMessage('Найден '..line, -1)
                         sampSendDialogResponse(15184, 1, line, nil)
                         wait(500)
                     end)
                 end
             end
         end
     end
 end
 
M

Madeo Capaldi

Известный
45
2
Dmitriy Makarov написал(а):
Так не работает?
Lua: 
local ev = require('lib.samp.events')
local list = {
    "Рожь", "Морковь", "Огурцы", "Белый виноград","Лён",}
 
 function main()
     while not isSampAvailable() do wait(0) end
     wait(-1) -- Если не используешь бесконечный цикл, то так оставь.
 end
 
 
 function ev.onShowDialog (dialogId , style ,title , button1 , button2 ,text )
     if dialogId == 15184 then
         for line in text:gmatch("[^\r\n]+") do
             for i = 1, #list do
                 if line:find(list[i]) then
                     lua_thread.create(function () wait(10)
                         sampAddChatMessage('Найден '..line, -1)
                         sampSendDialogResponse(15184, 1, line, nil)
                         wait(500)
                     end)
                 end
             end
         end
     end
 end
Нажмите для раскрытия...
Не хочет, флудит диалогом, но не выбирает
 
Dmitriy Makarov

Dmitriy Makarov

25.05.2021
Проверенный
2,515
1,141
Madeo Capaldi написал(а):
Не хочет, флудит диалогом, но не выбирает
Нажмите для раскрытия...
А ну, вот так попробуй:
Lua: 
local ev = require('lib.samp.events')
local list = {"Лён", "Рожь", "Морковь", "Огурцы", "Белый виноград"}
 
function main()
    while not isSampAvailable() do wait(0) end
    wait(-1) -- Если не используешь бесконечный цикл, то так оставь.
end
 
 function ev.onShowDialog (dialogId , style ,title , button1 , button2 ,text )
    if dialogId == 15184 then
        lua_thread.create(function ()
            local lineN = -1
            for line in text:gmatch("[^\r\n]+") do
                lineN = lineN + 1
                for i = 1, #list do
                    if line:find(list[i]) then
                        sampSendDialogResponse(15184, 1, lineN, nil)
                        wait(500)
                    end
                end
            end
        end)
    end
end
Должно работать. По крайней мере, у меня на локальном сервере это сработало.
1697055276738.png
 
  • Нравится
Реакции: Madeo Capaldi
nedoros

nedoros

Участник
51
3
Прошу помочь с добавлением функции в скрипт. Есть бот на ферму. Он бежит на ближайший свободный куст. Нужно перед началом этой функции была функция бега на позицию -150.24499511719, 134.3341217041, 3.7376899719238 , и только после этого начинал бежать к ближайшему свободному кусту. Кто может, сделайте пожалуйста, буду благодарен.

fermabot: 
-- by vegas~
local state = false
local state_taked = false
local state_harvest = false
local wheat_dist = 1.5

function GetNearWheat(wheat)
    local table, dist
    for i, k in pairs(wheat) do
        if (not k.peds or (k.dist < wheat_dist and state_harvest)) and (table == nil or k.dist < dist) then
            table, dist = k, k.dist
        end
    end
    return table
end

function WalkEngine(bool)
    state_harvest = false

    setGameKeyState(1,-255)
    if bool then
        if getCharSpeed(PLAYER_PED) > 4 and math.random(150) == 1 then
            setGameKeyState(14,255)
        else
            setGameKeyState(16,255)
        end
    end
end

function StartWork()
    state = not state
    sampAddChatMessage(state and "{CC00EE}Бот на ферму от vegas~ {55FF00}начал работу" or "{CC00EE}Бот на ферму от vegas~ {FF0000}завершил работу", -1)
    state_taked = false
end

function EngineWork()
    local x,y,z = getCharCoordinates(PLAYER_PED)

    if not state_taked then
        local wheat = {}
        for id = 0, 2047 do
            if sampIs3dTextDefined(id) then
                local str,col,x1,y1,z1 = sampGet3dTextInfoById(id)
                if str:find("Чтобы сорвать куст") then
                    table.insert(wheat, {id = id, x = x1, y = y1, z = z1, peds = findAllRandomCharsInSphere(x1,y1,z1,3,false,true), dist = getDistanceBetweenCoords3d(x,y,z,x1,y1,z1)})
                end
            end
        end

        if #wheat == 0 then return end
        wheat = GetNearWheat(wheat)

        if wheat.dist > wheat_dist then
            setCameraPositionUnfixed(-0.3, math.rad(getHeadingFromVector2d(wheat.x-x, wheat.y-y))+4.7)
        
            if wheat.dist > wheat_dist*3 then
                WalkEngine(true)
            else
                WalkEngine(false)
            end
        elseif not state_harvest then
            if sampGetPlayerAnimationId(select(2, sampGetPlayerIdByCharHandle(PLAYER_PED))) == 163 then
                state_harvest = true
            end

            local data = allocateMemory(68)
            sampStorePlayerOnfootData(select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)), data)
            setStructElement(data, 4, 2, 1024, true)
            sampSendOnfootData(data)
            freeMemory(data)
        end
    else
        local x1, y1, z1 = -105.60591125488, 100.61192321777, 3.1171875
        if getDistanceBetweenCoords3d(x,y,z,x1,y1,z1) > 1.5 then
            setCameraPositionUnfixed(-0.3, math.rad(getHeadingFromVector2d(x1-x, y1-y))+4.7)
            WalkEngine(true)
        end
    end
end

function main()
    math.randomseed(os.time())
    while not isSampAvailable() or not sampIsLocalPlayerSpawned() do wait(0) end
    sampAddChatMessage("{CC00EE}Бот на ферму от vegas~ загружен", -1)
    sampRegisterChatCommand("fermabot", StartWork)
    while true do wait(0)
        if state then
            EngineWork()
        end
    end
end

function onReceiveRpc(id, bs)
    if state then
        if id == 113 then
            local playerId = raknetBitStreamReadInt16(bs)
            local index = raknetBitStreamReadInt32(bs)
            local create = raknetBitStreamReadBool(bs)
            local model = raknetBitStreamReadInt32(bs)

            if not state_taked and select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)) == playerId and model == 2901 then
                state_taked = true
            end
        elseif id == 93 then
            local color = raknetBitStreamReadInt32(bs)
            local len = raknetBitStreamReadInt32(bs)
            local str = raknetBitStreamReadString(bs, len)

            if state_taked and str:find("%[Подсказка]{FFFFFF} Сена перетащено: %d+ шт%. {FF6347} Теперь ваш навык фермерства .+/.+") then
                state_taked = false
            end
        end
    end
end
 
Gapord

Gapord

Новичок
13
1
Кто подскажет как сделать чтобы когда в чате была строчка "Используй: /ban [id] [days 1-30] [Причина]", скрипт отпралял в /a любое сообщение(потом я уже сам поменяю)
TMTAp43.png

(знаю, слишком банальный вопрос)
 
Hinаta

Hinаta

Известный
750
359
Gapord написал(а):
Кто подскажет как сделать чтобы когда в чате была строчка "Используй: /ban [id] [days 1-30] [Причина]", скрипт отпралял в /a любое сообщение(потом я уже сам поменяю)
TMTAp43.png

(знаю, слишком банальный вопрос)
Нажмите для раскрытия...
www.blast.hk

SAMP.Lua

Изначально эта библиотека задумывалась как простой апи исключительно для обработки сетевых пакетов, но в процессе было решешо, что лучше бы сделать её полноценной библиотекой для работы с сампом, в будущем это позволит избавить от необходимости использования SAMPFUNCS. Пока реализован только...
www.blast.hk www.blast.hk
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. AnWu
    • Закреплено
    • Статья
    Информация Гайд Всё о Lua скриптинге для MoonLoader
      • Нравится
    Ответы
    62
    Просмотры
    198K
    Lua
    БеzликиЙ
    БеzликиЙ
  2. Frapsy
    • Опрос
    Исходник Полноценный исходник фракционного(МО) скрипта ARP
      • Нравится
    Ответы
    74
    Просмотры
    38K
    Lua
    Frapsy
    Frapsy
  3. PanSeek
    Интервью с Fomikus
      • Нравится
      • Влюблен
    Ответы
    3
    Просмотры
    3K
    Общение
    chromiusj
    chromiusj
  4. AnWu
    • Закреплено
    Информация Ответы на часто задаваемые вопросы [FAQ]
      • Нравится
      • Влюблен
    Ответы
    26
    Просмотры
    18K
    Lua
    вайега52
    вайега52
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    5K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу