五子棋透明棋盘界面设计（C语言）

news/2024/11/23 1:38:30/

五子棋透明棋盘设计，漂亮的界面制作。程序设置双人对奕，人机模式，对战演示三种模式。设置悔棋，记录功能，有禁手设置。另有复盘功能设置。

本文主要介绍透明的玻璃板那样的五子棋棋盘的制作。作为界面设计，透明棋盘的制作很简单，用绘图软件做一幅图片游戏时重新载入图片就可刷新棋盘。而此例示范的是怎样在底图上绘出透明棋盘。方法也很简单，就是在绘制棋盘时画笔的颜色设置时alpha通道值调低些，SetColor(a,r,g,b)，a是alpha，rgb是三原色它们的取值都在0－55之间，a=255不透明，a=100就可显示透明色了。

ccfdeb010e774a898e7dea9c9d1e0f24.png

a637d2f587554c21905855cf1cf02f66.png 

 

对于悔棋的设置，个人认为没必要，下棋讲究落子无悔，这是好的棋品。为了摆谱研究战术和AI智能博弈算法，在游戏程序中设置了复盘功能。程序没退出就能复现出上一次的盘面。另外还加了记录功能和显示下子序号，每盘棋都打印黑白双方下子记录，界面上也显示记录。有一点就是程序退出记录也就没了。解决的方法是把记录存为文本文件，需要时可作为复盘数据。也可以采用截屏方法保存棋局图片，以便以后复盘研究。

人机模式是设计AI智能奕棋的算法，主要是检测算法，测试算法的可行性。程序设置的对战演示就是为了测试算法，此为研究五子棋算法提供一些参考。

e9365d595d2242b69f85283aae9369a6.png

eab82defe0b5429f9fd30b2693d18f83.png 

 

以下是源码，有较详细的注释。

//****************************************
//*  五子棋  Gobang  AI     V.2.5.6
//*  人机对战  双人对奕  对战演示           
//*  编制人：张纯叔    micelu@126.com
//*   myspringc  v2.7   编译                       
//****************************************
Canvas cs;    //画布
string sBarDes[10];    //按钮
int nBarId[10];
string sMenu[50];       //菜单
int nMenu[50];
float src[4];  //ClearDraw (cls) clear screen
string s1,s2,s3,s4,s5,s6,s7,s8 ;     //显示
string s,ss,ss1,ss2,ss3,ss4;
 int dx,dy;        //draw X, Y
FileInput filebox;   //file Input box加底图
int size[2];    //load picture size
string fname;  //filename
int i,j,t,a;           //t = times
int pn[225];     // pn  0=" " , 1=black , 2=white
int n;                // 225 棋子编码号
int px,py;        // piece x,y
int context;    //canvasProc 触控
int obj;
int id;
int event;
int dn,dn1 ;        //下子计数
 int isDo;      //游戏操作控制 1=可下子，0=不可下
int B,W,k;   //detect win Black White
string cordp,cordp1;   //record pn & G9
int cord;        //record switch
int mode;      //0=人人，1=人机
int wn;    
int sn;
 int dwn[120];    //记录，下子60回合120子为和棋
int col,row ;
int cn,kn;      //show record num
int gn ;    //game round number
 int fudat[200];      //复盘数据
int fusum;    //复盘记录总数
int sd;         //复盘
 int jqn[225];      //计权数
int jqf,jqfn ;        //计权分，优选点位码
int js[225];         //禁手设置
int jsset ;    //s8 show restrict mark
//**********

main(){
setDisplay(1);
  cs.SetBackground(200,200,200);
  cs.Active();
   sBarDes[0]="开始游戏";
   nBarId[0]=100;
   sBarDes[1]="选择模式";
   nBarId[1]=101;
   sBarDes[2]="黑棋下子";
   nBarId[2]=102;
   sBarDes[3]="白棋下子";
   nBarId[3]=103;
   sBarDes[4]="退出程序";
   nBarId[4]=104;
   sBarDes[5]="记录v";
   nBarId[5]=105;
   setToolBarHeight(6);
   setButtonTextSize(13);
   setToolBarBackgroundColor(255,250,250,250);
   setButtonColor(255,220,220,220);
   setButtonTextColor(255,0,0,150);
   setToolBar(100,myToolBarProc,sBarDes,nBarId,6);

   sMenu[0]="开始游戏";
   nMenu[0]=200;
   sMenu[1]="选择模式 ( 双人 , 人机 )";
   nMenu[1]=201;
   sMenu[2]="悔棋";
   nMenu[2]=202;
   sMenu[3]="复盘";
   nMenu[3]=203;
   sMenu[4]="禁手设置 ( 有 , 无 )";
   nMenu[4]=204;
   sMenu[5]="查看记录";
   nMenu[5]=205;
   sMenu[6]="显示棋板";
   nMenu[6]=206;
   sMenu[7]="退出";
   nMenu[7]=207;
   setMenu(200,myMenuProc,sMenu,nMenu,8);
   setTitle("五子棋 (AI智能版) V.2.5.6   ");
//*************************
  cs.SetProc (context, mycanvasProc);
      mode=0 ;  
      s7="游戏模式：双人对奕"; 
      wn=0 ;   //测试演示
      gn=0;    //round number
      jsset= 0 ;    s8="无禁手" ;
      gamestart ();    //游戏初始界面
//draw title ****
        ss3="五子棋 (AI智能版)";
   cs.SetTextSize (60);
   cs.SetTextStyle (1);
     cs.SetFillMode (1);//0不填色，1填色
    cs.SetColor(255,160,60,40);
         cs.DrawText (ss3,105,505);
      cs.SetColor(255,0,250,0);
         cs.DrawText (ss3,100,500);
    cs.SetFillMode (0);//0不填色，1填色
    cs.SetColor(255,250,250,0);
         //cs.DrawText (ss3,100,500);
         cs.DrawText (ss3,101,501);
    cs.Update();  
while (){}
 }//main ()

mycanvasProc (int context,int obj,int id,int event,float x,float y){          
      if (isDo==0) return ;   //结束标志   
    kn=kn+1;     //延时,  减少闪屏
    if ((kn-kn/2*2)==0){ kn=0; }else{  return;  }  
       board ();   //redraw board
  //** get chess pieces position X , Y 
   if (x>40&&x<610&&y>40&&y<610){
      px=(int)(x/40)*40;    //棋盘区棋位取整数
      py=(int)(y/40)*40;
      s=intToString (px);
      s1= "px = "+s;
      s=intToString (py);
      s2= "py = "+s;
           dx=px/40;   dy=py/40;
      s=intToString (dx);
      s3= "dx = "+s;
      s=intToString (dy);
      s4= "dy = "+s;
   cs.SetFillMode (0);//0不填色，1填色
  cs.SetColor (255,250,0,0);  //chess flag选子标记
    cs.DrawRect (px-20,py-20,px+20,py+20);  
             }    
   //复盘和悔棋按钮
    if (x>40&&x<180&&y>900&&y<960){
         replay () ;    }    //复盘
    if (x>210&&x<350&&y>900&&y<960){
         undo () ;      }   //悔棋
    if (x>380&&x<520&&y>900&&y<960){
         if (mode==0) autotest () ;  }    //算法测试
 
   cs.SetFillMode (1);//0不填色，1填色
   cs.SetColor (255,230,230,230);  //clear n
   cs.DrawRect (525,760,600,800);
     // cs.SetColor(255,255,0,0);
    // cs.SetTextSize (24);
     //cs.DrawText (s1,50,700);  //测试 dx , dy
     //cs.DrawText (s2,50,740);
     //cs.DrawText (s3,200,700);
     //cs.DrawText (s4,200,740);

       n=(dy-1)*15+dx;  //提示选定棋子pn number      
       row=15-(n/15) ;
       col=(n-(n/15*15)) ;
       if (col==0){ col=15 ;    row=row+1 ;   }
       swapabc () ;   //col n to abc return ss
       s=ss+" "+intToString (row) ;
      s5="选定落子位 >>   "+s;
   if (x<40||x>610||y<40||y>610) s5="  ";  //棋盘位越界
    cs.SetColor(255,0,0,150);
     cs.SetTextSize (30);
   cs.DrawText (s5,328,790); //提示选定棋子
   cs.Update ();
}//mycanvasProc 

//AI智能下子算法求解方案：
//(一) 四连情况，黑棋下子，黑冲四嵌五，白必应子，若白无活四 022220 冲四 22220 02222 和嵌五 22022 22202 20222 则必应，有则先着取胜  

//(二) 三连情况，黑棋下子，黑成活三嵌四，
//   若白无活三 02220 嵌四 2022 2202 则必应，
//    有则先着下子成活四     

//(三) 二连情况，黑棋下子，
 //   有活二 01100  嵌三 01010    基本都是这样，
//   二连应子：抢先手原则，白棋先找自己的活二嵌三
 //   先下子成活三嵌四      

