Вопросы по 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
 
Последнее редактирование:
  • Нравится
  • Клоун
  • Эм
Реакции: Jennifer, knowfaq, FreX и 38 других
Нажмите для раскрытия...
cort

cort

Активный
283
90
Макс | Lycorn написал(а):
Что делать, не работает wait
Lua: 
script_name('smihelperPRO')
script_author('tsunamiqq')
script_description('SMIHELPERPRO')
script_version('1.0')
require "lib.moonloader"
local imgui = require 'imgui'
local key = require 'vkeys'
local encoding = require ('encoding')
encoding.default = 'CP1251'
u8 = encoding.UTF8

local act = 0
local main_window_state = imgui.ImBool(false)
local checkbox = imgui.ImBool(false)

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(2000) end
    sampAddChatMessage(u8:decode'[PRO] Хелпер успешно запущен!', 0x00BFFF)
    sampAddChatMessage(u8:decode'[PRO] Активация: /pro', 0x00BFFF)
    sampRegisterChatCommand('pro', function() main_window_state.v = not main_window_state.v end)
    while true do
        wait(0)
        imgui.Process = main_window_state.v and true or false
        if checkbox.v then
            printStringNow('test', 1000)
        end
    end
end
function imgui.OnDrawFrame()
    local iScreenWidth, iScreenHeight = getScreenResolution()
    local btn_size = imgui.ImVec2(-1, 0)
    if main_window_state.v then
        imgui.SetNextWindowSize(imgui.ImVec2(500, 700), imgui.Cond.FirstUseEver)
        imgui.Begin('ПОМОЩНИК ЛИДЕРА СМИ', main_window_state, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse)
        imgui.BeginChild('##tabs1', imgui.ImVec2(485, 660), true)
        if imgui.Button('Вопрос #1', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Можно ли редактировать объявления о продаже/покупке Адд Вип?')
            sampAddChatMessage(u8:decode'Правильный ответ: Нет')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #2', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Можно ли редактировать объявления о продаже/покупке батл пасс?')
            sampAddChatMessage(u8:decode'Правильный ответ: Нет')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #3', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Можно ли редактировать объявления об обмене товаров разных категорий?')
            sampAddChatMessage(u8:decode'Правильный ответ: Нет')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #4', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Можно ли редактировать объявления о продаже наркотиков?')
            sampAddChatMessage(u8:decode'Правильный ответ: Нет')
        end
        if imgui.Button('Вопрос #5', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Что такое ПРО?')
            sampAddChatMessage(u8:decode'Правильный ответ: Правила Редактирование Обьявлений')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #6', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Какое сокращение у слова "мотоцикл"?')
            sampAddChatMessage(u8:decode'Правильный ответ: м/ц')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #7', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Допустим, пришло такое объявление :')
            sampSendChat(u8:decode'"проходит собес в сми сф", как ты его отредактируешь?')
            sampAddChatMessage(u8:decode'Проходит собеседование в СМИ г. Сан-Фиерро. ...')
        end
        imgui.SameLine()
        if imgui.Button('Вопрос #8', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Допустим, пришло такое объявление :')
            wait(2000)
            sampSendChat(u8:decode'"На аукционе стоит 125 дом", как ты его отредактируешь?')
            sampAddChatMessage(u8:decode'Правильный ответ: Отказ, Укажите начальную ставку и местоположение дома')
        end
        imgui.SetCursorPosX(127,0)
        imgui.SetCursorPosY(110,0)
        if imgui.Button('Сдал ПРО!', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'Поздравляю. Вы сдали ПРО!')
        end
        imgui.SameLine()
        if imgui.Button('Не сдал ПРО!', imgui.ImVec2(111, 40)) then
            sampSendChat(u8:decode'К сожалению, вы не сдали ПРО!')
        end
        imgui.Separator()
    imgui.EndChild()
    imgui.End()
    end
end

imgui.SwitchContext()
local style = imgui.GetStyle()
local colors = style.Colors
local clr = imgui.Col
local ImVec4 = imgui.ImVec4
style.Alpha = 1.0
style.ChildWindowRounding = 3
style.WindowRounding = 3
style.GrabRounding = 1
style.GrabMinSize = 20
style.FrameRounding = 3
colors[clr.Text] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.TextDisabled] = ImVec4(0.00, 0.40, 0.41, 1.00)
colors[clr.WindowBg] = ImVec4(0.00, 0.00, 0.00, 1.00)
colors[clr.ChildWindowBg] = ImVec4(0.00, 0.00, 0.00, 0.00)
colors[clr.Border] = ImVec4(0.00, 1.00, 1.00, 0.65)
colors[clr.BorderShadow] = ImVec4(0.00, 0.00, 0.00, 0.00)
colors[clr.FrameBg] = ImVec4(0.44, 0.80, 0.80, 0.18)
colors[clr.FrameBgHovered] = ImVec4(0.44, 0.80, 0.80, 0.27)
colors[clr.FrameBgActive] = ImVec4(0.44, 0.81, 0.86, 0.66)
colors[clr.TitleBg] = ImVec4(0.14, 0.18, 0.21, 0.73)
colors[clr.TitleBgCollapsed] = ImVec4(0.00, 0.00, 0.00, 0.54)
colors[clr.TitleBgActive] = ImVec4(0.00, 1.00, 1.00, 0.27)
colors[clr.MenuBarBg] = ImVec4(0.00, 0.00, 0.00, 0.20)
colors[clr.ScrollbarBg] = ImVec4(0.22, 0.29, 0.30, 0.71)
colors[clr.ScrollbarGrab] = ImVec4(0.00, 1.00, 1.00, 0.44)
colors[clr.ScrollbarGrabHovered] = ImVec4(0.00, 1.00, 1.00, 0.74)
colors[clr.ScrollbarGrabActive] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.ComboBg] = ImVec4(0.16, 0.24, 0.22, 0.60)
colors[clr.CheckMark] = ImVec4(0.00, 1.00, 1.00, 0.68)
colors[clr.SliderGrab] = ImVec4(0.00, 1.00, 1.00, 0.36)
colors[clr.SliderGrabActive] = ImVec4(0.00, 1.00, 1.00, 0.76)
colors[clr.Button] = ImVec4(0.00, 0.65, 0.65, 0.46)
colors[clr.ButtonHovered] = ImVec4(0.01, 1.00, 1.00, 0.43)
colors[clr.ButtonActive] = ImVec4(0.00, 1.00, 1.00, 0.62)
colors[clr.Header] = ImVec4(0.00, 1.00, 1.00, 0.33)
colors[clr.HeaderHovered] = ImVec4(0.00, 1.00, 1.00, 0.42)
colors[clr.HeaderActive] = ImVec4(0.00, 1.00, 1.00, 0.54)
colors[clr.ResizeGrip] = ImVec4(0.00, 1.00, 1.00, 0.54)
colors[clr.ResizeGripHovered] = ImVec4(0.00, 1.00, 1.00, 0.74)
colors[clr.ResizeGripActive] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.CloseButton] = ImVec4(0.00, 0.78, 0.78, 0.35)
colors[clr.CloseButtonHovered] = ImVec4(0.00, 0.78, 0.78, 0.47)
colors[clr.CloseButtonActive] = ImVec4(0.00, 0.78, 0.78, 1.00)
colors[clr.PlotLines] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.PlotLinesHovered] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.PlotHistogram] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.PlotHistogramHovered] = ImVec4(0.00, 1.00, 1.00, 1.00)
colors[clr.TextSelectedBg] = ImVec4(0.00, 1.00, 1.00, 0.22)
colors[clr.ModalWindowDarkening] = ImVec4(0.04, 0.10, 0.09, 0.51)
Нажмите для раскрытия...
Lua: 
        if imgui.Button('Вопрос #8', imgui.ImVec2(111, 40)) then
            lua_thread.create(function()
                sampSendChat(u8:decode'Допустим, пришло такое объявление :')
                wait(2000)
                sampSendChat(u8:decode'"На аукционе стоит 125 дом", как ты его отредактируешь?')
                sampAddChatMessage(u8:decode'Правильный ответ: Отказ, Укажите начальную ставку и местоположение дома')
            end)
        end
 
