Вопросы по Lua скриптингу

chapo · 24 Мар 2024

sep написал(а):
как кликнуть на все по порядку пункты в диологе
тупо все по порядку писать sampSendDialogResponse(3107, 1, 0, text) не работает
if dialogId == 3107 then
sampSendDialogResponse(3107, 1, 1, text)
sampSendDialogResponse(3107, 1, 2, text)
sampSendDialogResponse(3107, 1, 3, text)
end
так не работает

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

sep · 24 Мар 2024

удалите пожалуста все лишнее нужны только ники времене надо

код:

require "lib.moonloader"
local sf = require 'sampfuncs'
local encoding = require 'encoding'
local sampev = require 'lib.samp.events'

site = 'https://pastebin.com/raw/11111111'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end -- Если сф и самп не знагружены - возращаемся обратно
    while not isSampAvailable() do wait(100) end -- Если самп не доступен - ждем 100 ms
    local bool, users = getTableUsersByUrl(site)
    local _, myid = sampGetPlayerIdByCharHandle(playerPed) -- Узнаём свой ид.
    if not isAvailableUser(users, sampGetPlayerNickname(myid)) then -- Если срок уже прошёл или в списке нету моего ника, то..
        sampAddChatMessage("КУ", 0x00ff00)
        thisScript():unload() -- Выгружаем скрипт.
    end       
-- место под команды

     while true do
      wait(0)

--место под постоянно выполнающие "скрипты" типо бидерови тд
      


function getTableUsersByUrl(url)
    local n_file, bool, users = os.getenv('TEMP')..os.time(), false, {}
    downloadUrlToFile(url, n_file, function(id, status)
        if status == 6 then bool = true end
    end)
    while not doesFileExist(n_file) do wait(0) end
    if bool then
        local file = io.open(n_file, 'r')
        for w in file:lines() do
            local n, d = w:match('(.*): (.*)')
            users[#users+1] = { name = n, date = d }
        end
        file:close()
        os.remove(n_file)
    end
    return bool, users
end

function isAvailableUser(users, name)
    for i, k in pairs(users) do
        if k.name == name then
            local d, m, y = k.date:match('(%d+)%.(%d+)%.(%d+)')
            local time = {
                day = tonumber(d),
                isdst = true,
                wday = 0,
                yday = 0,
                year = tonumber(y),
                month = tonumber(m),
                hour = 0
            }
            if os.time(time) >= os.time() then return true end
        end
    end
    return false
end

chapo написал(а):
Ну блять ясен хуй что не работает, у тебч же после первого ответа диалог закрывается

кинь код как сделать

Rice. · 24 Мар 2024

kultizdat. написал(а):
sampSendDialogResponse не корректно работает на аризоне, а если в хуке диалога сделать return false, то не будет работать инвентарь..

покажи код

kultizdat. · 24 Мар 2024

Rice. написал(а):
покажи код

Код:

function sampev.onShowDialog(dialogId, style, title, button1, button2, text)
    sampAddChatMessage("ID DIALOG - "..dialogId.." Заголовок Диалога - ".. title, -1)
    if title:find("Основная статистика")  then
        if show_stats_info == true then
            player_auth_date = text:match("%{FFFFFF%}Авторизация на сервере:    %{B83434%}(%d+:%d+%s%d+.%d+.%d+)")
            player_level = text:match("%{FFFFFF%}Уровень: %{B83434%}%[(%d+)%] ")
            player_exp_level = text:match("%{FFFFFF%}Уважение: %{B83434%}%[(%d+/%d+)%] ")
            player_money_on_hand= text:match("{FFFFFF}Наличные деньги %(SA%$%): {B83434}%[%$(%d+)%]")
            player_money_on_bank = text:match("{FFFFFF}Деньги в банке: {B83434}%[%$(%d+)%]")
            player_money_on_deposite = text:match("{FFFFFF}Деньги на депозите: {B83434}%[%$(%d+)%]")
            player_all_money = player_money_on_hand + player_money_on_bank + player_money_on_deposite
       
            lua_thread.create(function()
            wait(1000)
            sendTelegramNotification("Авторизация - ".. player_auth_date .."\n"
            .."Уровень игрока - "..tonumber(player_level).."\n"
            .."Респекты - "..player_exp_level.."\n"
            .."На руках $ - "..separator(player_money_on_hand).."\n"
            .."В банке $ - "..separator(player_money_on_bank).."\n"
            .."На депозите $ - "..separator(player_money_on_deposite).."\n"
            .."Общие деньги - "..separator(player_all_money))
            end)
        end
        return false
    end 
end

После того, как приходит диалог, инвентарь открывается, но по нему нельзя нажать..

sep · 25 Мар 2024

1) как сделать "визуальный" пикап если его взять то сработает команда
2) как сделать чтобы можно написать в файле ники и у кого есть доступ у того скрипт работал ? (файл на гигхапе или подобном сервисе)
плиз готовые коды есть ?

