require('Module:No globals')
local list = {
-- 請按「{ '<条目名>', '首页展示存档页面名' },」的語法加入新項目
-- 儘管列表是按標題漢語拼音排列的，但新項目插入位置可以隨意
-- Wikipedia:典范条目
{ '洞窟物語', 'Wikipedia:特色条目/2013年第15周'},
{ '古墓丽影 (2013年游戏)', 'Wikipedia:特色条目/2013年第23周'},
{ '露營者日記', 'Wikipedia:特色条目/2009年第33周'},
{ '世紀帝國系列', 'Wikipedia:特色条目/2009年第25周'},
{ '心灵杀手', 'Wikipedia:特色条目/2014年10月14日'},
{ '战神：背叛', 'Wikipedia:特色条目/2015年11月28日'},
{ '超级肉肉男孩', 'Wikipedia:典范条目/超级肉肉男孩'},
{ '任天堂DSi', 'Wikipedia:典范条目/任天堂DSi'},
{ '世嘉土星', 'Wikipedia:典范条目/世嘉土星'},
{ 'Game Gear', 'Wikipedia:典范条目/Game Gear'},
{ 'Dreamcast', 'Wikipedia:典范条目/Dreamcast'},
-- Wikipedia:优良条目
{ '反重力赛车3', 'Wikipedia:优良条目/反重力赛车3'},
{ '镜之边缘', 'Wikipedia:优良条目/镜之边缘'},
{ '薩爾達傳說 時之笛', 'Wikipedia:优良条目/薩爾達傳說 時之笛'},
{ '压缩空间', 'Wikipedia:优良条目/压缩空间'},
{ '薩爾達傳說 穆修拉的假面', 'Wikipedia:优良条目/薩爾達傳說 穆修拉的假面'},
{ '黃金太陽 開啟的封印', 'Wikipedia:优良条目/黃金太陽 開啟的封印'},
{ '失落的星球：极限状态', 'Wikipedia:优良条目/失落的星球：极限状态'},
{ '逆轉裁判3', 'Wikipedia:优良条目/逆转裁判3'},
{ '逆轉裁判4', 'Wikipedia:优良条目/逆轉裁判4'},
{ '精靈寶可夢 紅寶石·藍寶石', 'Wikipedia:优良条目/精靈寶可夢 紅寶石·藍寶石'},
{ 'Cross Days', 'Wikipedia:优良条目/Cross Days'},
{ '黃金太陽系列', 'Wikipedia:优良条目/黃金太陽系列'},
{ '摩爾莊園', 'Wikipedia:优良条目/摩尔庄园'},
{ '风之旅人', 'Wikipedia:优良条目/旅途'},
{ '偶像大師2', 'Wikipedia:优良条目/偶像大師2'},
{ '德軍總部：新秩序', 'Wikipedia:优良条目/德軍總部：新秩序'},
{ '偶像大師 深情之星', 'Wikipedia:优良条目/偶像大師 為你而唱！'},
{ '孤岛惊魂4', 'Wikipedia:优良条目/孤岛惊魂4'},
{ '偶像大師 閃耀祭典', 'Wikipedia:优良条目/偶像大師 閃耀祭典'},
{ '末日之戰3', 'Wikipedia:优良条目/末日之戰3'},
{ '善待动物组织的讽刺网页游戏', 'Wikipedia:优良条目/善待动物组织的讽刺网页游戏'},
{ '见证者', 'Wikipedia:优良条目/见证者'},
{ '看火人', 'Wikipedia:优良条目/看火人'},
{ '巫师3：狂猎', 'Wikipedia:优良条目/巫師3：狂獵'},
{ '女神異聞錄5', 'Wikipedia:优良条目/女神異聞錄5'},
{ '孤兒院的劫掠', 'Wikipedia:优良条目/孤兒院的劫掠'},
{ '雷霆归来 最终幻想XIII', 'Wikipedia:优良条目/雷霆歸來 最終幻想XIII'},
{ 'SEGA Channel', 'Wikipedia:优良条目/SEGA Channel'},
{ '特技摩托賽HD', 'Wikipedia:优良条目/特技摩托賽HD'},
{ '对侠盗猎车手IV的争议', 'Wikipedia:优良条目/對俠盜獵車手IV的爭議'},
{ '质量效应 (游戏)', 'Wikipedia:优良条目/質量效應 (遊戲)'},
{ '质量效应2', 'Wikipedia:优良条目/質量效應2'},
{ '质量效应3', 'Wikipedia:优良条目/質量效應3'},
{ '寂静岭 (游戏)', 'Wikipedia:优良条目/寂静岭 (游戏)'},
{ '戰慄時空2首部曲：浩劫重生', 'Wikipedia:优良条目/戰慄時空2首部曲：浩劫重生'},
{ '碧绿丘陵地带', 'Wikipedia:优良条目/碧绿丘陵地带'},
{ 'SEGA Meganet', '優良條目/SEGA Meganet'},
{ '奥托的历险', 'Wikipedia:优良条目/奥托的历险'},
{ 'Genesis Nomad', 'Wikipedia:优良条目/Genesis Nomad'},
{ '戰都天鷹', 'Wikipedia:优良条目/戰都天鷹'},
{ '极限脱出ADV 善人死亡', 'Wikipedia:优良条目/极限脱出ADV 善人死亡'},
{ 'SG-1000', 'Wikipedia:优良条目/SG-1000'},
{ '失蹤行李', 'Wikipedia:优良条目/失蹤行李'},
{ '古墓丽影 (2013年游戏)', 'Wikipedia:优良条目/古墓丽影 (2013年游戏)'},
{ 'Kinect 運動大會', 'Wikipedia:优良条目/Kinect 運動大會'},
{ 'WonderSwan', 'Wikipedia:优良条目/WonderSwan'},
{ 'Deactivators', 'Wikipedia:优良条目/Deactivators'},
{ '星際之刃 藍星行動', 'Wikipedia:优良条目/星際之刃 藍星行動'},
{ '百事侵略者', 'Wikipedia:优良条目/百事侵略者'},
{ 'Dontnod Entertainment', 'Wikipedia:优良条目/Dontnod Entertainment'},
{ '生化危机2 重制版', 'Wikipedia:优良条目/生化危机2 重制版'},
{ 'Kids Computer PICO', 'Wikipedia:优良条目/Kids Computer PICO'},
{ '櫻花大戰 (遊戲)', 'Wikipedia:优良条目/櫻花大戰 (遊戲)'},
{ '2016年Dota 2国际邀请赛', 'Wikipedia:优良条目/2016年Dota 2国际邀请赛'},
{ '生化危機7 惡靈古堡', 'Wikipedia:优良条目/生化危機7 惡靈古堡'},
{ '異塵餘生：庇護所', 'Wikipedia:优良条目/異塵餘生：庇護所'},
{ '通往黑暗之路', 'Wikipedia:优良条目/通往黑暗之路'},
{ '英雄联盟2016赛季全球总决赛', 'Wikipedia:优良条目/英雄联盟2016赛季全球总决赛'},
{ '星风血雨', 'Wikipedia:优良条目/星风血雨'},
{ 'T&E虚拟高尔夫', 'Wikipedia:优良条目/T&E虚拟高尔夫'},
{ "Girl's Garden", "Wikipedia:优良条目/Girl's Garden"},
{ '刺激賽車', 'Wikipedia:优良条目/刺激賽車'},
{ 'Crispy Gamer', 'Wikipedia:优良条目/Crispy Gamer'},
{ '火焰之纹章 新·纹章之谜 ～光与影的英雄～', 'Wikipedia:优良条目/火焰之纹章 新·纹章之谜 ～光与影的英雄～'},
}
local getArgs = require('Module:Arguments').getArgs
local rand = require('Module:Random').item
local function getPage(page)
return mw.getCurrentFrame():preprocess('{{' .. page .. '}}')
end
local p = {}
function p.random()
return getPage(rand(list)[2])
end
function p.all()
local indexurl = mw.site.server .. mw.site.scriptPath .. '/index.php'
local function heading(title, wptitle)
local i = '[[' .. title .. ']]<span class="mw-editsection plainlinks">[' ..
require('Module:Fullurl')._fullurl({wptitle, action = 'edit', '编辑展示页'}) ..
']</span>'
return mw.getCurrentFrame():preprocess('{{fakeh3|1=' .. i .. '}}')
end
local ret = mw.html.create():tag('table'):addClass('wikitable'):attr('style', 'width: 100%;'):newline()
local i = 1
while i < #list/2+1 do
local v1 = list[i*2-1]
local v2 = list[i*2]
if v2 then
ret
:tag('tr'):attr('style', 'vertical-align: top;')
:newline()
:tag('td'):attr('style', 'width: 49%;')
:wikitext(heading(v1[1], v1[2]) .. getPage(v1[2]))
:done()
:newline()
:tag('td'):attr('style', 'width: 49%;')
:wikitext(heading(v2[1], v2[2]) .. getPage(v2[2]))
:done()
:done()
:newline()
else
ret
:tag('tr'):attr('style', 'vertical-align: top;')
:tag('td'):attr('style', 'width: 49%;')
:wikitext(heading(v1[1], v1[2]) .. getPage(v1[2]))
:done()
:tag('td'):attr('style', 'width: 49%;')
:done()
:done()
end
i = i + 1
end
return ret
:newline()
:done()
end
return p