//(四) 开局应首子，定标黑子 pn113，白应首子
//       大多棋  谱是 应上 pn98，上右 pn99，暂定此
//       白应起首三子：按棋谱法

//黑白双方博弈，加权计分，黑攻方进攻点就是白守方
//防守点。计分累加标记此点，乃此算法要点。
//将下面 testAIq ()算法分二部分，来测试一下

autotest (){
  //用于检测AI智能下子算法 testAIq ()
  //黑白棋用同一个算法下子很难区分算法的优劣，
  //要设计二种算法分别以黑棋VS白棋才能显示出
  //算法的优劣。下面代码只可检测算法的可行性。
      s7="游戏模式：对战演示"; 
  if (isDo==0||dn>120) return ; //结束标志,测试120子   
  if (mode==1) return ; //双人模式可演示
           wn=wn+1 ;
     if (dn==0) {        //设定首子黑先天元位
         n=113;  black_do () ; 
         n=82 ;  wn=0 ;   //变换n 加以检测
         white_do () ;
          cs.Update () ;      }
       testAIq () ;    //智能计权取得下子点位
      if (wn>1) wn=0 ;    //轮流下子
       if (wn==1) white_do () ;  //白棋下子
       if (wn==0) black_do () ;  //黑棋下子         
    detect () ;     //判胜负
}//autotest ()

restrict_set (){   //禁手设置选择
    jsset=jsset+1 ;
    if (jsset>1) jsset=0 ;
    if (jsset==0) s8="无禁手" ;
    if (jsset==1) s8="有禁手" ;
    board () ;
}//restrict_set()

restrict_move (){  //禁手设置
 //黑棋禁手，加权计算查找
   for (i=1;i<=225;i++) {
         js[i]=0 ;    }      //scan init
 //三三禁手，01010 此情况中间为可成三三的交点
 //此点记100，若有两个三三，此点就计分200，
 //即禁手点位，黑棋若下子即可判负
  for (i=1;i<=15;i++){    //遍历scan 黑子
  for (j=1;j<=15;j++){    
           k=(i-1)*15+j ;    //pn(n) number
  //三三禁手形 0 0  1  010 0,  k前后 0位计权
 //两边为空中间可成活三，有子是假活三
     if (pn[k]==1){  // scan B (k)
      if (pn[k-1]==0&&pn[k+1]==0&&pn[k+2]==1&&pn[k+3]==0){
      if ( pn[k-2]==0) js[k-1]= js[k-1]+100 ;   
      if (pn[k+4]==0) js[k+3]= js[k+3]+100 ;   
      if ( pn[k-2]==0&&pn[k+4]==0) {
            js[k+1]= js[k+1]+100 ;   }     }//左右
   
     if (pn[k-15]==0&&pn[k+15]==0&&pn[k+30]==1&&pn[k+45]==0){  
       if ( pn[k-30]==0) js[k-15]= js[k-15]+100 ;   
       if (pn[k+60]==0) js[k+45]= js[k+45]+100 ;   
       if ( pn[k-30]==0&&pn[k+60]==0) {
             js[k+15]= js[k+15]+100 ;   }     }//上下

     if (pn[k-14]==0&&pn[k+14]==0&&pn[k+28]==1&&pn[k+42]==0){  
      if ( pn[k-28]==0) js[k-14]= js[k-14]+100 ;   
      if (pn[k+56]==0) js[k+42]= js[k+42]+100 ;   
      if ( pn[k-28]==0&&pn[k+42]==0) {
            js[k+14]= js[k+14]+100 ;   }     }//斜左

     if (pn[k-16]==0&&pn[k+16]==0&&pn[k+32]==1&&pn[k+48]==0){  
      if ( pn[k-32]==0) js[k-16]= js[k-16]+100 ;   
      if (pn[k+64]==0) js[k+48]= js[k+48]+100 ;   
      if ( pn[k-32]==0&&pn[k+64]==0) {
            js[k+16]= js[k+16]+100 ;   }     }//右斜

            }  //00 1 0100

//禁手形 00  1  100 ,  k前后 0位计权
   if (pn[k]==1){  //scan B (k)
   if (pn[k-1]==0&&pn[k+1]==1&&pn[k+2]==0){  
        if (pn[k-2]==0) js[k-2]= js[k-2]+100 ;   
        if (pn[k-2]==0) js[k-1]= js[k-1]+100 ;   //**
        js[k+2]= js[k+2]+100 ;   
    if (pn[k+3]==0) js[k+3]= js[k+3]+100 ;   }  //左右

    if (pn[k-15]==0&&pn[k+15]==1&&pn[k+30]==0){  
        if (pn[k-30]==0) js[k-30]= js[k-30]+100 ;   
        if (pn[k-30]==0) js[k-15]= js[k-15]+100 ;   
        js[k+30]= js[k+30]+100 ;   
    if (pn[k+45]==0) js[k+45]= js[k+45]+100 ;   }  //上下
     
    if (pn[k-14]==0&&pn[k+14]==1&&pn[k+28]==0){  
       if (pn[k-28]==0)  js[k-28]= js[k-28]+100 ;   
       if (pn[k-28]==0) js[k-14]= js[k-14]+100 ;   
        if (j<12) js[k+28]= js[k+28]+100 ;   
   if (pn[k+42]==0) js[k+42]= js[k+42]+100 ;   }  //斜左

   if (pn[k-16]==0&&pn[k+16]==1&&pn[k+32]==0){  
        if (pn[k-32]==0) js[k-32]= js[k-32]+100 ;   
        if (pn[k-32]==0) js[k-16]= js[k-16]+100 ;   
        js[k+32]= js[k+32]+100 ;   
   if (pn[k+48]==0) js[k+48]= js[k+48]+100 ;   }  //右斜
              }   //00 1 100

 //禁手形 0 1  0010 ,  中间 0位计权
   if (pn[k]==1){  //scan B (k)
   if (pn[k-1]==0&&pn[k+1]==0&&pn[k+2]==0&&pn[k+3]==1&&pn[k+4]==0){  
        js[k+1]= js[k+1]+100 ;   
        js[k+2]= js[k+2]+100 ;   }  //左右
   if (pn[k-15]==0&&pn[k+15]==0&&pn[k+30]==0&&pn[k+45]==1&&pn[k+60]==0){  
        js[k+15]= js[k+15]+100 ;   
        js[k+30]= js[k+30]+100 ;   }  //上下
   if (pn[k-14]==0&&pn[k+14]==0&&pn[k+28]==0&&pn[k+42]==1&&pn[k+56]==0){  
        js[k+14]= js[k+14]+100 ;   
        js[k+28]= js[k+28]+100 ;   }  //斜左
   if (pn[k-16]==0&&pn[k+16]==0&&pn[k+32]==0&&pn[k+48]==1&&pn[k+64]==0){  
        js[k+16]= js[k+16]+100 ;   
        js[k+32]= js[k+32]+100 ;   }  //右斜
           }  //010010

//四四禁手算法同三三禁手
//四四禁手形 0 1 110 ,  前后 0 位计权
  if (pn[k]==1){  //scan B (k)
   if (pn[k+1]==1&&pn[k+2]==1){  
     if (pn[k-2]==0&&pn[k-1]==0) js[k-1]= js[k-1]+100 ;   
     if (pn[k+3]==0&&pn[k+4]==0)js[k+3]= js[k+3]+100 ; 
            }  //左右

   if (pn[k+15]==1&&pn[k+30]==1){  
        if(pn[k-30]==0&&pn[k-15]==0) js[k-15]=js[k-15]+100 ;   
        if (pn[k+45]==0&&pn[k+60]==0)js[k+45]= js[k+45]+100 ;  
            }  //上下

     if (pn[k-14]==0&&pn[k+14]==1&&pn[k+28]==1&&pn[k+42]==0){  
      if (pn[k-28]==0) js[k-14]= js[k-14]+100 ;   
      if (pn[k+56]==0)js[k+42]= js[k+42]+100 ; 
     if (pn[k+56]==0)js[k+56]= js[k+56]+100 ;   }  //斜左

   if (pn[k-16]==0&&pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==0){  
      if (pn[k-32]==0) js[k-16]= js[k-16]+100 ;   
     if (pn[k+64]==0)js[k+48]= js[k+48]+100 ;   
     if (pn[k+64]==0)js[k+64]= js[k+64]+100 ;   }  //右斜
           }  //01110

//四四禁手形 0 1 1010 ,  0 1 0110 前后 0 位计权
   if (pn[k]==1){  //scan B (k)
   if (pn[k-1]==0&&pn[k+1]==0&&pn[k+3]==1&&pn[k+4]==0){  
    if (pn[k+1]==0&&pn[k+2]==1)js[k+1]= js[k+1]+100 ;   
    if (pn[k+1]==1&&pn[k+2]==0)js[k+2]= js[k+2]+100 ;  
               }  //左右

    if (pn[k-15]==0&&pn[k+15]==0&&pn[k+45]==1&&pn[k+60]==0){  
    if (pn[k+15]==0&&pn[k+30]==1)js[k+15]= js[k+15]+100 ;   
    if (pn[k+15]==1&&pn[k+30]==0)js[k+30]= js[k+30]+100 ;  
               }  //上下

    if (pn[k-14]==0&&pn[k+14]==0&&pn[k+42]==1&&pn[k+56]==0){  
    if (pn[k+14]==0&&pn[k+28]==1)js[k+14]= js[k+14]+100 ;   
    if (pn[k+14]==1&&pn[k+28]==0)js[k+28]= js[k+28]+100 ;  
               }  //斜左

     if (pn[k-16]==0&&pn[k+16]==0&&pn[k+48]==1&&pn[k+64]==0){  
    if (pn[k+16]==0&&pn[k+32]==1)js[k+16]= js[k+16]+100 ;   
    if (pn[k+16]==1&&pn[k+32]==0)js[k+32]= js[k+32]+100 ;  
               }  //右斜
             } //0 1 1010  0 1 0110

//禁手的基本设置就这样，其他有些特殊的情况暂不
//设置，AI完整智能版需全设置。上述设置是个示例。
 //长连禁手设置：在判胜负函数 detect () 时
 // 黑棋超过五连即判黑负，白棋胜。
              }    }//scan i , j
 //********** 
    cs.SetTextSize (16);
     cs.SetTextStyle (0);
    for (i=1;i<=225;i++){    //test restrict_move
           if (js[i] !=0) {      //Mark it
             s=intToString ( js[i]) ;
     dx=(i-(i/15*15))*40;
     dy=(i/15)*40+40;
       if (dx==0){ dx=15*40;    dy=dy-40;   }
             cs.SetColor (255,250,250,0) ;
           cs.DrawCircle (dx,dy,3) ;     //draw mark
       if (js[i]>100){
           cs.SetColor (255,180,0,180) ;
        //   cs.DrawText (s,dx-15,dy) ;  //put js(i)
           cs.DrawCircle (dx,dy,5) ;   //draw mark
                }
         }     }
    cs.Update () ;
}//restrict_move ()