Vintik · 25 Мар 2024

Бульдозер написал(а):
Итак, добрый день, дорогие программисты и читатели данной темы.
Смотрел видео thechampguess, ютубер, который учит программироваю и наткнулся на видео, где у меня почему то код не работает. Облазил уже все форумы, пытался сам у него спросить, сам что-то исправлял, но по итогу нечего не вышло.
В IMGUI есть функция. Imgui.Hotkey(), которая создаёт меню где можно выбрать определённую клавишу и забиндить её, но у меня всё биндится, вроде всё работает, но по итогу функция для этой клавиши не работает.

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

А что в ini файл записывается?

sep написал(а):
1) как сделать "визуальный" пикап если его взять то сработает команда

Эмулировать RPC от сервера «Создать пикапа» (ID этого RPC — 95).
Параметры: int iPickupID, int iModelID, int iSpawnType, float x, float y, float z.
ID пикапа выбираешь любой, какой тебе понравится, от 0 до 1024 (вроде бы).
ID моделей для пикапов указаны здесь.
Типы создания пикапов указаны здесь.

Функция создания пикапа:

function CreatePickup(id, model, type, x, y, z)
    bs = raknetNewBitStream()
    raknetBitStreamWriteInt32(bs, id)
    raknetBitStreamWriteInt32(bs, model)
    raknetBitStreamWriteInt32(bs, type)
    raknetBitStreamWriteFloat(bs, x)
    raknetBitStreamWriteFloat(bs, y)
    raknetBitStreamWriteFloat(bs, z)
    raknetEmulRpcReceiveBitStream(95, bs)
    raknetDeleteBitStream(bs)
end

А чтобы срабатывала команда при взятии пикапа нужно использовать SAMP.Lua, а конкретно:
OUTCOMING_RPCS[RPC.PICKEDUPPICKUP] = {'onSendPickedUpPickup', {pickupId = 'int32'}}
То есть в коде это будет выглядеть вот так:

Функция проверки на взятие пикапа:

local ev = require 'samp.events'

function ev.onSendPickedUpPickup(pickupId)
    if pickupId == 777 then -- тут твой id, который ты придумаешь при создании
        -- тут что ты хочешь сделать при взятии пикапа
        return false -- серверу информацию отправлять не будем, т.к. пикап визуальный
    end
    return true
end

sep написал(а):
2) как сделать чтобы можно написать в файле ники и у кого есть доступ у того скрипт работал ? (файл на гигхапе или подобном сервисе)
плиз готовые коды есть ?

Проверять ники на Github с помощью библиотеки lua-requests.
Если ник не совпадает — выходить из скрипта.
Но тогда надо компилировать, чтобы хоть как-то усложнить процесс удаления этой проверки.

sep · 25 Мар 2024

Vintik написал(а):
Проверять ники на Github с помощью библиотеки lua-requests.
Если ник не совпадает — выходить из скрипта.
Но тогда надо компилировать, чтобы хоть как-то усложнить процесс удаления этой проверки.

