モジュール:DamageTable

このモジュールについての説明文ページを モジュール:DamageTable/doc に作成できます

require('Module:Utility/mw.html Extensions')

local p = {}

local aw = require('Module:Utility/Library')
local apex = require('Module:Utility/ApexLibrary')
local iu = require('Module:Utility/Image')
local STKCalculator = require('Module:Apex/STKCalculator')
local formatter -- lazily initialized
local getArgs -- lazily initialized

local function convertHslToRgb(hue, saturation, lightness)
	hue = math.max(0, math.min(1, hue))
	saturation = math.max(0, math.min(1, saturation))
	lightness = math.max(0, math.min(1, lightness))
	
	if saturation == 0 then
		return lightness, lightness, lightness
	else
		local function to(p, q, t)
			if t < 0 then t = t + 1 end
			if t > 1 then t = t - 1 end
			
			if t < 1/6 then
				return p + (q - p) * 6 * t
			elseif t < 3/6 then
				return q
			elseif t < 4/6 then
				return p + (q - p) * (2/3 - t) * 6
			else
				return p
			end
		end
		
		local q
		if lightness < 0.5 then
			q = lightness * (1 + saturation)
		else
			q = lightness + saturation - lightness * saturation
		end
		
		local p = 2 * lightness - q
		return to(p, q, hue + 1/3), to(p, q, hue), to(p, q, hue - 1/3)
	end
end

local function getColorAsString(hue)
	local r, g, b = convertHslToRgb(hue, 0.91, 0.89)
	return '#'
		.. string.format('%02X', 255 * r)
		.. string.format('%02X', 255 * g)
		.. string.format('%02X', 255 * b)
end

local function getShotCount(part, health, shield, info, gunshield)
	local damages = apex.calcShotCount(info.damage, part, info.mul, health, shield, gunshield or 0, {
		ampedCover = info.amped,
		hammerpointRounds = info.hammerpoint,
		pellets = info.pellet,
		round = info.useRound,
	})
	return #damages, damages
end