xanndiane

xanndiane

Известный
512
150
Как можно сделать чтобы при заходе в игру прописывалась комманда? Например /fconnect
 
YarikVL

YarikVL

Известный
Проверенный
4,767
1,820
halfastrc написал(а):
How can I do this work:

Lua: 
require 'lib.moonloader'
local key = require 'vkeys'

function main()
    repeat
        wait(0)
    until isSampAvailable()

    while true do wait(0)
        if isKeyDown(0x31) then -- 1
            setVirtualKeyDown(key.VK_ESCAPE, true)
            wait(100)
            setVirtualKeyDown(key.VK_ESCAPE, true)
            wait(100)
        end
    end
end

I want press ESC enter in the Pause Menu, wait a time and back to the game, but with this script I just Pause and never back to the game
Нажмите для раскрытия...
13 line, replace: true —> false

Should be like this on line 13: setVirtualKeyDown(key.VK_ESCAPE, false)
 
  • Нравится
Реакции: halfastrc
Andrinall

Andrinall

Известный
702
518
Gorskin написал(а):
Чет не могу понять, как получить оффсет дистанции? мне возвращает 144, но дистанция не меняется.
Нажмите для раскрытия...
Lua: 
function onReceiveRpc(id, bs)
    if id == 36 then
        _id = raknetBitStreamReadInt16(bs)
        color = raknetBitStreamReadInt32(bs)

        position = {
            x = raknetBitStreamReadFloat(bs),
            y = raknetBitStreamReadFloat(bs),
            z = raknetBitStreamReadFloat(bs)
        }

        distance = raknetBitStreamReadFloat(bs)
        testLOS = raknetBitStreamReadInt8(bs) -- bool заменить на Int8
        pid = raknetBitStreamReadInt16(bs)
        vid = raknetBitStreamReadInt16(bs)
        text = raknetBitStreamDecodeString(bs, 4096)
       
        print('start dist = ', distance)
        print('text = ', text)

        raknetBitStreamSetWriteOffset(bs, 144)
        raknetBitStreamWriteFloat(bs, 300.0)

        raknetBitStreamSetReadOffset(bs, 144)
        print('new dist = ', raknetBitStreamReadFloat(bs))
    end
