Вопросы по 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 других
Нажмите для раскрытия...
|DEVIL|

|DEVIL|

Известный
359
273
Lua: 
script_name('PiarBinder')
script_author('Marcus_Devil')
script_version('1.1')

require "lib.moonloader"
require "lib.sampfuncs"
local inicfg = require 'inicfg'

vr = "/vr "
fam = "/fam "
ad = "/ad "
pas = 0
pfs = 0
pvs = 0

pan = "{FF0000}[ Выключен ]"
pfn = "{FF0000}[ Выключен ]"
pvn = "{FF0000}[ Выключен ]"
local mainIni =
{
    dagestan =
    {
    pad = "В баре 51 на Пляже Санта-Мария завезли прохладные напитки.",
    pfam1 = "В баре 51 на Пляже Санта-Мария играют в Орёл и Решка. Ставки до 1кк",
    pfam2 = "Хочешь получить 600 Тысяч? Вводи промо #revazz в /mn",
    pvr = "Идет набор в семью со всеми улучшениями, есть бренд и галочка, желающим позвонить на номер(ваш номер)"
    },
    iran =
    {
        paz = 60,
        pfz = 30,
        pvz = 180
    }
}
local dialog = 5763
local num = 0

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage("Хобаньки", 0x00FF00)
    sampRegisterChatCommand("pbmenu", menu)
    while true do
        inicfg.load(mainIni)
        local result,button,list,input = sampHasDialogRespond(dialog)
        if result then
            if dialog == 5763 and button == 1 then
                if list == 2 and button == 1 then piarad() end
                if list == 3 and button == 1 then piarfam() end
                if list == 4 and button == 1 then piarvr() end
                if list == 8 and button == 1 then read() end
                if list == 9 and button == 1 then refam1() end
                if list == 10 and button == 1 then refam2() end
                if list == 11 and button == 1 then revr() end
                if list == 15 and button == 1 then rzad() end
                if list == 16 and button == 1 then rzfam() end
                if list == 17 and button == 1 then rzvr() end
            end
            if dialog == 6500 and button == 1 and input ~= "" then mainIni.dagestan.pad = input inicfg.save(mainIni) end
            if dialog == 6501 and button == 1 and input ~= "" then mainIni.dagestan.pfam1 = input inicfg.save(mainIni) end
            if dialog == 6502 and button == 1 and input ~= "" then mainIni.dagestan.pfam2 = input inicfg.save(mainIni) end
            if dialog == 6503 and button == 1 and input ~= "" then mainIni.dagestan.pvr = input inicfg.save(mainIni) end
            if dialog == 6700 and button == 1 and input ~= "" then mainIni.iran.paz = input inicfg.save(mainIni) end
            if dialog == 6701 and button == 1 and input ~= "" then mainIni.iran.pfz = input inicfg.save(mainIni) end
            if dialog == 6702 and button == 1 and input ~= "" then mainIni.iran.pvz = input inicfg.save(mainIni) end
            if dialog == 6800 and button == 1 then sum = button + sum if sum == 2 then if pas == 0 then pas = 1 else pas = 0 end end end
            if dialog == 6801 and button == 1 then sum = button + sum if sum == 2 then if pfs == 0 then pfs = 1 else pfs = 0 end end end
            if dialog == 6802 and button == 1 then sum = button + sum if sum == 2 then if pvs == 0 then pvs = 1 else pvs = 0 end end end
        end
        wait(0)
    end
end

function menu()
    if pas == 0 then pan = "{FF0000}[ Выключен ]" else pan = "{00FF00}[ Включен ]" end
    if pfs == 0 then pfn = "{FF0000}[ Выключен ]" else pfn = "{00FF00}[ Включен ]" end
    if pvs == 0 then pvn = "{FF0000}[ Выключен ]" else pvn = "{00FF00}[ Включен ]" end
    dialog = 5763
    sampShowDialog(dialog, "{8a2be2}BinderMenu", "Запуск пиара:\n-\n{00FF00}Пиар в /ad "..pan.."\n{FF0000}Пиар в /fam "..pfn.."\n{00BFFF}Пиар в /vr (Для замов) "..pvn.."\n-\nНастройки текста пиара:\n-\n{00FF00}Поменять текст в /ad\n{FF0000}Поменять текст в /fam (Бар)\n{FF0000}Поменять текст в /fam (Промо)\n{00BFFF}Поменять текст в /vr\n-\nНастройки задержки пиара:\n-\n{00FF00}Задержка /ad\n{FF0000}Задержка /fam\n{00BFFF}Задержка /vr", "Принять", "Выход", 2)
