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

 

[wizardryv11]

в луа есть что-то тип SetObjectMaterialText? onSetObjectMaterialText ждать не подходит т.к. нужно из него ждать завершения следующего присваивания материального текста. Короче нужно именно установить текст, а не обрабатывать событие.

 

[вайега52]

крашит скрипт после того как умирает/пропадает/кикается игрок который выбран
вот код

local ev = require ("samp.events")

local tag = '{0000FF} [OCHKORVANKA BY Bylochka] {000000}- '
local rvanka = false
local m = 0
local roll = 0
local last_sync = os.clock()

function main()
    if not isSampAvailable() then return false end

    sampAddChatMessage(tag .. '{3333ff}Rvanka {ffffff}успешно загружена.', -1)

    sampRegisterChatCommand('rv', function(id)
        if not id or not tonumber(id) then
            rvanka = false
            sampAddChatMessage(tag .. '{ffffff}Не верный ид', -1)
            m = 0
            roll = 0
        end
        if not isCharInAnyCar(PLAYER_PED) then
            sampAddChatMessage(tag .. '{ffffff}Вы не в авто', -1)
            rvanka = false
            m = 0
            roll = 0
        end
        local result,ped = sampGetCharHandleBySampPlayerId(id)
        if result then
            if doesCharExist(ped) then
                local px, py, pz = getCharCoordinates(ped)
                local ax, ay, az = getCharCoordinates(PLAYER_PED)
                local dist = getDistanceBetweenCoords3d(px, py, pz, ax, ay, az)
                if dist <= 29 then
                    _, pid = sampGetPlayerIdByCharHandle(ped)
                    victimPed = ped
                    rvanka = not rvanka
                    printStringNow(rvanka and 'Rvanka - ~g~ON' or 'Rvanka - ~r~OFF',1000)
                end
            end
        end
        if not ped then
            rvanka = false
            m = 0
            roll = 0
        end
    end)
    while true do wait(0)
        if not pid then
            rvanka = false
            m = 0
            roll = 0
        end
        if rvanka then
            if os.clock() - last_sync > 1/15 then
                roll = roll + 30
                if roll >= 360 then roll = 0 end
                pcall(sampForceVehicleSync, select(2, sampGetVehicleIdByCarHandle(storeCarCharIsInNoSave(PLAYER_PED))))
            end
            if not pid then
                rvanka = false
                m = 0
                roll = 0
            end
        end
    end
end
lua_thread.create(function()
    while true do wait(0)
        if rvanka then
            m = m + 0.1
            if m >= 1.65 then
                m = 1.65
            end
            wait(200)
        end
    end
end)
function ev.onSendVehicleSync(data)
    if rvanka then
        local px, py, pz = getCharCoordinates(victimPed)
        local ax, ay, az = getCharCoordinates(PLAYER_PED)
        local dist = getDistanceBetweenCoords3d(px, py, pz, ax, ay, az)
        if dist <= 39 then
            if sampIsPlayerConnected(pid) and sampGetCharHandleBySampPlayerId(pid) then
                data.position = {px,py,pz - 0.7}
                data.quaternion[0] = calculate_quat(roll)
                data.quaternion[1] = calculate_quat(roll)
                data.quaternion[2] = calculate_quat(roll)
                data.quaternion[3] = calculate_quat(roll)
                data.moveSpeed = getMoveSpeed(getCharHeading(playerPed), m)
                data.moveSpeed.z = 0.25
            end
        else
            rvanka = false
            m = 0
            roll = 0
            sampAddChatMessage("Игрок сместился слишком далеко.", -1)
        end
        if not pid then
            rvanka = false
            m = 0
            roll = 0
        end
    end
end

function getMoveSpeed(head, speed)
    move = {
        z = 0,
        x = math.sin(-math.rad(head)) * speed,
        y = math.cos(-math.rad(head)) * speed
    }
    moveSpeed = move

    return moveSpeed
end
function calculate_quat(angle)
    angle = math.rad(angle >= 180 and angle - 360 or angle)
 
    local c2 = math.cos(angle / 2)
    local s2 = math.sin(angle / 2)
 
    return 1 * c2 * 1 - 0 * s2 * 0, -(1 * s2 * 1 - 0 * c2 * 0)
