Модуль:Prototypes/Механика/Случайные события

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

local p = {}

local eventData = mw.loadData("Модуль:IanComradeBot/prototypes/StationEvent.json/data")
local cargoData = mw.loadData("Модуль:IanComradeBot/prototypes/cargo.json/data")

local function buildCellEvent(name, image, id)
    local cell = '<div style="text-align:center;">'
    cell = cell .. name .. "<br>"
    cell = cell .. "<span style='color:#adadad'>" .. id .. "</span><br>"
    cell = cell .. '[[File:' .. image .. '|64px]]'
    cell = cell .. '</div>'
    return cell
end

local function buildCharacteristicsList(stationEvent)
    local lines = {}
    local characteristics = {
        {"Вес", "Вес события в системе случайных событий (чем выше, тем чаще случается)", stationEvent.weight},
        {"Мин. игроков", "Минимальное количество игроков для начала события", stationEvent.minimumPlayers},
        {"Время старта", "Время с которого событие может начаться", stationEvent.earliestStart and (stationEvent.earliestStart .. " сек.")},
        {"Длительность", "Длительность события в секундах", stationEvent.duration and (stationEvent.duration .. " сек.")}
    }
    for _, char in ipairs(characteristics) do
        local value = char[3] or "нет"
        local tooltip = "{{AltTooltip|" .. char[1] .. "|" .. char[2] .. "}}"
        table.insert(lines, "- " .. tooltip .. ": " .. value)
    end
    return table.concat(lines, "<br>")
end

function p.eventStation(frame)
    local args = frame.args
    local searchId = args.id or ""
    local name = args.name or ""
    local image = args.image or ""
    local description = args.description or "Нет описания"
    local out = ""
    
    for _, event in ipairs(eventData) do
        if event.id == searchId then
            local cellEvent = buildCellEvent(name, image, searchId)
            local advert = args.advert or (event.StationEvent and event.StationEvent.startAnnouncement) or ""
            local characteristicsList = buildCharacteristicsList(event.StationEvent or {})

            out = out .. "|-\n"
            out = out .. "! " .. cellEvent .. "\n"
            if advert ~= "" then 
                if args.advert then
                	out = out .. "| '' " .. advert .. " ''\n"
                else
                	out = out .. "| '' {{#invoke:Ftl|main|translation|" .. advert .. "}} ''\n"
                end
            else
                out = out .. "| '' Происходит без объявления ''\n"
            end
            out = out .. "| " .. description .. "\n"
            out = out .. "| " .. characteristicsList .. "\n"
            out = out .. '|style="display:none;"|123'
            break
        end
    end

    return frame:preprocess(out)
end

function p.eventCargo(frame)
    local args = frame.args
    local searchId = args.id or ""
    local name = args.name or ""
    local image = args.image or ""
    local out = ""
    
    for _, event in ipairs(eventData) do
        if event.id == searchId then
            local cellEvent = buildCellEvent(name, image, searchId)
            local cargo = event.CargoGiftsRule or {}
            local sender = cargo.sender or "Нет отправителя"
            local cargoDescription = cargo.description or "Нет описания"
            local dest = cargo.dest or "Нет получателя"
            local advert = args.advert or "Поздравляем! {{#invoke:Ftl|main|translation|" .. sender .. "}} решили отправить {{#invoke:Ftl|main|translation|" .. cargoDescription .. "}} {{#invoke:Ftl|main|translation|" .. dest .. "}} станции. Всё прибудет со следующей партией груза."

            local giftsCell = ""
            if cargo.gifts then
                for giftId, giftValue in pairs(cargo.gifts) do
                    local productFound = nil
                    for _, cargoItem in ipairs(cargoData) do
                        if cargoItem.id == giftId then
                            productFound = cargoItem.product
                            break
                        end
                    end
                    if productFound then
                        giftsCell = giftsCell .. "- [[Таблица грузов#{{#invoke:Entity Lookup|getname|" .. productFound .. "}}|{{#invoke:Entity Lookup|getname|" .. productFound .. "}}]] x" .. giftValue .. "<br>"
                    else
                        giftsCell = giftsCell .. "Ошибка: id продукта не найден."
                    end
                end
            else
                giftsCell = "Нет подарков"
            end

            local characteristicsList = buildCharacteristicsList(event.StationEvent or {})
            out = out .. "|-\n"
            out = out .. "! " .. cellEvent .. "\n"
            out = out .. "| '' " .. advert .. " ''\n"
            out = out .. "| " .. giftsCell .. "\n"
            out = out .. "| " .. characteristicsList
            break
        end
    end

    return frame:preprocess(out)
end

return p