Lua Arizona AutoLavka для переносной лавки через инвентарь

[pewpewpewpew]

Автоматическое выставление лавки через инвентарь / (AutoLavka).

Выставление происходит на отправке пакетов. Лавка будет выставляться в зависимости от мощности железа и скорости загрузки инвентаря. (добавил переменные для защиты от лагов, потери открытия инвентаря и старых потоков)!
Вечный цикл Y —> Использовать до тех пор, пока лавка не будет выставлена или пока вы вручную не выключите скрипт той же командой, которой его включили.
Скрипт работает с любой переносной лавкой. Протестировал на всех возможных вариантах.​

Использование:

• /avtolavka - выставление лавки. (повторное использование команды отключит выставление лавки)!

Зависимости:

• arizona-events
• SAMP.Lua

Установка:

• переместить в папку moonloader

 

[elyrin]

function sampev.onShowDialog(_, _, title)
    if not enabled or type(title) ~= 'string' then
        return
    end

    if not title:find('Лавка', 1, true) then
        return
    end

    stopAutomation()
    showMessage('Лавка успешно установлена.')
end

function sampev.onServerMessage(_, text)
    if not enabled or type(text) ~= 'string' then
        return
    end

    local alreadyInstalled =
        text:find('уже установлена лавка', 1, true)
        or text:find('уже установленна лавка', 1, true)

    if alreadyInstalled then
        stopAutomation()
    end
end

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

 

[Порожденный]

Из за чего это?

 

[kyrtion]

Посмотрел в samp.events и что он делает, если превысит байты или чужие типы:

-- // ./lib/samp/events.lua
INCOMING_RPCS[RPC.CLIENTMESSAGE] = {'onServerMessage', {color = 'int32'}, {text = 'string32'}}

-- // ./lib/samp/events/bitstream_io.lua
mod.string32 = {
    read = function(bs)
        local len = raknetBitStreamReadInt32(bs)
        if len <= 0 then return '' end
        return raknetBitStreamReadString(bs, len)
    end,
    write = function(bs, value)
        raknetBitStreamWriteInt32(bs, #value)
        raknetBitStreamWriteString(bs, value)
    end
}

-- ...

local function bitstream_io_interface(field)
    return setmetatable({}, {
        __index = function(t, index)
            return mod[index][field]
        end
    })
end

mod.bs_read = bitstream_io_interface('read')

-- // ./lib/samp/events/core.lua
local function read_data(bs, dataType)
    if type(dataType) ~= 'table' then
        return BitStreamIO[dataType].read(bs)
    else -- process nested structures
        local values = {}
        for _, it in ipairs(dataType) do
            local name, t = next(it)
            values[name] = read_data(bs, t)
        end
        return values
    end
end

-- ...

local function process_event(bs, callback, struct, ignorebits)
    local args = {}
    if bs ~= 0 then
        if ignorebits then
            raknetBitStreamIgnoreBits(bs, ignorebits)
        end
        if type(struct[2]) == 'function' then
            local r1, r2 = struct[2](bs) -- call custom reading function
            if type(callback) == 'table' and type(r1) == 'string' then
                callback = callback[r1]
                if callback then
                    args = r2
                else
                    return
                end
            else
                args = r1
            end
        else
            -- skip event name
            for i = 2, #struct do
                local _, t = next(struct[i]) -- type
                table.insert(args, read_data(bs, t))
            end
        end
    end
    local result = callback(unpack(args))
    if result == false then
        return false -- consume packet
    end
    if bs ~= 0 and type(result) == 'table' then
        raknetBitStreamSetWriteOffset(bs, ignorebits or 0)
        if type(struct[3]) == 'function' then
            struct[3](bs, result) -- call custom writing function
        else
            assert(#struct - 1 == #result)
            for i = 2, #struct do
                local _, t = next(struct[i]) -- type
                write_data(bs, t, result[i - 1])
            end
        end
    end
end

local function process_packet(id, bs, event_table, ignorebits)
    local entry = event_table[id]
    if entry ~= nil then
        local key = entry[1]
        local callback = nil
        if type(key) == 'table' then
            for i, name in ipairs(key) do
                if type(MODULE[name]) == 'function' then
                    if not callback then callback = {} end
                    callback[name] = MODULE[name]
                end
            end
        elseif type(MODULE[key]) == 'function' then
            callback = MODULE[key]
        end
        if callback then
            return process_event(bs, callback, entry, ignorebits)
        end
    end
end

local interface = MODULE.INTERFACE
local function samp_on_send_rpc(id, bitStream, priority, reliability, orderingChannel, shiftTs)
    return process_packet(id, bitStream, interface.OUTCOMING_RPCS)
end

local function samp_on_send_packet(id, bitStream, priority, reliability, orderingChannel)
    return process_packet(id, bitStream, interface.OUTCOMING_PACKETS, 8)
end

local function samp_on_receive_rpc(id, bitStream)
    return process_packet(id, bitStream, interface.INCOMING_RPCS)
end

local function samp_on_receive_packet(id, bitStream)
    return process_packet(id, bitStream, interface.INCOMING_PACKETS, 8)
end

addEventHandler('onSendRpc', samp_on_send_rpc)
addEventHandler('onSendPacket', samp_on_send_packet)
addEventHandler('onReceiveRpc', samp_on_receive_rpc)
addEventHandler('onReceivePacket', samp_on_receive_packet)

В дальнейшем можешь посмотреть в moonloader/lib/samp

Там я ничего не увидел чтобы поломался, только лишь том что я заметил между строка:

mod.string32 = {
    read = function(bs)
        local len = raknetBitStreamReadInt32(bs)
        if len <= 0 then return '' end
        return raknetBitStreamReadString(bs, len)
    end,
    write = function(bs, value)
        raknetBitStreamWriteInt32(bs, #value)
        raknetBitStreamWriteString(bs, value)
    end
}

-- // И
local function process_packet(id, bs, event_table, ignorebits)
    local entry = event_table[id]
    if entry ~= nil then -- // начинаю понимать если не существует готовые rpc/packet => ничего не будет 
      -- ...
    end
end

-- // А также

local function process_event(bs, callback, struct, ignorebits)
    local args = {}
    if bs ~= 0 then
      -- ...
    end
    local result = callback(unpack(args))
    if result == false then
        return false -- consume packet
    end
    if bs ~= 0 and type(result) == 'table' then
      -- ...
    end
end

Вроде нет подвоха. Если нет размер строка => вернется пустой но не nil
Вопрос том, зачем вызывать type на string? Такое чувство что ты тревожишь и никого не доверяешь :D

 

[pewpewpewpew]

Вопрос том, зачем вызывать type на string?

type ничего полезного не страхует и просто дублирует контракт функции

 

[Порожденный]

Из за чего это?
Посмотреть вложение 297352

Подскажите пожалуйста, лавка не ставится, в инве зависает скрипт