Вопросы по 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
 
Последнее редактирование:

multiverse

Участник
127
18
Как сделать чтобы когда писал "/fd 500" то в чат писалось "[FogDist] Дистанция прорисовки установлена на 500" ?
Lua:
function main()
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('fd', cmdproc_set_fog_dist)
    local udc = settings.cmd_alias
    if udc then
        sampRegisterChatCommand(udc, cmdproc_set_fog_dist)
    end
    set_fog_dist(settings.dist)

    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Loaded', -1)
    wait(-1)
end
 
  • Ха-ха
Реакции: rvng

bottom_text

Известный
673
320
Как сделать чтобы когда писал "/fd 500" то в чат писалось "[FogDist] Дистанция прорисовки установлена на 500" ?
Lua:
function main()
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('fd', cmdproc_set_fog_dist)
    local udc = settings.cmd_alias
    if udc then
        sampRegisterChatCommand(udc, cmdproc_set_fog_dist)
    end
    set_fog_dist(settings.dist)

    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Loaded', -1)
    wait(-1)
end
Lua:
function main()
    while not isSampAvailable() do wait(100) end

    sampRegisterChatCommand('fd', fogdist)
    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Loaded', -1)
    wait(-1)
end

function fogdist(arg)
    sampAddChatMessage('[FogDist] Дистанция прорисовки установлена на ' .. arg, -1)
end
 

Tristan

Участник
43
0
Lua:
local eat = true -- до main

sampRegisterChatCommand('aeat' function() eat = not eat end) -- в main

function smapev.onServerMessage(color,text)
    if text:find('Используйте /eating чтобы поесть') and eat then
        lua_thread.create(function()
            wait(500)
            sampSendChat("/eating")
        end)
    end
end
Lua:
local sampev = require 'samp.events'
local eat = false


function main()
  while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('eat', function() eat = not eat end)  -- создание команды для активации/деактивации
  wait(-1)
end


function sampev.onServerMessage(color,text)
    if text:find('Используйте /eating чтобы поесть') and eat then
        lua_thread.create(function()
            wait(500)
            sampSendChat("/eating")
        end)
    end
end
Спасибо, работает). Теперь еще один вопрос, как узнать работает щас или нет? То есть, sampAddChatMassage("авто /eating *работает/не работает*").
 

Next..

Известный
343
136
Спасибо, работает). Теперь еще один вопрос, как узнать работает щас или нет? То есть, sampAddChatMassage("авто /eating *работает/не работает*").
Код:
sampRegisterChatCommand('aeat' function() eat = not eat if eat sampAddChatMassage("авто /eating работает") else sampAddChatMassage("авто /eating не работает") end end)
 
  • Нравится
Реакции: Tristan

multiverse

Участник
127
18
Lua:
function main()
    while not isSampAvailable() do wait(100) end

    sampRegisterChatCommand('fd', fogdist)
    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Loaded', -1)
    wait(-1)
end

function fogdist(arg)
    sampAddChatMessage('[FogDist] Дистанция прорисовки установлена на ' .. arg, -1)
end
у меня в коде есть лимит 36-3600, и функция что больше 3600 пишет в чат что выше 3600 нельзя, как сделать чтобы не писалось [FogDist] Дистанция прорисовки установлена на *выше 3600 и не ниже 36* ? И если функция где arg будет названа function cmdproc_set_fog_dist то фогдист не будет работать, но в чат будет писатся что Дистанция прорисовки установлена

функция лимита 36-3600 и функция что пишет на сколько изменен фогдист:
function cmdproc_set_fog_dist(param)
    param = tonumber(param)
    if param ~= nil then
        if not set_fog_dist(param) then
            sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} [0-3600]', -1)
        end
    end
end


function cmdproc_set_fog_dist(arg)
    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Дистанция прорисовки установлена на ' .. arg, -1)
end
 

eEe1125

Участник
70
2
Помогите плиз с активацией скрипта, нужно убрать прошлую активацию F3 и чтобы вместо этого он активировался по команде /cui
Lua:
script_name("F3 Like in sobeit")
script_author("Laine_prikol")

function main()
 while true do
  wait(10)
  if isKeyDown(114) and not isPlayerDead(playerHandle) then
   local res = isCharInAnyCar(playerPed)
  
   if res then
    local car = storeCarCharIsInNoSave(playerPed)
    
    setCarHealth(car, 0)
    for i = 1, 3 do burstCarTire(car, i) end
   else
   setCharHealth(playerPed, 0)
   end
  end
 end
end
 

ollydbg

Известный
163
115
Помогите плиз с активацией скрипта, нужно убрать прошлую активацию F3 и чтобы вместо этого он активировался по команде /cui
Lua:
script_name("F3 Like in sobeit")
script_author("Laine_prikol")

function main()
while true do
  wait(10)
  if isKeyDown(114) and not isPlayerDead(playerHandle) then
   local res = isCharInAnyCar(playerPed)
 
   if res then
    local car = storeCarCharIsInNoSave(playerPed)
   
    setCarHealth(car, 0)
    for i = 1, 3 do burstCarTire(car, i) end
   else
   setCharHealth(playerPed, 0)
   end
  end
end
end
Lua:
script_name("F3 Like in sobeit")
script_author("Laine_prikol")

function main()
 sampRegisterChatCommand("cui", function()
  local res = isCharInAnyCar(playerPed)
 
   if res then
    local car = storeCarCharIsInNoSave(playerPed)
    
    setCarHealth(car, 0)
    for i = 1, 3 do burstCarTire(car, i) end
   else
   setCharHealth(playerPed, 0)
   end
  end)
  wait(-1)
