Module:KanmusuModule

Documentation for this module may be created at Module:KanmusuModule/doc

local shipmodule = {}
local shipdb = require("Module:ShipDatabase")
shipmodule = shipdb.KanmusuData

function shipmodule.KanmusuInfo(frame) -- Kanmusu Info Template
    local shipNum = frame.args[1]
    local shipInfo = assert(shipmodule[shipNum], "This KanMusu ID doesn't contains any data")

    local CardImg = '<div style="text-align: center;">[[File:KanMusu' .. shipNum .. 'Card.png|' .. shipmodule[shipNum]["name"][3] .. 'Card]]</div>'
    local CardDmgImg = '<div style="text-align: center;">[[File:KanMusu' .. shipNum .. 'CardDmg.png|' .. shipmodule[shipNum]["name"][3] .. 'Damaged Card]]</div>'
    local BannerImg = '<div style="text-align: center; width: 100%;">[[File:KanMusu' .. shipNum .. 'Banner.png|' .. shipmodule[shipNum]["name"][3] .. 'Banner|class=imageCenter]]</div>'
    local BannerDmgImg = '<div style="text-align: center; width: 100%;">[[File:KanMusu' .. shipNum .. 'BannerDmg.png|' .. shipmodule[shipNum]["name"][3] .. 'Damaged Banner|class=imageCenter]]</div>'

    local Cards = '<td rowspan="10" style="text-align: center;">' .. frame:extensionTag('slideshow', CardImg .. CardDmgImg, {sequence = 'forward', transition = 'fade', refresh = '5000'}) .. '</td>'
    local Banners = '<td colspan="3" style="text-align: center;">' .. frame:extensionTag('slideshow', BannerImg .. BannerDmgImg, {sequence = 'forward', transition = 'fade', refresh = '5000'}) .. '</td>'

    local row1 = '<tr>' .. Cards .. '<th style="text-align: center;">' .. shipNum .. '</th>' .. Banners .. '</tr>'
    local JaName = '<ruby lang="ja" xml:lang="ja"><rb>' .. shipmodule[shipNum]["name"][1] .. '</rb><rp> (</rp><rt>' .. shipmodule[shipNum]["name"][2] .. '</rt><rp>) </rp></ruby>'

    local row2 = '<tr><th colspan="2">' .. JaName .. '</th><th colspan="2">' .. shipmodule[shipNum]["name"][3] .. '</th></tr>'
    local row3 = '<tr><td colspan="4" style="text-align: center;">' .. shipmodule[shipNum]["class"] .. shipmodule[shipNum]["type"] .. '</td></tr>'
    local row4 = '<tr><td colspan="4"><hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0,0,0,0), rgba(0,0,0,0.75), rgba(0,0,0,0));" /></td></tr>'

    local statLabel = '<th style="width: 65px; {{border-radius|12px 4px 4px 12px}} padding-left: 5px; padding-right: 5px; background-color: #efe6d7; color: #a3965c; text-align: right; vertical-align: baseline;">'
    local statBox = '<td style="{{border-radius|4px 12px 12px 4px}} padding-left: 5px; padding-right: 5px; border: 1px solid #a3965c; text-align: left; vertical-align: baseline;">'

    local HPinfo = statLabel .. 'HP [[File:IcoHP.png|HP]]</th>' .. statBox .. shipmodule[shipNum]["hp"] .. '</td>'
    local FPinfo = statLabel .. 'ATK [[File:IcoAtk.png|Firepower]]</th>' .. statBox .. shipmodule[shipNum]["fp"][1] .. '→' .. shipmodule[shipNum]["fp"][2] .. '</td>'

    local row5 = '<tr>' .. HPinfo .. FPinfo .. '</tr>'

    local Armorinfo = statLabel .. 'DEF [[File:IcoArmor.png|Armor]]</th>' .. statBox .. shipmodule[shipNum]["armor"][1] .. '→' .. shipmodule[shipNum]["armor"][2] .. '</td>'
    local Torpedoinfo = statLabel .. 'TORP [[File:IcoTorpedo.png|Torpedo]]</th>' .. statBox
    if shipmodule[shipNum]["torpedo"] == 0 then
        Torpedoinfo = Torpedoinfo .. shipmodule[shipNum]["torpedo"]
    else
        Torpedoinfo = Torpedoinfo .. shipmodule[shipNum]["torpedo"][1] .. '→' .. shipmodule[shipNum]["torpedo"][2]
    end

    local row6 = '<tr>' .. Armorinfo .. Torpedoinfo .. '</tr>'

    local Evasioninfo = statLabel .. 'EVA [[File:IcoEvasion.png|Evasion]]</th>' .. statBox .. shipmodule[shipNum]["evasion"][1] .. '→' .. shipmodule[shipNum]["evasion"][2] .. '</td>'
    local AAinfo = statLabel .. 'AA [[File:IcoAA.png|Anti-Air]]</th>' .. statBox
    if shipmodule[shipNum]["aa"] == 0 then
        AAinfo = AAinfo .. shipmodule[shipNum]["aa"]
    else
        AAinfo = AAinfo .. shipmodule[shipNum]["aa"][1] .. '→' .. shipmodule[shipNum]["aa"][2]
    end

    local row7 = '<tr>' .. Evasioninfo .. AAinfo .. '</tr>'

    local aircraftTotal = 0
    if shipmodule[shipNum]["aircraft"] ~= "" then
    	local aircraftslot = {0, 0, 0, 0}
        for i = 1, 4, 1 do
            if shipmodule[shipNum]["aircraft"][i] ~= nil then
            	aircraftslot[i] = shipmodule[shipNum]["aircraft"][i]
        	else
      	        aircraftslot[i] = 0
            end
        end
        aircraftTotal = aircraftslot[1] + aircraftslot[2] + aircraftslot[3] + aircraftslot[4]
    else
        aircraftTotal = 0
    end
    local Planeinfo = statLabel .. 'PLA [[File:IcoAircraft.png|Aircraft]]</th>' .. statBox .. aircraftTotal .. '</td>'
    local ASWinfo = statLabel .. 'ASW [[File:IcoASW.png|Anti-Submarine Warfare]]</th>' .. statBox
    if shipmodule[shipNum]["asw"] == 0 then
        ASWinfo = ASWinfo .. shipmodule[shipNum]["asw"]
    else
        ASWinfo = ASWinfo .. shipmodule[shipNum]["asw"][1] .. '→' .. shipmodule[shipNum]["asw"][2]
    end

    local row8 = '<tr>' .. Planeinfo .. ASWinfo .. '</tr>'

    local Speedinfo = statLabel .. 'SPD [[File:IcoSpeed.png|Speed]]</th>' .. statBox .. shipmodule[shipNum]["spd"] .. '</td>'
    local LOSinfo = statLabel .. 'LOS [[File:IcoLOS.png|Line of Sight]]</th>' .. statBox .. shipmodule[shipNum]["los"][1] .. '→' .. shipmodule[shipNum]["los"][2] .. '</td>'

    local row9 = '<tr>' .. Speedinfo .. LOSinfo .. '</tr>'

    local Rangeinfo = statLabel .. 'RGE [[File:IcoRange.png|Range]]</th>' .. statBox .. shipmodule[shipNum]["range"] .. '</td>'
    local Luckinfo = statLabel .. 'LUK [[File:IcoLuck.png|Luck]]</th>' .. statBox .. shipmodule[shipNum]["luck"][1] .. '→' .. shipmodule[shipNum]["luck"][2] .. '</td>'

    local row10 = '<tr>' .. Rangeinfo .. Luckinfo .. '</tr>'
    local StatTable = '<table>' .. row1 .. row2 .. row3 .. row4 .. row5 .. row6 .. row7 .. row8 .. row9 .. row10 .. '</table>'

    -- Upper part complete

    local RscHeader = '<th style="white-space: nowrap; {{border-radius|12px 4px 4px 12px}} background-color: #3baef5; color: #ffffff; padding-left: 5px; padding-right: 5px; text-align: right;">'
    local RscData = '<td style="white-space: nowrap; text-align: center;">'
    local RscData2 = '<td colspan="3" style="white-space: nowrap; text-align: center;">'

    local constrheader = ''
    local constrdata = ''

    if shipmodule[shipNum]["remodellv"] ~= nil and shipmodule[shipNum]["remodellv"] ~= "" then
        constrheader = 'Remodel Level'
        constrdata = shipmodule[shipNum]["remodellv"]
    else
        constrheader = 'Build Time'
        if shipmodule[shipNum]["buildtime"] == nil or shipmodule[shipNum]["buildtime"] == "" then
            constrdata = 'Not Buildable'
        else
            constrdata = shipmodule[shipNum]["buildtime"]
        end
    end

    local remodelsteel = '[[File:IcoSteel.png|18px|Steel]]'
    local remodelammo = '[[File:IcoAmmo.png|18px|Ammo]]'
    local remodelinfo = ''
    if shipmodule[shipNum]["remodelreq"] ~= "" then
        remodelsteel = remodelsteel .. ' ' .. shipmodule[shipNum]["remodelreq"][1]
        remodelammo = remodelammo .. ' ' .. shipmodule[shipNum]["remodelreq"][2]
        remodelinfo = remodelsteel .. ' ' .. remodelammo
    end

    local row11 = ''
    if constrheader == 'Build Time' then
        row11 = '<tr>' .. RscHeader .. constrheader .. '</th>' .. RscData .. constrdata .. '</td><td colspan="2">&nbsp;</td></tr>'
    else
        row11 = '<tr>' .. RscHeader .. constrheader .. '</th>' .. RscData .. constrdata .. '</td>' .. RscHeader .. 'Remodel Req</th>' .. RscData .. remodelinfo .. '</td></tr>'
    end

    local consfuel = '[[File:IcoFuel.png|18px|Fuel]] ' .. shipmodule[shipNum]["consumption"][1]
    local consammo = '[[File:IcoAmmo.png|18px|Ammo]] ' .. shipmodule[shipNum]["consumption"][2]

    local row12 = '<tr>' .. RscHeader .. 'Consumption</th>' .. RscData .. consfuel .. ' ' .. consammo .. '</td>'

    local scrapfuel = '[[File:IcoFuel.png|18px|Fuel]] ' .. shipmodule[shipNum]["dismantle"][1]
    local scrapammo = '[[File:IcoAmmo.png|18px|Ammo]] ' .. shipmodule[shipNum]["dismantle"][2]
    local scrapsteel = '[[File:IcoSteel.png|18px|Steel]] ' .. shipmodule[shipNum]["dismantle"][3]
    local scrapbauxite = '[[File:IcoBauxite.png|18px|Bauxite]] ' .. shipmodule[shipNum]["dismantle"][4]
    local scrapinfo = scrapfuel .. ' ' .. scrapammo .. ' ' .. scrapsteel .. ' ' .. scrapbauxite
    local row12 = row12 .. RscHeader .. 'Dismantle</th>' .. RscData .. scrapinfo .. '</td></tr>'

    local modFP = '[[File:IcoAtkRemodel.png|25px|Firepower]] ' .. shipmodule[shipNum]["modernization"][1]
    local modTorp = '[[File:IcoTorpedoRemodel.png|25px|Torpedo]] ' .. shipmodule[shipNum]["modernization"][2]
    local modAA = '[[File:IcoAARemodel.png|25px|Anti-Air]] ' .. shipmodule[shipNum]["modernization"][3]
    local modArmor = '[[File:IcoArmorRemodel.png|25px|Armor]] ' .. shipmodule[shipNum]["modernization"][4]
    local modLuck = ''
    if shipmodule[shipNum]["modernization"][5] ~= nil and shipmodule[shipNum]["modernization"][5] ~= "" then
        modLuck = '[[File:IcoLuck|18px|Luck]] ' .. shipmodule[shipNum]["modernization"][5]
    end

    local modInfo = modFP .. ' ' .. modTorp .. ' ' .. modAA .. ' ' .. modArmor
    if modLuck ~= '' then
        modInfo = modInfo .. ' ' .. modLuck
    end
    local row13 = '<tr>' .. RscHeader .. 'Modernization</th>' .. RscData2 .. modInfo .. '</td></tr>'

    local illustrator = ''
    local voiceactor = ''
    local cat = '[[Category:Ships]]'
    if shipmodule[shipNum]["artist"] ~= "Unknown" and shipmodule[shipNum]["artist"] ~= "" then
        illustrator = '[[:Category:' .. shipmodule[shipNum]["artist"] .. '|<span lang="ja">' .. shipmodule[shipNum]["artist"] .. '</span>]]'
        cat = cat .. '[[Category:' .. shipmodule[shipNum]["artist"] .. ']]'
    else
        illustrator = 'Unknown'
    end
    if shipmodule[shipNum]["seiyuu"] ~= "Unknown" and shipmodule[shipNum]["seiyuu"] ~= "" then
        voiceactor = '[[:Category:' .. shipmodule[shipNum]["seiyuu"] .. '|' .. shipmodule[shipNum]["seiyuu"] .. ']]'
        cat = cat .. '[[Category:' .. shipmodule[shipNum]["seiyuu"] .. ']]'
    else
        voiceactor = 'Unknown'
    end
    local row14 = '<tr>' .. RscHeader .. 'Artist</th>' .. RscData .. illustrator .. '</td>' .. RscHeader .. 'Seiyuu</th>' .. RscData .. voiceactor .. '</td></tr>'

    local equipHeader = ''
    local planeStyle = '<td style="white-space: nowrap; text-align: center; vertical-align: top;">'
    local equipStyle = ''
    if shipmodule[shipNum]["aircraft"] ~= "" then
        equipHeader1 = '<th style="white-space: nowrap; {{border-radius|12px 4px 4px 12px}} background-color: #efe6d7; color: #a3965c;">Aircraft</th>'
        equipHeader2 = '<th colspan="3" style="white-space: nowrap; {{border-radius|4px 12px 12px 4px}} background-color: #efe6d7; color: #a3965c; vertical-align: baseline;">Equipment</th>'
        equipHeader = equipHeader1 .. equipHeader2
        equipStyle = '<td colspan="3" style="white-space: nowrap; text-align: center; vertical-align: baseline;">'
    else
        equipHeader = '<th colspan="4" style="white-space: nowrap; {{border-radius|12px 12px 12px 12px}} background-color: #efe6d7; color: #a3965c; vertical-align: baseline;">Equipment</th>'
        equipStyle = '<td colspan="4" style="white-space: nowrap; text-align: center; vertical-align: baseline;">'
    end

    local equip = {'<tr>', '<tr>', '<tr>', '<tr>'}
    for i = 1, 4, 1 do
        if shipmodule[shipNum]["aircraft"] ~= "" then
        	if shipmodule[shipNum]["aircraft"][i] ~= nil then
        		equip[i] = equip[i] .. planeStyle .. shipmodule[shipNum]["aircraft"][i] .. '</td>' .. equipStyle
    		else
    			equip[i] = equip[i] .. planeStyle .. '</td>' .. equipStyle
    		end
            if shipmodule[shipNum]["equip"] ~= "" then
                if shipmodule[shipNum]["equip"][i] == "" or shipmodule[shipNum]["equip"][i] == "Unequipped" then
                    equip[i] = equip[i] .. '-Unequipped-</td></tr>'
                elseif shipmodule[shipNum]["equip"][i] == nil then
                    equip[i] = equip[i] .. '\'\'-Locked-\'\'</td></tr>'
                else
                    equip[i] = equip[i] .. '[[' .. shipmodule[shipNum]["equip"][i] .. ']]</td></tr>'
                end
            else
                equip[i] = equip[i] .. '\'\'-Locked-\'\'</td></tr>'
            end
        else
            equip[i] = equip[i] .. equipStyle
            if shipmodule[shipNum]["equip"] ~= "" then
                if shipmodule[shipNum]["equip"][i] == "" or shipmodule[shipNum]["equip"][i] == "Unequipped" then
                    equip[i] = equip[i] .. '-Unequipped-</td></tr>'
                elseif shipmodule[shipNum]["equip"][i] == nil then
                    equip[i] = equip[i] .. '\'\'Locked\'\'</td></tr>'
                else
                    equip[i] = equip[i] .. '[[' .. shipmodule[shipNum]["equip"][i] .. ']]</td></tr>'
                end
            else
                equip[i] = equip[i] .. '\'\'Locked\'\'</td></tr>'
            end
        end
    end
    local DetailTable = '<table style="width: 100%">' .. equipHeader .. equip[1] .. equip[2] .. equip[3] .. equip[4] .. row11 .. row12 .. row13 .. row14 .. '</table>'

    cat = cat .. '[[Category:' .. shipmodule[shipNum]["class"] .. ']][[Category:' .. shipmodule[shipNum]["type"] .. ']]'
    
    local shipInfoBox = '<div style="display: inline-block; vertical-align: top;"><table style="{{border-radius|10px 10px 10px 10px}} border: 1px solid #aaaaaa; min-width: 495px">'
    shipInfoBox = shipInfoBox .. '<tr><td>' .. StatTable .. '</td></tr>'
    shipInfoBox = shipInfoBox .. '<tr><td>' .. DetailTable .. '</td></tr></table></div>' .. cat

    return shipInfoBox