end

function read()
    dialog = 6500
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /ad:\n"..mainIni.dagestan.pad.."\nЧтобы сменить текст, введите текст без /ad", "Окей", "Отмена", 1)
end

function refam1()
    dialog = 6501
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Бар):\n"..mainIni.dagestan.pfam1.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function refam2()
    dialog = 6502
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Промокод):\n"..mainIni.dagestan.pfam2.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function revr()
    dialog = 6503
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /vr:\n"..mainIni.dagestan.pvr.."\nЧтобы сменить текст, введите текст без /vr", "Окей", "Отмена", 1)
end

function rzad()
    dialog = 6700
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /ad: "..mainIni.iran.paz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzfam()
    dialog = 6701
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /fam: "..mainIni.iran.pfz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzvr()
    dialog = 6702
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /vr: "..mainIni.iran.pvz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function piarad()
    sum = 0
    dialog = 6800
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pad.."\nЗадержка: "..mainIni.iran.paz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarfam()
    sum = 0
    dialog = 6801
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст (Бар): "..mainIni.dagestan.pfam1.."\nТекст (Промо):"..mainIni.dagestan.pfam2.."\nЗадержка: "..mainIni.iran.pfz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarvr()
    sum = 0
    dialog = 6802
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pvr.."\nЗадержка: "..mainIni.iran.pvz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end



