一个由本论坛棋谱改编的可在线对弈程序
#1 一个由本论坛棋谱改编的可在线对弈程序 作者:五子太极 发表时间:2008-11-2 19:25:10
[begin]
<script language="javascript">
record="";//只需调用该函数就可知下棋记录,悔棋后记录还原上一步
step=0;//该函数告知现在是第几手
function grid(str){
while (str.search("15")>-1) { str=str.replace("15","A")}
while (str.search("14")>-1) { str=str.replace("14","B")}
while (str.search("13")>-1) { str=str.replace("13","C")}
while (str.search("12")>-1) { str=str.replace("12","D")}
while (str.search("11")>-1) { str=str.replace("11","E")}
while (str.search("10")>-1) { str=str.replace("10","F")}
while (str.search("9")>-1) { str=str.replace("9","G")}
while (str.search("8")>-1) { str=str.replace("8","H")}
while (str.search("7")>-1) { str=str.replace("7","I")}
while (str.search("6")>-1) { str=str.replace("6","J")}
while (str.search("5")>-1) { str=str.replace("5","K")}
while (str.search("4")>-1) { str=str.replace("4","L")}
while (str.search("3")>-1) { str=str.replace("3","M")}
while (str.search("2")>-1) { str=str.replace("2","N")}
while (str.search("1")>-1) { str=str.replace("1","O")}
str=str.toUpperCase();
return(str);
}
function paintQP(qp)
{
theHTML="";
record=qp.toUpperCase();
qp=grid(qp);
step=qp.length/2;
var alpha='ABCDEFGHIJKLMNO';
var codebase='.';
var i=1;
var j=1;
m = new Array(15);
for (i=1;i<16 ;i++ )
{
m=new Array(15)
for (j=1;j<16 ;j++ )
{
m[j]='empty.gif';
}
}
for (i=2;i<15 ;i++ )
{
m[1]='el.gif';
m[15]='er.gif'
}
for (j=2;j<15 ;j++ )
{
m[1][j]='et.gif';
m[15][j]='eb.gif';
}
m[1][1]='etl.gif';
m[1][15]='etr.gif';
m[15][1]='ebl.gif';
m[15][15]='ebr.gif';
m[8][8]='ei.gif';
m[3][3]='ei.gif';
m[3][12]='ei.gif';
m[12][3]='ei.gif';
m[12][12]='ei.gif';
var t=new Array(15);
for (i=1;i<16 ;i++ )
{
t=new Array(15);
for (j=1;j<16 ;j++ )
{
t[j]=0;
}
}
var a=1;
var b=1;
var p='b.gif';
var x=qp.length / 2;
for (i=0;i<x;i++ )
{
a=qp.charCodeAt(i*2)-64;
b=qp.charCodeAt(i*2+1)-64;
p='b.gif';
if (i%2!=0)
{
p='w.gif';
}
m[a]=p;
t[a]=i+1;
}
var bigX=qp.charCodeAt(qp.length-2)-64;
var bigY=qp.charCodeAt(qp.length-1)-64;
theHTML+="<table width='400' height='400' cellpadding='0' cellspacing='0'>"
for (i=1;i<16 ;i++ )
{
theHTML+="<tr>";
for (j=1;j<16;j++)
{
if (t[j]%2!=0)
{
co="ffffff";
}
else
{
co="000000";
}
if (bigX==j&bigY==i)
{
co="FF0000"
}
theHTML+="<td background='"+codebase+"/img/"+m[j]+"' align='center' valign='center'
style='font-family:Arial;font-size:9pt;color:"+co+";cursor:hand' width='25' height='25'
id='"+"point"+grid(String(16-j))+String(16-i)+"' onclick='putstone(this.id.substring
(5))'><b>";
if (t[j]>0)
{
theHTML+=t[j]
}
else
{
theHTML+=" "
}
theHTML+="</b></td>";
}
xx=16-i
theHTML+="<td style='fo
#2 Re:一个由本论坛棋谱改编的可在线对弈程序 作者:wrwak 发表时间:2008-11-4 21:35:19
在线对弈程序?在线打谱??