因为以下原因，您没有权限编辑本页： 您所请求的操作仅限于这些用户组的用户使用：用户、FANDOM助手、Wiki主管、内容团队人员 该页面已被保护以防止编辑和其他操作。 本页面已经受到保护，不能编辑，因为它被嵌入于以下被“连锁保护”的页面： User:Wingwing007/s9 您可以查看与复制此页面的源代码。 local m = {} local root, row -- ------------------------------- -- -- Helpers -- -- ------------------------------- -- local function substing() return mw.getCurrentFrame():preprocess('{{NAMESPACE}}') == '{{NAMESPACE}}' end local function temp(args) local rst = mw.getCurrentFrame():expandTemplate{title=table.remove(args,1), args=args} if substing() then local _, _, c = mw.ustring.find(rst, '|'..args[1]..'%s*=%s*([^}|]*)') return c and mw.text.trim(c) or '{{'..table.concat(args,'|')..'}}' else return rst end end local function conv(n) return string.gsub(n,'0000$','萬') end -- ------------------------------- -- -- Table Parts -- -- ------------------------------- -- local function header(tbl) tbl = tbl or root tbl:tag('tr') :tag('th') :css{width='35px'} :wikitext('層數') :done() :tag('th') :attr('colspan',2) :css{width='27%'} :wikitext('敵人') :done() :tag('th') :css{width='36px'} :wikitext('攻擊') :done() :tag('th') :css{width='22px'} :wikitext(temp{'Texttip2','CD','敵人作出攻擊後重置的CD數, 進入該層時初始CD數為此值一半(向上取整)至+1隨機, 括號內數值表示初始CD固定等於該數值'}) :done() :tag('th') :css{width='50px'} :wikitext('HP') :done() :tag('th') :css{width='42px'} :wikitext('防禦') :done() :tag('th') :css{width='41px'} :wikitext('掉落') :done() :tag('th') :css{width='30px'} :wikitext('金幣') :done() :tag('th') :wikitext('備註') return tostring(h) end local function attr(id) local t = {['水']='w', ['火']='f', ['木']='e', ['光']='l', ['暗']='d'} return t[temp{id,'attr'}] end local function extra(arg) if arg == nil then return '' end if arg == '' then return '<br/>'..temp{'Texttip2','亂入','在指定層數(未指定則代表隨機非固定層)稀有單獨出現',classes='line'} else return '<br/>'..temp{'Texttip2','隨機'..(arg~='1' and arg or ''), '隨機出現其中'..arg..'隻',classes='line'} end end local function name(id,num) local tbl = mw.html.create('table') tbl:addClass('stageDataName'):tag('tr') :tag('td') :wikitext(temp{id,45}) :done() :tag('td') :wikitext(temp{id,'name'}..(num and ' ×'..num or '')) return tostring(tbl) end local function cd(nrm,init) return nrm .. (init and temp{'Texttip2', init, '進入此層時的初始CD'} or '') end local function icon(file,text) local div = mw.html.create('div') :css{ position = 'relative', width = '39px', height = '39px', margin = '0 0 5.46px' } :wikitext('[[File:'..file..'.png|39px|link=]]') :tag('span') :addClass('monsterLv') :css{['font-size']='8pt', ['line-height']='10.92px',['white-space']='nowrap'} :wikitext(text) :allDone() return tostring(div) end local function drop(args) if args == nil then return '無' end local div = mw.html.create('div'):addClass('stageDataDrop') local c = 0 local last if args['card'] then last = div:tag('div'):wikitext(temp{'MonsterLv', args['card']['id'], args['card']['lv'], 39}) c = c+1 end if args['item'] then last = temp{'Item',args['item']} div:wikitext(last) c = c+1 end if args['chest'] then last = temp{'Texttip2',icon('ICON075',args['chest']),args['chest']..'金幣',classes='bottom'} div:wikitext(last) c = c+1 end if args['soul'] then last = temp{'Texttip2',icon('Soul',args['soul']),args['soul']..'個靈魂',classes='bottom'} div:wikitext(last) c = c+1 end if args['craft'] then last = temp{'Texttip2',icon('craft',args['craft']),args['craft']..'個鍛造龍刻',classes='bottom'} div:wikitext(last) c = c+1 end if args['coupon'] then last = temp{'Texttip2',icon('coupon',args['coupon']),args['coupon']..'點兌換卷',classes='bottom'} div:wikitext(last) c = c+1 end if c == 0 then return '無' elseif c == 1 then return tostring(last) else return tostring(div)..'<div class="stageDataDropMore"><span class="stageDataDropPlus">+</span></div>' end end local function dropnote(drops) if drops == nil then return '' end local rare = {'黃','銅','銀','金','白金','白金','黑金','黑金'} if drops['rare'] or drops['card'] and not (drops['item'] or drops['chest'] or drops['soul'] or drops['craft']) then return temp{ 'Texttip2', ' [[File:'..(drops['rare'] or rare[tonumber(temp{drops['card']['id'],'rare'})])..'卡.png|x20px|link=]]', '必定掉落一張封印卡。', classes = 'stageNote' } end if drops['item'] and not (drops['chest'] or drops['chest'] or drops['soul'] or drops['craft']) then return temp{ 'Texttip2', ' [[File:Item'..drops['item']..'.png|x20px|link=]]', '必定掉落指定物品。若物品已達上限則改為掉落金幣寶箱', classes='stageNote' } end return temp{'Texttip2',' [[File:DownArrow.png|x20px|link=]]','此層必定掉落',classes='stageNote'} end local function addRow(args,class,tbl) tbl = tbl or root local row = tbl:tag('tr'):addClass(class) local td1,td2 if args['stage']=='' then td1 = row:tag('td'):wikitext(args[1]):addClass('random') elseif args['stage']==nil then td1 = '' else td1 = row:tag('td'):wikitext(args['stage']):addClass('stage') end if args['special']==nil then td2 = nil row:tag('td'):attr('colspan',2):wikitext(name(args['id'],args['num'])) elseif args['special']=='' then td2 = '' row:tag('td'):wikitext(name(args['id'],args['num'])) else td2 = row:tag('td'):wikitext(mw.getCurrentFrame():preprocess(args['special'])) row:tag('td'):wikitext(name(args['id'],args['num'])) end local atk = conv(args['atk']) local cell = row:tag('td'):wikitext(atk) if mw.ustring.len(atk)>5 then cell:css('letter-spacing','-1px') end row:tag('td'):wikitext(args['cd'] and cd(args['cd'],args['init']) or temp{args['id'],'turn'}) local hp = conv(args['hp']) local cell = row:tag('td'):wikitext(hp) if mw.ustring.len(hp)>7 then cell:css('letter-spacing','-1px') end local def = conv(args['def'] or temp{args['id'],'def'}) local cell = row:tag('td'):wikitext(def) if mw.ustring.len(def)>6 then cell:css('letter-spacing','-1px') end local spec = args['special'] and args['special']~='' row:tag('td'):css({position='relative', overflow='hidden'}):wikitext(drop(spec and {} or args['drop'])) row:tag('td'):wikitext(spec and 0 or args['coin'] or '') row:tag('td'):wikitext(args['es'] and mw.getCurrentFrame():preprocess(args['es']) or '') -- row:tag('td'):wikitext(temp{'ES'..args['es'],''} and args['es'] or '') return td1,td2 end -- ------------------------------- -- -- Parsers -- -- ------------------------------- -- local function parse(str,patt,pos) local ret,orig = {},pos or 1 pos = orig for i,p in ipairs(patt) do if type(p) == 'table' then ret[i],pos = parse(str,p,pos) else local op = (string.sub(p,1,1) ~= '^') local j,k,cap = string.find(str, (op and p or string.sub(p,2)), pos) if j ~= pos then if op then ret[i] = nil else return nil,orig end else ret[i] = cap or string.sub(str,j,k) pos = k+1 end end end return ret,pos end local function parseRow(row) local p = parse(row,{ {'%*','^%d+','/(%d*)'},'^%s*:','%s*([^;]-)%s*;','^%s*(%d+)','[x×](%d+)','^%s+(%d*)/',{'^%d+','%(%d+%)'},'^/(%d*)/','%d+', {'^%s+%[',{'%d+','^@(%d+)'},'%s*%f[^%s%[]#(%d+)','%s*%f[^%s%[]$(%d+)','%s*%f[^%s%[]O(%d+)','^%]%s*'} ,'%s*[%s%+]$(%d+)','%s*:(.+)' }) return p and { fixdrop = p[1] and p[1][1], stage = p[1] and (p[1][2]=='0' and '' or p[1][2]), extra = p[1] and p[1][3], special = p[3], id = p[4], num = p[5], atk = p[6], cd = p[7] and p[7][1], init = p[7] and p[7][2], hp = p[8], def = p[9], drop = p[10] and (p[10][2] or p[10][3] or p[10][4] or p[10][5]) and { card = p[10][2] and {id = p[10][2][1] or p[4], lv = p[10][2][2]}, item = p[10][3], chest = p[10][4], soul = p[10][5], craft = p[10][6] }, coin = p[11], es = p[12], ws = p[13], } end local function parseRows(rows) local rst = {} for i,row in ipairs(rows) do if row ~= '' then local pr = parseRow(row) if pr then table.insert(rst, pr) end end end return rst end -- ------------------------------- -- -- MAIN -- -- ------------------------------- -- function m.stage(frame) root = mw.html.create('table') root:addClass('wikitable stageData') header() rows = parseRows(mw.text.split(frame.args[1], '\n')) local c1, c2, row, td1, td2, dr, ex = 1,1 while 1 do repeat row = table.remove(rows,1) until row ~= '' if row == nil then break end local _td1, _td2 = addRow(row,'attr-'..attr(row['id'])) local _dr, _ex = row['fixdrop'] and (row['drop'] or {}), row['stage'] and extra(row['extra']) if _td1 == nil then error(row) end if _td2 == '' then c2 = c2 + 1 elseif _td2 then if td2 then td2:attr('rowspan',c2) end td2, c2 = _td2, 1 end if _ex == nil then if _dr then dr = dr and {'', dr['card'] or _dr['card'], dr['item'] or _dr['item'], dr['chest'] or _dr['chest'], dr['soul'] or _dr['soul'], dr['craft'] or _dr['craft'],''} end c1 = c1 + 1 else if td1 then td1:attr('rowspan',c1):wikitext(dropnote(dr)):wikitext(ex) end td1, dr, ex, c1 = _td1, _dr, _ex, 1 end end if td2 then td2:attr('rowspan',c2) end if td1 then td1:attr('rowspan',c1):wikitext(dropnote(dr)):wikitext(ex) end return tostring(root) end function m.subst(frame) local rst = '{{關卡數據標題}}\n' local rows = parseRows(mw.text.split(frame.args[1], '\n')) local rare = {'黃','銅','銀','金','白金','白金','白金','白金'} for i,row in ipairs(rows) do rst = rst .. '{{關卡數據|' .. row.id if row.stage~='' then rst = rst .. '|stage=' .. (row.stage or '') if row.fixdrop then local j,dr = i,{card=nil, item=nil, chest=nil, soul=nil} repeat if rows[j].drop then for k,v in pairs(rows[j].drop) do dr[k] = dr[k] or v end end j = j+1 until not rows[j] or rows[j].stage rst = rst .. '{{掉落' if dr.card and not (dr.item or dr.chest or dr.soul) then rst = rst .. '|' .. (rare[tonumber(temp{row.id,'rare'})] or '白金') elseif dr.item and not (dr.card or dr.chest or dr.soul) then rst = rst .. '|' .. dr.item elseif not (dr.card or dr.item or dr.chest or dr.soul) then table.insert(errors, 'Fixdrop: No drop in stage '..row.stage) end rst = rst .. '}}' end if row.extra then rst = rst .. (row.extra=='' and '{{亂入}}' or '{{隨機'..(row.extra=='1' and '' or '|'..row.extra)..'}}') end end if row.num then rst = rst .. '|num=' .. row.num end if row.special then rst = rst .. '|special=' .. row.special end rst = rst .. '|damage=' .. conv(row.atk) rst = rst .. '|turn=' .. (row.cd or temp{row.id, 'turn'}) if row.init then rst = rst .. '{{初始CD|' .. row.init .. '}}' end rst = rst .. '|hp=' .. conv(row.hp) rst = rst .. '|def=' .. (row.def and conv(row.def) or temp{row.id, 'def'}) if row.drop then if row.drop.card and row.drop.card.id ~= row.id then rst = rst .. '|drop=' .. row.drop.card.id end if row.drop.card and row.drop.card.lv then rst = rst .. '|lv=' .. row.drop.card.lv end if row.drop.item then rst = rst .. '|item=' .. row.drop.item end if row.drop.chest then rst = rst .. '|chest=' .. row.drop.chest end if row.drop.soul then rst = rst .. '|soul=' .. row.drop.soul end if row.drop.craft then rst = rst .. '|craft=' .. row.drop.craft end if row.drop.coupon then rst = rst .. '|coupon=' .. row.drop.coupon end end if row.coin then rst = rst .. '|coin=' .. row.coin end if row.es then rst = rst .. '|es=' .. row.es end if row.ws then rst = rst .. '|ws=' .. row.ws end rst = rst .. '}}\n' end rst = rst .. '|}' return rst end function m.header(frame) return header(mw.html.create('')) end function m.drop(frame) local args = frame:getParent().args local drps = {} for k,v in pairs(args) do drps[k] = (v~='' or nil) and v end drps['card'] = drps['lv'] and {id=drps['drop'], lv=drps['lv']} return drop(drps) end function m.dropnote(frame) local arg = frame:getParent().args[1] if not arg then return dropnote{} elseif string.find(arg,'^%d+$') then return dropnote{item=arg} else return dropnote{rare=arg} end end return m 该页面使用的模板： 模块:Stage/doc（查看源代码）返回至模块:Stage。