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

 

[whyega52]

Есть функция быстрого скриншота (убрать фриз при нажатие f8) на lua? Весь бх облазил, не нашел, мб кто-то шарит. Буду благодарен👽

это с фризом?
https://www.blast.hk/threads/13380/post-387567 (сообщения Шрека и Pakulichev)

 

[deleted-user-139653]

это с фризом?
https://www.blast.hk/threads/13380/post-387567 (сообщения Шрека и Pakulichev)

да, это пробовал, тоже с фризом

 

[Удалённый пользователь 487823]

Уже не в чем, @chapo сори - Я разобрался!

Где обнова бота на личные фермы?

 

[EclipsedFlow]

Где обнова бота на личные фермы?

Зачем обнова?

 

[E E E E E E E]

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

 

[whyega52]

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

вроде так

function getClosestPlayerId(minDist)
    local closestId = -1
    local mx, my, mz = getCharCoordinates(PLAYER_PED)
    for i = 0, 999 do
        local streamed, ped = sampGetCharHandleBySampPlayerId(i)
        if streamed then
            local px, py, pz = getCharCoordinates(ped)
            local dist = getDistanceBetweenCoords3d(px, py, pz, mx, my, mz)
            if dist < minDist then
                minDist = dist
                closestId = i
            end
        end
    end
    return closestId
end

 

[danny228]

Нужен код который будет делать следующее:
чекает сколько у меня хп
если 60 и менее, то юзает команду /usedrugs 2 раза
после этого в чат пишется «‎Здоровье восстановлено»
заранее огромное спасибо!!

 

[whyega52]

Нужен код который будет делать следующее:
чекает сколько у меня хп
если 60 и менее, то юзает команду /usedrugs 2 раза
после этого в чат пишется «‎Здоровье восстановлено»
заранее огромное спасибо!!

-- main
while true do wait(0)
    if getCharHealth(PLAYER_PED) < 60 then
        sampSendChat("/usedrugs")
        sampSendChat("/usedrugs")
        sampAddChatMessage("Пополнили хп", -1)
    end
end

 

[Удалённый пользователь 487823]

Зачем обнова?

Так он у тя всегда через одну точку пробегает это очень палевно особенно когда бежишь с сеном он добегает до этой точки и разворачивается чтобы сдать его в другой стороне

 

[E E E E E E E]

-- main
while true do wait(0)
    if getCharHealth(PLAYER_PED) < 60 then
        sampSendChat("/usedrugs")
        sampSendChat("/usedrugs")
        sampAddChatMessage("Пополнили хп", -1)
    end
end

задержка для тебя шутка?

 

[moreveal]

-- main
while true do wait(0)
    if getCharHealth(PLAYER_PED) < 60 then
        sampSendChat("/usedrugs")
        sampSendChat("/usedrugs")
        sampAddChatMessage("Пополнили хп", -1)
    end
end

лучше задержку добавить в конец, хп же не моментально пополнится; да и между командами не помешало бы; и зачем писать одну и ту же строку 2 раза, если придумали циклы

 

[E E E E E E E]

поч кнопки робят, а функции не робят?

script_author('E E E E E E E')
script_version('beta1.0.0')

require 'lib.moonloader'
local hook = require 'lib.samp.events'
local imgui = require 'imgui'
local red = 0xF24B4B
imgui.ToggleButton = require('imgui_addons').ToggleButton
local encoding = require 'encoding'
encoding.default = 'CP1251'
u8 = encoding.UTF8

local themes = import "resource/imgui_themes.lua"
local vkeys = require 'vkeys'

local main_window_state = imgui.ImBool(false)
local text_buffer = imgui.ImBuffer(256)
local anti_drop = imgui.ImBool(false)
local sbiv = imgui.ImBool(false)
local aptechka = imgui.ImBool(false)
local speedcar = imgui.ImBool(false)
local taxi = imgui.ImBool(false)
local sbiv_piss = imgui.ImBool(false)
local auto = imgui.ImBool(false)