034099b9a811438990c5586a1dab8f1e.png

c6ba237d4cd14e1e818358c2abb1d8ca.png 

 

testAIq (){
 //人机对战AI选子，加权计算
   for (i=1;i<=225;i++) {
         jqn[i]=0 ;    }      //scan init
   //遍历加权
  for (i=1;i<=15;i++){    //遍历scan B & W 子
  for (j=1;j<=15;j++){    
           k=(i-1)*15+j ;    //pn(n) number
  //独子 左右上下 二对角 八方
     if (pn[k]==2){
        if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+20 ;
        if (pn[k+1]==0) jqn[k+1]= jqn[k+1]+20 ;
        if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+20 ;
        if (pn[k+15]==0) jqn[k+15]= jqn[k+15]+20 ;
        if (pn[k+14]==0) jqn[k+14]= jqn[k+14]+20 ;
        if (pn[k+16]==0) jqn[k+16]= jqn[k+16]+20 ;
        if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+20 ;
        if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+20 ;
             }//pn
 //连二
  if (pn[k]==2&&pn[k+1]==2){  //左右
       if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+520 ;
       if (pn[k+2]==0)  jqn[k+2]= jqn[k+2]+520 ;       }

  if (pn[k]==2&&pn[k+15]==2){  //上下
       if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+520 ;
       if (pn[k+30]==0)  jqn[k+30]= jqn[k+30]+520 ;     }

   if (pn[k]==2&&pn[k+14]==2){  //左对角
       if (pn[k-14]==0)  jqn[k-14]= jqn[k-14]+520 ;
       if (pn[k+28]==0)  jqn[k+28]= jqn[k+28]+520 ;     }

 if (pn[k]==2&&pn[k+16]==2){   //右对角
       if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+520 ;
       if (pn[k+32]==0) jqn[k+32]= jqn[k+32]+520 ;    }

//嵌三   02020    +1020 为活三冲四进攻点
 if (pn[k]==2&&pn[k+1]==0&&pn[k+2]==2){  //左右
          jqn[k+1]= jqn[k+1]+520 ;   
      if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+1020 ; 
      if (pn[k+3]==0)  jqn[k+3]= jqn[k+3]+1020 ; }

 if (pn[k]==2&&pn[k+15]==0&&pn[k+30]==2){  //上下
          jqn[k+15]= jqn[k+15]+520 ;   
      if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+1020 ; 
      if (pn[k+45]==0)  jqn[k+45]= jqn[k+45]+1020 ; }

 if (pn[k]==2&&pn[k-14]==0&&pn[k-28]==2){//左对角
          jqn[k-14]= jqn[k-14]+520 ;   
      if (pn[k+14]==0)  jqn[k+14]= jqn[k+14]+1020 ; 
      if (pn[k-42]==0)  jqn[k-42]= jqn[k-42]+1020 ; }

 if (pn[k]==2&&pn[k+16]==0&&pn[k+32]==2){//右对角
          jqn[k+16]= jqn[k+16]+520 ;   
      if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+1020 ; 
      if (pn[k+48]==0)  jqn[k+48]= jqn[k+48]+1020 ; }

//三连，眠三抢冲四  12220  02221
 if (pn[k]==2&&pn[k+1]==2&&pn[k+2]==2){  //左右
    if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+2320 ;  
    if (pn[k+3]==0)  jqn[k+3]= jqn[k+3]+2320 ;   }
 if (pn[k]==2&&pn[k+15]==2&&pn[k+30]==2){  //上下
    if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+2320 ;  
    if (pn[k+45]==0)  jqn[k+45]= jqn[k+45]+2320 ;   }
 if (pn[k]==2&&pn[k-14]==2&&pn[k-28]==2){//左对角
    if (pn[k+14]==0)  jqn[k+14]= jqn[k+14]+2320 ;  
    if (pn[k-42]==0)  jqn[k-42]= jqn[k-42]+2320 ;   }
 if (pn[k]==2&&pn[k+16]==2&&pn[k+32]==2){//右对角
     if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+2320 ;  
    if (pn[k+48]==0)  jqn[k+48]= jqn[k+48]+2320 ;   }

//三连，活三变活四，必杀  0022200    +2000
    if ( pn[k-2]==0&&pn[k-1]==0&&pn[k]==2&&pn[k+1]==2&&pn[k+2]==2&&pn[k+3]==0&&pn[k+4]==0){  //左右
     jqn[k-1]= jqn[k-1]+3500 ;  
     jqn[k+3]= jqn[k+3]+3500 ;   }

   if (pn[k-30]==0&&pn[k-15]==0&&pn[k]==2&&pn[k+15]==2&&pn[k+30]==2&&pn[k+45]==0&&pn[k+60]==0){  //上下
     jqn[k-15]= jqn[k-15]+3500 ;  
     jqn[k+45]= jqn[k+45]+3500 ;   }
  
    if(pn[k-28]==0&&pn[k-14]==0&&pn[k]==2&&pn[k+14]==2&&pn[k+28]==2&&pn[k+42]==0&&pn[k+56]==0){//左对角
      jqn[k-14]= jqn[k-14]+3500 ;  
      jqn[k+42]= jqn[k+42]+3500 ;   }

 if (pn[k-32]==0&&pn[k-16]==0&&pn[k]==2&&pn[k+16]==2&&pn[k+32]==2&&pn[k+48]==0&&pn[k+64]==0){//右对角
      jqn[k-16]= jqn[k-16]+3500 ;  
      jqn[k+48]= jqn[k+48]+3500 ;   }
//*********
//白子算杀，做杀，找活三嵌四交点 +2500

//嵌四类 做冲四 2022  2202   布杀点 +1800
// 120220  122020 020221 022021
   if (j<12){
  if (pn[k]==2&&pn[k+1]==0&&pn[k+2]==2&&pn[k+3]==2){  //左右
      if (pn[k-1]==0||pn[k+4]==0){ jqn[k+1]= jqn[k+1]+1800 ;   }  }
   if (pn[k]==2&&pn[k+1]==2&&pn[k+2]==0&&pn[k+3]==2){  //左右
    if (pn[k-1]==0||pn[k+4]==0){ jqn[k+2]= jqn[k+2]+1800 ;   }   }
           } //j<12

   if (i<12){
 if (pn[k]==2&&pn[k+15]==0&&pn[k+30]==2&&pn[k+45]==2){  //上下
     if (pn[k-15]==0||pn[k+60]==0){  jqn[k+15]= jqn[k+15]+1800 ;   }   }
   if (pn[k]==2&&pn[k+15]==2&&pn[k+30]==0&&pn[k+45]==2){  //上下
     if (pn[k-15]==0||pn[k+60]==0){  jqn[k+30]= jqn[k+30]+1800 ;   }   }
           } //i<12

      if(j>4&&i<12){
 if (pn[k]==2&&pn[k+14]==0&&pn[k+28]==2&&pn[k+42]==2){  //斜左
     if (pn[k-14]==0||pn[k+56]==0){ jqn[k+14]= jqn[k+14]+1800 ;   }  }
   if (pn[k]==2&&pn[k+14]==2&&pn[k+28]==0&&pn[k+42]==2){  //斜左
     if (pn[k-14]==0||pn[k+56]==0){jqn[k+28]= jqn[k+28]+1800 ;   }  }
            } //j>4, i<12
         
        if (j<12&&i<12){
  if (pn[k]==2&&pn[k+16]==0&&pn[k+32]==2&&pn[k+48]==2){  //右斜
         if (pn[k-16]==0||pn[k+64]==0){ jqn[k+16]= jqn[k+16]+1800 ;   }  }
   if (pn[k]==2&&pn[k+16]==2&&pn[k+32]==0&&pn[k+48]==2){  //右斜
        if (pn[k-16]==0||pn[k+64]==0){  jqn[k+32]= jqn[k+32]+1800 ;   }  }
            } //i<12&&j<12

//嵌四 020220  022020  必杀点+3500  j<12  防越界
  if (j<12){
   if ( pn[k-1]==0&&pn[k]==2&&pn[k+1]==0&&pn[k+2]==2&&pn[k+3]==2&&pn[k+4]==0){  //左右
        jqn[k+1]= jqn[k+1]+3500 ;   }
   if ( pn[k-1]==0&&pn[k]==2&&pn[k+1]==2&&pn[k+2]==0&&pn[k+3]==2&&pn[k+4]==0){  //左右
        jqn[k+2]= jqn[k+2]+3500 ;   }    }

    if (i<12){
  if ( pn[k-15]==0&&pn[k]==2&&pn[k+15]==0&&pn[k+30]==2&&pn[k+45]==2&&pn[k+60]==0){  //上下
        jqn[k+15]= jqn[k+15]+3500 ;   }
   if ( pn[k-15]==0&&pn[k]==2&&pn[k+15]==2&&pn[k+30]==0&&pn[k+45]==2&&pn[k+60]==0){  //上下
        jqn[k+30]= jqn[k+30]+3500 ;   }    }

  if (j>4&&i<12){
  if ( pn[k-14]==0&&pn[k]==2&&pn[k+14]==0&&pn[k+28]==2&&pn[k+42]==2&&pn[k+56]==0){  //斜左
        jqn[k+14]= jqn[k+14]+3500 ;   }
   if ( pn[k-14]==0&&pn[k]==2&&pn[k+14]==2&&pn[k+28]==0&&pn[k+42]==2&&pn[k+56]==0){  //斜左
        jqn[k+28]= jqn[k+28]+3500 ;   }    }

        if (j<12&&i<12){
 if ( pn[k-16]==0&&pn[k]==2&&pn[k+16]==0&&pn[k+32]==2&&pn[k+48]==2&&pn[k+64]==0){  //右斜
        jqn[k+16]= jqn[k+16]+3500 ;   }
   if ( pn[k-16]==0&&pn[k]==2&&pn[k+16]==2&&pn[k+32]==0&&pn[k+48]==2&&pn[k+64]==0){  //右斜
        jqn[k+32]= jqn[k+32]+3500 ;   }    }

//活四冲四 022220  122220  022221   
//此是必杀点  +9000  j<12  防越界
 if (pn[k]==2&&pn[k+1]==2&&pn[k+2]==2&&pn[k+3]==2){  //左右
    if (j>1&&pn[k-1]==0)  jqn[k-1]= jqn[k-1]+9000 ;  
    if (j<12&&pn[k+4]==0)  jqn[k+4]= jqn[k+4]+9000 ;   }  

   if (pn[k]==2&&pn[k+15]==2&&pn[k+30]==2&&pn[k+45]==2){  //上下
    if (i>1&&pn[k-15]==0)  jqn[k-15]= jqn[k-15]+9000 ;  
    if (i<12&&pn[k+60]==0) jqn[k+60]= jqn[k+60]+9000 ; } 

    if(pn[k]==2&&pn[k+14]==2&&pn[k+28]==2&&pn[k+42]==2){//左对角
      if (i>4&&j<14&&pn[k-14]==0)   jqn[k-14]= jqn[k-14]+9000 ;  
    if (i<12&&j>4&&pn[k+56]==0)  jqn[k+56]= jqn[k+56]+9000 ;   }  

   if (pn[k]==2&&pn[k+16]==2&&pn[k+32]==2&&pn[k+48]==2){//右对角     
    if (j>1&&i<12&&pn[k-16]==0)  jqn[k-16]= jqn[k-16]+9000 ;  
    if (j<12&&i<12&&pn[k+64]==0)  jqn[k+64]= jqn[k+64]+9000 ;   }  

//嵌五，此是必杀点 20222  22022  22202 +9000
      if (j<12){      // j<12  防越界
      if ( pn[k]==2&&pn[k+1]==0&&pn[k+2]==2&&pn[k+3]==2&&pn[k+4]==2){  //左右 20222
      jqn[k+1]= jqn[k+1]+9000 ;    }
      if ( pn[k]==2&&pn[k+1]==2&&pn[k+2]==0&&pn[k+3]==2&&pn[k+4]==2){  //左右 22022
      jqn[k+2]= jqn[k+2]+9000 ;    }
      if ( pn[k]==2&&pn[k+1]==2&&pn[k+2]==2&&pn[k+3]==0&&pn[k+4]==2){  //左右 22202
      jqn[k+3]= jqn[k+3]+9000 ;    }     }  //j<12

      if (i<12){
    if ( pn[k]==2&&pn[k+15]==0&&pn[k+30]==2&&pn[k+45]==2&&pn[k+60]==2){  //上下 20222
     jqn[k+15]= jqn[k+15]+9000 ;    }
    if ( pn[k]==2&&pn[k+15]==2&&pn[k+30]==0&&pn[k+45]==2&&pn[k+60]==2){  //上下 22022
     jqn[k+30]= jqn[k+30]+9000 ;    }
    if ( pn[k]==2&&pn[k+15]==2&&pn[k+30]==2&&pn[k+45]==0&&pn[k+60]==2){  //上下 22202
     jqn[k+45]= jqn[k+45]+9000 ;    }    }  //i<12

        if (j>4&&i<12){
    if ( pn[k]==2&&pn[k+14]==0&&pn[k+28]==2&&pn[k+42]==2&&pn[k+56]==2){  //斜左 20222
     jqn[k+14]= jqn[k+14]+9000 ;    }
    if ( pn[k]==2&&pn[k+14]==2&&pn[k+28]==0&&pn[k+42]==2&&pn[k+56]==2){  //斜左 22022
     jqn[k+28]= jqn[k+28]+9000 ;    }
    if ( pn[k]==2&&pn[k+14]==2&&pn[k+28]==2&&pn[k+42]==0&&pn[k+56]==2){  //斜左 22202
     jqn[k+42]= jqn[k+42]+9000 ;    }    }

        if (j<12&&i<12){
   if ( pn[k]==2&&pn[k+16]==0&&pn[k+32]==2&&pn[k+48]==2&&pn[k+64]==2){  //右斜 20222
     jqn[k+16]= jqn[k+16]+9000 ;    }
    if ( pn[k]==2&&pn[k+16]==2&&pn[k+32]==0&&pn[k+48]==2&&pn[k+64]==2){  //右斜 22022
     jqn[k+32]= jqn[k+32]+9000 ;    }
    if ( pn[k]==2&&pn[k+16]==2&&pn[k+32]==2&&pn[k+48]==0&&pn[k+64]==2){  //右斜 22202
     jqn[k+48]= jqn[k+48]+9000 ;    }    }

//****************************
//以下是黑棋估权计分
  //独子 左右上下 二对角 八方
     if (pn[k]==1){
        if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+20 ;
        if (pn[k+1]==0) jqn[k+1]= jqn[k+1]+20 ;
        if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+20 ;
        if (pn[k+15]==0) jqn[k+15]= jqn[k+15]+20 ;
        if (pn[k+14]==0) jqn[k+14]= jqn[k+14]+20 ;
        if (pn[k+16]==0) jqn[k+16]= jqn[k+16]+20 ;
        if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+20 ;
        if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+20 ;
             }//pn
 //连二
  if (pn[k]==1&&pn[k+1]==1){  //左右
       if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+500 ;
       if (pn[k+2]==0)  jqn[k+2]= jqn[k+2]+500 ;   }
  if (pn[k]==1&&pn[k+15]==1){  //上下
       if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+500 ;
       if (pn[k+30]==0)  jqn[k+30]= jqn[k+30]+500 ;   }
   if (pn[k]==1&&pn[k+14]==1){  //左对角
       if (pn[k-14]==0)  jqn[k-14]= jqn[k-14]+500 ;
       if (pn[k+28]==0)  jqn[k+28]= jqn[k+28]+500 ;   }
 if (pn[k]==1&&pn[k+16]==1){   //右对角
       if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+500 ;
       if (pn[k+32]==0) jqn[k+32]= jqn[k+32]+500 ;   }
//嵌三   02020
 if (pn[k]==1&&pn[k+1]==0&&pn[k+2]==1){  //左右
          jqn[k+1]= jqn[k+1]+500 ;   }
 if (pn[k]==1&&pn[k+15]==0&&pn[k+30]==1){  //上下
          jqn[k+15]= jqn[k+15]+500 ;   }
 if (pn[k]==1&&pn[k+14]==0&&pn[k+28]==1){//左对角
          jqn[k+14]= jqn[k+14]+500 ;   }
 if (pn[k]==1&&pn[k+16]==0&&pn[k+32]==1){//右对角
          jqn[k+16]= jqn[k+16]+500 ;   }

//三连，眠三12220  02221 逢三必堵
 if (pn[k]==1&&pn[k+1]==1&&pn[k+2]==1){  //左右
    if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+3000 ;  
    if (pn[k+3]==0)  jqn[k+3]= jqn[k+3]+3000 ;   }
 if (pn[k]==1&&pn[k+15]==1&&pn[k+30]==1){  //上下
    if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+3000 ;  
    if (pn[k+45]==0)  jqn[k+45]= jqn[k+45]+3000 ;   }

 if (pn[k]==1&&pn[k-14]==1&&pn[k-28]==1){//左对角
    if (pn[k+14]==0)  jqn[k+14]= jqn[k+14]+3000 ;  
    if (pn[k-42]==0)  jqn[k-42]= jqn[k-42]+3000 ;  
    if (pn[k+2]==0)  jqn[k+2]= jqn[k+2]+3050 ;  
    if (pn[k-30]==0)  jqn[k-30]= jqn[k-30]+3050 ;  
             }    //破梅花阵
 if (pn[k]==1&&pn[k+16]==1&&pn[k+32]==1){//右对角
     if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+3000 ;  
    if (pn[k+48]==0)  jqn[k+48]= jqn[k+48]+3000 ;   
    if (pn[k+2]==0)  jqn[k+2]= jqn[k+2]+3050 ;  
    if (pn[k+30]==0)  jqn[k+30]= jqn[k+30]+3050 ;  
             }    //破梅花阵

//三连，活三  01110  逢三必堵
 if ( pn[k-1]==0&&pn[k]==1&&pn[k+1]==1&&pn[k+2]==1&&pn[k+3]==0){  //左右
    if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+3300 ;  
    if (pn[k+3]==0)  jqn[k+3]= jqn[k+3]+3300 ;   }

   if (pn[k-15]==0&&pn[k]==1&&pn[k+15]==1&&pn[k+30]==1&&pn[k+45]==0){  //上下
    if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+3300 ;  
    if (pn[k+45]==0)  jqn[k+45]= jqn[k+45]+3300 ;   }

 if (pn[k-14]==0&&pn[k]==1&&pn[k+14]==1&&pn[k+28]==1&&pn[k+42]==0){//左对角
    if (pn[k-14]==0)  jqn[k-14]= jqn[k-14]+3300 ;  
    if (pn[k+42]==0)  jqn[k+42]= jqn[k+42]+3300 ;   }

 if (pn[k-16]==0&&pn[k]==1&&pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==0){//右对角
     if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+3300 ;  
    if (pn[k+48]==0)  jqn[k+48]= jqn[k+48]+3300 ;   }

//嵌四 010110   011010   必杀点 +3500
  if ( pn[k-1]==0&&pn[k]==1&&pn[k+1]==0&&pn[k+2]==1&&pn[k+3]==1&&pn[k+4]==0){  //左右
        jqn[k+1]= jqn[k+1]+3500 ;   }
   if ( pn[k-1]==0&&pn[k]==1&&pn[k+1]==1&&pn[k+2]==0&&pn[k+3]==1&&pn[k+4]==0){  //左右
        jqn[k+2]= jqn[k+2]+3500 ;   }

  if ( pn[k-15]==0&&pn[k]==1&&pn[k+15]==0&&pn[k+30]==1&&pn[k+45]==1&&pn[k+60]==0){  //上下
        jqn[k+15]= jqn[k+15]+3500 ;   }
   if ( pn[k-15]==0&&pn[k]==1&&pn[k+15]==1&&pn[k+30]==0&&pn[k+45]==1&&pn[k+60]==0){  //上下
        jqn[k+30]= jqn[k+30]+3500 ;   }

  if ( pn[k-14]==0&&pn[k]==1&&pn[k+14]==0&&pn[k+28]==1&&pn[k+42]==1&&pn[k+56]==0){  //斜左
        jqn[k+14]= jqn[k+14]+3500 ;   }
   if ( pn[k-14]==0&&pn[k]==1&&pn[k+14]==1&&pn[k+28]==0&&pn[k+42]==1&&pn[k+56]==0){  //斜左
        jqn[k+28]= jqn[k+28]+3500 ;   }

  if ( pn[k-16]==0&&pn[k]==1&&pn[k+16]==0&&pn[k+32]==1&&pn[k+48]==1&&pn[k+64]==0){  //右斜
        jqn[k+16]= jqn[k+16]+3500 ;   }
   if ( pn[k-16]==0&&pn[k]==1&&pn[k+16]==1&&pn[k+32]==0&&pn[k+48]==1&&pn[k+64]==0){  //右斜
        jqn[k+32]= jqn[k+32]+3500 ;   }

//活四冲四 此是必杀点 211110  011112   +6000
//黑有此白必堵，此是必杀点 如白无连五则必应 
    if ( pn[k]==1&&pn[k+1]==1&&pn[k+2]==1&&pn[k+3]==1){  //左右
    if (pn[k-1]==0)  jqn[k-1]= jqn[k-1]+7000 ;  
    if (pn[k+4]==0)  jqn[k+4]= jqn[k+4]+7000 ;   }

   if (pn[k]==1&&pn[k+15]==1&&pn[k+30]==1&&pn[k+45]==1){  //上下
    if (pn[k-15]==0)  jqn[k-15]= jqn[k-15]+7000 ;  
    if (pn[k+60]==0)  jqn[k+60]= jqn[k+60]+7000 ;   }
 if(pn[k]==1&&pn[k-14]==1&&pn[k-28]==1&&pn[k-42]==1){//左对角
    if (pn[k+14]==0)  jqn[k+14]= jqn[k+14]+7000 ;  
    if (pn[k-56]==0)  jqn[k-56]= jqn[k-56]+7000 ;   }

 if (pn[k]==1&&pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==1){//右对角
     if (pn[k-16]==0)  jqn[k-16]= jqn[k-16]+7000 ;  
    if (pn[k+64]==0)  jqn[k+64]= jqn[k+64]+7000 ;   }

//嵌五 10111  11011  11101   +6000
//此是必杀点 如白无连五则必应 
      if ( pn[k]==1&&pn[k+1]==0&&pn[k+2]==1&&pn[k+3]==1&&pn[k+4]==1){  //左右 10111
      jqn[k+1]= jqn[k+1]+7000 ;    }
      if ( pn[k]==1&&pn[k+1]==1&&pn[k+2]==0&&pn[k+3]==1&&pn[k+4]==1){  //左右 11011
      jqn[k+2]= jqn[k+2]+7000 ;    }
      if ( pn[k]==1&&pn[k+1]==1&&pn[k+2]==1&&pn[k+3]==0&&pn[k+4]==1){  //左右 11101
      jqn[k+3]= jqn[k+3]+7000 ;    }

    if ( pn[k]==1&&pn[k+15]==0&&pn[k+30]==1&&pn[k+45]==1&&pn[k+60]==1){  //上下 10111
     jqn[k+15]= jqn[k+15]+7000 ;    }
    if ( pn[k]==1&&pn[k+15]==1&&pn[k+30]==0&&pn[k+45]==1&&pn[k+60]==1){  //上下 11011
     jqn[k+30]= jqn[k+30]+7000 ;    }
    if ( pn[k]==1&&pn[k+15]==1&&pn[k+30]==1&&pn[k+45]==0&&pn[k+60]==1){  //上下 11101
     jqn[k+45]= jqn[k+45]+7000 ;    }

    if ( pn[k]==1&&pn[k+14]==0&&pn[k+28]==1&&pn[k+42]==1&&pn[k+56]==1){  //斜左 10111
     jqn[k+14]= jqn[k+14]+7000 ;    }
    if ( pn[k]==1&&pn[k+14]==1&&pn[k+28]==0&&pn[k+42]==1&&pn[k+56]==1){  //斜左 11011
     jqn[k+28]= jqn[k+28]+7000 ;    }
    if ( pn[k]==1&&pn[k+14]==1&&pn[k+28]==1&&pn[k+42]==0&&pn[k+56]==1){  //斜左 11101
     jqn[k+42]= jqn[k+42]+7000 ;    }

    if ( pn[k]==1&&pn[k+16]==0&&pn[k+32]==1&&pn[k+48]==1&&pn[k+64]==1){  //右斜 10111
     jqn[k+16]= jqn[k+16]+7000 ;    }
    if ( pn[k]==1&&pn[k+16]==1&&pn[k+32]==0&&pn[k+48]==1&&pn[k+64]==1){  //右斜 11011
     jqn[k+32]= jqn[k+32]+7000 ;    }
    if ( pn[k]==1&&pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==0&&pn[k+64]==1){  //右斜 11101
     jqn[k+48]= jqn[k+48]+7000 ;    }

  }    }    //test i , j   pn(225) 棋盘点位

//******************************
//测试：显示加权计分情况，最高分白下子
   if (isDo==0) return ;
     cs.SetTextSize (16);
     cs.SetTextStyle (0);
     cs.SetColor (255,0,150,0) ;
       for (i=1;i<=225;i++){    //test scan
           if (jqn[i] !=0) {
             //print i,"  qn= ",jqn[i] ;    //测试
             s=intToString ( jqn[i]) ;
     dx=(i-(i/15*15))*40;
     dy=(i/15)*40+40;
       if (dx==0){ dx=15*40;    dy=dy-40;   }
               cs.DrawText (s,dx,dy) ;  //draw jqn(i)
          }     }
 
//计算最高分
      jqf=0 ;
 for (i=1;i<=225;i++){  
       k= jqn[i] ;
       if ( k>jqf) { jqf=k ;  jqfn=i ;   }
             } //计算最高分
 
       sn=jqfn ;     //计权最高分点位转坐标
       if (dn==1) {
         if (gn==1) sn=98 ;
         if (gn==2) sn=97 ;
         if (gn==3) sn=99 ;    }
 //   print " sn= ",jqfn ," jqf= ",jqf ;
      dx=(sn-(sn/15*15))*40;
      dy=(sn/15)*40+40;
       if (dx==0) {dx=15*40;   dy=dy-40;   }
      cs.SetColor (255,250,250,0);  
      cs.DrawCircle (dx,dy,5);  //标记下子点
         cs.Update () ;   
      //  sleep (500) ;
         n=sn ;      //下子点号sn转换为n,  draw board
         px=dx ;  py=dy ;    //board ()标记下子点
 //**** AI 走子 ********************** 
}//testAIq ()

