一个由本论坛棋谱改编的可在线对弈程序

五子棋软件


#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+="&nbsp;"

  }
theHTML+="</b></td>";
 }
 xx=16-i
theHTML+="<td style='fo


#2 Re:一个由本论坛棋谱改编的可在线对弈程序 作者:wrwak 发表时间:2008-11-4 21:35:19

在线对弈程序?在线打谱??