function main()
    repeat wait(0) until isSampAvailable()
    printStringNow("~r~[Evolve~w~ Helper]: ~g~ON", 1500)
    wait(1500)
    printString('~r~[Evolve~w~ Helper]: ~r~/e.menu', 1500)
    sampRegisterChatCommand("e.menu", function()
    main_window_state.v = not main_window_state.v
        imgui.Process = main_window_state.v
    end)

        imgui.Process = false

        imgui.SwitchContext()
        themes.SwitchColorTheme(2)

                wait(-1)

        while true do
                    wait(0)
                    if auto.v then
                        if not sampIsDialogActive() and not sampIsChatInputActive() then
                            if isKeyJustPressed(VK_F11) then
                                local closestId = -1
                                local x, y, z = getCharCoordinates(PLAYER_PED)
                                for i = 0, 999 do
                                    local strem, ped = sampGetCharHandleBySampPlayerId(i)
                                         if strem then
                                            local mx, my, mz = getCharCoordinates(ped)
                                            local dist = getDistanceBetweenCoords3d(x, y, z, mx, my, mz)
                                            if dist < 5 then
                                                sampSendChat('Hello! '.. i)
                                            end
                                         end
                            end
                        end
                    end
                        end
            if sbiv_piss.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_R) and isKeyJustPressed(VK_3) then
                        sampSendChat("/piss")
                    end
                end
            end
            if taxi.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_N) and isKeyJustPressed(VK_M) then
                        sampSendChat('От души брат)')
                        wait(1500)
                        sampSendChat('Удачи')
                        wait(1000)
                        sampSendChat(')')
                    end
                end
            end
            if speedcar.v then
                speed = getCharSpeed(PLAYER_PED)
                if isCharInAnyCar(PLAYER_PED) then
                    printStringNow(math.floor(speed), 500)
                end
            end
            if aptechka.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_R) and isKeyJustPressed(VK_2) then
                        sampAddChatMessage("/usedrugs 15", -1)
                    end
                end
            end

            if sbiv.v then
                _, id = sampGetPlayerIdByCharHandle(PLAYER_PED)
                idanimation = sampGetPlayerAnimationId(id)
                if idanimation == 1191 then
                    wait(1)
                    x, y, z = getCharCoordinates(PLAYER_PED)
                    zi = z -1
                    setCharCoordinates(PLAYER_PED, x, y, zi)
                end
            end
        end

end

    function imgui.OnDrawFrame()
        local sw, sh = getScreenResolution()
        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.SetNextWindowSize(imgui.ImVec2(577, 299), imgui.Cond.FirstUseEver)

        if not main_window_state.v then
            imgui.Process = false
        end
            imgui.Begin("Evolve Helper BETA 1.0.0 bY E E E E E E E", main_window_state, imgui.WindowFlags.NoResize)
            imgui.Text(u8"                           Работы:                                                        Транспорт:")
            imgui.BeginChild(u8"Работы", imgui.ImVec2(251, 112), true)
            imgui.ToggleButton('##anti_drop', anti_drop)
            imgui.SameLine()
            imgui.Text(u8'Анти дроп обьектов')
            imgui.SameLine()
            imgui.TextQuestion(u8'Вы не будете ронять мешок или другой любой обьект в руках. !WARNING!: Иногда может кикать!')
            imgui.ToggleButton('##sbiv', sbiv)
            imgui.SameLine()
            imgui.Text(u8'Авто сбив отдышки')
            imgui.SameLine()
            imgui.TextQuestion(u8'После удара у вашего персонажа не будет отдышки')
                        imgui.ToggleButton("auto", auto)
                        imgui.SameLine()
                        imgui.Text(u8'Авто продажа хот дога игроку\n(максимум 5 метров)')
                        imgui.SameLine()
                        imgui.TextQuestion(u8'Активация: F11')
            imgui.EndChild()

            imgui.SameLine()
            imgui.BeginChild("Транспорт", imgui.ImVec2(313, 112), true)
            imgui.ToggleButton('##speedcar', speedcar)
            imgui.SameLine()
            imgui.Text(u8'Спидометр(для мопедов)')
            imgui.SameLine()
            imgui.TextQuestion(u8'Как мы знаем, на Evolve нету спидометра когда сидишь за мопедом, это функция исправляет это!')
            imgui.ToggleButton('##taxi', taxi)
            imgui.SameLine()
            imgui.Text(u8'Отблагодарить таксиста за поездку (N + M)')
            imgui.SameLine()
            imgui.TextQuestion(u8'хз зач я это добавил, а может. B релизе этой надписи и не будет:(...')
            imgui.EndChild()

                        imgui.Text(u8"                   Разное:")
                        imgui.SetCursorPosY(178)
                        imgui.SetCursorPosX(4)
            imgui.BeginChild(u8"e", imgui.ImVec2(410, 100), true)
            imgui.ToggleButton('#pechka', aptechka)
            imgui.SameLine()
            imgui.Text(u8'Автоматически принимает вещества, активация:  R + 2')
            imgui.SameLine()
            imgui.TextQuestion(u8'При нажатии R + 2 игрок автоматически введёт "/usedrugs 15"')
                        imgui.ToggleButton("s", sbiv_piss)
                        imgui.SameLine()
                        imgui.Text(u8'Сбив на /piss (шоб по гетто ящерски выглядила)')
                        imgui.SameLine()
                        imgui.TextQuestion(u8'Активация: R + 3')
            imgui.EndChild()

            imgui.SetCursorPosY(220)
            imgui.SetCursorPosX(440)
            imgui.Text(u8'Автор на BlastHack:')
            imgui.SetCursorPosY(239)
            imgui.SetCursorPosX(440)
            if imgui.Button('Copy url') then
                setClipboardText('https://www.blast.hk/members/495401/')
            end
            imgui.End()
        end