swapabc (){  //传入col , 输出 ss = "ABC"
 string abc$ ;
    abc$="sABCDEFGHIJKLMNO" ;
    ss=subString (abc$,col,1) ;
}//swapabc ()

black_do (){    //黑棋下子
         pn[n]=1;    
          s6="白棋选子";   
        row=15-(n/15) ;
        col=(n-(n/15*15)) ;
        if (col==0){ col=15 ;    row=row+1 ;   }
        swapabc () ;   //return ss
        cordp=" B   "+intToString (n);    //走子记录
        cordp1=" B  "+ss+intToString (row) ;
     if (cordp != ss2) {    //不重复记录
           dn=dn+1;       //print dn;   
           print dn," ",cordp,"    " , ss,row ;  //打印记录
             ss2=cordp; 
           dwn[dn]=n ;    //print play number
           fudat[dn]=n;    fusum=dn;  //复盘数据                           
         board ();    
               }
         testAIq ();     //test AI 计权白子点位下子 **
          
    if (mode==1) {     //人机模式下子
            white_do () ;      }    // AI Do  白下子
}//black_do ()

white_do (){    //白棋下子
   if (isDo==0) return ;
        pn[n]=2;
          s6="黑棋选子";        
       row=15-(n/15) ;
       col=(n-(n/15*15)) ;
       if (col==0){ col=15 ;    row=row+1 ;   }
       swapabc () ;   //return ss
       cordp=" W  "+intToString (n);     //走子记录
       cordp1="W  "+ss+intToString (row) ;
     if (cordp != ss2) { 
          dn=dn+1;    
          print dn," ",cordp,"    " , ss,row ;  //打印记录
            ss2=cordp;  
          dwn[dn]=n ;    //print play number
          fudat[dn]=n;    fusum=dn;  //复盘数据
        board () ;
               }
      if (jsset==1)  restrict_move () ;    //禁手设置
      //scan restricted move and draw mark
 }//white_do ()

 board (){
     if (isDo==0) return ;   //结束标志   
  fname="/storage/emulated/0/go01.jpg";
    cs.DrawBitmap(fname,0,0);  //加底图
   //** draw board grids 棋盘方格
    cs.SetFillMode (1);//0不填色，1填色
    cs.SetColor (155,0,0,0);  //底板底线
    cs.DrawRect(634,13,638,633);
    cs.DrawRect(13,632,638,636);
  cs.SetColor (85,220,150,50);  //pad棋板
    cs.DrawRect (8,8,636,632);
  cs.SetColor (85,250,180,100);  //pad棋板
   // cs.DrawRect (20,20,620,620);
    cs.SetFillMode (0);//0不填色，1填色
     for (i=1;i<15;i++){       //draw grids棋盘格
        for (j=1;j<15;j++){    
    cs.SetColor (255,150,150,150);  //grid 格线
        cs.DrawRect(i*40-1,j*40-1,i*40+39,j*40+39);  
    cs.SetColor (255,250,250,250);  //grid 
        cs.DrawRect(i*40,j*40,i*40+40,j*40+40);  
               }        }    //格线
    cs.SetColor (255,0,0,0);  // rectangle line
       cs.DrawRect (8,8,634,632);
       cs.DrawRect (21,21,620,620);
       cs.DrawRect (20,20,620,620);

    //draw flag points
    cs.SetFillMode (1);//0不填色，1填色
     cs.SetColor (255,140,140,140);  
       cs.DrawCircle(160,160,5);     //星
       cs.DrawCircle(480,160,5);
       cs.DrawCircle(160,480,5);
       cs.DrawCircle(480,480,5);
       cs.DrawCircle(320,320,5);    //中元
  cs.SetColor (255,240,240,240);  
       cs.DrawCircle(161,161,5);     //星
       cs.DrawCircle(481,161,5);
       cs.DrawCircle(161,481,5);
       cs.DrawCircle(481,481,5);
       cs.DrawCircle(321,321,5);    //中元
   // 绘出棋盘坐标编码 1-15 , A-O
   cs.SetColor (255,100,40,20);  
     cs.SetTextStyle (1);
     cs.SetTextSize (14);
string abc$ ;
    abc$="sABCDEFGHIJKLMNO" ;
       a=0 ;      //set print tab
   for (i=1;i<=15;i++){    
           ss1=intToString (i) ;
        if (i>9) a=4 ;       //tab for print number
           cs.DrawText (ss1,25-a,645-i*40) ;  
           ss=subString (abc$,i,1) ;
           cs.DrawText (ss,i*40-4,615) ;    }
 //draw button 绘制按钮
  cs.SetColor (125,50,150,150);  
    cs.DrawRect (40,900,181,961);
    cs.DrawRect (210,900,351,961);
    cs.DrawRect (380,900,521,961);
      for (i=1;i<60;i++){    //按钮渐变色
    cs.SetColor (125,250-i*4,250-i*3,250-i*3);  
      cs.DrawLine (41,900+i,180,900+i);  
      cs.DrawLine (211,900+i,350,900+i);  
      cs.DrawLine (381,900+i,520,900+i);  
            }    
      cs.SetColor(255,255,250,0);
      cs.SetTextStyle (1);
      cs.SetTextSize (32);
      cs.DrawText ("复  盘",72,940);
      cs.DrawText ("悔  棋",242,940);
      cs.DrawText ("演  示",412,940);
   //print title
    cs.SetTextSize (80);
      cs.SetTextStyle (1);
   cs.SetColor (150,50,50,50);  
        cs.DrawText ("五子棋",50,793);
        cs.DrawText ("Gobang",50,873);
   cs.SetColor (155,240,160,110);  
        cs.DrawText ("五子棋",52,790);
        cs.DrawText ("Gobang",52,870);
    s="编制人：张纯叔 ( micelu@126.com ) " ;
        cs.SetTextSize (24);
        cs.DrawText (s, 40, 990);
   for (i=1;i<=225;i++){    
  //draw chess pieces 画出已下黑白子
     dx=(i-(i/15*15))*40;
     dy=(i/15)*40+40;
       if (dx==0){ dx=15*40;    dy=dy-40;   }
 if ( pn[i]==2){  //white
    cs.SetColor (255,140,80,40);  //piecesW
       cs.DrawCircle(dx+2,dy+2,17);
    cs.SetColor (255,220,220,220);  //pieceW
       cs.DrawCircle(dx,dy,17);
    cs.SetColor (255,250,250,250);  //pieceW
       cs.DrawCircle(dx-6,dy-6,2);   }
 if (pn[i]==1){  //black
    cs.SetColor (255,220,100,40);  //piecesB
       cs.DrawCircle(dx+1,dy+1,17);
    cs.SetColor (255,0,0,0);  //pieceB
       cs.DrawCircle(dx,dy,17);
    cs.SetColor (255,200,200,200);  //pieceB
       cs.DrawCircle(dx-6,dy-6,2);       }
               }     //draw chess pieces
     cs.SetColor (255,240,0,0);  //刚落子标记
       cs.DrawCircle(px,py,5);
    //提示选子
     cs.SetTextSize (42);
     cs.SetColor(55,255,0,0);
     cs.DrawRect (390,670,600,740);
     cs.SetColor(255,255,60,180); 
    cs.DrawText (s6,415,720);    //pn(n) num

     cs.SetTextSize (36);
    if (mode==0) cs.SetColor(255,255,60,180);
    if (mode==1) cs.SetColor(255,100,200,0);
    cs.DrawText (s7,20,680);      //模式
         cs.SetTextSize (26);
   cs.SetColor(255,250,80,120);
    cs.DrawText (s8,600,720);      //restrict禁手
  //draw pieces number 画出下子序号*****
     for (i=1;i<=dn;i++){    
      // cn=i ;
       s=intToString(i) ;
            kn=dwn[i] ;    
     dx=(kn-(kn/15*15))*40;
     dy=(kn/15)*40+40;
       if (dx==0){ dx=15*40;    dy=dy-40;   }
         cs.SetTextSize (16);
         cs.SetColor (255,0,160,0);  
         cs.DrawText (s,dx-5,dy+5);
 //界面显示记录 
        n=fudat[i] ;
        row=15-(n/15) ;
        col=(n-(n/15*15)) ;
        if (col==0){ col=15 ;    row=row+1 ;   }
      swapabc () ;   //return ss
   if ((i-i/2*2)==0) {s="W " ; }else{s=" B " ;  }
     ss1=s+ss+intToString (row) ;
     cs.SetTextStyle (0);
     cs.SetTextSize (18);
     cs.SetColor(255,0,0,150);
     if(ss1==" B O16") ss1="悔棋" ;
     cs.DrawText (ss1,655,i*16);  //record _G8
                }   
   
     cs.Update ();
     detect ();   //检测胜负
}//board ()