end
1661323441133.png
 
  • Нравится
Реакции: Gorskin и YarikVL
YarikVL

YarikVL

Известный
Проверенный
4,767
1,820
halfastrc написал(а):
I trie this, but didn't work

Lua: 
require 'lib.moonloader'
local key = require 'vkeys'

function main()
    repeat
        wait(0)
    until isSampAvailable()

    while true do wait(0)
        if isKeyDown(0x31) then
            setVirtualKeyDown(key.VK_ESCAPE, true)
            wait(100)
            setVirtualKeyDown(key.VK_ESCAPE, false)
            wait(100)
        end
    end
end

The script just enter in the Pause menu, but doesn't back
Нажмите для раскрытия...
Try this code:
Lua: 
require 'lib.moonloader'

function main()
    while not isSampAvailable() do wait(0) end

    while true do wait(0)
        if isKeyDown(VK_N) then
            setVirtualKeyDown(VK_ESCAPE, true)
            wait(30)
            setVirtualKeyDown(VK_ESCAPE, false)
        end
    end
end
 
  • Нравится
Реакции: halfastrc
Andrinall

Andrinall

Известный
702
518
Andrinall написал(а):
Lua: 
function onReceiveRpc(id, bs)
    if id == 36 then
        _id = raknetBitStreamReadInt16(bs)
        color = raknetBitStreamReadInt32(bs)

        position = {
            x = raknetBitStreamReadFloat(bs),
            y = raknetBitStreamReadFloat(bs),
            z = raknetBitStreamReadFloat(bs)
        }

        distance = raknetBitStreamReadFloat(bs)
        testLOS = raknetBitStreamReadInt8(bs) -- bool заменить на Int8
        pid = raknetBitStreamReadInt16(bs)
        vid = raknetBitStreamReadInt16(bs)
        text = raknetBitStreamDecodeString(bs, 4096)
     
        print('start dist = ', distance)
        print('text = ', text)

        raknetBitStreamSetWriteOffset(bs, 144)
        raknetBitStreamWriteFloat(bs, 300.0)

        raknetBitStreamSetReadOffset(bs, 144)
        print('new dist = ', raknetBitStreamReadFloat(bs))
    end
end
Посмотреть вложение 164609
Нажмите для раскрытия...
Нашёл косяк, почему не отображался 3D текст при таком изменении.
Код ниже 100% рабочий

