Вопросы по 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
 
Последнее редактирование:
  • Нравится
  • Клоун
  • Эм
Реакции: knowfaq, FreX, Deps и 37 других
Нажмите для раскрытия...
|| NN - NoName ||

|| NN - NoName ||

Известный
1,049
629
#Northn написал(а):
отправь как делаешь, у тебя я как минимум вижу два цикла: for, sampGetMaxPlayerId(true)
а у меня он один


у него лимит, он определяет прям очень близко к тебе
Нажмите для раскрытия...
Я уж и не найду как я делал. Но делал я примерно как у тебя, а потом вызывал функцию в беск цикле с задержкой 1мс
 
Kirill Dumchik

Kirill Dumchik

Участник
61
3
Как убрать эту полосу?
4c01319db97c.png



Lua: 
require "lib.moonloader"
require "lib.sampfuncs"

local imgui = require 'imgui'
local encoding = require 'encoding'
encoding.default = 'CP1251'
local u8 = encoding.UTF8

local imgui_1 = imgui.ImBool(false)
local imgui_2 = imgui.ImBool(false)

function main()
  if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(100) end

  sampRegisterChatCommand("asd", function() imgui_1.v = not imgui_1.v end)

  while true do
    wait(0)
    imgui.Process = imgui_1.v or imgui_2.v
    if not imgui_1.v and not imgui_2.v then
      imgui.ShowCursor = false
    end
  end
end

function imgui.OnDrawFrame()
  if imgui_1.v then
    imgui.ShowCursor = true
    local btnSize = imgui.ImVec2(150, 0)
    imgui.SetNextWindowPos(imgui.ImVec2(imgui.GetIO().DisplaySize.x / 2, imgui.GetIO().DisplaySize.y / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
    imgui.SetNextWindowSize(imgui.ImVec2(500, 500), imgui.Cond.FirstUseEver)
    imgui.Begin(u8'Второе окно', imgui_1, imgui.WindowFlags.MenuBar)
    imgui.BeginChild('Тест', imgui.ImVec2(150, 500), true)
    if imgui.Button(u8'test 1', btnSize) then selected = 1 end
    if imgui.Button(u8'test 2', btnSize) then selected = 2 end
    imgui.EndChild()
    imgui.SameLine()
    if selected == 1 then
      if imgui.RadioButton(u8"Команды Arizona RP.", imgui_2.v) then
        imgui_2.v = not imgui_2.v
      end
    elseif selected == 2 then
      if imgui.RadioButton(u8"Команды Samp RP.", imgui_2.v) then
        imgui_2.v = not imgui_2.v
      end
    end
    imgui.End()
  end
end
 
|| NN - NoName ||

|| NN - NoName ||

Известный
1,049
629
borodatiykeks написал(а):
Как убрать эту полосу?
Посмотреть вложение 80911


Lua: 
require "lib.moonloader"
require "lib.sampfuncs"

local imgui = require 'imgui'
local encoding = require 'encoding'
encoding.default = 'CP1251'
local u8 = encoding.UTF8

local imgui_1 = imgui.ImBool(false)
local imgui_2 = imgui.ImBool(false)

function main()
  if not isSampLoaded() or not isSampfuncsLoaded() then return end
  while not isSampAvailable() do wait(100) end

  sampRegisterChatCommand("asd", function() imgui_1.v = not imgui_1.v end)

  while true do
    wait(0)
    imgui.Process = imgui_1.v or imgui_2.v
    if not imgui_1.v and not imgui_2.v then
      imgui.ShowCursor = false
    end
  end
end

function imgui.OnDrawFrame()
  if imgui_1.v then
    imgui.ShowCursor = true
    local btnSize = imgui.ImVec2(150, 0)
    imgui.SetNextWindowPos(imgui.ImVec2(imgui.GetIO().DisplaySize.x / 2, imgui.GetIO().DisplaySize.y / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
    imgui.SetNextWindowSize(imgui.ImVec2(500, 500), imgui.Cond.FirstUseEver)
    imgui.Begin(u8'Второе окно', imgui_1, imgui.WindowFlags.MenuBar)
    imgui.BeginChild('Тест', imgui.ImVec2(150, 500), true)
    if imgui.Button(u8'test 1', btnSize) then selected = 1 end
    if imgui.Button(u8'test 2', btnSize) then selected = 2 end
    imgui.EndChild()
    imgui.SameLine()
    if selected == 1 then
      if imgui.RadioButton(u8"Команды Arizona RP.", imgui_2.v) then
        imgui_2.v = not imgui_2.v
      end
    elseif selected == 2 then
      if imgui.RadioButton(u8"Команды Samp RP.", imgui_2.v) then
        imgui_2.v = not imgui_2.v
      end
    end
    imgui.End()
  end
end
Нажмите для раскрытия...
imgui.BeginChild('Тест', imgui.ImVec2(0, 500), true)

Вроде так
 
multiverse

multiverse

Участник
127
17
Как сделать чтобы когда писал "/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

bottom_text

Известный
675
318
underground anton написал(а):
Как сделать чтобы когда писал "/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
 
T

Tristan

Участник
43
0
Next.. написал(а):
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
Нажмите для раскрытия...
bottom_text написал(а):
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..

Next..

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

multiverse

Участник
127
17
bottom_text написал(а):
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
 
E

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

ollydbg

Известный
163
113
eEe1125 написал(а):
Помогите плиз с активацией скрипта, нужно убрать прошлую активацию 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
E

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

multiverse

Участник
127
17
Как сделать чтобы когда писал в чат "/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
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. AnWu
    • Закреплено
    • Статья
    Информация Гайд Всё о Lua скриптинге для MoonLoader
      • Нравится
    Ответы
    49
    Просмотры
    156K
    Lua
    FlouZip
    FlouZip
  2. Frapsy
    • Опрос
    Исходник Полноценный исходник фракционного(МО) скрипта ARP
      • Нравится
    Ответы
    74
    Просмотры
    28K
    Lua
    Frapsy
    Frapsy
  3. PanSeek
    Интервью с Fomikus
      • Нравится
      • Влюблен
    Ответы
    3
    Просмотры
    1K
    Общение
    ChromiusJ
    ChromiusJ
  4. AnWu
    • Закреплено
    Информация Ответы на часто задаваемые вопросы [FAQ]
      • Нравится
      • Влюблен
    Ответы
    19
    Просмотры
    11K
    Lua
    Kusnrchik
    Kusnrchik
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    2K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу