模組:Vgr/sandbox

local p = {}

local arealist = {
	
	{'KR', '[[韩国|-{zh-cn:韩国; zh-tw:南韓;}-]]'},
	{'JP', '[[日本]]'},
	{'INT', '[[国际化与本地化|国际]]'},
	{'WW', '[[国际]]'},
	{'NA', '[[北美]]'},
	{'PAL', '[[PAL区]]'},
	{'EU', '[[欧洲]]'},
	{'AU', '[[澳洲|澳-{}-洲]]'}, -- 兼容原{{Vgrelease new}}的使用代码
	{'AUS', '[[澳洲|澳-{}-洲]]'}, -- 兼容原{{Vgrelease}}的使用代码
	{'CN', '[[中国大陆|大陆]]'},
	{'TWHK', '[[台湾|台]][[香港|港]]'},
	{'TW', '[[台湾]]'},
	{'HK', '[[香港]]'},
	{'SEA', '[[东南亚]]'},
	{'SG', '[[新加坡]]'},
	{'MY', '[[马来西亚]]'},

}

local function vgn(area, context)
	local ret

	for i = 1, table.getn(arealist) do
		if arealist[i][1] == area then 
			ret = arealist[i][2] .. '：' .. context .. '<br />'
			break
		end
	end

	if ret == nil then
		ret = area .. '：' .. context .. '<br />'
	end
		
	return ret
end

function p.vgrelease(frame)
	
	local pframe = frame:getParent()
	local args = pframe.args
	local ret = ''

	for j = 1, table.getn(arealist) do
		local code = arealist[j][1]
		if args[code] ~= nil then
			ret = ret .. arealist[j][2] .. '：' .. args[code] .. '<br />'
		end
	end

	if args[4] ~= nil and args[4] ~= '' then
		
		for i = 1, math.huge, 2 do
			if args[i+1] ~= (nil and '') then
				ret = ret .. vgn(args[i], args[i+1])
			else 
				break
			end
		end

	elseif args[3] ~= nil and args[3] ~= '' then
	
		ret = ret .. '[[' .. args[1] .. '|' .. args[2] .. ']]：' .. args[3]
		
	elseif args[2] ~= nil and args[2] ~= '' then
		
		ret = ret .. args[1] .. '：' .. args[2]
		
	end

	return ret
end

return p