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

 

[wulfandr]

require'lib.moonloader'
local sampev = require"lib.samp.events"
var1 = 1312

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand("tt", function() sampAddChatMessage(var1, -1) end)
    while true do wait(0) end
end

function sampev.onChatMessage(ID, TEXT)
if TEXT == var1 then sampAddChatMessage("hook msg", -1) end
end

function sampev.onSendChat(msg)
if msg == var1 then
sampAddChatMessage("hook", -1) end
end

function sampev.onPlayerChatBubble(playerId, color, distance, duration, message)
if message == var1 then sampAddChatMessage("per", -1) end
--sampAddChatMessage(playerId..color..distance..duration..message, -1)
end

Как можно сделать,если это возможно,чтобы после вывода локально себе сообщения,мог с ним взаимодейстовать,все хуки что есть, не помогают

sampGetChatString(99) в цикл. замена onChatMessage, т.к. onChatMessage работает только от серверных сообщений

в onSendChat - приходит строка, вы пытаетесь сравнить строку и число, что не есть правдой, или указывайте изначально var1 = '1312', или tostring(var1)

onPlayerChatBubble - та же история, что и с onSendChat

 

[Мира]

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

sampSendDialogResponse(dialog_id, button, item, input)

 

[danywa]

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

sampSendDialogResponse(dialog_id, button, item, input)

использовать хук диалога

function sampev.onShowDialog(id, style, title, button1, button2, text)
--code
end

 

[Adrian G.]

Как создать несколько страниц в окне имгуи?

 

[Mico]

Как создать несколько страниц в окне имгуи?
Посмотреть вложение 85269

if name == 1 then
imgui.Text(u8"") -- твой текст
if imgui.Button(u8"»»") then
name = 2
end
end
if name == 2 then
if imgui.Button(u8"««") then
name = 1
end 
if imgui.Button(u8"»»")
name = 3
end end

Примерно так. Я так делал.

 

[chapo]

Как создать несколько страниц в окне имгуи?
Посмотреть вложение 85269

if page1.v then
    imgui.SetNextWindowPos(imgui.ImVec2(500, 500), imgui.Cond.FirstUseEver)
    imgui.SetNextWindowSize(imgui.ImVec2(500, 500), imgui.Cond.Always)
    imgui.Begin('page1', page1, imgui.WindowFlags.NoCollapse + imgui.WindowFlags.NoResize)
    --code
    if imgui.Button('next', imgui.ImVec2(75, 25)) then
        page1.v = false
        page2.v = true
    end
    imgui.End()
end

if page2.v then
    imgui.SetNextWindowPos(imgui.ImVec2(500, 500), imgui.Cond.FirstUseEver)
    imgui.SetNextWindowSize(imgui.ImVec2(500, 500), imgui.Cond.Always)
    imgui.Begin('page2', page2, imgui.WindowFlags.NoCollapse + imgui.WindowFlags.NoResize)
    --code
    if imgui.Button('previous', imgui.ImVec2(75, 25)) then
        page1.v = true
        page2.v = false
    end
    imgui.End()
end

 

[chapo]

почему 3д текст не создается?

sampCreate3dText('test 3d text', 0xFFFFFFFF, 0, 0, 0, 25, true, select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)), false)

 

[wulfandr]

почему 3д текст не создается?

sampCreate3dText('test 3d text', 0xFFFFFFFF, 0, 0, 0, 25, true, select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)), false)

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

 

[chapo]

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

он даже на тачку не вешается

result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)

 

[wulfandr]

он даже на тачку не вешается

result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)

возможно нужно указывать на параметр игрока -1, а не false и наоборот, sampCreate3dText('test 3d text', 0xFFFFFFFF, 0, 0, 0, 25, true, -1, pam) -- pam ИД машины, а не хэндл

 

[chapo]

ИД машины, а не хэндл

там и так ид

возможно нужно указывать на параметр игрока -1,

у меня уже так

 

[wulfandr]

там и так ид


у меня уже так

странно. у меня работает всё

 

[chapo]

странно. у меня работает всё

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

result, vehHandle = findAllRandomVehiclesInSphere(myPosX, myPosY, myPosZ, radius, true, true)
        if result then
            result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)

 

[wulfandr]

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

result, vehHandle = findAllRandomVehiclesInSphere(myPosX, myPosY, myPosZ, radius, true, true)
        if result then
            result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)

function setcar3d(pam)
    if #pam ~= 0 then
        local myposx, myposy, myposz = getCharCoordinates(PLAYER_PED)
        local findcar, vehHandle = findAllRandomVehiclesInSphere(myposx, myposy, myposz, pam, true, true)
        if findcar then
            local result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)
            end
        end
    end
end

функция ищет одну рандомную машину из указанного радиуса, может ты этого не заметил

 

[chapo]

function setcar3d(pam)
    if #pam ~= 0 then
        local myposx, myposy, myposz = getCharCoordinates(PLAYER_PED)
        local findcar, vehHandle = findAllRandomVehiclesInSphere(myposx, myposy, myposz, pam, true, true)
        if findcar then
            local result, carId = sampGetVehicleIdByCarHandle(vehHandle)
            if result then
                sampCreate3dText('Car', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, carId)
            end
        end
    end
end

функция ищет одну рандомную машину из указанного радиуса, может ты этого не заметил

все ровно не работает, даже carId заменил на 245 и все ровно нихера

while true do
    wait(0)
    sampCreate3dText('sfjkygbe irvyukvgrngydkngar', 0xFFA2B5CD, 0, 0, 0.5, 21.5, true, -1, 245)
end