end

 function shipmodule.KanmusuList(frame)
    local shipType = frame.args[1]
    local shipListTable = '<table class="wikitable filterable sortable" style="width: 100%; min-width: 800px;"><tr>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unfilterable" data-sort-type="number">ID</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unfilterable unsortable">Name</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unsortable">Class</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unsortable">Type</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: LightCoral;" class="unfilterable">[[File:IcoAtk.png|Firepower]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: LightSkyBlue;" class="unfilterable">[[File:IcoTorpedo.png|Torpedo]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: SandyBrown;" class="unfilterable">[[File:IcoAA.png|Anti-Air]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Seashell;" class="unfilterable">[[File:IcoASW.png|Anti-Submarine Warfare]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Aquamarine;" class="unfilterable">[[File:IcoLOS.png|Line of Sight]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: PaleGreen;" class="unfilterable">[[File:IcoLuck.png|Luck]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Pink;" class="unfilterable">[[File:IcoHP.png|HP]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Yellow;" class="unfilterable">[[File:IcoArmor.png|Armor]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Violet;" class="unfilterable">[[File:IcoEvasion.png|Evasion]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Silver;" class="unfilterable">[[File:IcoAircraft.png|Aircraft]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; vertical-align: middle; background-color: Aqua;" class="unfilterable">[[File:IcoSpeed.png|Speed]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unfilterable">[[File:IcoRange.png|Range]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unfilterable">[[File:IcoFuel.png|Fuel Consumption]]</th>'
    shipListTable = shipListTable .. '<th style="text-align: center; background-color: SpringGreen;" class="unfilterable">[[File:IcoAmmo.png|Ammo Consumption]]</th></tr>'
    local IDList = shipdb.getSortedIDList()
    for num, id in pairs(IDList) do
        if shipType ~= nil then
            if shipType == shipmodule[id]["type"] then
                shipListTable = shipListTable .. shipmodule.KanmusuListEntry(id)
            end
        else
            shipListTable = shipListTable .. shipmodule.KanmusuListEntry(id)
        end
    end
    shipListTable = shipListTable .. '</table>'
    return shipListTable
