Module:Sandbox/Aurelain/Cargo

Documentation for this module may be created at Module:Sandbox/Aurelain/Cargo/doc

local p = {}
local FACTION_ORDER = {
    human = 1,
    undead = 2,
    nature = 3,
    demon = 4,
    unfrozen = 5,
    dungeon = 6,
    neutral = 7,
}
local IDS_FOR_TRANSLATION = {
    -- faction names used in the Table Body
    'human',
    'undead',
    'nature',
    'demon',
    'unfrozen',
    'dungeon',
    'neutral', -- missing

    -- other texts used in the Table Header
    'unit', -- missing
    'faction',
    'tier', -- missing
    'cost', -- missing
    'hp',
    'offence',
    'defence',
    'damage',
    'initiative',
    'speed',
}
local FACTION_EN = {
    human = 'Temple',
    undead = 'Necropolis',
    nature = 'Grove',
    demon = 'Hive',
    unfrozen = 'Schism',
    dungeon = 'Dungeon',
    neutral = 'Neutral',
}

--------------------------------------------------------------------------------
-- Detects the current language from the URL
--------------------------------------------------------------------------------
local function getCurrentLang()
    local title = mw.title.getCurrentTitle()
    if title.isSubpage then
        if mw.language.isSupportedLanguage(title.subpageText) then
            return title.subpageText
        end
    end
    return 'en'
end

--------------------------------------------------------------------------------
-- Awards a number from 0 to 3 for a unit, based on how upgraded it is
--------------------------------------------------------------------------------
local function computeUpgradeRank(row)
    local base = (row['base'] and row['base'] ~= "") and 1 or 0
    local upgrade = (row['upgrade'] and row['upgrade'] ~= "") and 10 or 0
    local sum = base + upgrade
    if sum == 1 then
        return 3
    elseif sum == 10 then
        return 1
    elseif sum == 0 then
        return 0
    else
        return 2
    end
end

--------------------------------------------------------------------------------
-- Retrieves the data from Cargo
--------------------------------------------------------------------------------
local function query(lang)
    local tables = 'Unit, Translation'
    local fields = '' ..
        'Unit.id=id, ' ..
        'Unit.faction=faction, ' ..
        'Unit.tier=tier, ' ..
        'Unit.hp=hp, ' ..
        'Unit.offence=attack, ' ..
        'Unit.base_sid=base, ' ..
        'Unit.upgrade_sid=upgrade, ' ..
        'Translation.language=language, ' ..
        'Translation.name=transName'

    -- Get BOTH the English row AND the target language row
    local cargoArgs = {
        join = 'Unit.id = Translation.target_id',
        where = 'Translation.language = "en" OR Translation.language = "' .. lang .. '"',
        orderBy = 'Unit.id ASC',
        limit = 1000 -- Increased limit since each unit will return 2 rows
    }

    return mw.ext.cargo.query(tables, fields, cargoArgs)
end

--------------------------------------------------------------------------------
-- Scans the Cargo results and folds the EN and lang rows into a single row
--------------------------------------------------------------------------------
local function consolidateResults(results, lang)
    local units = {}
    for _, row in ipairs(results) do
        local id = row['id']

        -- If this is the first time seeing this id, set up its basic stats
        if not units[id] then
            units[id] = {
                id = row['id'],
                faction = row['faction'],
                tier = row['tier'],
                hp = row['hp'],
                offence = row['offence'],
                defence = row['defence'],
                damage_min = row['damage_min'],
                damage_max = row['damage_max'],
                initiative = row['initiative'],
                speed = row['speed'],
                nameEn = nil,
                nameX = nil,
                upgradeRank = computeUpgradeRank(row)
            }
        end

        -- Save the names based on which language row we are currently looping over
        if row['language'] == 'en' then
            units[id].nameEn = row['transName']
        end
        if row['language'] == lang then
            units[id].nameX = row['transName']
        end
    end

    -- Convert the Dictionary into an Array
    local unitsArray = {}
    for _, unitData in pairs(units) do
        table.insert(unitsArray, unitData)
    end

    return unitsArray
end