function imgui.TextQuestion(text)
  imgui.TextDisabled('(?)')
      if imgui.IsItemHovered() then
            imgui.BeginTooltip()
          imgui.PushTextWrapPos(450)
          imgui.TextUnformatted(text)
          imgui.PopTextWrapPos()
          imgui.EndTooltip()
      end
    end

function hook.onSendPlayerSync(data)
    if anti_drop.v then
        data.keysData = 0
    end
end

function onScriptTerminate(script, quitGame)
    if script == thisScript() then
        sampAddChatMessage("{F24B4B}[Evolve Helper]:{FFFFFF} Скрипт был {F24B4B}крашнут{FFFFFF}, нажмите {F24B4B}CNTRL{FFFFFF} + {F24B4B}R{FFFFFF} чтобы перезагрузить", -1)
        printStringNow("~r~[Evolve ~w~Helper]: ~r~ OFF", 2500)
    end
end

 

[whyega52]

лучше задержку добавить в конец, хп же не моментально пополнится; да и между командами не помешало бы

хто знает, мб нету антифлуда на сервере

и зачем писать одну и ту же строку 2 раза, если придумали циклы

по строкам было компактнее это, вот и решил сделать так

 

[E E E E E E E]

поч кнопки робят, а функции не робят?

script_author('E E E E E E E')
script_version('beta1.0.0')

require 'lib.moonloader'
local hook = require 'lib.samp.events'
local imgui = require 'imgui'
local red = 0xF24B4B
imgui.ToggleButton = require('imgui_addons').ToggleButton
local encoding = require 'encoding'
encoding.default = 'CP1251'
u8 = encoding.UTF8

local themes = import "resource/imgui_themes.lua"
local vkeys = require 'vkeys'

local main_window_state = imgui.ImBool(false)
local text_buffer = imgui.ImBuffer(256)
local anti_drop = imgui.ImBool(false)
local sbiv = imgui.ImBool(false)
local aptechka = imgui.ImBool(false)
local speedcar = imgui.ImBool(false)
local taxi = imgui.ImBool(false)
local sbiv_piss = imgui.ImBool(false)
local auto = imgui.ImBool(false)

function main()
    repeat wait(0) until isSampAvailable()
    printStringNow("~r~[Evolve~w~ Helper]: ~g~ON", 1500)
    wait(1500)
    printString('~r~[Evolve~w~ Helper]: ~r~/e.menu', 1500)
    sampRegisterChatCommand("e.menu", function()
    main_window_state.v = not main_window_state.v
        imgui.Process = main_window_state.v
    end)

        imgui.Process = false

        imgui.SwitchContext()
        themes.SwitchColorTheme(2)

                wait(-1)

        while true do
                    wait(0)
                    if auto.v then
                        if not sampIsDialogActive() and not sampIsChatInputActive() then
                            if isKeyJustPressed(VK_F11) then
                                local closestId = -1
                                local x, y, z = getCharCoordinates(PLAYER_PED)
                                for i = 0, 999 do
                                    local strem, ped = sampGetCharHandleBySampPlayerId(i)
                                         if strem then
                                            local mx, my, mz = getCharCoordinates(ped)
                                            local dist = getDistanceBetweenCoords3d(x, y, z, mx, my, mz)
                                            if dist < 5 then
                                                sampSendChat('Hello! '.. i)
                                            end
                                         end
                            end
                        end
                    end
                        end
            if sbiv_piss.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_R) and isKeyJustPressed(VK_3) then
                        sampSendChat("/piss")
                    end
                end
            end
            if taxi.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_N) and isKeyJustPressed(VK_M) then
                        sampSendChat('От души брат)')
                        wait(1500)
                        sampSendChat('Удачи')
                        wait(1000)
                        sampSendChat(')')
                    end
                end
            end
            if speedcar.v then
                speed = getCharSpeed(PLAYER_PED)
                if isCharInAnyCar(PLAYER_PED) then
                    printStringNow(math.floor(speed), 500)
                end
            end
            if aptechka.v then
                if not sampIsDialogActive() and not sampIsChatInputActive() then
                    if isKeyDown(VK_R) and isKeyJustPressed(VK_2) then
                        sampAddChatMessage("/usedrugs 15", -1)
                    end
                end
            end

            if sbiv.v then
                _, id = sampGetPlayerIdByCharHandle(PLAYER_PED)
                idanimation = sampGetPlayerAnimationId(id)
                if idanimation == 1191 then
                    wait(1)
                    x, y, z = getCharCoordinates(PLAYER_PED)
                    zi = z -1
                    setCharCoordinates(PLAYER_PED, x, y, zi)
                end
            end
        end