detect (){    //检测胜负
//detect Black chess  判胜 ******
   for (i=1;i<16;i++){     // B 黑子
       for (j=1;j<12;j++){    
          k=(i-1)*15+j ;    //pn(B) number
       if (pn[k]==1){
      if ( pn[k+1]==1&&pn[k+2]==1&&pn[k+3]==1&&pn[k+4]==1){
        if (pn[k+5]==1) pn[k]=2 ;   //超五连，禁手白胜
          goto showwin ;  }   //右
            }   }   }
   for (i=1;i<12;i++){     // B 黑子
       for (j=1;j<16;j++){    
          k=(i-1)*15+j ;    //pn(B) number
       if (pn[k]==1){
    if ( pn[k+15]==1&&pn[k+30]==1&&pn[k+45]==1&&pn[k+60]==1){
        if (pn[k+75]==1) pn[k]=2 ;   //超五连，禁手白胜
          goto showwin ;  }  //下
              }   }    }
  for (i=1;i<12;i++){     // B 黑子
       for (j=1;j<12;j++){    
          k=(i-1)*15+j ;    //pn(B) number
       if (pn[k]==1){
       if ( pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==1&&pn[k+64]==1){
          if (pn[k+80]==1) pn[k]=2 ;  //超五连，禁手白胜
            goto showwin ;  }  //右斜
              }    }    }
  for (i=1;i<12;i++){     // B 黑子
       for (j=5;j<16;j++){    
          k=(i-1)*15+j ;    //pn(B) number
       if (pn[k]==1){
       if ( pn[k+14]==1&&pn[k+28]==1&&pn[k+42]==1&&pn[k+56]==1){
        if (pn[k+70]==1) pn[k]=2 ;  //超五连，禁手白胜
            goto showwin ;  }  //斜左
              }     }     }      
   
//********************************
//detect White chess 判胜 ******
    for (i=1;i<16;i++){    // W 白子
       for (j=1;j<12;j++){    
          k=(i-1)*15+j ;    //pn(W) number
        if (pn[k]==2){
      if ( pn[k+1]==2&&pn[k+2]==2&&pn[k+3]==2&&pn[k+4]==2){  goto showwin ;  }   //右
           }    }    }
   for (i=1;i<12;i++){     // W 白子
       for (j=1;j<16;j++){    
          k=(i-1)*15+j ;    //pn(W) number
       if (pn[k]==2){
      if ( pn[k+15]==2&&pn[k+30]==2&&pn[k+45]==2&&pn[k+60]==2){  goto showwin ;  }  //下    
             }    }    }
  for (i=1;i<12;i++){     // W 白子
       for (j=1;j<12;j++){    
          k=(i-1)*15+j ;    //pn(W) number
       if (pn[k]==2){
      if ( pn[k+16]==2&&pn[k+32]==2&&pn[k+48]==2&&pn[k+64]==2){  goto showwin ;  }  //右斜
             }    }    }
   for (i=1;i<12;i++){     // W 白子
       for (j=5;j<16;j++){    
          k=(i-1)*15+j ;    //pn(W) number
       if (pn[k]==2){
      if ( pn[k+14]==2&&pn[k+28]==2&&pn[k+42]==2&&pn[k+56]==2){  goto showwin ;  }  //斜左
             }      }     } 
//*****************************
  if (pn[n]==1&&js[n]==200){     //禁手，判白棋胜
      ss="白棋胜  !";  goto heqi;    }
  if (dn>120) {
      ss="(  和  棋  )";  goto heqi;    }
return;
 //** show win flag  判胜负
showwin:    
       cs.SetTextStyle (0);
        cs.SetTextSize (16);
        cs.SetColor(255,255,0,0);
    if (pn[k]==1) {
        ss="黑棋胜  !";   print ss; 
        cs.DrawText (ss,655,(dn+2)*16);     }
     if (pn[k]==2) { 
        ss="白棋胜  !";   print ss; 
        cs.DrawText (ss,655,(dn+2)*16);     }
     isDo=0;      //结束标志
  
heqi:      //和棋 drawngame 
     cs.SetTextSize (60);
     cs.SetTextStyle (1);
     cs.SetFillMode (1);//0不填色，1填色
    cs.SetColor(255,180,90,40);
         cs.DrawText (ss,214,544);
      cs.SetColor(255,255,0,0);
         cs.DrawText (ss,210,540);
    cs.SetFillMode (0);//0不填色，1填色
    cs.SetColor(255,250,250,0);
         cs.DrawText (ss,210,540);
  print ss ;
  cs.Update ();
     isDo=0;      //结束标志
}//detect ()
 