готовый код есть у когото ?
или как сократить этот до миниума (время действия можно удалить можно сократить код )

код:

require "lib.moonloader"
local sf = require 'sampfuncs'
local encoding = require 'encoding'
local sampev = require 'lib.samp.events'

site = 'https://pastebin.com/raw/ge111'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end -- Если сф и самп не знагружены - возращаемся обратно
    while not isSampAvailable() do wait(100) end -- Если самп не доступен - ждем 100 ms
    local bool, users = getTableUsersByUrl(site)
    local _, myid = sampGetPlayerIdByCharHandle(playerPed) -- Узнаём свой ид.
    if not isAvailableUser(users, sampGetPlayerNickname(myid)) then -- Если срок уже прошёл или в списке нету моего ника, то..
        sampAddChatMessage("КУ", 0x00ff00)
        thisScript():unload() -- Выгружаем скрипт.
    end       
-- место под команды
sampRegisterChatCommand('mmm', function(param) sampSendChat('/style') end)
     while true do
      wait(0)

--место под постоянно выполнающие "скрипты" типо бидерови тд
      
if isKeyDown(VK_MENU) and isKeyJustPressed(VK_3) then sampSendChat("/mn") end     
     end
end

function getTableUsersByUrl(url)
    local n_file, bool, users = os.getenv('TEMP')..os.time(), false, {}
    downloadUrlToFile(url, n_file, function(id, status)
        if status == 6 then bool = true end
    end)
    while not doesFileExist(n_file) do wait(0) end
    if bool then
        local file = io.open(n_file, 'r')
        for w in file:lines() do
            local n, d = w:match('(.*): (.*)')
            users[#users+1] = { name = n, date = d }
        end
        file:close()
        os.remove(n_file)
    end
    return bool, users
end

function isAvailableUser(users, name)
    for i, k in pairs(users) do
        if k.name == name then
            local d, m, y = k.date:match('(%d+)%.(%d+)%.(%d+)')
            local time = {
                day = tonumber(d),
                isdst = true,
                wday = 0,
                yday = 0,
                year = tonumber(y),
                month = tonumber(m),
                hour = 0
            }
            if os.time(time) >= os.time() then return true end
        end
    end
    return false
end

Vintik · 25 Мар 2024

sep написал(а):

готовый код есть у когото ?
или как сократить этот до миниума (время действия можно удалить можно сократить код )

код:

require "lib.moonloader"
local sf = require 'sampfuncs'
local encoding = require 'encoding'
local sampev = require 'lib.samp.events'

site = 'https://pastebin.com/raw/ge111'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end -- Если сф и самп не знагружены - возращаемся обратно
    while not isSampAvailable() do wait(100) end -- Если самп не доступен - ждем 100 ms
    local bool, users = getTableUsersByUrl(site)
    local _, myid = sampGetPlayerIdByCharHandle(playerPed) -- Узнаём свой ид.
    if not isAvailableUser(users, sampGetPlayerNickname(myid)) then -- Если срок уже прошёл или в списке нету моего ника, то..
        sampAddChatMessage("КУ", 0x00ff00)
        thisScript():unload() -- Выгружаем скрипт.
    end      
-- место под команды
sampRegisterChatCommand('mmm', function(param) sampSendChat('/style') end)
     while true do
      wait(0)

--место под постоянно выполнающие "скрипты" типо бидерови тд
     
if isKeyDown(VK_MENU) and isKeyJustPressed(VK_3) then sampSendChat("/mn") end    
     end
end

function getTableUsersByUrl(url)
    local n_file, bool, users = os.getenv('TEMP')..os.time(), false, {}
    downloadUrlToFile(url, n_file, function(id, status)
        if status == 6 then bool = true end
    end)
    while not doesFileExist(n_file) do wait(0) end
    if bool then
        local file = io.open(n_file, 'r')
        for w in file:lines() do
            local n, d = w:match('(.*): (.*)')
            users[#users+1] = { name = n, date = d }
        end
        file:close()
        os.remove(n_file)
    end
    return bool, users
end

function isAvailableUser(users, name)
    for i, k in pairs(users) do
        if k.name == name then
            local d, m, y = k.date:match('(%d+)%.(%d+)%.(%d+)')
            local time = {
                day = tonumber(d),
                isdst = true,
                wday = 0,
                yday = 0,
                year = tonumber(y),
                month = tonumber(m),
                hour = 0
            }
            if os.time(time) >= os.time() then return true end
        end
    end
    return false
end

Оно не работает?

sakuta · 25 Мар 2024

sep написал(а):

готовый код есть у когото ?
или как сократить этот до миниума (время действия можно удалить можно сократить код )

код:

require "lib.moonloader"
local sf = require 'sampfuncs'
local encoding = require 'encoding'
local sampev = require 'lib.samp.events'

site = 'https://pastebin.com/raw/ge111'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end -- Если сф и самп не знагружены - возращаемся обратно
    while not isSampAvailable() do wait(100) end -- Если самп не доступен - ждем 100 ms
    local bool, users = getTableUsersByUrl(site)
    local _, myid = sampGetPlayerIdByCharHandle(playerPed) -- Узнаём свой ид.
    if not isAvailableUser(users, sampGetPlayerNickname(myid)) then -- Если срок уже прошёл или в списке нету моего ника, то..
        sampAddChatMessage("КУ", 0x00ff00)
        thisScript():unload() -- Выгружаем скрипт.
    end    
-- место под команды
sampRegisterChatCommand('mmm', function(param) sampSendChat('/style') end)
     while true do
      wait(0)

--место под постоянно выполнающие "скрипты" типо бидерови тд
   
if isKeyDown(VK_MENU) and isKeyJustPressed(VK_3) then sampSendChat("/mn") end  
     end
end

function getTableUsersByUrl(url)
    local n_file, bool, users = os.getenv('TEMP')..os.time(), false, {}
    downloadUrlToFile(url, n_file, function(id, status)
        if status == 6 then bool = true end
    end)
    while not doesFileExist(n_file) do wait(0) end
    if bool then
        local file = io.open(n_file, 'r')
        for w in file:lines() do
            local n, d = w:match('(.*): (.*)')
            users[#users+1] = { name = n, date = d }
        end
        file:close()
        os.remove(n_file)
    end
    return bool, users
end

function isAvailableUser(users, name)
    for i, k in pairs(users) do
        if k.name == name then
            local d, m, y = k.date:match('(%d+)%.(%d+)%.(%d+)')
            local time = {
                day = tonumber(d),
                isdst = true,
                wday = 0,
                yday = 0,
                year = tonumber(y),
                month = tonumber(m),
                hour = 0
            }
            if os.time(time) >= os.time() then return true end
        end
    end
    return false
end

сам пользуюсь этой привязкой, сократить - я сокрачу, на гитхаб думаю интуитивно можно догадаться как доделать.

Держи

привязка:

requests = require 'requests'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then
        return
    end

    while not isSampAvailable() do
        wait(100)
    end

    while not sampIsLocalPlayerSpawned() do
        wait(100)
    end

-- ЭТО ПРИВЯЗКА --

    local request = requests.get('ССЫЛКА НА ПАСТБИН НУ ИЛИ ЧТО ТО ТАКОЕ')
    local nick = sampGetPlayerNickname(select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)))
    local function res()
        for n in request.text:gmatch('[^\r\n]+') do
            if nick:find(n) then return true end
        end
        return false
    end
    if not res() then sampAddChatMessage(' текст - который будет высвечиваться в чате при ненахождении ника в таблице ') error(' текст - который будет выдавать в сампфунксе при ненаходе ника ') end

-- ЭТО ПРИВЯЗКА --

sep · 25 Мар 2024

Vintik написал(а):
Оно не работает?

работает только слижной большой

sakuta написал(а):

сам пользуюсь этой привязкой, сократить - я сокрачу, на гитхаб думаю интуитивно можно догадаться как доделать.

Держи

привязка:

requests = require 'requests'

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then
        return
    end

    while not isSampAvailable() do
        wait(100)
    end

    while not sampIsLocalPlayerSpawned() do
        wait(100)
    end

-- ЭТО ПРИВЯЗКА --

    local request = requests.get('ССЫЛКА НА ПАСТБИН НУ ИЛИ ЧТО ТО ТАКОЕ')
    local nick = sampGetPlayerNickname(select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)))
    local function res()
        for n in request.text:gmatch('[^\r\n]+') do
            if nick:find(n) then return true end
        end
        return false
    end
    if not res() then sampAddChatMessage(' текст - который будет высвечиваться в чате при ненахождении ника в таблице ') error(' текст - который будет выдавать в сампфунксе при ненаходе ника ') end