end

function shipmodule.KanmusuListEntry(id) -- Kanmusu List Table
    local strings = '<tr>'
    local aircraftTotal = 0
    if shipmodule[id]["aircraft"] ~= "" then
    	local aircraftslot = {0, 0, 0, 0}
        for i = 1, 4, 1 do
            if shipmodule[id]["aircraft"][i] ~= nil then
                aircraftslot[i] = shipmodule[id]["aircraft"][i]
            else
                aircraftslot[i] = 0
            end
        end
        aircraftTotal = aircraftslot[1] + aircraftslot[2] + aircraftslot[3] + aircraftslot[4]
    else
        aircraftTotal = 0
    end

    strings = strings .. '<td style="text-align: center;">' .. id .. '</td>'
    strings = strings .. '<td style="text-align: center;">[[' .. shipmodule[id]["name"][3] .. ']]</td>'
    strings = strings .. '<td style="text-align: center;">' .. shipmodule[id]["class"] .. '</td>'
    strings = strings .. '<td style="text-align: center;">' .. shipmodule[id]["type"] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #f0bbbb;">' .. shipmodule[id]["fp"][1] .. '</td>'
    if shipmodule[id]["torpedo"] == 0 then
        strings = strings .. '<td style="text-align: center; background-color: #99eefa;">' .. shipmodule[id]["torpedo"] .. '</td>'
    else
        strings = strings .. '<td style="text-align: center; background-color: #99eefa;">' .. shipmodule[id]["torpedo"][1] .. '</td>'
    end
    if shipmodule[id]["aa"] == 0 then
        strings = strings .. '<td style="text-align: center; background-color: #faccaa;">' .. shipmodule[id]["aa"] .. '</td>'
    else
        strings = strings .. '<td style="text-align: center; background-color: #faccaa;">' .. shipmodule[id]["aa"][1] .. '</td>'
    end
    if shipmodule[id]["asw"] == 0 then
        strings = strings .. '<td style="text-align: center; background-color: #fff5ee;">' .. shipmodule[id]["asw"] .. '</td>'
    else
        strings = strings .. '<td style="text-align: center; background-color: #fff5ee;">' .. shipmodule[id]["asw"][1] .. '</td>'
    end
    strings = strings .. '<td style="text-align: center; background-color: #afffee;">' .. shipmodule[id]["los"][1] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #cbfbcb;">' .. shipmodule[id]["luck"][1] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #ffe0eb;">' .. shipmodule[id]["hp"] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #ffffaa;">' .. shipmodule[id]["armor"][1] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #eeccee;">' .. shipmodule[id]["evasion"][1] .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #d9d9d9;">' .. aircraftTotal .. '</td>'
    strings = strings .. '<td style="text-align: center; background-color: #aaffff;">' .. shipmodule[id]["spd"] .. '</td>'
    strings = strings .. '<td style="text-align: center;">' .. shipmodule[id]["range"] .. '</td>'
    strings = strings .. '<td style="text-align: center;">' .. shipmodule[id]["consumption"][1] .. '</td>'
    strings = strings .. '<td style="text-align: center;">' .. shipmodule[id]["consumption"][2] .. '</td></tr>'
    return strings
end

return shipmodule