Модуль:Prototypes/Объект/Торгомат

Для документации этого модуля может быть создана страница Модуль:Prototypes/Объект/Торгомат/doc

local p = {}

-- Загрузка данных
local function loadData(filePath)
    local page = mw.title.new(filePath)
    local content = page:getContent()
    return content and mw.text.jsonDecode(content) or nil
end

-- Поиск данных по ID
local function findDataById(data, id)
    if not data then return nil end
    for _, item in ipairs(data) do
        if item.id == id then
            return item
        end
    end
    return nil
end

-- Получение инвентаря автомата
local function getInventoryOutput(id)
    local vendingMachines = loadData("User:IanComradeBot/prototypes/vending machines.json")
    local inventories = loadData("User:IanComradeBot/prototypes/vending machines/inventories.json")

    -- Поиск автомата по ID
    local vendingMachine = findDataById(vendingMachines, id)
    if not vendingMachine then return "" end

    -- Получение инвентаря автомата
    local inventoryId = vendingMachine.VendingMachine and vendingMachine.VendingMachine.pack
    if not inventoryId then return "" end

    local inventory = findDataById(inventories, inventoryId)
    if not inventory then return "" end

    -- Формирование вывода 
    local result = "== Содержимое автомата ==\n"

    -- Содержания автоматов основное
    if inventory.startingInventory then
        result = result .. "== Инвентарь ==\n"
        for itemId, count in pairs(inventory.startingInventory) do
            result = result .. "* " .. itemId .. " — " .. count .. "\n"
        end
    end

    -- Содержания автоматов после провода
    if inventory.contrabandInventory then
        result = result .. "== Провод ==\n"
        for itemId, count in pairs(inventory.contrabandInventory) do
            result = result .. "* " .. itemId .. " — " .. count .. "\n"
        end
    end

    -- Содержания автоматов после EMAG
    if inventory.emaggedInventory then
        result = result .. "== Эмаг ==\n"
        for itemId, count in pairs(inventory.emaggedInventory) do
            result = result .. "* " .. itemId .. " — " .. count .. "\n"
        end
    end

    return result
end

-- Получение информации о пополнителе автомата
local function getRestockOutput(id)
    local vendingMachines = loadData("User:IanComradeBot/prototypes/vending machines.json")
    local restockData = loadData("User:IanComradeBot/prototypes/vending machines/restock.json")

    -- Поиск автомата по ID
    local vendingMachine = findDataById(vendingMachines, id)
    if not vendingMachine then return "" end

    -- Получение ID пополнителя
    local packId = vendingMachine.VendingMachine and vendingMachine.VendingMachine.pack
    if not packId then return "" end

    for _, restock in ipairs(restockData) do
        if restock.canRestock and table.concat(restock.canRestock):find(packId) then
            return "== Пополнитель ==\n* ID пополнителя: " .. restock.id
        end
    end

    return ""
end

-- Получение данных о доступах
local function getAccessOutput(id)
    local vendingMachines = loadData("User:IanComradeBot/prototypes/vending machines.json")
    
    -- Поиск автомата по ID
    local vendingMachine = findDataById(vendingMachines, id)

    -- Получение доступа из данных автомата
    local access = vendingMachine.AccessReader and vendingMachine.AccessReader.access

    if not access then
        return "Доступ не требуется"
    end

    -- Формируем строку для вызова шаблона
    local templateCall = "{{#invoke:Prototypes/Механика/Доступ|parse|" .. access .. "}}"
    
    -- Обрабатываем шаблон и возвращаем результат
    return mw.getCurrentFrame():preprocess(templateCall)
end

-- Основная функция модуля
function p.main(frame)
    local id = frame.args.id
    if not id then return "" end

    -- Определение действия на основе ID
    if frame.args.mode == "inventory" then
        return getInventoryOutput(id)
    elseif frame.args.mode == "restock" then
        return getRestockOutput(id)
    elseif frame.args.mode == "access" then
        return getAccessOutput(id)
    else
        return ""
    end
end

return p