local function renderHeader(tbl, mul, colspan, shields)
	tbl:tag('tr')
		:tag('th')
			:attr('colspan', colspan)
			:attr('rowspan', 2)
			:wikitextIf(
				mul == 1,
				'部位',
				function()
					return '部位 (x' .. mul .. ')'
				end)
			:done()
		:tag('th')
			:attr('rowspan', 2)
			:wikitext('ダメージ')
			:done()
		:tag('th')
			:attr('colspan', #shields)
			:wikitext('確殺数')
	
	local row = tbl:tag('tr')
	for _, shield in ipairs(shields) do
		row:tag('th')
			:attrIf(
				shield.tooltip ~= nil,
				{ ['data-tooltip'] = shield.tooltip })
			:wikitext(shield.label)
	end
end

local function calcTTK(shot, rps, magsize, reload)
	local ttk = 0
	while shot > magsize do
		shot = shot - magsize
		ttk = ttk + (magsize - 1) / rps + reload
	end
	ttk = ttk + (shot - 1) / rps
	return ttk
end

local function renderCell(row, part, health, shield, info, gunshield)
	local shotCount, damages = getShotCount(part, health, shield, info, gunshield)
	local ratio = (shotCount - info.minCount) / (info.maxCount - info.minCount)
	local tooltip = aw.stringifyRepeatingArray(damages, '→')
	if info.rps > 0 then
		if info.reload == 0 or info.extmag0 == 0 then
			tooltip = tooltip .. string.format('<br>キルタイム: <span class="text-style-number" style="font-weight:bold">%d</span>&thinsp;ミリ秒', 1000 * (shotCount - 1) / info.rps)
		elseif info.rpsratio1 > 0 then
			tooltip = tooltip
				.. '<br>キルタイム: <table class="condensedtable listtable">'
				.. string.format(
					'<tr><th>なし&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag0, info.reload))
				.. string.format(
					'<tr><th>Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rpsratio1 * info.rps, info.extmag0, info.reload))
				.. string.format(
					'<tr><th>Lv.2&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rpsratio2 * info.rps, info.extmag0, info.reload))
				.. string.format(
					'<tr><th>Lv.3&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rpsratio3 * info.rps, info.extmag0, info.reload))
				.. '</table>'
		elseif shotCount <= info.extmag0 or info.extmag1 <= info.extmag0 then
			tooltip = tooltip .. string.format(
				'<br>キルタイム: <span class="text-style-number" style="font-weight:bold">%d</span>&thinsp;ミリ秒',
				1000 * calcTTK(shotCount, info.rps, info.extmag0, info.reload))
		elseif shotCount <= info.extmag1 or info.extmag2 <= info.extmag1 then
			tooltip = tooltip .. '<br>キルタイム: <table class="condensedtable listtable">'
				.. string.format(
					'<tr><th>なし&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag0, info.reload))
				.. string.format(
					'<tr><th>Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag1, info.reload))
				.. '</table>'
		elseif shotCount <= info.extmag2 or info.extmag3 <= info.extmag2 then
			tooltip = tooltip .. '<br>キルタイム: <table class="condensedtable listtable">'
			
			local ttk0 = calcTTK(shotCount, info.rps, info.extmag0, info.reload)
			local ttk1 = calcTTK(shotCount, info.rps, info.extmag1, info.reload)
			if aw.round(ttk0) == aw.round(ttk1) then
				tooltip = tooltip .. string.format(
					'<tr><th>なし・Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * ttk0)
			else
				tooltip = tooltip
					.. string.format(
						'<tr><th>なし&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
						1000 * ttk0)
					.. string.format(
						'<tr><th>Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
						1000 * ttk1)
			end
			
			local reload2 = info.reloadratio2 * info.reload
			tooltip = tooltip .. string.format(
					'<tr><th>Lv.2&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag2, reload2))
				.. '</table>'
		else
			tooltip = tooltip .. '<br>キルタイム: <table class="condensedtable listtable">'
			
			local ttk0 = calcTTK(shotCount, info.rps, info.extmag0, info.reload)
			local ttk1 = calcTTK(shotCount, info.rps, info.extmag1, info.reload)
			if aw.round(ttk0) == aw.round(ttk1) then
				tooltip = tooltip .. string.format(
					'<tr><th>なし・Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * ttk0)
			else
				tooltip = tooltip
					.. string.format(
						'<tr><th>なし&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
						1000 * ttk0)
					.. string.format(
						'<tr><th>Lv.1&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
						1000 * ttk1)
			end
			
			local reload2 = info.reloadratio2 * info.reload
			local reload3 = info.reloadratio3 * info.reload
			tooltip = tooltip .. string.format(
					'<tr><th>Lv.2&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag2, reload2))
				.. string.format(
					'<tr><th>Lv.3&nbsp;</th><td class="cell-type-number" style="font-weight:bold">%d</td><td>&thinsp;ミリ秒</td></tr>',
					1000 * calcTTK(shotCount, info.rps, info.extmag3, reload3))
				.. '</table>'
		end
	end
	
	row:tag('td')
		:attr('data-tooltip', tooltip)
		:css('background-color', getColorAsString(0.85 * ratio))
		:wikitext(shotCount)
end

local function renderHeaderCell(row, name, tooltip, rowinfo)
	for i = 1, #rowinfo do
		local cellinfo = rowinfo[i]
		local colspan = cellinfo.colspan or 1
		
		local cell = row:tag('th')
		if colspan > 1 then
			cell:attr('colspan', colspan)
		end
		if cellinfo.breaktop then
			cell:css('border-top', '0 none')
		end
		if cellinfo.breakbottom then
			cell:css('border-bottom', '0 none')
		end
		if i == #rowinfo then
			if tooltip ~= nil then
				cell:attr('data-tooltip', tooltip)
			end
			cell:wikitext(name)
		else
			cell:wikitext('&nbsp;&nbsp;')
		end
	end
end

local function renderRow(tbl, name, tooltip, part, weaponinfo, rowinfo, gunshield)
	local row = tbl:tag('tr')
	renderHeaderCell(row, name, tooltip, rowinfo)
	
	local opts = {
		ampedCover        = weaponinfo.amped,
		hammerpointRounds = weaponinfo.hammerpoint,
		round             = weaponinfo.useRound,
	}
	
	local damage
	if gunshield then
		damage = apex.calcDamage(weaponinfo.damage, 1, 1, {
			ampedCover = weaponinfo.amped,
			round      = weaponinfo.useRound,
		})
	else
		damage = apex.calcDamage(weaponinfo.damage, part, weaponinfo.mul, opts)
	end
	
	local text
	if weaponinfo.hammerpoint > 1 then
		local defaultDamage = apex.calcDamage(weaponinfo.damage, part, weaponinfo.mul, {
			ampedCover = weaponinfo.amped,
			round      = weaponinfo.useRound,
		})
		if weaponinfo.pellet > 1 then
			text = string.format(
				'<small>%s → </small>%s <small><span style="white-space:nowrap">(%s&thinsp;×&thinsp;%s)</span></small>',
				defaultDamage * weaponinfo.pellet,
				damage * weaponinfo.pellet,
				damage,
				weaponinfo.pellet)
		else
			text = string.format(
				'<small>%s → </small>%s',
				defaultDamage,
				damage)
		end
	elseif weaponinfo.pellet > 1 then
		text = string.format(
			'%s <small><span style="white-space:nowrap">(%s&thinsp;×&thinsp;%s)</span></small>',
			damage * weaponinfo.pellet,
			damage,
			weaponinfo.pellet)
	elseif weaponinfo.ticks > 1 then
		local beamdamage = apex.calcDamageFromPartAndPassive(weaponinfo.beamdamage, part, weaponinfo.mul, opts)
		local alldamage = beamdamage * weaponinfo.ticks + damage
		text = string.format(
			'%s<small> <span style="white-space:nowrap">(%s&thinsp;×&thinsp;%s&thinsp;+&thinsp;%s)</span></small>',
			alldamage,
			beamdamage,
			weaponinfo.ticks,
			damage)
	else
		text = tostring(damage)
	end
	row:tag('td'):wikitext(text)
	
	for _, shield in ipairs(weaponinfo.shields) do
		renderCell(row, part, shield.health, shield.shield, weaponinfo, gunshield)
	end
end

local function renderTable(args)
	local shieldinfo = require('Module:Stat/Shield')[args.shieldpreset]
	local skullpiercer = args.skullpiercer or 1
	local headMul = args.head or 2
	
	local minCount, _ = getShotCount(
		math.max(headMul, skullpiercer),
		100,
		0,
		{
			damage = math.max(args.damage, args.damagemax),
			beamdamage = math.max(args.beamdamage, args.beamdamagemax),
			ticks = args.ticks,
			mul = math.max(args.mul, args.mulmax),
			pellet = args.pellet,
			amped = true,
			hammerpoint = math.max(args.hammerpoint, args.hammerpointsup),
		})
	local damagemin = math.min(args.damage, args.damagemin)
	local mininfo = {
		damage = damagemin,
		beamdamage = math.min(args.beamdamage, args.beamdamagemin),
		ticks = args.ticks,
		mul = math.min(args.mul, args.mulmin),
		pellet = args.pellet,
		amped = false,
		hammerpoint = 1,
	}
	local maxshield = shieldinfo.shields[#shieldinfo.shields]
	local legCount, _ = getShotCount(math.min(args.leg, args.legmin), maxshield.health, maxshield.shield, mininfo)
	local bodyWithGunSheild, _ = getShotCount(1, maxshield.health, maxshield.shield, mininfo, shieldinfo.gunshield)
	local maxCount = math.max(legCount, bodyWithGunSheild)
	local weaponinfo = {
		damage = args.damage,
		beamdamage = args.beamdamage,
		ticks = args.ticks,
		mul = args.mul,
		pellet = args.pellet,
		amped = args.amped,
		hammerpoint = args.hammerpoint,
		rps = args.rps,
		rpsratio1 = args.rpsratio1,
		rpsratio2 = args.rpsratio2,
		rpsratio3 = args.rpsratio3,
		reload = args.reload,
		reloadratio2 = args.reloadratio2,
		reloadratio3 = args.reloadratio3,
		extmag0 = args.extmag0,
		extmag1 = args.extmag1,
		extmag2 = args.extmag2,
		extmag3 = args.extmag3,
		useRound = args.round,
		minCount = minCount,
		maxCount = maxCount,
		shields = shieldinfo.shields,
	}
	
	local colspan, info
	if skullpiercer > 1 then
		colspan = 3
		info = {
			level1 = {
				{ breaktop = false, breakbottom = false, colspan = 3 },
			},
			level1top = {
				{ breaktop = true, breakbottom = true, colspan = 3 },
			},
			level1gunshiled = {
				{ breaktop = false, breakbottom = true, colspan = 3 },
			},
			level2 = {
				{ breaktop = true, breakbottom = true },
				{ breaktop = true, breakbottom = false, colspan = 2 },
			},
			level2gunshiled = {
				{ breaktop = true, breakbottom = false },
				{ breaktop = false, breakbottom = false, colspan = 2 },
			},
			level3 = {
				{ breaktop = true, breakbottom = true },
				{ breaktop = false, breakbottom = true },
				{ breaktop = false, breakbottom = false },
			},
			level3top = {
				{ breaktop = false, breakbottom = true, colspan = 2 },
				{ breaktop = false, breakbottom = false },
			},
		}
	else
		colspan = 2
		info = {
			level1 = {
				{ breaktop = false, breakbottom = true, colspan = 2 },
			},
			level1gunshiled = {
				{ breaktop = false, breakbottom = true, colspan = 2 },
			},
			level2 = {
				{ breaktop = true, breakbottom = true },
				{ breaktop = false, breakbottom = false },
			},
			level2gunshiled = {
				{ breaktop = true, breakbottom = false },
				{ breaktop = false, breakbottom = false },
			},
		}
		info.level1top = info.level1
	end
	
	local skullpiercerPrefix = iu.hopup('スカルピアサーライフリング', { rarity = args.skullpiercerrarity })
	local table = mw.html.create('table')
		:addClass('wikitable')
		:addClass('numbertable')
		:addClass('damagetable')
	if args.caption ~= nil then
		table:tag('caption')
			:wikitext(args.caption)
	end
	
	renderHeader(table, args.mul, colspan, shieldinfo.shields)
	
	if skullpiercer > 1 then
		renderRow(
			table,
			skullpiercerPrefix .. '(x' .. skullpiercer .. ')',
			nil,
			skullpiercer, weaponinfo, info.level3top)
	end
	
	renderRow(
		table,
		"頭 (x" .. headMul .. ")",
		nil,
		headMul, weaponinfo, info.level1top)
	
	if skullpiercer > 1 then
		local skullpiercerLv1Mul = shieldinfo.helmets.level1.func(skullpiercer)
		renderRow(
			table,
			skullpiercerPrefix .. formatter:common('(x' .. skullpiercerLv1Mul .. ')'),
			string.format(shieldinfo.helmets.level1.text, skullpiercer),
			skullpiercerLv1Mul, weaponinfo, info.level3)
	end
	
	local hlmLv1Mul = shieldinfo.helmets.level1.func(headMul)
	renderRow(
		table,
		formatter:common('Lv.1 (x' .. hlmLv1Mul .. ')'),
		string.format(shieldinfo.helmets.level1.text, headMul),
		hlmLv1Mul, weaponinfo, info.level2)
	
	if skullpiercer > 1 then
		local skullpiercerLv2Mul = shieldinfo.helmets.level2.func(skullpiercer)
		renderRow(
			table,
			skullpiercerPrefix .. formatter:rare('(x' .. skullpiercerLv2Mul .. ')'),
			string.format(shieldinfo.helmets.level2.text, skullpiercer),
			skullpiercerLv2Mul, weaponinfo, info.level3)
	end
	
	local hlmLv2Mul = shieldinfo.helmets.level2.func(headMul)
	renderRow(
		table,
		formatter:rare('Lv.2 (x' .. hlmLv2Mul .. ')'),
		string.format(shieldinfo.helmets.level2.text, headMul),
		hlmLv2Mul, weaponinfo, info.level2)
	
	if skullpiercer > 1 then
		local skullpiercerLv3Mul = shieldinfo.helmets.level3.func(skullpiercer)
		renderRow(
			table,
			skullpiercerPrefix .. formatter:epic('(x' .. skullpiercerLv3Mul .. ')'),
			string.format(shieldinfo.helmets.level3.text, skullpiercer),
			skullpiercerLv3Mul, weaponinfo, info.level3)
	end
	
	local hlmLv3Mul = shieldinfo.helmets.level3.func(headMul)
	renderRow(
		table,
		formatter:epic('Lv.3') .. '/' .. formatter:legendary('4') .. ' ' .. formatter:epic('(x' .. hlmLv3Mul .. ')'),
		string.format(shieldinfo.helmets.level3.text, headMul),
		hlmLv3Mul, weaponinfo, info.level2)
	
	if args.leg == 1 then
		if args.mul < 1 or args.forcegunshield then
			renderRow(table, "胴・脚", nil, 1, weaponinfo, info.level1gunshiled)
			renderRow(
				table,
				'+ガンシールド',
				'耐久値 ' .. shieldinfo.gunshield,
				1, weaponinfo, info.level2gunshiled, shieldinfo.gunshield)
		else
			renderRow(table, "胴・脚", nil, 1, weaponinfo, info.level1)
		end
	else
		if shieldinfo.legAsBodyOnLowProfile and args.mul == 1.05 then
			renderRow(table, "胴・脚", nil, 1, weaponinfo, info.level1)
		else
			if args.mul < 1 or args.forcegunshield then
				renderRow(table, "胴", nil, 1, weaponinfo, info.level1gunshiled)
				renderRow(
					table,
					'+ガンシールド',
					'耐久値 ' .. shieldinfo.gunshield,
					1, weaponinfo, info.level2gunshiled, shieldinfo.gunshield)
			else
				renderRow(table, "胴", nil, 1, weaponinfo, info.level1)
			end
			renderRow(table, "脚 (x" .. args.leg .. ")", nil, args.leg, weaponinfo, info.level1)
		end
	end
	
	return table
end

function p._main(args, frame)
	formatter = require('Module:Utility/Formatter').new(frame)
	
	-- init value
	local initValues = {
		damage = 20,
		damagemin = 1000,
		damagemax = 0,
		beamdamage = 0,
		beamdamagemin = 0,
		beamdamagemax = 0,
		ticks = 0,
		pellet = 1,
		head = 2,
		leg = 0.8,
		legmin = 0,
		mul = 1,
		mulmin = 0.85,
		mulmax = 1.05,
		skullpiercer = 1,
		hammerpoint = 1,
		hammerpointsup = 1,
		rps = 0,
		rpsratio1 = 0,
		rpsratio2 = 0,
		rpsratio3 = 0,
		reload = 0,
		reloadratio2 = 0.95,
		reloadratio3 = 0.9,
		extmag0 = 0,
		extmag1 = 0,
		extmag2 = 0,
		extmag3 = 0,
	}
	
	-- fix arguments
	for key, value in pairs(initValues) do
		args[key] = aw.getAsNumber(args[key], value)
	end
	if args.legmin == 0 then
		args.legmin = args.leg
	end
	if args.beamdamagemin == 0 then
		args.beamdamagemin = args.beamdamage
	end
	if args.beamdamagemax == 0 then
		args.beamdamagemax = args.beamdamage
	end
	args.round = aw.getAsBoolean(args.round, false)
	args.amped = aw.getAsBoolean(args.amped, false)
	args.forcegunshield = aw.getAsBoolean(args.forcegunshield, false)
	args.skullpiercerrarity = args.skullpiercerrarity or 'legendary'
	args.shieldpreset = args.shieldpreset or 'evoshieldonly'
	
	return tostring(renderTable(args))
end

function p.main(frame)
	if not getArgs then
		getArgs = require('Module:Arguments').getArgs
	end
	args = getArgs(frame)
	
	return p._main(args, frame)
end

return p