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

 

[chapo]

как сюда if users[nickname] ~= ip..':'..port then thisScript():unload() end добавить else?

if users[nickname] ~= ip..':'..port then thisScript():unload() else prine('else') end

 

[pavl1nio]

как узнать ид чела, на которого навелся пкм (зеленый треуг над головой)

 

[bottom_text]

как узнать ид чела, на которого навелся пкм (зеленый треуг над головой)

result,  ped = getCharPlayerIsTargeting(PLAYER_HANDLE)
 if result then  
    id = select(2, sampGetPlayerIdByCharHandle(ped))
    print(id)
 end

 

[TSIDEX]

lib.imcustom.hotkey

Подкиньте пожалуйста библиотеку эту

 

[bottom_text]

lib.imcustom.hotkey

Подкиньте пожалуйста библиотеку эту

 

[pavl1nio]

function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        sampRegisterChatCommand('crash', tezt)
    end
end

function tezt()
    sampSendChat("/showpass ID") then -- ???????????????????? kak

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

 

[bottom_text]

function main()
    while not isSampAvailable() do wait(0) end
    while true do
        wait(0)
        sampRegisterChatCommand('crash', tezt)
    end
end

function tezt()
    sampSendChat("/showpass ID") then -- ???????????????????? kak

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

Не регай команду в беск цикле

function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand('crash', tezt)
    while true do
        wait(0)     -- либо просто wait(-1) вместо while true do wait(0) end
    end
end
function tezt(arg)
        if string.match(arg, '(%d+)') then 
            sampSendChat("/showpass " .. arg)
        else
            sampAddChatMessage('Введите ID игрока.', -1)
        end
end

 

[дилдотреп]

Выручайте: скрипт запускается сразу после запуска игры, на чит код активации 0 реакции. как сделать чтобы скрипт запускался по чит коду и выключался так же?

require "moonloader"
local ev = require("samp.events")



local chitkode = "rusik"




local rusik1 = false
function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    while true do wait(0)
        if not sampIsDialogActive() and not sampIsChatInputActive() then
        setVirtualKeyDown(18, true)
            wait(50)
            setVirtualKeyDown(18, false)
            wait (0)
            setVirtualKeyDown(13, true)
            wait(50)
            setVirtualKeyDown(13, false)
            wait (0)
            if testCheat(chitkode) then
                rusik()
            end
        end
    end
end

function ev.onSendPlayerSync(playerId)
    if rusik1 then
        if _ then
            local x1, y1, z1 = getCharCoordinates(PLAYER_PED)
            local x2, y2, z2 = getCharCoordinates(fp)
            if getDistanceBetweenCoords2d(x1, y1, x2, y2) < 10 then
                return false
            end
        end
    end
end

function rusik()
    rusik1 = not rusik1
    if rusik1 then
        printStyledString("~n~~n~~n~~n~~n~~n~~n~~n~~w~Lovlya - ~g~aktivna", 900, 2)
    else
        printStyledString("~n~~n~~n~~n~~n~~n~~n~~n~~w~Lovlya - ~r~neaktivna", 900, 2)
    end
end

 

[danywa]

sampForceOnfootSync()

Можете объяснить по подробнее, с вики не понял

 

[bottom_text]

sampForceOnfootSync()

Можете объяснить по подробнее, с вики не понял

Возьмём случай, когда ты стоишь на месте и ничего не делаешь, ты отправляешь пакет PACKET_PLAYER_SYNC где-то 2-3 раза в секунду, sampForceOnfootSync() позволит принудительно отправить этот пакет. В основном все функции форса синхры используются для подметания смешных пакетов чтобы сервер не кикнул

Выручайте: скрипт запускается сразу после запуска игры, на чит код активации 0 реакции. как сделать чтобы скрипт запускался по чит коду и выключался так же?

require "moonloader"
local ev = require("samp.events")



local chitkode = "rusik"




local rusik1 = false
function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    while true do wait(0)
        if not sampIsDialogActive() and not sampIsChatInputActive() then
        setVirtualKeyDown(18, true)
            wait(50)
            setVirtualKeyDown(18, false)
            wait (0)
            setVirtualKeyDown(13, true)
            wait(50)
            setVirtualKeyDown(13, false)
            wait (0)
            if testCheat(chitkode) then
                rusik()
            end
        end
    end
end

function ev.onSendPlayerSync(playerId)
    if rusik1 then
        if _ then
            local x1, y1, z1 = getCharCoordinates(PLAYER_PED)
            local x2, y2, z2 = getCharCoordinates(fp)
            if getDistanceBetweenCoords2d(x1, y1, x2, y2) < 10 then
                return false
            end
        end
    end
end

function rusik()
    rusik1 = not rusik1
    if rusik1 then
        printStyledString("~n~~n~~n~~n~~n~~n~~n~~n~~w~Lovlya - ~g~aktivna", 900, 2)
    else
        printStyledString("~n~~n~~n~~n~~n~~n~~n~~n~~w~Lovlya - ~r~neaktivna", 900, 2)
    end
end

require "moonloader"
local ev = require("samp.events")


local chitkode = "rusik"



local rusik1 = false
function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    while true do wait(0)
        if testCheat(chitkode) then
            rusik()
        end
        if  rusik1 and not sampIsDialogActive() and not sampIsChatInputActive() then
            setVirtualKeyDown(18, true)
            wait(50)
            setVirtualKeyDown(18, false)
            wait (0)
            setVirtualKeyDown(13, true)
            wait(50)
            setVirtualKeyDown(13, false)
            wait (0)
        end
    end
