モジュール:DamageTables

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

local p = {}
local cfg   = mw.loadData('Module:DamageTables/configuration')
local Hopup = mw.loadData('Module:Stat/Hopup')

local aw = require('Module:Utility/Library')
local iu = require('Module:Utility/Image')
local inu = require('Module:Utility/ImageWithName')
local DamageTable = require('Module:DamageTable')
local getArgs -- lazily initialized

local indexableValues = {
	damage = 20,
	beamdamage = 0,
	ticks = 0,
	pellet = 1,
	head = 2,
	leg = 0.8,
	charged = 1,
	rps = 0,
	raise = 0,
}

local copiedValues = {
	mincount = 0,
	maxcount = 250,
	damagemin = 1000,
	damagemax = 0,
	beamdamagemin = 0,
	beamdamagemax = 0,
	pelletmin = 0,
	pelletmax = 0,
	headmax = -1,
	legmin = 0,
	mulmin = 0.85,
	mulmax = 1,
	skullpiercer = 1,
	rpsratio1 = 0,
	rpsratio2 = 0,
	rpsratio3 = 0,
	reload = 0,
	reloadratio1 = 0.963,
	reloadratio2 = 0.933,
	reloadratio3 = 0.9,
	extmag0 = 0,
	extmag1 = 0,
	extmag2 = 0,
	extmag3 = 0,
}

local copiedBooleanValues = {
	round = false,
	amped = false,
	forcegunshield = false,
}

local copiedStringValues = {
	skullpiercerrarity = Hopup.skullpiercer_rifling.rarity,
	lang = 'ja',
}

local function rebuildArguments(base, idx, mul)
	local ret = {}
	
	-- 再構築する変数
	for key, value in pairs(indexableValues) do
		local temp = aw.getAsNumber(base[key .. idx], -1)
		if temp < 0 then
			temp = aw.getAsNumber(base[key], -1)
			
			if temp < 0 then
				temp = value
			end
		end
		
		ret[key] = temp
	end
	
	-- コピーする変数
	for key, value in pairs(copiedValues) do
		local temp = aw.getAsNumber(base[key], -1)
		if temp < 0 then
			temp = value
		end
		ret[key] = temp
	end
	for key, value in pairs(copiedBooleanValues) do
		ret[key] = aw.getAsBoolean(base[key], value)
	end
	for key, value in pairs(copiedStringValues) do
		ret[key] = base[key] or value
	end
	
	return ret
end

local function appendGroupTables(builder, name, args, idx, mul, ctx, opts)
	if not opts.notCreateNewGroup then
		builder
			:append('</div>\n')
			:append('<div class="group-container">')
	end
	
	local args2 = rebuildArguments(args, idx, mul)
	args2.amped = false
	args2.caption = name
	args2.mul = mul
	args2.shieldinfo = args.shieldinfo
	if opts.useDisruptor then
		args2.disruptor      = args.disruptor
	else
		args2.disruptorsup   = args.disruptor
	end
	if opts.useHammerpoint then
		args2.hammerpoint    = args.hammerpoint
	else
		args2.hammerpointsup = args.hammerpoint
	end
	if opts.usePassthrough then
		args2.passthrough    = args.passthrough
	else
		args2.passthroughsup = args.passthrough
	end
	builder:append(DamageTable._main(args2, ctx.frame))
	
	if args.amped then
		local ampedCover = inu.tactical('amped_cover', { lang = ctx.lang })
		if name == ctx.res.normal then
			args2.caption = ampedCover
		else
			args2.caption = string.format('%s%s%s', ampedCover, ctx.cfg.separator, name)
		end
		args2.amped = true
		builder:append(DamageTable._main(args2, frame))
	end
end

