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

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

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

Нажмите для раскрытия...

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

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

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

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

Нажмите для раскрытия...

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

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

Нажмите для раскрытия...

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

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

www.blast.hk

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

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

Нажмите для раскрытия...

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

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

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

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

www.blast.hk

Нажмите для раскрытия...

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

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

Нажмите для раскрытия...

kultizdat. написал(а):

Подскажите аналог sampCloseCurrentDialogWithButton(int button) на monetloader?
sampSendDialogResponse не корректно работает на аризоне(если отправить в аргумент button значение 1, то диалог переключиться (в Аризоне это "предметы", а если поставить значение 0(закрыть), то диалог не закроется, а если в хуке диалога вернуть return false, то диалог не отобразится , но и не будет работать инвентарь..
Так же пробовал отправить в аргумент button отправить отрицательное значение и все бесполезно

Нажмите для раскрытия...

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

Почему у меня под чатом не отображается текст?

Нажмите для раскрытия...

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

А в чате отображаются?
Попробуй вместо render выводить в чат #list. Пишет количество строк или 0? Надо понять проблема в функции render или где-то еще

Нажмите для раскрытия...