function rp1()
    sampAddChatMessage("Пиар в /ad начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pas == 1 then
            sampAddChatMessage(mainIni.dagestan.pad, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp2()
    sampAddChatMessage("Пиар в /fam начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pfs == 1 then
            sampAddChatMessage(mainIni.dagestan.pfam1, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
            sampAddChatMessage(mainIni.dagestan.pfam2, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp3()
    sampAddChatMessage("Пиар в /vr начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pvs == 1 then
            sampAddChatMessage(mainIni.dagestan.pvr, -1)
            wait(math.floor(mainIni.iran.pvz * 1000))
        end
    end
    end)
end
Mozze.cpp написал(а):
Проверяешь инициализацию структур сампа?
Нажмите для раскрытия...
Не понел, кину скрипт весь, сам посмотри)
 
danywa

danywa

Активный
358
50
какой при код - если мне надо чтобы при появлении красного чекпоинта что бы сразу к нему тпшнулся(если чекпоинт мастер у меня есть)
 
madrasso

madrasso

Потрачен
883
324
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
QushaS написал(а):
Lua: 
script_name('PiarBinder')
script_author('Marcus_Devil')
script_version('1.1')

require "lib.moonloader"
require "lib.sampfuncs"
local inicfg = require 'inicfg'

vr = "/vr "
fam = "/fam "
ad = "/ad "
pas = 0
pfs = 0
pvs = 0

pan = "{FF0000}[ Выключен ]"
pfn = "{FF0000}[ Выключен ]"
pvn = "{FF0000}[ Выключен ]"
local mainIni =
{
    dagestan =
    {
    pad = "В баре 51 на Пляже Санта-Мария завезли прохладные напитки.",
    pfam1 = "В баре 51 на Пляже Санта-Мария играют в Орёл и Решка. Ставки до 1кк",
    pfam2 = "Хочешь получить 600 Тысяч? Вводи промо #revazz в /mn",
    pvr = "Идет набор в семью со всеми улучшениями, есть бренд и галочка, желающим позвонить на номер(ваш номер)"
    },
    iran =
    {
        paz = 60,
        pfz = 30,
        pvz = 180
    }
}
local dialog = 5763
local num = 0

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage("Хобаньки", 0x00FF00)
    sampRegisterChatCommand("pbmenu", menu)
    while true do
        inicfg.load(mainIni)
        local result,button,list,input = sampHasDialogRespond(dialog)
        if result then
            if dialog == 5763 and button == 1 then
                if list == 2 and button == 1 then piarad() end
                if list == 3 and button == 1 then piarfam() end
                if list == 4 and button == 1 then piarvr() end
                if list == 8 and button == 1 then read() end
                if list == 9 and button == 1 then refam1() end
                if list == 10 and button == 1 then refam2() end
                if list == 11 and button == 1 then revr() end
                if list == 15 and button == 1 then rzad() end
                if list == 16 and button == 1 then rzfam() end
                if list == 17 and button == 1 then rzvr() end
            end
            if dialog == 6500 and button == 1 and input ~= "" then mainIni.dagestan.pad = input inicfg.save(mainIni) end
            if dialog == 6501 and button == 1 and input ~= "" then mainIni.dagestan.pfam1 = input inicfg.save(mainIni) end
            if dialog == 6502 and button == 1 and input ~= "" then mainIni.dagestan.pfam2 = input inicfg.save(mainIni) end
            if dialog == 6503 and button == 1 and input ~= "" then mainIni.dagestan.pvr = input inicfg.save(mainIni) end
            if dialog == 6700 and button == 1 and input ~= "" then mainIni.iran.paz = input inicfg.save(mainIni) end
            if dialog == 6701 and button == 1 and input ~= "" then mainIni.iran.pfz = input inicfg.save(mainIni) end
            if dialog == 6702 and button == 1 and input ~= "" then mainIni.iran.pvz = input inicfg.save(mainIni) end
            if dialog == 6800 and button == 1 then sum = button + sum if sum == 2 then if pas == 0 then pas = 1 else pas = 0 end end end
            if dialog == 6801 and button == 1 then sum = button + sum if sum == 2 then if pfs == 0 then pfs = 1 else pfs = 0 end end end
            if dialog == 6802 and button == 1 then sum = button + sum if sum == 2 then if pvs == 0 then pvs = 1 else pvs = 0 end end end
        end
        wait(0)
    end
end

function menu()
    if pas == 0 then pan = "{FF0000}[ Выключен ]" else pan = "{00FF00}[ Включен ]" end
    if pfs == 0 then pfn = "{FF0000}[ Выключен ]" else pfn = "{00FF00}[ Включен ]" end
    if pvs == 0 then pvn = "{FF0000}[ Выключен ]" else pvn = "{00FF00}[ Включен ]" end
    dialog = 5763
    sampShowDialog(dialog, "{8a2be2}BinderMenu", "Запуск пиара:\n-\n{00FF00}Пиар в /ad "..pan.."\n{FF0000}Пиар в /fam "..pfn.."\n{00BFFF}Пиар в /vr (Для замов) "..pvn.."\n-\nНастройки текста пиара:\n-\n{00FF00}Поменять текст в /ad\n{FF0000}Поменять текст в /fam (Бар)\n{FF0000}Поменять текст в /fam (Промо)\n{00BFFF}Поменять текст в /vr\n-\nНастройки задержки пиара:\n-\n{00FF00}Задержка /ad\n{FF0000}Задержка /fam\n{00BFFF}Задержка /vr", "Принять", "Выход", 2)
end

function read()
    dialog = 6500
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /ad:\n"..mainIni.dagestan.pad.."\nЧтобы сменить текст, введите текст без /ad", "Окей", "Отмена", 1)
end

function refam1()
    dialog = 6501
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Бар):\n"..mainIni.dagestan.pfam1.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function refam2()
    dialog = 6502
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Промокод):\n"..mainIni.dagestan.pfam2.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function revr()
    dialog = 6503
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /vr:\n"..mainIni.dagestan.pvr.."\nЧтобы сменить текст, введите текст без /vr", "Окей", "Отмена", 1)
end

function rzad()
    dialog = 6700
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /ad: "..mainIni.iran.paz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzfam()
    dialog = 6701
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /fam: "..mainIni.iran.pfz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzvr()
    dialog = 6702
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /vr: "..mainIni.iran.pvz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function piarad()
    sum = 0
    dialog = 6800
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pad.."\nЗадержка: "..mainIni.iran.paz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarfam()
    sum = 0
    dialog = 6801
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст (Бар): "..mainIni.dagestan.pfam1.."\nТекст (Промо):"..mainIni.dagestan.pfam2.."\nЗадержка: "..mainIni.iran.pfz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarvr()
    sum = 0
    dialog = 6802
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pvr.."\nЗадержка: "..mainIni.iran.pvz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end



function rp1()
    sampAddChatMessage("Пиар в /ad начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pas == 1 then
            sampAddChatMessage(mainIni.dagestan.pad, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp2()
    sampAddChatMessage("Пиар в /fam начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pfs == 1 then
            sampAddChatMessage(mainIni.dagestan.pfam1, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
            sampAddChatMessage(mainIni.dagestan.pfam2, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp3()
    sampAddChatMessage("Пиар в /vr начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pvs == 1 then
            sampAddChatMessage(mainIni.dagestan.pvr, -1)
            wait(math.floor(mainIni.iran.pvz * 1000))
        end
    end
    end)
end

Не понел, кину скрипт весь, сам посмотри)
Нажмите для раскрытия...
Мб уберешь inicfg.load из цикла в мейне? Зачем так делать?
QushaS написал(а):
Lua: 
script_name('PiarBinder')
script_author('Marcus_Devil')
script_version('1.1')

require "lib.moonloader"
require "lib.sampfuncs"
local inicfg = require 'inicfg'

vr = "/vr "
fam = "/fam "
ad = "/ad "
pas = 0
pfs = 0
pvs = 0

pan = "{FF0000}[ Выключен ]"
pfn = "{FF0000}[ Выключен ]"
pvn = "{FF0000}[ Выключен ]"
local mainIni =
{
    dagestan =
    {
    pad = "В баре 51 на Пляже Санта-Мария завезли прохладные напитки.",
    pfam1 = "В баре 51 на Пляже Санта-Мария играют в Орёл и Решка. Ставки до 1кк",
    pfam2 = "Хочешь получить 600 Тысяч? Вводи промо #revazz в /mn",
    pvr = "Идет набор в семью со всеми улучшениями, есть бренд и галочка, желающим позвонить на номер(ваш номер)"
    },
    iran =
    {
        paz = 60,
        pfz = 30,
        pvz = 180
    }
}
local dialog = 5763
local num = 0

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage("Хобаньки", 0x00FF00)
    sampRegisterChatCommand("pbmenu", menu)
    while true do
        inicfg.load(mainIni)
        local result,button,list,input = sampHasDialogRespond(dialog)
        if result then
            if dialog == 5763 and button == 1 then
                if list == 2 and button == 1 then piarad() end
                if list == 3 and button == 1 then piarfam() end
                if list == 4 and button == 1 then piarvr() end
                if list == 8 and button == 1 then read() end
                if list == 9 and button == 1 then refam1() end
                if list == 10 and button == 1 then refam2() end
                if list == 11 and button == 1 then revr() end
                if list == 15 and button == 1 then rzad() end
                if list == 16 and button == 1 then rzfam() end
                if list == 17 and button == 1 then rzvr() end
            end
            if dialog == 6500 and button == 1 and input ~= "" then mainIni.dagestan.pad = input inicfg.save(mainIni) end
            if dialog == 6501 and button == 1 and input ~= "" then mainIni.dagestan.pfam1 = input inicfg.save(mainIni) end
            if dialog == 6502 and button == 1 and input ~= "" then mainIni.dagestan.pfam2 = input inicfg.save(mainIni) end
            if dialog == 6503 and button == 1 and input ~= "" then mainIni.dagestan.pvr = input inicfg.save(mainIni) end
            if dialog == 6700 and button == 1 and input ~= "" then mainIni.iran.paz = input inicfg.save(mainIni) end
            if dialog == 6701 and button == 1 and input ~= "" then mainIni.iran.pfz = input inicfg.save(mainIni) end
            if dialog == 6702 and button == 1 and input ~= "" then mainIni.iran.pvz = input inicfg.save(mainIni) end
            if dialog == 6800 and button == 1 then sum = button + sum if sum == 2 then if pas == 0 then pas = 1 else pas = 0 end end end
            if dialog == 6801 and button == 1 then sum = button + sum if sum == 2 then if pfs == 0 then pfs = 1 else pfs = 0 end end end
            if dialog == 6802 and button == 1 then sum = button + sum if sum == 2 then if pvs == 0 then pvs = 1 else pvs = 0 end end end
        end
        wait(0)
    end
end

function menu()
    if pas == 0 then pan = "{FF0000}[ Выключен ]" else pan = "{00FF00}[ Включен ]" end
    if pfs == 0 then pfn = "{FF0000}[ Выключен ]" else pfn = "{00FF00}[ Включен ]" end
    if pvs == 0 then pvn = "{FF0000}[ Выключен ]" else pvn = "{00FF00}[ Включен ]" end
    dialog = 5763
    sampShowDialog(dialog, "{8a2be2}BinderMenu", "Запуск пиара:\n-\n{00FF00}Пиар в /ad "..pan.."\n{FF0000}Пиар в /fam "..pfn.."\n{00BFFF}Пиар в /vr (Для замов) "..pvn.."\n-\nНастройки текста пиара:\n-\n{00FF00}Поменять текст в /ad\n{FF0000}Поменять текст в /fam (Бар)\n{FF0000}Поменять текст в /fam (Промо)\n{00BFFF}Поменять текст в /vr\n-\nНастройки задержки пиара:\n-\n{00FF00}Задержка /ad\n{FF0000}Задержка /fam\n{00BFFF}Задержка /vr", "Принять", "Выход", 2)
end

function read()
    dialog = 6500
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /ad:\n"..mainIni.dagestan.pad.."\nЧтобы сменить текст, введите текст без /ad", "Окей", "Отмена", 1)
end

function refam1()
    dialog = 6501
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Бар):\n"..mainIni.dagestan.pfam1.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function refam2()
    dialog = 6502
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Промокод):\n"..mainIni.dagestan.pfam2.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function revr()
    dialog = 6503
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /vr:\n"..mainIni.dagestan.pvr.."\nЧтобы сменить текст, введите текст без /vr", "Окей", "Отмена", 1)
end

function rzad()
    dialog = 6700
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /ad: "..mainIni.iran.paz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzfam()
    dialog = 6701
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /fam: "..mainIni.iran.pfz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzvr()
    dialog = 6702
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /vr: "..mainIni.iran.pvz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function piarad()
    sum = 0
    dialog = 6800
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pad.."\nЗадержка: "..mainIni.iran.paz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarfam()
    sum = 0
    dialog = 6801
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст (Бар): "..mainIni.dagestan.pfam1.."\nТекст (Промо):"..mainIni.dagestan.pfam2.."\nЗадержка: "..mainIni.iran.pfz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarvr()
    sum = 0
    dialog = 6802
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pvr.."\nЗадержка: "..mainIni.iran.pvz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end



function rp1()
    sampAddChatMessage("Пиар в /ad начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pas == 1 then
            sampAddChatMessage(mainIni.dagestan.pad, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp2()
    sampAddChatMessage("Пиар в /fam начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pfs == 1 then
            sampAddChatMessage(mainIni.dagestan.pfam1, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
            sampAddChatMessage(mainIni.dagestan.pfam2, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp3()
    sampAddChatMessage("Пиар в /vr начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pvs == 1 then
            sampAddChatMessage(mainIni.dagestan.pvr, -1)
            wait(math.floor(mainIni.iran.pvz * 1000))
        end
    end
    end)
end

Не понел, кину скрипт весь, сам посмотри)
Нажмите для раскрытия...
А ещё у тебя в потоках нету задержек в бесконечном цикле (у тебя задержка при выполнении условия) из за этого скорее всего и краш
 
  • Нравится
Реакции: |DEVIL|
У

Удалённый пользователь 123482

Гость
QushaS написал(а):
Lua: 
script_name('PiarBinder')
script_author('Marcus_Devil')
script_version('1.1')

require "lib.moonloader"
require "lib.sampfuncs"
local inicfg = require 'inicfg'

vr = "/vr "
fam = "/fam "
ad = "/ad "
pas = 0
pfs = 0
pvs = 0

pan = "{FF0000}[ Выключен ]"
pfn = "{FF0000}[ Выключен ]"
pvn = "{FF0000}[ Выключен ]"
local mainIni =
{
    dagestan =
    {
    pad = "В баре 51 на Пляже Санта-Мария завезли прохладные напитки.",
    pfam1 = "В баре 51 на Пляже Санта-Мария играют в Орёл и Решка. Ставки до 1кк",
    pfam2 = "Хочешь получить 600 Тысяч? Вводи промо #revazz в /mn",
    pvr = "Идет набор в семью со всеми улучшениями, есть бренд и галочка, желающим позвонить на номер(ваш номер)"
    },
    iran =
    {
        paz = 60,
        pfz = 30,
        pvz = 180
    }
}
local dialog = 5763
local num = 0

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage("Хобаньки", 0x00FF00)
    sampRegisterChatCommand("pbmenu", menu)
    while true do
        inicfg.load(mainIni)
        local result,button,list,input = sampHasDialogRespond(dialog)
        if result then
            if dialog == 5763 and button == 1 then
                if list == 2 and button == 1 then piarad() end
                if list == 3 and button == 1 then piarfam() end
                if list == 4 and button == 1 then piarvr() end
                if list == 8 and button == 1 then read() end
                if list == 9 and button == 1 then refam1() end
                if list == 10 and button == 1 then refam2() end
                if list == 11 and button == 1 then revr() end
                if list == 15 and button == 1 then rzad() end
                if list == 16 and button == 1 then rzfam() end
                if list == 17 and button == 1 then rzvr() end
            end
            if dialog == 6500 and button == 1 and input ~= "" then mainIni.dagestan.pad = input inicfg.save(mainIni) end
            if dialog == 6501 and button == 1 and input ~= "" then mainIni.dagestan.pfam1 = input inicfg.save(mainIni) end
            if dialog == 6502 and button == 1 and input ~= "" then mainIni.dagestan.pfam2 = input inicfg.save(mainIni) end
            if dialog == 6503 and button == 1 and input ~= "" then mainIni.dagestan.pvr = input inicfg.save(mainIni) end
            if dialog == 6700 and button == 1 and input ~= "" then mainIni.iran.paz = input inicfg.save(mainIni) end
            if dialog == 6701 and button == 1 and input ~= "" then mainIni.iran.pfz = input inicfg.save(mainIni) end
            if dialog == 6702 and button == 1 and input ~= "" then mainIni.iran.pvz = input inicfg.save(mainIni) end
            if dialog == 6800 and button == 1 then sum = button + sum if sum == 2 then if pas == 0 then pas = 1 else pas = 0 end end end
            if dialog == 6801 and button == 1 then sum = button + sum if sum == 2 then if pfs == 0 then pfs = 1 else pfs = 0 end end end
            if dialog == 6802 and button == 1 then sum = button + sum if sum == 2 then if pvs == 0 then pvs = 1 else pvs = 0 end end end
        end
        wait(0)
    end
end

function menu()
    if pas == 0 then pan = "{FF0000}[ Выключен ]" else pan = "{00FF00}[ Включен ]" end
    if pfs == 0 then pfn = "{FF0000}[ Выключен ]" else pfn = "{00FF00}[ Включен ]" end
    if pvs == 0 then pvn = "{FF0000}[ Выключен ]" else pvn = "{00FF00}[ Включен ]" end
    dialog = 5763
    sampShowDialog(dialog, "{8a2be2}BinderMenu", "Запуск пиара:\n-\n{00FF00}Пиар в /ad "..pan.."\n{FF0000}Пиар в /fam "..pfn.."\n{00BFFF}Пиар в /vr (Для замов) "..pvn.."\n-\nНастройки текста пиара:\n-\n{00FF00}Поменять текст в /ad\n{FF0000}Поменять текст в /fam (Бар)\n{FF0000}Поменять текст в /fam (Промо)\n{00BFFF}Поменять текст в /vr\n-\nНастройки задержки пиара:\n-\n{00FF00}Задержка /ad\n{FF0000}Задержка /fam\n{00BFFF}Задержка /vr", "Принять", "Выход", 2)
end

function read()
    dialog = 6500
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /ad:\n"..mainIni.dagestan.pad.."\nЧтобы сменить текст, введите текст без /ad", "Окей", "Отмена", 1)
end

function refam1()
    dialog = 6501
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Бар):\n"..mainIni.dagestan.pfam1.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function refam2()
    dialog = 6502
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /fam (Промокод):\n"..mainIni.dagestan.pfam2.."\nЧтобы сменить текст, введите текст без /fam", "Окей", "Отмена", 1)
end

function revr()
    dialog = 6503
    sampShowDialog(dialog, "{00FF00}Смена текста пиара", "Ваш текст пиара в /vr:\n"..mainIni.dagestan.pvr.."\nЧтобы сменить текст, введите текст без /vr", "Окей", "Отмена", 1)
end

function rzad()
    dialog = 6700
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /ad: "..mainIni.iran.paz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzfam()
    dialog = 6701
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /fam: "..mainIni.iran.pfz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function rzvr()
    dialog = 6702
    sampShowDialog(dialog, "{FF00FF}Смена задержки", "Задержка в /vr: "..mainIni.iran.pvz.." секунд\nДля смены введите секунды", "Ок", "Выход", 1)
end

function piarad()
    sum = 0
    dialog = 6800
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pad.."\nЗадержка: "..mainIni.iran.paz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarfam()
    sum = 0
    dialog = 6801
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст (Бар): "..mainIni.dagestan.pfam1.."\nТекст (Промо):"..mainIni.dagestan.pfam2.."\nЗадержка: "..mainIni.iran.pfz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end

function piarvr()
    sum = 0
    dialog = 6802
    sampShowDialog(dialog, "{FF00FF}Подтверждение", "Текст: "..mainIni.dagestan.pvr.."\nЗадержка: "..mainIni.iran.pvz.." Секунд\nВы уверены?", "Да", "Нет", 0)
end



function rp1()
    sampAddChatMessage("Пиар в /ad начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pas == 1 then
            sampAddChatMessage(mainIni.dagestan.pad, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp2()
    sampAddChatMessage("Пиар в /fam начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pfs == 1 then
            sampAddChatMessage(mainIni.dagestan.pfam1, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
            sampAddChatMessage(mainIni.dagestan.pfam2, -1)
            wait(math.floor(mainIni.iran.paz * 1000))
        end
    end
    end)
end

function rp3()
    sampAddChatMessage("Пиар в /vr начался!", 0x00FF00)
     lua_thread.create(function()
        while true do if pvs == 1 then
            sampAddChatMessage(mainIni.dagestan.pvr, -1)
            wait(math.floor(mainIni.iran.pvz * 1000))
        end
    end
    end)
end

Не понел, кину скрипт весь, сам посмотри)
Нажмите для раскрытия...
Скопировал твой код, ничего не менял. У меня не крашит.
 
  • Нравится
Реакции: |DEVIL|
S-Sirius

S-Sirius

Известный
353
21
Код: 
function whonear()
    if not sampIsLocalPlayerSpawned() then
        printStringNow('~r~Вы не заспавнены!', 1500)
        return
    end
    local data = {}
    
    local isinst, rasst = sampGetDistanceLocalPlayerToPlayerByPlayerId(id)
            local _, myid = sampGetPlayerIdByCharHandle(playerPed)
            if tonumber(id) == tonumber(myid) then
                distant = 'Это вы'
            else
                if isinst then
                    local pName = sampGetPlayerNickname(pId)
                    local pColor = string.format('%06X', bitAnd(0xFFFFFF, sampGetPlayerColor(pId)))
                    data[#data + 1] = string.format('{%s}%s [%d] \t{cccccc}\t %s', pColor, pName, pId, distant)
                else
                    distant = 'Расстояние: Неизвестно'
                end
            end
    
    sampShowDialog(
        1025415415,
        string.format('{288e6e}***  {FF9000}Игроки в зоне стрима: {00cc00}%d {288e6e}  ***        ', #data),
        table.concat(data, '\n'),
        '{288e6e}*',
        '',
        DIALOG_STYLE_LIST
    )
end

function sampGetDistanceLocalPlayerToPlayerByPlayerId(playerId)
    local playerId = tonumber(playerId, 10)
    if not playerId then return end
    local res, han = sampGetCharHandleBySampPlayerId(playerId)
    if res then
        local x, y, z = getCharCoordinates(playerPed)
        local xx, yy, zz = getCharCoordinates(han)
        return true, getDistanceBetweenCoords3d(x, y, z, xx, yy, zz)
    end
    return false
end

В чём проблема? По идеи должен отображать игроков в зоне стрима, но показывает пустой диалог.
 
edik06041

edik06041

Участник
51
4
Как реализовать после входа тп кордмастером на заданные координаты?
 
A

astynk

Известный
Проверенный
742
530
Apollon написал(а):
Код: 
function whonear()
    if not sampIsLocalPlayerSpawned() then
        printStringNow('~r~Вы не заспавнены!', 1500)
        return
    end
    local data = {}
   
    local isinst, rasst = sampGetDistanceLocalPlayerToPlayerByPlayerId(id)
            local _, myid = sampGetPlayerIdByCharHandle(playerPed)
            if tonumber(id) == tonumber(myid) then
                distant = 'Это вы'
            else
                if isinst then
                    local pName = sampGetPlayerNickname(pId)
                    local pColor = string.format('%06X', bitAnd(0xFFFFFF, sampGetPlayerColor(pId)))
                    data[#data + 1] = string.format('{%s}%s [%d] \t{cccccc}\t %s', pColor, pName, pId, distant)
                else
                    distant = 'Расстояние: Неизвестно'
                end
            end
   
    sampShowDialog(
        1025415415,
        string.format('{288e6e}***  {FF9000}Игроки в зоне стрима: {00cc00}%d {288e6e}  ***        ', #data),
        table.concat(data, '\n'),
        '{288e6e}*',
        '',
        DIALOG_STYLE_LIST
    )
end

function sampGetDistanceLocalPlayerToPlayerByPlayerId(playerId)
    local playerId = tonumber(playerId, 10)
    if not playerId then return end
    local res, han = sampGetCharHandleBySampPlayerId(playerId)
    if res then
        local x, y, z = getCharCoordinates(playerPed)
        local xx, yy, zz = getCharCoordinates(han)
        return true, getDistanceBetweenCoords3d(x, y, z, xx, yy, zz)
    end
    return false
end

В чём проблема? По идеи должен отображать игроков в зоне стрима, но показывает пустой диалог.
Нажмите для раскрытия...
А где перебор? Не вижу ни одного цикла в коде
for k, v in pairs(getAllChars()) либо for i =0, 999
 
HarlyCloud

HarlyCloud

Потрачен
238
66
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
cheremuxa написал(а):
ranges[rang] (если rang это число)
Нажмите для раскрытия...
У меня типо чтобы было не цифрой а текстом, например если я выберу 10 ранг а в конфигах писало не 9, а председатель, и в тексте так же, если можешь напиши код, и как сделать чтоб в sampSendChat были норм символы
 
danywa

danywa

Активный
358
50
Пожалуйста кто может написать код луа имитации нажатия клавиши N все,что я пробовал ничего не получается
 
#Rewzeisch

#Rewzeisch

Известный
121
10
Подскажите, как реализовать такую фишку , что при загрузке скрипта идет проверка на наличие папки со звуками , если нет папки , то создаётся и идёт подгрузка звуков форматов .mp3 и .wav
 
TWP

TWP

Участник
53
1
Народ, помогите найти ошибку в коде

Когда пишу команду, диалог открывается, но когда пытаюсь выбрать что-нибудь в диалоге, он крашит по причине

attempt to yield across C-call boundary
stack traceback:
in function 'wait'
Script died due to an error. (07921684)

Lua: 
function cmd_sett()
sampShowDialog(1866, "Settings", "{FFFFFF}Текст\nТекст 2", "ОК", "Закрыть", 2)
while sampIsDialogActive() do
wait(0)
local result, button, list, input = sampHasDialogRespond(1866)
if result then
        if button == 1 and list == 0 then
        sampAddChatMessage("Успешно", -1)
        end
end
end
end
 
Akionka

Akionka

akionka.lua
Проверенный
742
500
#Rewzeisch написал(а):
Подскажите, как реализовать такую фишку , что при загрузке скрипта идет проверка на наличие папки со звуками , если нет папки , то создаётся и идёт подгрузка звуков форматов .mp3 и .wav
Нажмите для раскрытия...
как-то так
Lua: 
local sounds = {
  {
    url='http://example.com/sound1.mp3',
    file_name = 'sound1.mp3',
  },
}

function main()
  if not doesDirectoryExist(getWorkingDirectory()..'\\sounds') then
    createDirectory(getWorkingDirectory()..'\\sounds')
  end
  for i, v in ipairs(sounds) do
    print(v['url'], v['file_name'])
    if not doesFileExist(getWorkingDirectory()..'\\sounds\\'..v['file_name']) then
      downloadUrlToFile(v['url'], getWorkingDirectory()..'\\sounds\\'..v['file_name'])
    end
  end
end
 
  • Нравится
Реакции: #Rewzeisch
#Rewzeisch

#Rewzeisch

Известный
121
10
Akionka написал(а):
как-то так
Lua: 
local sounds = {
  {
    url='http://example.com/sound1.mp3',
    file_name = 'sound1.mp3',
  },
}

function main()
  if not doesDirectoryExist(getWorkingDirectory()..'\\sounds') then
    createDirectory(getWorkingDirectory()..'\\sounds')
  end
  for i, v in ipairs(sounds) do
    print(v['url'], v['file_name'])
    if not doesFileExist(getWorkingDirectory()..'\\sounds\\'..v['file_name']) then
      downloadUrlToFile(v['url'], getWorkingDirectory()..'\\sounds\\'..v['file_name'])
    end
  end
end
Нажмите для раскрытия...


Работает))) Спасибо :*
+rep
 
Последнее редактирование:
#Rewzeisch

#Rewzeisch

Известный
121
10
Нужна помощь по скрипту.
Короче написал кодец, у него функция должна быть такая : После того как мой персонаж сел в авто - автоматом врубаются фары.

Куда мне надо засунуть код чтобы функция исполнялась 1н раз при посадке в авто?


Lua: 
local carhandle = isCharInAnyCar(PLAYER_PED)
if carhandle then
sampSendChat("/auto")
sampSendDialogResponse(66, 1, 0, _)
end
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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