local function appendGroupsTables(builder, args, idx, ctx, opts)
	local firstOpts = aw.shallowCopy(opts)
	firstOpts.notCreateNewGroup = true
	appendGroupTables(builder, ctx.res.normal, args, idx, 1, ctx, firstOpts)
	
	-- Low Profile
	if ctx.lowprofile > 1 then
		appendGroupTables(builder, ctx.res.lowprofile, args, idx, ctx.lowprofile, ctx, opts)
	end

	-- Fortified
	if not args.shieldinfo.sameHeadshotDamageToNormalOnFortified and ctx.fortified < 1 then
		appendGroupTables(builder, ctx.res.fortified, args, idx, ctx.fortified, ctx, opts)
	end
end

local maxcount = 8
local empty = {}

function p._main(args, frame)
	-- load resources
	local lang = args.lang or 'ja'
	args.lang = lang
	local res = cfg[lang]
	local ctx = {
		frame = frame,
		lang = lang,
		cfg = cfg,
		res = res,
		lowprofile = 1,
		fortified = 1,
	}
	
	-- init value
	local initValues = {
		lowprofile = -1,
		fortified = -1,
		disruptor = 1,
		hammerpoint = 1,
		passthrough = 1,
	}
	
	-- load shield info
	args.hammerpointrarity = args.hammerpointrarity or Hopup.hammerpoint_rounds.rarity
	args.disruptorrarity   = args.disruptorrarity   or Hopup.disruptor_rounds.rarity
	args.shieldpreset      = args.shieldpreset      or 'reinforcehelmets'
	local shieldinfo = require('Module:Stat/Shield')[args.shieldpreset]
	args.shieldinfo = shieldinfo
	
	-- overwrite lowprofile & fortified to context
	ctx.lowprofile = aw.getAsNumber(args.lowprofile or shieldinfo.lowprofile)
	ctx.fortified = aw.getAsNumber(args.fortified or shieldinfo.fortified)
	args.mulmax = math.max(1, ctx.lowprofile)
	args.mulmin = math.min(1, ctx.fortified)
	
	-- fix arguments
	for key, value in pairs(initValues) do
		args[key] = aw.getAsNumber(args[key], value)
		if args[key] == -1 then
			args[key] = nil
		end
	end
	args.amped = aw.getAsBoolean(args.amped, shieldinfo.ampedCover)
	
	-- build node
	local paragraphText = string.rep('=', aw.getAsNumber(args.level, 2) - 1)
	local superGroup = false
	local firstEnabled = not (args.firstskip or false)
	local builder = require('Module:Utility/StringBuilder').new()
	if firstEnabled then
		local collapsible = aw.getAsBoolean(args.collapsible1, false)
		local rarity      = args.rarity1 or ''
		local currentSuperGroup = collapsible or rarity ~= ''
		if currentSuperGroup then
			builder
				:append('<div class="groups-container')
				:appendIf(collapsible, ' mw-collapsible mw-collapsed')
				:appendIf(rarity ~= '', ' disp-rarity-' .. rarity)
				:append('" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">\n')
		end
		if args.name1 then
			builder:append(string.format('%s== %s ==%s\n', paragraphText, args.name1, paragraphText))
		end
		builder:append('<div class="group-container">')
		appendGroupsTables(builder, args, 1, ctx, empty)
		
		-- Piercing Shots
		if args.passthrough < 1 then
			builder
				:append('\n</div>\n')
				:append('<div class="groups-container mw-collapsible mw-collapsed" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">\n')
				:append(string.format('%s=== %s (x%s) ===%s\n', paragraphText, res.piercing_shots, args.passthrough, paragraphText))
				:append('<div class="mw-collapsible-content"><div class="group-container">\n')
			appendGroupsTables(builder, args, 1, ctx, { usePassthrough = true })
			builder:append('\n</div></div>\n')
		end
		
		superGroup = currentSuperGroup
	end
	
	-- from twice to 'maxcount' times
	for i = 2, maxcount do
		local varname = string.format('name%d', i)
		if args[varname] then
			local collapsible = aw.getAsBoolean(args[string.format('collapsible%d', i)], false)
			local rarity      = args[string.format('rarity%d', i)] or ''
			local currentSuperGroup = collapsible or rarity ~= ''
			builder
				:appendIf(superGroup, '\n</div></div>')
				:appendIf(firstEnabled, '\n</div>')
			if currentSuperGroup then
				builder
					:append('<div class="groups-container')
					:appendIf(collapsible, ' mw-collapsible mw-collapsed')
					:appendIf(rarity ~= '', ' disp-rarity-' .. rarity)
					:append('" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">')
			end
			builder
				:append(string.format('\n%s== %s ==%s\n', paragraphText, args[varname], paragraphText))
				:appendIf(currentSuperGroup, collapsible and '<div class="mw-collapsible-content">' or '<div>')
				:append('<div class="group-container">')
			appendGroupsTables(builder, args, i, ctx, empty)
			
			-- Piercing Shots
			if args.passthrough < 1 then
				builder
					:append('\n</div>\n')
					:append('<div class="groups-container mw-collapsible mw-collapsed" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">\n')
					:append(string.format('%s=== %s (x%s) ===%s\n', paragraphText, res.piercing_shots, args.passthrough, paragraphText))
					:append('<div class="mw-collapsible-content"><div class="group-container">\n')
				appendGroupsTables(builder, args, i, ctx, { usePassthrough = true })
				builder:append('\n</div></div>\n')
			end
			
			superGroup = currentSuperGroup
			firstEnabled = true
		end
	end
	
	-- Disruptor Rounds
	if args.disruptor > 1 then
		local label = string.format(
			'%s <span class="text-rarity text-rarity-%s">%s (x%s)</span>',
			iu.hopup('disruptor_rounds', { rarity = args.disruptorrarity }),
			args.disruptorrarity,
			args.nameD or 'ディスラプター弾',
			args.disruptor)
		builder
			:appendIf(superGroup, '\n</div></div>')
			:appendIf(firstEnabled, '\n</div>')
			:append('<div class="groups-container')
			:appendIf(args.collapsibleD, ' mw-collapsible mw-collapsed')
			:append(string.format(' disp-rarity-%s" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">\n%s== %s ==%s\n', args.disruptorrarity, paragraphText, label, paragraphText))
			:append(args.collapsibleD and '<div class="mw-collapsible-content">' or '<div>')
			:append('<div class="group-container">')
		appendGroupsTables(builder, args, 'D', ctx, { useDisruptor = true })
			
		superGroup = true
		firstEnabled = true
	end
	
	-- Hammerpoint Rounds
	if args.hammerpoint > 1 then
		local label = string.format(
			'%s <span class="text-rarity text-rarity-%s">%s (x%s)</span>',
			iu.hopup('hammerpoint_rounds', { rarity = args.hammerpointrarity }),
			args.hammerpointrarity,
			args.nameH or 'ハンマーポイント弾',
			args.hammerpoint)
		builder
			:appendIf(superGroup, '\n</div></div>')
			:appendIf(firstEnabled, '\n</div>')
			:append('<div class="groups-container')
			:appendIf(args.collapsibleH, ' mw-collapsible mw-collapsed')
			:append(string.format(' disp-rarity-%s" data-expandtext="{{int:show}}" data-collapsetext="{{int:hide}}">\n%s== %s ==%s\n', args.hammerpointrarity, paragraphText, label, paragraphText))
			:append(args.collapsibleH and '<div class="mw-collapsible-content">' or '<div>')
			:append('<div class="group-container">')
		appendGroupsTables(builder, args, 'H', ctx, { useHammerpoint = true })
			
		superGroup = true
		firstEnabled = true
	end
	
	-- close tag
	builder
		:appendIf(superGroup, '\n</div></div>')
		:appendIf(firstEnabled, '\n</div>')
	
	return tostring(builder)
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