Модуль:ТранспортнаяСхема

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

local p = {}

-- Функция извлечения аргументов из прямого вызова и из шаблона
local function getArgs(frame)
    local args = {}
    if frame.getParent then
        local parent = frame:getParent()
        if parent and parent.args then
            for k, v in pairs(parent.args) do args[k] = v end
        end
    end
    if frame.args then
        for k, v in pairs(frame.args) do args[k] = v end
    end
    return args
end

-- Загрузка данных из data.json
local function loadData(args)
    local dataParam = args['данные'] or args[1]
    if not dataParam or dataParam == '' then
        error('Не указано имя базы данных или страница JSON (параметр 1 или |данные=)')
    end
    
    local dataPageTitle = dataParam
    if not mw.ustring.find(dataParam, ':') then
        dataPageTitle = 'Шаблон:Интерактивная схема ' .. dataParam .. '/data.json'
    end
    
    local success, jsonData = pcall(mw.loadJsonData, dataPageTitle)
    if success and jsonData then
        return jsonData
    end
    
    local titleObj = mw.title.new(dataPageTitle)
    if titleObj and titleObj.exists then
        local rawText = titleObj:getContent()
        if rawText and rawText ~= '' then
            rawText = mw.ustring.gsub(rawText, '<noinclude>.-</noinclude>', '')
            rawText = mw.ustring.gsub(rawText, '<!--.-?-->', '')
            rawText = mw.text.trim(rawText)
            
            local decodeSuccess, decodedData = pcall(mw.text.jsonDecode, rawText)
            if decodeSuccess and decodedData then
                return decodedData
            else
                error('Ошибка в синтаксисе JSON на странице [[' .. dataPageTitle .. ']]!')
            end
        end
    end
    
    error('Страница данных [[' .. dataPageTitle .. ']] не найдена.')
end

-- Генерация только интерактивной ImageMap карты
function p.map(frame)
    local args = getArgs(frame)
    local jsonData = loadData(args)
    
    local file = args['файл'] or args['изображение'] or jsonData.file or 'Схема_Муроморского_метрополитена.png'
    local width = args['ширина'] or jsonData.width or '850px'
    local alt = args['alt'] or args['название'] or jsonData.title or 'Схема скоростного транспорта'
    local defaultRadius = args['радиус'] or jsonData.defaultRadius or '16'
    
    local mapText = 'Файл:' .. file .. '|' .. width .. '|center|alt=' .. alt .. '\n'
    mapText = mapText .. '# Автоматически сгенерированная разметка станций\n'
    
    if jsonData.lines then
        for _, line in ipairs(jsonData.lines) do
            -- Зона названия / плашки линии (если задан box)
            if line.box and line.article then
                mapText = mapText .. 'rect ' .. line.box .. ' [[' .. line.article .. '|' .. (line.name or line.article) .. ']]\n'
            end
            
            -- Дополнительные произвольные полигоны линий (если есть)
            if line.shapes then
                for _, shape in ipairs(line.shapes) do
                    mapText = mapText .. shape .. '\n'
                end
            end
            
            -- Станции линии
            if line.stations then
                for _, st in ipairs(line.stations) do
                    if st.coords and st.article then
                        local r = st.radius or defaultRadius
                        mapText = mapText .. 'circle ' .. st.coords .. ' ' .. r .. ' [[' .. st.article .. '|' .. (st.name or st.article) .. ']]\n'
                    end
                end
            end
        end
    end
    
    -- Дополнительные объекты (вокзалы, аэропорты)
    local extras = {'Вокзалы', 'Ж/д станции', 'Терминалы', 'Аэропорты'}
    for _, key in ipairs(extras) do
        if jsonData[key] then
            for _, item in ipairs(jsonData[key]) do
                if item[1] and item[2] then
                    mapText = mapText .. 'circle ' .. item[2] .. ' ' .. defaultRadius .. ' ' .. item[1] .. '\n'
                end
            end
        end
    end
    
    mapText = mapText .. 'desc none\n'
    
    -- Обработка через встроенный парсер MediaWiki тега <imagemap>
    return frame:preprocess('{{#tag:imagemap|' .. mapText .. '}}')
end

return p