--------------------------------------------------------------------------------
-- Decides the order between two units, for sorting purposes.
--------------------------------------------------------------------------------
local function sortUnits(unitA, unitB)
    local rankA = FACTION_ORDER[unitA.faction] or 99
    local rankB = FACTION_ORDER[unitB.faction] or 99

    if rankA ~= rankB then
        return rankA < rankB
    end

    if unitA.tier ~= unitB.tier then
        return unitA.tier < unitB.tier
    end

    if unitA.upgradeRank ~= unitB.upgradeRank then
        return unitA.upgradeRank < unitB.upgradeRank
    end

    return unitA.hp < unitB.hp
end

--------------------------------------------------------------------------------
-- Retrieves the text for some specific ids from Cargo Translations.
--------------------------------------------------------------------------------
local function translateIds(ids, lang)
    -- Initialize
    local dictionary = {}
    for _, id in ipairs(ids) do
        dictionary[id] = '-'
    end

    -- Cargo
    local idListString = '"' .. table.concat(ids, '", "') .. '"'
    local tables = 'Translation'
    local fields = 'target_id, name'
    local cargoArgs = {
        where = 'target_id IN (' .. idListString .. ') AND language = "' .. lang .. '"',
        limit = 100
    }
    local results = mw.ext.cargo.query(tables, fields, cargoArgs)

    -- Update dictionary
    if results then
        for _, row in ipairs(results) do
            dictionary[row['target_id']] = row['name']
        end
    end
    return dictionary
end

--------------------------------------------------------------------------------
-- Displays a variable
--------------------------------------------------------------------------------
local function debug(dict)
    return "<pre>" .. mw.text.jsonEncode(dict, mw.text.JSON_PRETTY) .. "</pre>"
end

--------------------------------------------------------------------------------
-- Main public function
--------------------------------------------------------------------------------
function p.displayOverview()
    local lang = getCurrentLang()
    local suffix = lang ~= 'en' and '/' .. lang or ''
    local dictionary = translateIds(IDS_FOR_TRANSLATION, lang)
    local results = query(lang)
    local units = consolidateResults(results, lang)
    table.sort(units, sortUnits)

    -- Table
    local htmlTable = mw.html.create('table')
    htmlTable:addClass('wikitable sortable')

    -- Header
    local header = htmlTable:tag('tr')
    header:tag('th'):wikitext(dictionary['unit']):done()
    header:tag('th'):wikitext(dictionary['faction']):done()
    header:tag('th'):wikitext(dictionary['tier']):done()
    header:tag('th'):wikitext(dictionary['cost']):done()
    -- stats
    header:tag('th'):wikitext('[[File:Health Icon.png|24px|' .. dictionary['hp'] .. ']]'):done()
    header:tag('th'):wikitext('[[File:Icon_Stats_Attack.png|24px|' .. dictionary['offence'] .. ']]'):done()
    header:tag('th'):wikitext('[[File:Icon_Stats_Defence.png|24px|' .. dictionary['defence'] .. ']]'):done()
    header:tag('th'):wikitext('[[File:Icon_Stats_Damage.png|24px|' .. dictionary['damage'] .. ']]'):done()
    header:tag('th'):wikitext('[[File:Icon_Stats_Initiative.png|24px|' .. dictionary['initiative'] .. ']]'):done()
    header:tag('th'):wikitext('[[File:Icon_Stats_Speed.png|24px|' .. dictionary['speed'] .. ']]'):done()

    -- Body
    for _, u in ipairs(units) do
        local factionPage = FACTION_EN[u.faction] .. '_Units' .. suffix
        local tr = htmlTable:tag('tr')
        tr:tag('td'):wikitext('[[' .. u.nameEn .. suffix .. '|' .. u.nameX .. ']]'):done()
        tr:tag('td'):wikitext('[[' .. factionPage .. suffix .. '|' .. dictionary[u.faction] .. ']]'):done()
        tr:tag('td'):wikitext(u.tier):done()
        tr:tag('td'):wikitext(u.cost):done()
        -- stats
        tr:tag('td'):wikitext(u.hp):done()
        tr:tag('td'):wikitext(u.offence):done()
        tr:tag('td'):wikitext(u.defence):done()
        tr:tag('td'):wikitext(u.damage_min .. '-' .. u.damage_max):done()
        tr:tag('td'):wikitext(u.initiative):done()
        tr:tag('td'):wikitext(u.speed):done()
    end

    return debug(dictionary) .. tostring(htmlTable)
end

return p