gamestart (){  //开始游戏
    setDisplay (1);  
    cord=1 ;    //记录开关
    for (i=1;i<=225;i++){ pn[i]=0;  }   //init pn (n)下子位
    for (i=0;i<=120;i++){ dwn[i]=0;  }  //init dwn (n)复盘
    for (i=1;i<=225;i++){ js[i]=0 ;    }    //init  js (n)禁手
        isDo=1;         //游戏操作控制
        s6="黑棋选子";     //init
        px=320 ;  py=320 ;      //标记
        dn=0;  wn=0 ;    n=0 ;   //计数清零
        gn=gn+1;    //game round + 1
        clearOutput();     //清除记录
    fname="/storage/emulated/0/go02.jpg";
    cs.DrawBitmap(fname,0,0);  //加底图
        board ();      //绘出棋板
  }//gamestart ()

undo(){      //悔棋设置
      if (isDo==1) { 
            pn[n]=0;     fudat[dn]=0;
            print "悔 "+intToString (n);
            cs.SetTextStyle (0);
            cs.SetTextSize (16);
            cs.SetColor(255,250,0,0);
            cs.DrawText ("悔",655,dn*16);   
           dn=dn-1 ;  //序号减 1
           if (dn<1) dn=0 ;
            cs.Update ();
            board ();         }
}//undo ()