end
function ev.onSendPlayerSync(playerId)
    if rusik1 then
        if _ then
            local x1, y1, z1 = getCharCoordinates(PLAYER_PED)
            local x2, y2, z2 = getCharCoordinates(fp)
            if getDistanceBetweenCoords2d(x1, y1, x2, y2) < 10 then
                return false
            end
        end
    end
end
function rusik()
    rusik1 = not rusik1
    printStyledString(string.format("~n~~n~~n~~n~~n~~n~~n~~n~~w~Lovlya - ~g~%s", rusik1 and "aktivna" or "neaktivna"), 900, 2)
end

 

[Кайл]

Как сделать активацию на нажатие 2-ух кнопок

script_name('Intentional Kick for arizona rp V1')
script_author('BUBN')

local kick_key = 17 --Кнопка, при нажатии на которую вас кикнет https://filesd.net/kibor/codekeys.php
local show_load_message = true

function main()
    while not isSampAvailable() do wait(0) end 
        if show_load_message then
            sampAddChatMessage('{ff0050}[ARZ] {93abc7}Intentional v1 by {ff0050}BUBN {93abc7}loaded!', -1)
        end
        while true do
          wait(0)
          if wasKeyPressed(kick_key) and not sampIsDialogActive() and not sampIsChatInputActive() and not isSampfuncsConsoleActive() then
              if isCharInAnyCar(PLAYER_PED) then  --Если игрок в машине, то...
                  random = math.random(1, 2) --Получить рандомную причину кика, 
                  --random = 2
                  if random == 1 then setCarCoordinates(storeCarCharIsInNoSave(PLAYER_PED), 10000, 10000, 10000) end --Если радномная причина = 1, то установить координаты 10000 машине, в которой находится игрок
                  if random == 2 then setCarForwardSpeed(storeCarCharIsInNoSave(PLAYER_PED), 999) end --Если рандомная причина = 2, то установить скорость 99999 машине, в которой находится игрок
              end
              if not isCharInAnyCar(PLAYER_PED) then --Если игрок не в машине, то...
                  random = math.random(1, 2) --Получить рандомную причину кика, 
                  if random == 1 then giveWeaponToChar(PLAYER_PED, 32, 100) end --Если рандомная причина = 1, то выдать оружие M4 с 100 
                  if random == 2 then setCharCoordinates(PLAYER_PED, 1000, 1000, 1000) end --Если рандомная причина = 2, то установить координаты 1000
              end
          end
        end
  end

 

[backloop]

Как сделать активацию на нажатие 2-ух кнопок

script_name('Intentional Kick for arizona rp V1')
script_author('BUBN')

local kick_key = 17 --Кнопка, при нажатии на которую вас кикнет https://filesd.net/kibor/codekeys.php
local show_load_message = true

function main()
    while not isSampAvailable() do wait(0) end
        if show_load_message then
            sampAddChatMessage('{ff0050}[ARZ] {93abc7}Intentional v1 by {ff0050}BUBN {93abc7}loaded!', -1)
        end
        while true do
          wait(0)
          if wasKeyPressed(kick_key) and not sampIsDialogActive() and not sampIsChatInputActive() and not isSampfuncsConsoleActive() then
              if isCharInAnyCar(PLAYER_PED) then  --Если игрок в машине, то...
                  random = math.random(1, 2) --Получить рандомную причину кика,
                  --random = 2
                  if random == 1 then setCarCoordinates(storeCarCharIsInNoSave(PLAYER_PED), 10000, 10000, 10000) end --Если радномная причина = 1, то установить координаты 10000 машине, в которой находится игрок
                  if random == 2 then setCarForwardSpeed(storeCarCharIsInNoSave(PLAYER_PED), 999) end --Если рандомная причина = 2, то установить скорость 99999 машине, в которой находится игрок
              end
              if not isCharInAnyCar(PLAYER_PED) then --Если игрок не в машине, то...
                  random = math.random(1, 2) --Получить рандомную причину кика,
                  if random == 1 then giveWeaponToChar(PLAYER_PED, 32, 100) end --Если рандомная причина = 1, то выдать оружие M4 с 100
                  if random == 2 then setCharCoordinates(PLAYER_PED, 1000, 1000, 1000) end --Если рандомная причина = 2, то установить координаты 1000
              end
          end
        end
  end

Testcheat или if wasKeyPressed and iskeyDown (во втором варианте, надо зажимать первую кнопку)

 

[pavl1nio]

repeat    sampSendChat("/showlic " .. arg)
                    sampSendChat("/showskill " .. arg)
                        sampSendChat("/showpass " .. arg)
                            sampSendChat("/kiss " .. arg)
        until text:find("Вы далеко от игрока")

хелпаните пожалуйста,почему отправляется только showlic, а не все нижеперечисленное

 

[bottom_text]

repeat    sampSendChat("/showlic " .. arg)
                    sampSendChat("/showskill " .. arg)
                        sampSendChat("/showpass " .. arg)
                            sampSendChat("/kiss " .. arg)
        until text:find("Вы далеко от игрока")

хелпаните пожалуйста,почему отправляется только showlic, а не все нижеперечисленное

Скинь весь код

 

[pavl1nio]

Скинь весь код

function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand('crash', tezt)
    while true do
        wait(0)   
    end
end
function tezt(arg)
    lua_thread.create(function()
        if string.match(arg, '(%d+)') then
        repeat    sampSendChat("/showlic " .. arg)
                    sampSendChat("/showskill " .. arg)
                        sampSendChat("/showpass " .. arg)
                            sampSendChat("/kiss " .. arg)
        until text:find("Вы далеко от игрока")

        else
            sampAddChatMessage('Введите ID игрока.', -1)
        end
    end)
end