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

 

[egor230]

@DonHomka, Простите пожалуйста, что вы имейте в виду под словосочетанием "глянь как на павне сделано"?
пед может на нем двигаться.

 

[BW-Samp]

как сделать так, что бы плавно заполнялся imgui.ProgressBar

 

[Musaigen]

как сделать так, что бы плавно заполнялся imgui.ProgressBar

В цикле по 0.01(Если по 1% надо) прибавлять с задержкой.

 

[LZTD]

Во-первых, руки блять из жопы достань.
Во-вторых, хукни сперва диалог, узнай его айди, дальше впиши его, блять, ты хукать то умеешь ещё что-то на меня пиздишь? (соре за ма*т)

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

 

[BW-Samp]

В цикле по 0.01(Если по 1% надо) прибавлять с задержкой.

while fProgress < 1.0 do
                lua_thread.create(function() wait(100)
                    fProgress = fProgress + 0.01
                end)
            end
            imgui.ProgressBar(fProgress)

что не так?

[ML] (error) new 3.lua: not enough memory
[ML] (error) new 3.lua: Script died due to an error. (10823D34)

 

[bodyammm1]

У меня есть код:

function hrc(serv)
    sampDisconnectWithReason(true)
    sampConnectToServer("ip",port)

И файл со списком серверов:

1 | FRP |127.0.0.0:7777
2 | CRP | 128.0.0.0:7777
3 | ERP | 129.0.0.0:7777
4 | ARP | 130.0.0.0:7777

Как сделать так, чтобы при вводе команды /hrc 1 скрипт заходил именно на тот сервер, который указан в блокноте?(находит в блокноте сервер по номеру в начале и подключается) (не надо вставлять сам ip и порт сервера, надо чтобы скрипт работал гибко)

 

[atizoff]

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

Просто надо было сказать сразу, что новичок, а с ревентом был рофл, и ты начал быковать)

(хомка, не набив, а ответ)

 

[Musaigen]

while fProgress < 1.0 do
                lua_thread.create(function() wait(100)
                    fProgress = fProgress + 0.01
                end)
            end
            imgui.ProgressBar(fProgress)

что не так?

[ML] (error) new 3.lua: not enough memory
[ML] (error) new 3.lua: Script died due to an error. (10823D34)

В функции main прибавляй

 

[DevilishMane]

Всё еще жду хелпы.

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end
    local font = renderCreateFont("Tahoma", 14, 5)
              while true do
                    wait(0)
                    id = 355
                        local exists, handle = sampGetObjectHandleBySampId(id)
                            if exists and isObjectOnScreen(handle) then
                            local plX, plY, plZ = getObjectCoordinates(handle)
                                                        local plsX, plsY = convert3DCoordsToScreen(plX, plY, plZ)
                                renderFontDrawText(font, string.format("{4169e1}Distance{FFFFFF}:{43A8B9}%d", distance), plsX, plsY + 30, 0xb4FFFFFF, 0xFFFF0000)
                            end
                        end
                                            end

 

[BARRY BRADLEY]

Код:

Спойлер

function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand('ss', function()
        local closestId, closestModel = getClosestPlayer()
        if closestId ~= -1 then
            if (closestModel ~= 280 or closestModel ~= 281 or closestModel ~= 282 or closestModel ~= 283 or closestModel ~= 284 or closestModel ~= 285 or closestModel ~= 286 or closestModel ~= 288 or closestModel ~= 295 or closestModel ~= 71 or closestModel ~= 265 or closestModel ~= 163 or closestModel ~= 164 or closestModel ~= 165 or closestModel ~= 166 or closestModel ~= 266 or closestModel ~= 267 or closestModel ~= 300 or closestModel ~= 301 or closestModel ~= 302 or closestModel ~= 306 or closestModel ~= 307 or closestModel ~= 309 or closestModel ~= 310 or closestModel ~= 311) then
                sampSendChat('/m [US:PD] '..sampGetPlayerNickname(closestId)..', немедленно остановитесь или будут предприняты меры')
            else
                sampSendChat('/m [US:PD] Немедленно остановитесь или будут предприняты меры')
            end
        end
    end)
    wait(-1)
end


function getClosestPlayer()
    local maxDist = 50.0
    local closestPlayer = -1
    for i = 0, sampGetMaxPlayerId(true) do
        if sampIsPlayerConnected(i) and not sampIsPlayerNpc(i) then
            if sampGetCharHandleBySampPlayerId(i) then
                local playerPosX, playerPosY, playerPosZ = getCharCoordinates(select(2, sampGetCharHandleBySampPlayerId(i)))
                local myPosX, myPosY, myPosZ = getCharCoordinates(PLAYER_PED)
                local dist = getDistanceBetweenCoords3d(myPosX, myPosY, myPosZ, playerPosX, playerPosY, playerPosZ)
                if dist < maxDist then
                    maxDist, closestPlayer, closestModel = dist, i, getCharModel(select(2, sampGetCharHandleBySampPlayerId(i)))
                end
            end
        end
    end
    return closestPlayer, closestModel