end

    function imgui.OnDrawFrame()
        local sw, sh = getScreenResolution()
        imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
        imgui.SetNextWindowSize(imgui.ImVec2(577, 299), imgui.Cond.FirstUseEver)

        if not main_window_state.v then
            imgui.Process = false
        end
            imgui.Begin("Evolve Helper BETA 1.0.0 bY E E E E E E E", main_window_state, imgui.WindowFlags.NoResize)
            imgui.Text(u8"                           Работы:                                                        Транспорт:")
            imgui.BeginChild(u8"Работы", imgui.ImVec2(251, 112), true)
            imgui.ToggleButton('##anti_drop', anti_drop)
            imgui.SameLine()
            imgui.Text(u8'Анти дроп обьектов')
            imgui.SameLine()
            imgui.TextQuestion(u8'Вы не будете ронять мешок или другой любой обьект в руках. !WARNING!: Иногда может кикать!')
            imgui.ToggleButton('##sbiv', sbiv)
            imgui.SameLine()
            imgui.Text(u8'Авто сбив отдышки')
            imgui.SameLine()
            imgui.TextQuestion(u8'После удара у вашего персонажа не будет отдышки')
                        imgui.ToggleButton("auto", auto)
                        imgui.SameLine()
                        imgui.Text(u8'Авто продажа хот дога игроку\n(максимум 5 метров)')
                        imgui.SameLine()
                        imgui.TextQuestion(u8'Активация: F11')
            imgui.EndChild()

            imgui.SameLine()
            imgui.BeginChild("Транспорт", imgui.ImVec2(313, 112), true)
            imgui.ToggleButton('##speedcar', speedcar)
            imgui.SameLine()
            imgui.Text(u8'Спидометр(для мопедов)')
            imgui.SameLine()
            imgui.TextQuestion(u8'Как мы знаем, на Evolve нету спидометра когда сидишь за мопедом, это функция исправляет это!')
            imgui.ToggleButton('##taxi', taxi)
            imgui.SameLine()
            imgui.Text(u8'Отблагодарить таксиста за поездку (N + M)')
            imgui.SameLine()
            imgui.TextQuestion(u8'хз зач я это добавил, а может. B релизе этой надписи и не будет:(...')
            imgui.EndChild()

                        imgui.Text(u8"                   Разное:")
                        imgui.SetCursorPosY(178)
                        imgui.SetCursorPosX(4)
            imgui.BeginChild(u8"e", imgui.ImVec2(410, 100), true)
            imgui.ToggleButton('#pechka', aptechka)
            imgui.SameLine()
            imgui.Text(u8'Автоматически принимает вещества, активация:  R + 2')
            imgui.SameLine()
            imgui.TextQuestion(u8'При нажатии R + 2 игрок автоматически введёт "/usedrugs 15"')
                        imgui.ToggleButton("s", sbiv_piss)
                        imgui.SameLine()
                        imgui.Text(u8'Сбив на /piss (шоб по гетто ящерски выглядила)')
                        imgui.SameLine()
                        imgui.TextQuestion(u8'Активация: R + 3')
            imgui.EndChild()

            imgui.SetCursorPosY(220)
            imgui.SetCursorPosX(440)
            imgui.Text(u8'Автор на BlastHack:')
            imgui.SetCursorPosY(239)
            imgui.SetCursorPosX(440)
            if imgui.Button('Copy url') then
                setClipboardText('https://www.blast.hk/members/495401/')
            end
            imgui.End()
        end

function imgui.TextQuestion(text)
  imgui.TextDisabled('(?)')
      if imgui.IsItemHovered() then
            imgui.BeginTooltip()
          imgui.PushTextWrapPos(450)
          imgui.TextUnformatted(text)
          imgui.PopTextWrapPos()
          imgui.EndTooltip()
      end
    end

function hook.onSendPlayerSync(data)
    if anti_drop.v then
        data.keysData = 0
    end
end

function onScriptTerminate(script, quitGame)
    if script == thisScript() then
        sampAddChatMessage("{F24B4B}[Evolve Helper]:{FFFFFF} Скрипт был {F24B4B}крашнут{FFFFFF}, нажмите {F24B4B}CNTRL{FFFFFF} + {F24B4B}R{FFFFFF} чтобы перезагрузить", -1)
        printStringNow("~r~[Evolve ~w~Helper]: ~r~ OFF", 2500)
    end
end

хелп плиз

 

[danny228]

может ли кто сделать, чтобы когда персонаж садится в т/c, то вводятся 2 команды
вроде можно сделать как то через isCharSittingInCar (но не факт)
команды
1. /afix
2. /afixhp 600