end
function samp_create_sync_data(sync_type, copy_from_player)
    local ffi = require 'ffi' local sampfuncs = require 'sampfuncs'
    local raknet = require 'samp.raknet' copy_from_player = copy_from_player or true
    local sync_traits = {
        player = {'PlayerSyncData', raknet.PACKET.PLAYER_SYNC, sampStorePlayerOnfootData},
        vehicle = {'VehicleSyncData', raknet.PACKET.VEHICLE_SYNC, sampStorePlayerIncarData},
        passenger = {'PassengerSyncData', raknet.PACKET.PASSENGER_SYNC, sampStorePlayerPassengerData},
        aim = {'AimSyncData', raknet.PACKET.AIM_SYNC, sampStorePlayerAimData},
        trailer = {'TrailerSyncData', raknet.PACKET.TRAILER_SYNC, sampStorePlayerTrailerData},
        unoccupied = {'UnoccupiedSyncData', raknet.PACKET.UNOCCUPIED_SYNC, nil},
        bullet = {'BulletSyncData', raknet.PACKET.BULLET_SYNC, nil},
        spectator = {'SpectatorSyncData', raknet.PACKET.SPECTATOR_SYNC, nil}
    }
    local sync_info = sync_traits[sync_type] local data_type = 'struct ' .. sync_info[1]
    local data = ffi.new(data_type, {})
    local raw_data_ptr = tonumber(ffi.cast('uintptr_t', ffi.new(data_type .. '*', data)))
    if copy_from_player then local copy_func = sync_info[3]
        if copy_func then local _, player_id if copy_from_player == true then
            _, player_id = sampGetPlayerIdByCharHandle(PLAYER_PED) else
            player_id = tonumber(copy_from_player) end
            copy_func(player_id, raw_data_ptr) end
    end
    local func_send = function() local bs = raknetNewBitStream()
        raknetBitStreamWriteInt8(bs, sync_info[2])
        raknetBitStreamWriteBuffer(bs, raw_data_ptr, ffi.sizeof(data))
        raknetSendBitStreamEx(bs, sampfuncs.HIGH_PRIORITY, sampfuncs.UNRELIABLE_SEQUENCED, 1)
        raknetDeleteBitStream(bs)
    end
    local mt = {
        __index = function(t, index) return data[index] end,
        __newindex = function(t, index, value) data[index] = value
        end
    }
    return setmetatable({send = func_send}, mt)
end

лог

перед получением корд добавь проверку на существование чела

 

[bedolaga123123]

Ребят, приветик, подскажите, пожалуйста.
Как сделать по команде, чтобы флудилось /showpass id ? Например, команда /stoper id, и что бы по этой команде человеку постояно показывался /showpass

 

[вайега52]

Ребят, приветик, подскажите, пожалуйста.
Как сделать по команде, чтобы флудилось /showpass id ? Например, команда /stoper id, и что бы по этой команде человеку постояно показывался /showpass

-- вне функций

local bool = false
local pid = nil

-- в main()

sampRegisterChatCommand("stoper", function(id)  
    if id:match("%d+") then
        pid = id
        bool = not bool
    end
end)

while true do wait(0)
    if bool and pid ~= nil then
        sampSendChat(string.format("/showpass", pid))
    end
end

 

[bedolaga123123]

-- вне функций

local bool = false
local pid = nil

-- в main()

sampRegisterChatCommand("stoper", function(id) 
    if id:match("%d+") then
        pid = id
        bool = not bool
    end
end)

while true do wait(0)
    if bool and pid ~= nil then
        sampSendChat(string.format("/showpass", pid))
    end
end

Пишет что неизвестная команда =(

 

[вайега52]

Пишет что неизвестная команда =(

убери слеш в 17 строке, случайно написал его

 

[bedolaga123123]

убери слеш в 17 строке, случайно написал его

Всё равно не работает 0 _0

 

[Dmitriy Makarov]

Всё равно не работает 0 _0

sampSendChat(string.format("/showpass", pid))
После showpass поставь пробел попробуй.

 

[ARMOR]

sampSendChat(string.format("/showpass", pid))
После showpass поставь пробел попробуй.

Вы не добавили само число после showpass.

sampSendChat(string.format("/showpass %d", pid))

 

[bedolaga123123]

sampSendChat(string.format("/showpass", pid))
После showpass поставь пробел попробуй.

Пхах, всё равно не работает.
Ладно х*й на этот флудер. Лучше тогда подскажите как в этот аирбрейк всадить AD. Т.к он летает только WS

Вы не добавили само число после showpass.

sampSendChat(string.format("/showpass %d", pid))

Тоже мимо) Всё равно не робит
Хе-Хе

 

[Lightcrash]

Пхах, всё равно не работает.
Ладно х*й на этот флудер. Лучше тогда подскажите как в этот аирбрейк всадить AD. Т.к он летает только WS


Тоже мимо) Всё равно не робит
Хе-Хе

Там коды клавиш должны быть, найди коды a d и поменяй

 

[bedolaga123123]

Там коды клавиш должны быть, найди коды a d и поменяй

Ничего не понял, коды нашёл. Там стоят коды b везде

 

[вайега52]

Вы не добавили само число после showpass.

sampSendChat(string.format("/showpass %d", pid))

можно даже не %d, а %s, насколько помню, в аргумент функции команды строка возвращается

 

[Lightcrash]

Я не дома к сожалению, не смогу помочь

Ничего не понял, коды нашёл. Там стоят коды b везде

 

[ARMOR]

можно даже не %d, а %s, насколько помню, в аргумент функции команды строка возвращается

Зачем использовать %s которое принимает строку для аргумента который должен быть int? Оно один хуй переобразуется в строку

Пхах, всё равно не работает.
Ладно х*й на этот флудер. Лучше тогда подскажите как в этот аирбрейк всадить AD. Т.к он летает только WS


Тоже мимо) Всё равно не робит
Хе-Хе

Значит ты проебался где-то. Вот работающий код:

local id = nil
local enable = false

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

    sampRegisterChatCommand('sp', function(arg)
        if tonumber(arg) then
            id = arg
            enable = not enable
        else
            printStringNow("~r~ERROR")
        end
    end)

    while true do
        wait(0)
        if enable and id ~= nil then
            sampSendChat(("/showpass %d"):format(id))
            wait(500)
        end
    end
end