Lua: 
function onReceiveRpc(id, bs)
    if id == 36 then
        _id = raknetBitStreamReadInt16(bs) -- 16
        color = raknetBitStreamReadInt32(bs) -- 32

        position = {}
        position['x'] = raknetBitStreamReadFloat(bs) -- 32
        position['y'] = raknetBitStreamReadFloat(bs) -- 32
        position['z'] = raknetBitStreamReadFloat(bs) -- 32

        distance = raknetBitStreamReadFloat(bs) -- 32
        testLOS = raknetBitStreamReadInt8(bs) -- 8
        pid = raknetBitStreamReadInt16(bs) -- 16
        vid = raknetBitStreamReadInt16(bs) -- 16
        text = raknetBitStreamDecodeString(bs, 4096) -- 4096

        raknetBitStreamSetWriteOffset(bs, 144)
        raknetBitStreamWriteFloat(bs, 300)

        raknetBitStreamSetWriteOffset(bs, 4312) -- устанавливаем оффсет в конец
    end
end
 
ch1ps

ch1ps

Участник
101
3
где можно взять самповские ( не гташные ) адреса памяти, а то не нашёл?
 
lorgon

lorgon

Известный
656
271
Можно ли получить ускорение машины? (Не вектор скорости)
Желательно без измерений скорости каждую секунду.
 
ID_Heaven

ID_Heaven

Известный
812
294
[ML] (error) Mechanic Helper: cannot resume non-suspended coroutine
stack traceback:
E:\Games\Grand Theft Auto\moonloader\Mechanic Helper.lua: in function <E:\Games\Grand Theft Auto\moonloader\Mechanic Helper.lua:166>
[ML] (error) Mechanic Helper: Script died due to an error. (10615984)

По какой причине скрипт может так обсираться жидко?
Приблизительно хотя бы
 
Sanchez.

Sanchez.

Известный
706
188
ID_Heaven написал(а):
[ML] (error) Mechanic Helper: cannot resume non-suspended coroutine
stack traceback:
E:\Games\Grand Theft Auto\moonloader\Mechanic Helper.lua: in function <E:\Games\Grand Theft Auto\moonloader\Mechanic Helper.lua:166>
[ML] (error) Mechanic Helper: Script died due to an error. (10615984)

По какой причине скрипт может так обсираться жидко?
Приблизительно хотя бы
Нажмите для раскрытия...
кинь скрипт
 
ioSeoGio

ioSeoGio

Известный
30
33
Вопрос по функции setGameKeyState
Какой код отвечает за нажатие клавиши F? В списке https://sampwiki.blast.hk/wiki/Keys не нашел F, есть только Enter
Через setVirtualKeyDown работает, но мне нужно через setGameKeyState, это возможно?
 
BlackGoblin

BlackGoblin

Известный
520
216
ioSeoGio написал(а):
Вопрос по функции setGameKeyState
Какой код отвечает за нажатие клавиши F? В списке https://sampwiki.blast.hk/wiki/Keys не нашел F, есть только Enter
Через setVirtualKeyDown работает, но мне нужно через setGameKeyState, это возможно?
Нажмите для раскрытия...
Тут есть ответ
www.blast.hk

Вопросы по поводу функции setGameKeyState

Использую функцию setGameKeyState для того что-бы заставить машину ехать вперёд, как заставить её тормозить? P.S Не шарю вообще за эту функцию и где брать аргументы для неё
www.blast.hk www.blast.hk

Попробуй setGameKeyState(15, 128);
 
Последнее редактирование:
  • Нравится
Реакции: ioSeoGio
Gorskin

Gorskin

♥ Love Lua ♥
Проверенный
1,331
1,161
Andrinall написал(а):
Нашёл косяк, почему не отображался 3D текст при таком изменении.
Код ниже 100% рабочий

Lua: 
function onReceiveRpc(id, bs)
    if id == 36 then
        _id = raknetBitStreamReadInt16(bs) -- 16
        color = raknetBitStreamReadInt32(bs) -- 32

        position = {}
        position['x'] = raknetBitStreamReadFloat(bs) -- 32
        position['y'] = raknetBitStreamReadFloat(bs) -- 32
        position['z'] = raknetBitStreamReadFloat(bs) -- 32

        distance = raknetBitStreamReadFloat(bs) -- 32
        testLOS = raknetBitStreamReadInt8(bs) -- 8
        pid = raknetBitStreamReadInt16(bs) -- 16
        vid = raknetBitStreamReadInt16(bs) -- 16
        text = raknetBitStreamDecodeString(bs, 4096) -- 4096

        raknetBitStreamSetWriteOffset(bs, 144)
        raknetBitStreamWriteFloat(bs, 300)

        raknetBitStreamSetWriteOffset(bs, 4312) -- устанавливаем оффсет в конец
    end
end
Нажмите для раскрытия...
не работает
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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