end
 
  • Нравится
Реакции: eEe1125

eEe1125

Участник
70
2
В одном поджимном ГМе который я нашёл есть небольшой баг, что если его поджать во время езды на велике, а именно на котором мне надо это mountbike (остальные не нужно) происходит краш. Если можете помогите плиз сделать так, что если я сижу на mountbike то скрипт деактивирован.
Lua:
script_name("GM car")
script_author("Krisvis")
script_version("1")

require "lib.moonloader"
inicfg = require 'inicfg'
vkeys = require "vkeys"

keyGMcar = 160

function loadCFG()
  settings = inicfg.load(nil, "gmcar")
  if settings ~= nil then
    keyGMcar = settings.settings.key
  else
    sampAddChatMessage("{FFFFFF}GM Car{FF5656}: {FFFFFF}Не удалось загрузить настройки из конфига, устанавливаю по умолчанию.", - 1)
    if inicfg.save( {settings = {key = 160}}, "gmcar") then
      sampAddChatMessage("{FFFFFF}GM Car{FF5656}: {FFFFFF}Конфиг пересоздан ({ff0000}moonloader/config/gmcar.ini{ffffff}).", - 1)
      thisScript():reload()
    else
      sampAddChatMessage("{FFFFFF}GM Car{FF5656}: {FFFFFF}Скрипту не удалось создать конфиг. Кнопка по умолчанию: "..(vkeys.key_names[keyGMcar][1] or vkeys.key_names[keyGMcar]), - 1)
    end
  end
end

function main()
  while not isSampAvailable() do wait(100) end
 sampAddChatMessage("{FFFFFF}GM Car {269BD8}v"..thisScript().version.." {FF5656}| {FFFFFF}CMD: {269BD8}/gmcar {FF5656}| {FFFFFF}by {269BD8}Krisvis", 0xFFFFFF)
  sampAddChatMessage("{FFFFFF}Кнопка активавиции: {269BD8}"..(vkeys.key_names[keyGMcar][1] or vkeys.key_names[keyGMcar]), 0xFFFFFF)
  sampRegisterChatCommand("gmcar", bindButton)
  loadCFG()
  while true do wait(0)
    if isKeyDown(keyGMcar) and isCharInAnyCar(playerPed) then
      writeMemory(6977387, 2, 55517, false )
      writeMemory(6977389, 4, - 1869574000, false)
      writeMemory(5705343, 2, 55517, false)
      writeMemory(5705345, 4, - 1869574000, false)
      setCarProofs(storeCarCharIsInNoSave(playerPed), true, true, true, true, true)
      for k, v in pairs(wheels) do
        if not v then fixCarTire(storeCarCharIsInNoSave(playerPed), k - 1) end
      end
    else
      wheels = {}
      writeMemory(6977387, 2, 40665, false )
      writeMemory(6977389, 4, 1216, false)
      writeMemory(5705343, 2, 39385, false)
      writeMemory(5705345, 4, 1216, false)
    end
    if isKeyJustPressed(keyGMcar) and isCharInAnyCar(playerPed) then
      wheels = {isCarTireBurst(storeCarCharIsInNoSave(playerPed), 0), isCarTireBurst(storeCarCharIsInNoSave(playerPed), 1), isCarTireBurst(storeCarCharIsInNoSave(playerPed), 2), isCarTireBurst(storeCarCharIsInNoSave(playerPed), 3)}
    end
  end
end

function bindButton ()
  sampAddChatMessage("{FFFFFF}Жду нажатия на кнопку...", 0x269BD8)
  lua_thread.create(function ()
    while true do
    wait (0)
    keyGMcar = getDownKeys()
    if keyGMcar ~= "" then
      inicfg.save( {settings = {key = keyGMcar}}, "gmcar")
      sampAddChatMessage("{FFFFFF}Забиндил на {269BD8}"..(vkeys.key_names[keyGMcar][1] or vkeys.key_names[keyGMcar]), 0x269BD8)
      break
    end
  end end)
end

function getDownKeys()
  local curkeys = ""
  local bool = false
  for k, v in pairs(vkeys) do
    if isKeyDown(v) then
      curkeys = v
      bool = true
    end
  end
  return curkeys, bool
end
 

multiverse

Участник
127
18
Как сделать чтобы когда писал в чат "/fd 500" то в чат писалось [FogDist] Дистанция прорисовки установлена на 500, но при этом если ниже 0 или 3600, так оно не писало в чат [FogDist] Дистанция прорисовки установлена на 3700, а писало [FogDist] 36-3600 ?

код:
function set_fog_dist(m)
    if m > 3600.0 or m < 0 then return false end
    draw_dist[0] = m
    settings.dist = m
    return true
end

function cmdproc_set_fog_dist(param, arg)
    param = tonumber(param)
    if param ~= nil then
        if not set_fog_dist(param) then
            sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} 0-3600', -1)
        end
    end
end

function fogdist(arg)
    sampAddChatMessage('[FogDist] Дистанция прорисовки установлена на ' .. arg, -1)
end

function main()
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand('fd', cmdproc_set_fog_dist)
    local udc = settings.cmd_alias
    if udc then
        sampRegisterChatCommand(udc, cmdproc_set_fog_dist)
    end
    set_fog_dist(settings.dist)

    sampAddChatMessage('{ffff00}[FogDist]{FFFFFF} Loaded', -1)
    wait(-1)
end
 

D.Makarov

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