08c1dbbbd9ac4cfdbbcec812a583398d.png

cc23bd5a6ea74a02a029c3931f49e519.png 

 

replay (){    //复盘
      gamestart ( );
      setDisplay (1);
      print "fusum= " ,fusum;
   for (i=1;i<=fusum;i++){    
  //draw chess pieces 画出复盘黑子白子
     kn=fudat[i] ;     //取得数据
     sd=i-i/2*2 ;       //mod   0=白棋， 1=黑棋
      dx=(kn-(kn/15*15))*40;
      dy=(kn/15)*40+40;
       if (dx==0){ dx=15*40;    dy=dy-40;   }
 if ( sd==0){  //white
       ss=intToString (kn);
       cordp=" W "+ss;
         row=15-(kn/15) ;
         col=(kn-(kn/15*15)) ;
         swapabc () ;
         print i,"  ",cordp,"     " , ss,row ;  //打印记录
         ss4="W  "+ss+intToString (row) ;
    cs.SetColor (255,140,80,40);  //piecesW
       cs.DrawCircle(dx+2,dy+2,17);
    cs.SetColor (255,220,220,220);  //pieceW
       cs.DrawCircle(dx,dy,17);
    cs.SetColor (255,250,250,250);  //pieceW
       cs.DrawCircle(dx-6,dy-6,2);   }
 if ( sd==1){  //black
       ss=intToString (kn);
       cordp=" B "+ss;
         row=15-(kn/15) ;
         col=(kn-(kn/15*15)) ;
         swapabc () ;
         print i,"  ",cordp,"     " , ss,row ;  //打印记录
        ss4=" B  "+ss+intToString (row) ;
    cs.SetColor (255,220,100,40);  //piecesB
       cs.DrawCircle(dx+1,dy+1,17);
    cs.SetColor (255,0,0,0);  //pieceB
       cs.DrawCircle(dx,dy,17);
    cs.SetColor (255,200,200,200);  //pieceB
       cs.DrawCircle(dx-6,dy-6,2);       }
   
    if (i==fusum){
    cs.SetColor (255,0,250,0);    //标志最末胜子点
       cs.DrawCircle(dx,dy,5);      
          cs.SetTextStyle (1);
          cs.SetTextSize (60);   
      cs.SetFillMode (1);//0不填色，1填色
       cs.SetColor (255,160,70,40);  
          cs.DrawText ("复  盘",253, 553) ;   
         cs.SetColor (255,250,250,0);  
          cs.DrawText ("复  盘",250, 550) ;    
      cs.SetFillMode (0);//0不填色，1填色
           cs.SetColor (255,50,250,0);  
          cs.DrawText ("复  盘",250, 550) ;       
       if ( sd==0)   print "白棋胜 ！ " ;
       if ( sd==1)   print "黑棋胜 ！ " ;
                }  //=fusum           
       cs.SetFillMode (1);//0不填色，1填色
       cs.SetTextStyle (0);
       cs.SetTextSize (16);   
       s=intToString (i);       //标记序号
         cs.SetColor (255,250,0,0);  
         cs.DrawText (s,dx-2,dy+5);
      //界面显示记录
        cs.SetTextSize (18);
     cs.SetColor(255,150,0,0);
    cs.DrawText (ss4,655,i*16);      //界面显示记录
      cs.Update ();    
    sleep (1000);
               } //draw replay chess pieces                
     isDo=0 ;      //结束标志   
}//replay ()

