模組:Xiangqi diagram
![文档图示](http://images.weserv.nl/?url=//upload.wikimedia.org/wikipedia/commons/thumb/4/43/Test_Template_Info-Icon_-_Version_%282%29.svg/50px-Test_Template_Info-Icon_-_Version_%282%29.svg.png)
您可能想要创建本Scribunto模块的文档。 编者可以在本模块的沙盒 (创建 | 镜像)和测试样例 (创建)页面进行实验。 请在/doc子页面中添加分类。本模块的子页面。 |
function format(s)
s = string.gsub(s or '', '\n', '')
return s
end
function split(inputstr, sep)
if sep == nil then
return {inputstr}
end
local t = {}
local x = 1
local y = inputstr:find(sep)
while y ~= nil do
table.insert(t, inputstr:sub(x, y - 1))
x = y + 1
y = inputstr:find(sep, x)
end
table.insert(t, inputstr:sub(x))
return t
end
function drawArrow(arrow)
local t = split(arrow:gsub(' ', ''), ',')
for i = 1, #t do
t[i] = t[i] * 1
end
local ss = ''
while t[4] < 0 do
t[4] = t[4] + 360
end
while t[4] >= 360 do
t[4] = t[4] - 360
end
-- 箭頭的底盤 拿來旋轉方向使用
ss = ss .. '<div class="xiangqi-aB" style="'
ss = ss .. 'left:' .. (t[1] - 1) * 100 .. 'px;'
ss = ss .. 'top:' .. t[2] * 100 .. 'px;'
ss = ss .. 'width:' .. t[3] * 100 .. 'px;'
ss = ss .. 'transform:rotate(' .. t[4] .. 'deg);">'
-- 箭頭的直線部分
ss = ss .. '<div class="xiangqi-aL" style="width:' .. (t[3] - 0.4) * 100 .. 'px;"></div>'
-- 箭頭的頭部分
ss = ss .. '<div class="xiangqi-aH" style="left:' .. t[3] * 100 .. 'px;"></div>'
ss = ss .. '</div>'
return ss
end
local qidata = {
rs = {'暗'},
gd = {'将', '將'},
ad = {'士'},
ed = {'象'},
rd = {'车', '車'},
hd = {'马', '馬'},
cd = {'砲', '包'},
sd = {'卒'},
gl = {'帅', '帥'},
al = {'仕'},
el = {'相'},
rl = {'伡', '俥'},
hl = {'㐷', '傌'},
cl = {'炮'},
sl = {'兵'}
}
local p = {}
function p.board(frame)
local args = require('Module:Arguments').getArgs(frame)
local align = format(args[1])
if align == '' then
align = 'tright'
end
local header = format(args[2])
local footer = format(args[93])
local size
local width
local height
if args.size ~= nil then
size = args.size
width = size * 9
height = size * 12
elseif args.width ~= nil then
width = args.width
size = width / 9
height = size * 12
elseif args.height ~= nil then
height = args.height
size = height / 12
width = size * 9
else
size = 25
width = 225
height = 300
end
local amplification = size / 100
-- 範圍顯示參數
local startcol = args.startcol or 1
local cols = args.cols or (10 - startcol)
local startrow = args.startrow or 0
local rows = args.rows or (12 - startrow)
local bwidth = cols * size
local bheight = rows * size
local bleft = (startcol - 1) * size
local btop = startrow * size
local ss = ''
ss = ss .. '<div class="' .. align .. '" style="clear:right;">'
ss = ss .. '<div style="width:' .. bwidth .. 'px;border:1px solid #a2a9b1;padding:5px;background-color:#f8f9fa;">'
if header ~= '' then
ss = ss .. '<div style="text-align:center;margin-bottom:3px;width:' .. bwidth .. 'px;">' .. header .. '</div>'
end
ss = ss .. '<div style="position:relative;overflow:hidden;width:' .. bwidth .. 'px;height:' .. bheight .. 'px;">'
ss = ss .. '<div style="position:absolute;left:-' .. bleft .. 'px;top:-' .. btop .. 'px;">'
ss = ss .. '<div style="position:absolute;">[[File:Xiangqi_board.svg|' .. width .. 'px]]</div>'
for i = 0, 9 do
for j = 0, 8 do
local s = format(args[i * 9 + j + 3])
s = string.gsub(s, ' ', '')
s = string.gsub(s, ' ', '')
s = string.gsub(s, '_', '')
local sx = (j * size)
local sy = ((i + 1) * size)
-- 判斷棋名
local qi = ''
for key, val in pairs(qidata) do
if s:find(key) ~= nil then
qi = key
end
for k, v in ipairs(val) do
if s:find(v) ~= nil then
qi = key
end
end
end
if qi ~= '' then
ss = ss .. '<div style="position:absolute;left:' .. sx .. 'px;top:' .. sy .. 'px;">'
ss = ss .. '[[File:Xiangqi_' .. qi .. '1.svg|' .. size .. 'px]]</div>'
end
-- 標記符號的位移
local sp = ''
if s:find('x') ~= nil then
sp = sp .. '<div class="xiangqi-pX"></div>'
end
if s:find('%.') ~= nil then
sp = sp .. '<div class="xiangqi-pD"></div>'
end
if s:find('%[') ~= nil then
sp = sp .. '<div class="xiangqi-pR"></div>'
end
if sp ~= '' then
ss = ss .. '<div style="position:absolute;left:' .. sx .. 'px;top:' .. sy .. 'px;transform:scale(' .. amplification .. ');">' .. sp .. '</div>'
end
end
end
----箭頭
local sp = ''
local arrowname = 'arrow'
local count = 1
while args[arrowname] ~= nil do
sp = sp .. drawArrow(args[arrowname])
count = count + 1
arrowname = 'arrow' .. count
end
if sp ~= '' then
ss = ss .. '<div style="position:absolute;transform:scale(' .. amplification .. ');">' .. sp .. '</div>'
end
ss = ss .. '</div></div>'
if footer ~= '' then
ss = ss .. '<div style="text-align:left;margin-top:3px;width:' .. bwidth .. 'px;">' .. footer .. '</div>'
end
ss = ss .. '</div></div>'
return ss
end
return p