-- ЭТО ПРИВЯЗКА --

как должен выгредеть ники в строчку или в столбец

https://pastebin.com/raw/ddieM2y5

Kaktyc007 · 25 Мар 2024

Скинули lua скрипт, типа рабочий. Открываю, а там непонятные символы, пробовал менять кодировку, но ничего не меняется. Что необходимо сделать, чтобы посмотреть на код скрипта и внести в него корректировки?

ChromiusJ · 25 Мар 2024

Kaktyc007 написал(а):
Скинули lua скрипт, типа рабочий. Открываю, а там непонятные символы, пробовал менять кодировку, но ничего не меняется. Что необходимо сделать, чтобы посмотреть на код скрипта и внести в него корректировки? Посмотреть вложение 235507

может скрипт скомпилирован просто?скинь сюда или в помощь по изменению скриптов

Vintik · 25 Мар 2024

Kaktyc007 написал(а):
Скинули lua скрипт, типа рабочий. Открываю, а там непонятные символы, пробовал менять кодировку, но ничего не меняется. Что необходимо сделать, чтобы посмотреть на код скрипта и внести в него корректировки? Посмотреть вложение 235507

Декомпилмровать

Декомпиляция скриптов

Общая тема для просьб о помощи в декомпиляциии и декриптованиии скриптов, плагинов и приложений. Запрещено просить о декомпиляции/декриптовании софта, выставленного на продажу на нашем сайте. Рекомендации: Сначала воспользуйтесь поиском по теме и по форуму, возможно его в декомпилированном...