end
[/spoiler]

Почему не работает проверка на скин?

 

[#Northn]

Код:

Спойлер

function main()
    repeat wait(0) until isSampAvailable()
    sampRegisterChatCommand('ss', function()
        local closestId, closestModel = getClosestPlayer()
        if closestId ~= -1 then
            if (closestModel ~= 280 or closestModel ~= 281 or closestModel ~= 282 or closestModel ~= 283 or closestModel ~= 284 or closestModel ~= 285 or closestModel ~= 286 or closestModel ~= 288 or closestModel ~= 295 or closestModel ~= 71 or closestModel ~= 265 or closestModel ~= 163 or closestModel ~= 164 or closestModel ~= 165 or closestModel ~= 166 or closestModel ~= 266 or closestModel ~= 267 or closestModel ~= 300 or closestModel ~= 301 or closestModel ~= 302 or closestModel ~= 306 or closestModel ~= 307 or closestModel ~= 309 or closestModel ~= 310 or closestModel ~= 311) then
                sampSendChat('/m [US:PD] '..sampGetPlayerNickname(closestId)..', немедленно остановитесь или будут предприняты меры')
            else
                sampSendChat('/m [US:PD] Немедленно остановитесь или будут предприняты меры')
            end
        end
    end)
    wait(-1)
end


function getClosestPlayer()
    local maxDist = 50.0
    local closestPlayer = -1
    for i = 0, sampGetMaxPlayerId(true) do
        if sampIsPlayerConnected(i) and not sampIsPlayerNpc(i) then
            if sampGetCharHandleBySampPlayerId(i) then
                local playerPosX, playerPosY, playerPosZ = getCharCoordinates(select(2, sampGetCharHandleBySampPlayerId(i)))
                local myPosX, myPosY, myPosZ = getCharCoordinates(PLAYER_PED)
                local dist = getDistanceBetweenCoords3d(myPosX, myPosY, myPosZ, playerPosX, playerPosY, playerPosZ)
                if dist < maxDist then
                    maxDist, closestPlayer, closestModel = dist, i, getCharModel(select(2, sampGetCharHandleBySampPlayerId(i)))
                end
            end
        end
    end
    return closestPlayer, closestModel
end
[/spoiler]

Почему не работает проверка на скин?

'or' замени на 'and'

 

[ШPEK]

У меня есть код:

function hrc(serv)
    sampDisconnectWithReason(true)
    sampConnectToServer("ip",port)

И файл со списком серверов:

1 | FRP |127.0.0.0:7777
2 | CRP | 128.0.0.0:7777
3 | ERP | 129.0.0.0:7777
4 | ARP | 130.0.0.0:7777

Как сделать так, чтобы при вводе команды /hrc 1 скрипт заходил именно на тот сервер, который указан в блокноте?(находит в блокноте сервер по номеру в начале и подключается) (не надо вставлять сам ip и порт сервера, надо чтобы скрипт работал гибко)

function main()
sampRegisterChatCommand("hrc", hrc)
wait(-1)
end

function hrc(numb1)
local numb = tonumber(numb1)
for str in io.lines("moonloader//servers.txt")
  if str:find("%d+%s.+%:%d+") then
    local number1, ip, port = str:match("(%d+)%s(.+)%:(%d+)")
    local number = tonumber(number1)
      if number == numb then sampDisconnectWithReason(true)
        sampConnectToServer(ip, port)
break
      end
  end
end
end

Вот так надо писать в servers.txt
1 ip:port
2 ip:port

 

[BW-Samp]

как сделать текст по центру в imGui text

 

[Adventurer]

как сделать текст по центру в imGui text

local text = 'text'
imgui.SetCursorPosX((imgui.GetWindowWidth() - imgui.CalcTextSize(u8(text)).x)/2)
imgui.Text(u8(text))

Можно добавить к этому и setcursorposy, чтобы поместить текст и вертикально по центру.

Помимо текста, так можно помещать и любые элементы, типа imgui.Button(); imgui.InputText() и все-все-все, главное правильно составить уравнение

советую из этого сделать сразу функцию, чтобы потом не париться и через каждые 10 строк вписывать 3 лишние строки..

 

[spleQ]

как открыть серверный диалог по ид?Т.е сразу,а не открывать сначала 1 диалог,потом 2,потом 3 и т.п