myToolBarProc(int nBtn,int nContext)
{
      if(nBtn==100){//开始游戏
           gamestart ();    
                 }
      if(nBtn==101){//选择模式
            mode=mode+1;    //0=人人, 1= 人机
           if (mode>1) mode=0 ;  
           if (mode==0) s7="游戏模式：双人对弈 ";   
           if (mode==1) s7="游戏模式：人机模式 ";  
               gamestart ();   
                   }
      if(nBtn==102){//黑棋下子
          if ( pn[n]==0) black_do() ;    
                    }
      if(nBtn==103){//白棋下子，双人对弈模式
          if (mode==0&&pn[n]==0) white_do () ;    
                     }
      if(nBtn==104){//退出程序
          clearOutput();
          cs.ClearDraw (0,src);
          setDisplay (0);
          exit (0);    
                   }
     if(nBtn==105){//查看记录
           cord=cord+1;
           if (cord>1) cord=0 ;
           if (cord==0) setDisplay (0);    //查看记录
           if (cord==1) setDisplay (1);    //显示棋板
                  }
}//myToolBar ()

myMenuProc(int nMen,int nContext)
{
   if(nMen==200){   //开始游戏
           gamestart ();  } 
   if(nMen==201){   //选择模式
            mode=mode+1;    //0=人人, 1= 人机
         if (mode>1) mode=0 ;  
         if (mode==0) s7="游戏模式：双人对弈 ";   
         if (mode==1) s7="游戏模式：人机模式 ";  
               gamestart ();   
                   }          
    if(nMen==202){  //悔棋
          undo ();   
                }
    if (nMen==203){  //复盘
           replay ();
                }
    if (nMen==204){  //禁手设置
           restrict_set () ;    
                 }
    if(nMen==205){   //查看记录
         setDisplay (0);    
                }  
    if(nMen==206){  //显示棋板
         setDisplay (1);    
             }
    if (nMen==207){  //Exit 
        clearOutput();
        cs.ClearDraw (0,src);
        setDisplay (0);
        exit (0);
            }
  }//myMenu()

loadpic (){  //用于装载预设棋盘底图
//use filebox open files and load a picture
         filebox.SetTitle("装载图片(*.bmp;*.jpg;*.png)");
         filebox.SetFilter(".bmp;.jpg;.png");
         filebox.Show();
         if(filebox.GetCount()==1){
            fname=filebox.GetFileName(0);
         if(getPicSize(fname,size)<0){  return;     }
          cs.ClearDraw (0,src);
          cs.DrawBitmap(fname,0,0);
          cs.Update ();        }
}//loadpic ()

 


//****  End  ********

 

 

 


http://www.ppmy.cn/news/39931.html

相关文章

Kriging 克里金算法Java实现

Kriging 克里金算法Java实现

引入依赖库 import java.util.ArrayList; import java.util.Arrays; import java.util.List;定义一个类来表示二维坐标点 class Point {double x;double y;double z;Point(double x, double y, double z) {this.x x;this.y y;this.z z;}double distance(Point other) {doubl…
阅读更多...
Java基础-单元测试和反射的相关内容

Java基础-单元测试和反射的相关内容

系列文章目录 JavaSE基础的单元测试和反射相关内容的学习 文章目录系列文章目录前言一、单元测试1.单元测试概述2.单元测试快速入门3.单元测试常用注解二、反射1.反射概述2.反射获取类对象3.反射获取构造器对象4.反射获取成员变量对象5.反射获取方法对象6.反射的作用—泛型擦除…
阅读更多...
利用docker搭建云渗透测试靶场

利用docker搭建云渗透测试靶场

文章目录 前言Docker的安装1、Linux内核版本查看2、更新apt源满足下载要求3、进行系统或工具的更新4、采用apt安装Docker云靶场腾讯云 COS Bucket 公开访问场景场景搭建部署靶场销毁环境前言 Docker是渗透测试中必学不可的一个容器工具，在其中，我们能够快速创建、运行、测试以…
阅读更多...
Jmeter接口测试和性能测试

Jmeter接口测试和性能测试

目前最新版本发展到5.0版本&#xff0c;需要Java7以上版本环境&#xff0c;下载解压目录后&#xff0c;进入\apache-jmeter-5.0\bin\&#xff0c;双击ApacheJMeter.jar文件启动JMemter。 1、创建测试任务 添加线程组&#xff0c;右击测试计划&#xff0c;在快捷菜单单击添加-…
阅读更多...
Java 网络编程之NIO(Channel)

Java 网络编程之NIO(Channel)

同步 VS 异步 同步 同步编程是指当程序执行某个操作时&#xff0c;它必须等待该操作完成才能继续执行下一个操作。这意味着程序在执行网络请求时必须等待网络请求完成才能继续执行下一步操作&#xff0c;因此同步编程通常会导致程序的性能降低。在网络编程中&#xff0c;同步编…
阅读更多...
透视Android系统AMS、PMS和WMS，了解开发中的重要角色

透视Android系统AMS、PMS和WMS，了解开发中的重要角色

原理 在Android系统中&#xff0c;AMS&#xff08;Activity Manager Service&#xff09;、PMS&#xff08;PackageManager Service&#xff09;和WMS&#xff08;Window Manager Service&#xff09;是三个重要的系统服务&#xff0c;它们负责管理应用程序的生命周期、处理应…
阅读更多...
Linux基础内容（18）—— 动静态库

Linux基础内容（18）—— 动静态库

Linux基础内容&#xff08;17&#xff09;—— 软硬链接_哈里沃克的博客-CSDN博客https://blog.csdn.net/m0_63488627/article/details/129916616?spm1001.2014.3001.5501 目录 1.引例 2.解决引例的问题 3.静态链接 1.打包过程 2.方案一 3.方法二 4.动态链接 1.打包…
阅读更多...
利用Structure软件和GraphpadPrism5.0绘制Q plot 进行群体结构分析

利用Structure软件和GraphpadPrism5.0绘制Q plot 进行群体结构分析

参考一 完整学习资料&#xff1a; 群体遗传结构分析软件系列1 https://blog.sciencenet.cn/blog-3140696-1317225.html 群体遗传结构分析软件系列2 https://blog.sciencenet.cn/blog-3140696-1317230.html 群体遗传结构分析软件系列3 https://blog.sciencenet.cn/blog-3140…
阅读更多...
最新文章

Copyright @ 2022~2023