www.blast.hk

Kaktyc007 · 25 Мар 2024

ChromiusJ написал(а):
может скрипт скомпилирован просто?скинь сюда или в помощь по изменению скриптов

Vintik написал(а):
Декомпилмровать

Декомпиляция скриптов

Общая тема для просьб о помощи в декомпиляциии и декриптованиии скриптов, плагинов и приложений. Запрещено просить о декомпиляции/декриптовании софта, выставленного на продажу на нашем сайте. Рекомендации: Сначала воспользуйтесь поиском по теме и по форуму, возможно его в декомпилированном...

www.blast.hk

Скрипт lua, а не luac же. Все равно надо декомпилировать?
Декомпилятор LuaJIT выдает ошибку и файлики не создает.

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

why ega · 25 Мар 2024

Kaktyc007 написал(а):
Скрипт lua, а не luac же. Все равно надо декомпилировать?
Декомпилятор LuaJIT выдает ошибку и файлики не создает.
Посмотреть вложение 235508

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

скрипт не просто скомпилирован, но также защищен чем-либо, сам ты вряд ли с этим справишься

Поиск

Поиск

Вопросы по Lua скриптингу

chapo

🫡 В армии с 17.10.2023. В ЛС НЕ ОТВЕЧАЮ

sep

Известный

Rice.

https://t.me/riceoff

kultizdat.

Известный

sep

Известный

Vintik

Мечтатель

sep

Известный

Vintik

Мечтатель

sakuta

Участник

sep

Известный

Kaktyc007

Известный

ChromiusJ

x B x A x R x

Vintik

Мечтатель

Декомпиляция скриптов

Kaktyc007

Известный

Декомпиляция скриптов

why ega

РП игрок

Похожие темы