五子棋AI智能算法设计和测试方法
先前发了几篇五子棋游戏程序设计的博文，设计了游戏程序，也设计了AI智能奕棋的算法，运行程序检测算法的可行性，完成人机模式游戏功能的设置。这还不够，还要提高算法的实战水平，即算力和应用水平。
对于人机对战的电脑智能应子算法，参阅很多五子棋书籍棋谱和五子棋竞赛的对抗棋谱。我感到白棋的后手防御算法很难取胜，棋界有黑棋高手先手必胜一说。算法么想了很多，既然是人工智能下棋就得按人的思路来算计。棋书阐述有许多思路和棋局解说。如活四冲四，嵌五，活三嵌四，活二嵌二。这些是高级棋手的总结。我就按此思路用加权计权方法来表现此类各种情况。
我对算法的思路是：黑棋的进攻点就是白棋的防守点，反之，白棋的进攻点就是黑棋的防守点。我采用一次遍历棋盘各点位的方法，凡有黑子和白子就判断其四周的空白点，即可下子位，评估棋势加权计分。棋势就是单子、活二嵌二、活三嵌三嵌四、活四冲四嵌五。各个棋势的交点就叠加计分，高分点就是双方博弈的必争点。算法的要点是：独子成二是起点，连二到连三是重点，关键的要点是三连子到四连五连。这这三点就分出权重的棋势。活三02220两边的点位是，先手是绝杀点，后手是防守逢三必堵。眠三122200棋势，空位下子成冲四，这是抢先手来改势扩势来进攻。若抓到冲四加活三叠加进攻点，权分叠加计权，就能绝杀对方。我的算法思路就这样。算法想白棋后手取胜，就在白棋的棋势上加小分，这样利于白棋在同等情况下能争得先手，反战进攻取胜。想法很简单，写算法也不难，而对于棋势的加权分的估量较难。
图例：
人机模式例：人执黑，AI 执白，无禁手则黑棋可胜，有禁手就AI胜。
五子棋博弈要算杀，算杀就是计算必杀之局。必杀局有双活三，双冲四，冲四加活三，嵌五加活三，嵌五加冲四，这些必杀局就是必胜法宝。此算法的要点就是如何加权必杀局棋势的加权分。文后附源码中的testAIq( )，算法至要可见一斑，自己体会一下。
算杀的最高境界是做杀，预判算出必杀点提前几子做出必杀局。此谓奕道高手中的高手，乃高高手也。此种算法也就是编程界的高手，是谓大咖也。我望之有些高仰，自感境界还没到。叠加计权计分有趋向于此类。还要努力，锲而不舍，持之以恒。
另外在设计上加了算法的测试方法。用来检测和改进算法。
测试算法的方法：
一是：程序运行时在黑白落子周边的空位（即可下子位）显示加权计算的分值，查看加权计分情况。最高分点位画出黄色标记点，即AI选取的下子位。
在双人模式时可以直观的看到AI加权计算的分值，以及选取下子位的过程。
在人机模式时由人下黑子检测白棋的防守和进攻情况 。依据此优化和改进算法。
二是：设置自动演示功能autotest()，不需手动模拟对奕过程，连续点击演示按钮逐步显示黑白双方由机器选位下子过程。这就是对战演示功能。
增加26个开局定式对战演示。用以观察加权计分的设置情况，以此来测试和改进算法。也可以每步根据AI计权黄点黑白双方落子位来下子，这样可慢慢地观察加权计分情况。当然在演示功能时可介入手动操作下子，这是方法的灵活应用。
五子棋程序设置双人对奕，人机模式，对战演示三种模式。设置悔棋，记录功能，有禁手设置。另有复盘功能设置。
AI智能奕棋的算法testAIq( )，主要是检测算法，测试算法的可行性。程序设置的对战演示就是为了测试算法，此为研究五子棋算法提供一些参考。
此算法加权偏重于白棋，主要是研究如何对付”黑先必胜”。研究白棋抢先手，拦堵黑棋，反转取胜。
测试了好几个局的例子，白棋的攻防还是可以的。然而如
（例11 例12 例13例15 例16等），
黑棋还是蛮厉害的，如白棋挡不住，就还是黑棋胜。
例4花月局，例7金星局，例8松月局
白棋防守封堵都很漂亮，抢先手反攻取胜，可供参考研究。
例24斜月局，黑棋进攻力度不够，黑21手F8和23手J12失误而失先手，白棋反败为胜。
我测试了26定式局和人机对战的好多局，本文仅例出了一部分。感兴趣的朋友可自己来玩下。此游戏程序可成为喜欢五子棋游戏的练手程序。下面源码可在安卓手机上编译为桌面游戏。
下面是五子棋游戏程序设计的源码：
//****************************************
//* 五子棋 Gobang AI v.3.0.1 (测试版）
//* 人机对战 双人对奕 对战演示
//* 编制人：张纯叔 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,ss9 ;
int dx,dy; //draw X, Y
FileInput filebox; //file Input box加底图
int size[2]; //load picture size
string fname; //filename
int i,j,t ; //t = times
int a,b ; //tab for print
int pn[250]; // pn 0=" " , 1=black , 2=white
int n; // 225 棋子编码号pn(250)容错
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, kn ; //sn AI计权位号 1 to 225
int dwn[120]; //记录，下子60回合120子为和棋
int col,row ;
int gn ; //game round number
int fudat[200]; //复盘数据
int fusum; //复盘记录总数
int sd; //复盘
int jqn[225]; //计权数
int jqf,jqfn ; //计权分，优选点位码
int js[225]; //禁手设置
int jsset ; //0=on 有禁手，1=off 无禁手
double smode ; // 开局模式 26式
int num ; // 开局式号
//**********
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]="选择开局定式 ( 26种定式 )";
nMenu[0]=200;
sMenu[1]="选择游戏模式 ( 双人 , 人机 )";
nMenu[1]=201;
sMenu[2]="悔棋";
nMenu[2]=202;
sMenu[3]="复盘";
nMenu[3]=203;
sMenu[4]="禁手设置 ( on )";
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.3.0.1 ");
//*************************
cs.SetProc (context, mycanvasProc); //触控设置
mode=0 ;
s7="游戏模式：双人对奕";
wn=0 ; //测试演示
gn=0; //round number
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,95,505);
cs.SetColor(255,0,250,0);
cs.DrawText (ss3,90,500);
cs.SetFillMode (0);//0不填色，1填色
cs.SetColor(255,250,250,0);
cs.DrawText (ss3,91,501);
cs.SetFillMode (1);//0不填色，1填色
cs.SetTextSize (36);
cs.SetColor(255,150,50,250);
cs.DrawText ("(测试版)",255,555);
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;
dx=px/40;
dy=py/40;
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.SetTextStyle (0);
cs.SetFillMode (1);//0不填色，1填色
cs.SetColor (255,240,240,240); //clear n
cs.DrawRect (520,760,605,800);
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
autotest (){
//用于检测AI智能下子算法 testAIq ()
//黑白棋用同一个算法下子很难区分算法的优劣，
//要设计二种算法分别以黑棋VS白棋才能显示出
//算法的优劣。下面代码只可检测算法的可行性。
s7="游戏模式：对战演示";
if (isDo==0||dn>75) {
ss9="( 演示 ) "; print ss9;
cs.DrawText (ss9,655,(dn+2)*16);
isDo=0 ; return ; } //结束标志,测试75子
if (mode==1) return ; //双人模式可演示
if (dn==0) { //设定首子黑先天元位
n=113; wn=0 ; black_do () ; }
//注：对战演示模式可按选定的开局定式演示
wn=wn+1 ;
testAIq () ; //智能计权取得下子点位
if (wn>1) wn=0 ; //轮流下子
if (wn==1) white_do () ; //白棋下子
if (wn==0) black_do () ; //黑棋下子
detect () ; //判胜负
}//autotest ()
//AI智能下子算法求解方案：
//(一) 四连情况，黑棋下子，黑冲四嵌五，白必应子，若白无活四 022220 冲四 122220 022221 和嵌五 22022 22202 20222 则必应，有则先着取胜
//* (二) 三连情况，黑棋下子，黑成活三嵌四，若白无活三 02220 嵌四 2022 2202 则必应， 有则先着下子成活四
//(三) 二连情况，黑棋下子，
//有活二01100嵌三01010，010010基本都是这样， 二连应子：抢先手原则，白棋先找自己的活二嵌三 ，先下子成活三嵌四
//(四) 开局应首子，定标黑子 pn113，白应首子， 大多棋谱是 应上（直指） pn98，上右（斜指） pn99，暂定此应起首三子：按棋谱开局法
//*黑白双方博弈，加权计分，黑攻方进攻点就是白守方防守点。叠加加权计分，乃此算法要点。计分累加标记此点，取最高分作为进攻点和防守点。
//下面的 testAIq () 是测试算法。
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+14]==0) jqn[k+14]= jqn[k+14]+20 ;
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+20 ;
if (pn[k+16]==0) jqn[k+16]= jqn[k+16]+20 ;
}//pn
//二连 002200 为成活三冲四进攻点
if (j>1&&j<13){
if (pn[k]==2&&pn[k+1]==2){ //左右
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+200 ;
if (pn[k-1]==0&&pn[k-2]==0) { jqn[k-2]= jqn[k-2]+310 ; jqn[k-1]= jqn[k-1]+310 ; }
if (pn[k+2]==0) jqn[k+2]= jqn[k+2]+200 ;
if (pn[k+2]==0&&pn[k+3]==0) { jqn[k+3]= jqn[k+3]+310 ; jqn[k+2]= jqn[k+2]+310 ; }
} }
if (i>1&&i<13){
if (pn[k]==2&&pn[k+15]==2){ //上下
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+200 ;
if (pn[k-15]==0&&pn[k-30]==0) { jqn[k-30]= jqn[k-30]+310 ; jqn[k-15]= jqn[k-15]+310 ; }
if (pn[k+30]==0) jqn[k+30]= jqn[k+30]+200 ;
if (pn[k+30]==0&&pn[k+45]==0) { jqn[k+45]= jqn[k+45]+310 ; jqn[k+30]= jqn[k+30]+310 ; }
} }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==2&&pn[k+14]==2){ //左对角
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+200 ;
if (pn[k-14]==0&&pn[k-28]==0) { jqn[k-28]= jqn[k-28]+310 ; jqn[k-14]= jqn[k-14]+310 ; }
if (pn[k+28]==0) jqn[k+28]= jqn[k+28]+200 ;
if (pn[k+28]==0&&pn[k+42]==0) { jqn[k+42]= jqn[k+42]+310 ; jqn[k+28]= jqn[k+28]+310 ; }
} }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==2&&pn[k+16]==2){ //右对角
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+200 ;
if (pn[k-16]==0&&pn[k-32]==0) { jqn[k-32]= jqn[k-32]+310 ; jqn[k-16]= jqn[k-16]+310 ; }
if (pn[k+32]==0) jqn[k+32]= jqn[k+32]+200 ;
if (pn[k+32]==0&&pn[k+48]==0) { jqn[k+48]= jqn[k+48]+310 ; jqn[k+32]= jqn[k+32]+310 ; }
} }
//二连 020020
if (j>1&&j<13){
if (pn[k]==2&&pn[k+3]==2){ //左右
if (pn[k-1]==0&&pn[k+1]==0) jqn[k+1]= jqn[k+1]+510 ;
if (pn[k+4]==0&&pn[k+2]==0) jqn[k+2]= jqn[k+2]+510 ; } }
if (i>1&&i<13){
if (pn[k]==2&&pn[k+45]==2){ //上下
if (pn[k-15]==0&&pn[k+15]==0) jqn[k+15]= jqn[k+15]+510 ;
if (pn[k+60]==0&&pn[k+30]==0) jqn[k+30]= jqn[k+30]+510 ; } }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==2&&pn[k+42]==2){ //左对角
if (pn[k-14]==0&&pn[k+14]==0) jqn[k+14]= jqn[k+14]+510 ;
if (pn[k+56]==0&&pn[k+28]==0) jqn[k+28]= jqn[k+28]+510 ; } }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==2&&pn[k+48]==2){ //右对角
if (pn[k-16]==0&&pn[k+16]==0) jqn[k+16]= jqn[k +16]+510 ;
if (pn[k+64]==0&&pn[k+32]==0) jqn[k+32]= jqn[k+32]+510 ; } }
//嵌三 02020 为成活三冲四进攻点
if (j>1&&j<13){
if (pn[k]==2&&pn[k+1]==0&&pn[k+2]==2){ //左右
jqn[k+1]= jqn[k+1]+510 ;
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+310 ;
if (pn[k+3]==0) jqn[k+3]= jqn[k+3]+310 ; } }
if (i>1&&i<13){
if (pn[k]==2&&pn[k+15]==0&&pn[k+30]==2){ //上下
jqn[k+15]= jqn[k+15]+510 ;
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+310 ;
if (pn[k+45]==0) jqn[k+45]= jqn[k+45]+310 ; } }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==2&&pn[k+14]==0&&pn[k+28]==2){//左对角
jqn[k+14]= jqn[k+14]+510 ;
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+310 ;
if (pn[k+42]==0) jqn[k+42]= jqn[k+42]+310 ; } }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==2&&pn[k+16]==0&&pn[k+32]==2){//右对角
jqn[k+16]= jqn[k+16]+510 ;
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+310 ;
if (pn[k+48]==0) jqn[k+48]= jqn[k+48]+310 ; } }
//三连，眠三抢冲四 12220 02221 逢三必堵
if (j>1&&j<13){
if (pn[k]==2&&pn[k+1]==2&&pn[k+2]==2){ //左右
//三连成嵌五 +550 叠加分进攻点
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+310 ;
if (pn[k-1]==0&&pn[k-2]==0) jqn[k-1]= jqn[k-1]+410 ; //必杀点加权分
if (pn[k-1]==0&&pn[k-2]==0) jqn[k-2]= jqn[k-2]+550 ;
if (pn[k+3]==0) jqn[k+3]= jqn[k+3]+310 ;
if (pn[k+3]==0&&pn[k+4]==0) jqn[k+3]= jqn[k+3]+410 ;
if (pn[k+3]==0&&pn[k+4]==0) jqn[k+4]= jqn[k+4]+550 ; } }
if (i>1&&i<13){
if (pn[k]==2&&pn[k+15]==2&&pn[k+30]==2){ //上下
//三连成嵌五 +550 叠加分进攻点
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+310 ;
if (pn[k-15]==0&&pn[k-30]==0) jqn[k-15]= jqn[k-15]+410 ;
if (pn[k-15]==0&&pn[k-30]==0) jqn[k-30]= jqn[k-30]+550 ;
if (pn[k+45]==0) jqn[k+45]= jqn[k+45]+310 ;
if (pn[k+45]==0&&pn[k+60]==0) jqn[k+45]= jqn[k+45]+410 ;
if (pn[k+45]==0&&pn[k+60]==0) jqn[k+60]= jqn[k+60]+550 ; } }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==2&&pn[k+14]==2&&pn[k+28]==2){//左对角
//三连成嵌五 +550 叠加分进攻点
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+310 ;
if (pn[k-14]==0&&pn[k-28]==0) jqn[k-14]= jqn[k-14]+410 ;
if (pn[k-14]==0&&pn[k-28]==0) jqn[k-28]= jqn[k-28]+550 ;
if (pn[k+42]==0) jqn[k+42]= jqn[k+42]+310 ;
if (pn[k+42]==0&&pn[k+56]==0) jqn[k+42]= jqn[k+42]+410 ;
if (pn[k+42]==0&&pn[k+56]==0) jqn[k+56]= jqn[k+56]+550 ;
} }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==2&&pn[k+16]==2&&pn[k+32]==2){//右对角
//三连成嵌五 +550 叠加分进攻点
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+310 ;
if (pn[k-16]==0&&pn[k-32]==0) jqn[k-16]= jqn[k-16]+410 ;
if (pn[k-16]==0&&pn[k-32]==0) jqn[k-32]= jqn[k-32]+550 ;
if (pn[k+48]==0) jqn[k+48]= jqn[k+48]+310 ;
if (pn[k+48]==0&&pn[k+64]==0) jqn[k+48]= jqn[k+48]+410 ;
if (pn[k+48]==0&&pn[k+64]==0) jqn[k+64]= jqn[k+64]+550 ; } }
//三连，活三变活四，必杀 0022200 与上叠加
if(pn[k2]==0&&pn[k1]==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]+1350 ;
jqn[k+3]= jqn[k+3]+1350 ; }
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]+1350 ;
jqn[k+45]= jqn[k+45]+1350 ; }
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]+1350 ;
jqn[k+42]= jqn[k+42]+1350 ; }
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]+1350 ;
jqn[k+48]= jqn[k+48]+1350 ; }
//*********
//白子算杀，做杀，找活三嵌四交点 +250
//白棋进攻态势，与二连三连计分叠加抢先手
//嵌四类 做冲四 2022 2202 布杀点 +350
// 120220 122020 020221 022021
if (j>1&&j<13){
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]+350 ; } }
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]+350 ; } }
} //j<12
if (i>1&&i<13){
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]+350 ; } }
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]+350 ; } }
}
if(j>3&&i>1&&i<13){ //行2--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]+350 ; } }
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]+350 ; } }
} //j>4, i<12
if (j>1&&j<13&&i<13){ //列2--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]+350 ; } }
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]+350 ; } }
} //i<12&&j<12
//嵌四 020220 022020 必杀点+350 j<12 防越界
if (j>1&&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]+1350 ; }
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]+1350 ; } }
if (i>1&&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]+1350 ; }
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]+1350 ; } }
if (j>3&&j<15&&i>1&&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]+1350 ; }
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]+1350 ; } }
if (j>1&&j<12&&i>1&&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]+1350 ; }
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]+1350 ; } }
//活四冲四成五连 022220 122220 022221
//此是必杀点 +1990 j<12 防越界
//必杀点黑子 +1200, 白子 +1990 先胜
if (j>1&&j<12){
if (pn[k]==2&&pn[k+1]==2&&pn[k+2]==2&&pn[k
+3]==2){ //左右
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+1990 ;
if (pn[k+4]==0) jqn[k+4]= jqn[k+4]+1990 ; } }
if (i>1&&i<12){
if (pn[k]==2&&pn[k+15]==2&&pn[k+30]==2&&pn[k+45]==2){ //上下
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+1990 ;
if (pn[k+60]==0) jqn[k+60]= jqn[k+60]+1990 ; } }
if (j>3&&i>1&&i<12){
if(pn[k]==2&&pn[k+14]==2&&pn[k+28]==2&&pn[k +42]==2){//左对角
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+1990 ;
if (pn[k+56]==0) jqn[k+56]= jqn[k+56]+1990 ; } }
if (j>1&&j<12&&i>1&&i<12){
if (pn[k]==2&&pn[k+16]==2&&pn[k+32]==2&&pn[k+48]==2){//右对角
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+1990 ;
if (pn[k+64]==0) jqn[k+64]= jqn[k+64]+1990 ; } }
//嵌五，此是必杀点 20222 22022 22202
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]+1990 ; }
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]+1990 ; }
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]+1990 ; } } //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]+1990 ; }
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]+1990 ; }
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]+1990 ; } } //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]+1990 ; }
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]+1990 ; }
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]+1990 ; } }
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]+1990 ; }
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]+1990 ; }
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]+1990 ; } }
//****************************
//以下是黑棋估权计分
//黑棋进攻点亦即白棋防守点，白下子亦取高分位
//独子 左右上下 二对角 八方
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]+30 ; //直指
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]+30 ; //斜指
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+20 ;
}//pn
//二连 001100 为成活三冲四进攻点
if (j>1&&j<13){
if (pn[k]==1&&pn[k+1]==1){ //左右
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+100 ;
if (pn[k-1]==0&&pn[k-2]==0) { jqn[k-2]= jqn[k-2]+200 ; jqn[k-1]= jqn[k-1]+300 ; }
if (pn[k+2]==0) jqn[k+2]= jqn[k+2]+100 ;
if (pn[k+2]==0&&pn[k+3]==0) { jqn[k+3]= jqn[k+3]+200 ; jqn[k+2]= jqn[k+2]+300 ; }
} }
if (i>1&&i<13){
if (pn[k]==1&&pn[k+15]==1){ //上下
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+100 ;
if (pn[k-15]==0&&pn[k-30]==0) { jqn[k-30]= jqn[k-30]+200 ; jqn[k-15]= jqn[k-15]+300 ; }
if (pn[k+30]==0) jqn[k+30]= jqn[k+30]+100 ;
if (pn[k+30]==0&&pn[k+45]==0) { jqn[k+45]= jqn[k+45]+200 ; jqn[k+30]= jqn[k+30]+300 ; }
} }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==1&&pn[k+14]==1){ //左对角
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+100 ;
if (pn[k-14]==0&&pn[k-28]==0) { jqn[k-28]= jqn[k-28]+200 ; jqn[k-14]= jqn[k-14]+300 ; }
if (pn[k+28]==0) jqn[k+28]= jqn[k+28]+100 ;
if (pn[k+28]==0&&pn[k+42]==0) { jqn[k+42]= jqn[k+42]+200 ; jqn[k+28]= jqn[k+28]+300 ; }
} }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==1&&pn[k+16]==1){ //右对角
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+100 ;
if (pn[k-16]==0&&pn[k-32]==0) { jqn[k-32]= jqn[k-32]+200 ; jqn[k-16]= jqn[k-16]+300 ; }
if (pn[k+32]==0) jqn[k+32]= jqn[k+32]+100 ;
if (pn[k+32]==0&&pn[k+48]==0) { jqn[k+48]= jqn[k+48]+200 ; jqn[k+32]= jqn[k+32]+300 ; }
} }
//连二 010010
if (j>1&&j<13){
if (pn[k]==1&&pn[k+3]==1){ //左右
if (pn[k-1]==0&&pn[k+1]==0) jqn[k+1]= jqn[k+1]+200 ;
if (pn[k+4]==0&&pn[k+2]==0) jqn[k+2]= jqn[k+2]+200 ; } }
if (i>1&&i<13){
if (pn[k]==1&&pn[k+45]==1){ //上下
if (pn[k-15]==0&&pn[k+15]==0) jqn[k+15]= jqn[k+15]+200 ;
if (pn[k+60]==0&&pn[k+30]==0) jqn[k+30]= jqn[k+30]+200 ; } }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==1&&pn[k+42]==1){ //左对角
if (pn[k-14]==0&&pn[k+14]==0) jqn[k+14]= jqn[k+14]+200 ;
if (pn[k+56]==0&&pn[k+28]==0) jqn[k+28]= jqn[k+28]+200 ; } }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==1&&pn[k+48]==1){ //右对角
if (pn[k-16]==0&&pn[k+16]==0) jqn[k+16]= jqn[k+16]+200 ;
if (pn[k+64]==0&&pn[k+32]==0) jqn[k+32]= jqn[k+32]+200 ; } }
//嵌三 01010 可成双活三
if (j>1&&j<13){
if (pn[k]==1&&pn[k+1]==0&&pn[k+2]==1){ //左右
jqn[k+1]= jqn[k+1]+500 ;
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+300 ;
if (pn[k+3]==0) jqn[k+3]= jqn[k+3]+300 ; } }
if (i>1&&i<13){
if (pn[k]==1&&pn[k+15]==0&&pn[k+30]==1){ //上下
jqn[k+15]= jqn[k+15]+500 ;
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+300 ;
if (pn[k+30]==0) jqn[k+30]= jqn[k+30]+300 ; } }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==1&&pn[k+14]==0&&pn[k+28]==1){//左对角
jqn[k+14]= jqn[k+14]+500 ;
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+300 ;
if (pn[k+28]==0) jqn[k+28]= jqn[k+28]+300 ; } }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==1&&pn[k+16]==0&&pn[k+32]==1){//右对角
jqn[k+16]= jqn[k+16]+500 ;
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+300 ;
if (pn[k+32]==0) jqn[k+32]= jqn[k+32]+300 ; } }
//三连，眠三21110 01112 抢冲四
if (j>1&&j<13){
if (pn[k]==1&&pn[k+1]==1&&pn[k+2]==1){ //左右
//三连成嵌五 +550 叠加分进攻点
if (pn[k-1]==0) jqn[k-1]= jqn[k-1]+300 ;
if (pn[k-1]==0&&pn[k-2]==0) jqn[k-1]= jqn[k-1]+400 ; //必杀点加权分
if (pn[k-1]==0&&pn[k-2]==0) jqn[k-2]= jqn[k-2]+550 ;
if (pn[k+3]==0) jqn[k+3]= jqn[k+3]+300 ;
if (pn[k+3]==0&&pn[k+4]==0) jqn[k+3]= jqn[k+3]+400 ;
if (pn[k+3]==0&&pn[k+4]==0) jqn[k+4]= jqn[k+4]+550 ; } }
if (i>1&&i<13){
if (pn[k]==1&&pn[k+15]==1&&pn[k+30]==1){ //上下
//三连成嵌五 +550 叠加分进攻点
if (pn[k-15]==0) jqn[k-15]= jqn[k-15]+300 ;
if (pn[k-15]==0&&pn[k-30]==0) jqn[k-15]= jqn[k-15]+400 ;
if (pn[k-15]==0&&pn[k-30]==0) jqn[k-30]= jqn[k-30]+550 ;
// if (pn[k-15]==2&&pn[k+45]==0) jqn[k+45]= jqn[k+45]-200 ; //眠三可不堵，???
if (pn[k+45]==0) jqn[k+45]= jqn[k+45]+300 ;
if (pn[k+45]==0&&pn[k+60]==0) jqn[k+45]= jqn[k+45]+400 ;
if (pn[k+45]==0&&pn[k+60]==0) jqn[k+60]= jqn[k+60]+550 ;
} }
if (i>1&&i<13&&j>3&&j<15){
if (pn[k]==1&&pn[k+14]==1&&pn[k+28]==1){//斜左
//三连成嵌五 +550 叠加分进攻点
if (pn[k-14]==0) jqn[k-14]= jqn[k-14]+300 ;
if (pn[k-14]==0&&pn[k-28]==0) jqn[k-14]= jqn[k-14]+400 ;
if (pn[k-14]==0&&pn[k-28]==0) jqn[k-28]= jqn[k-28]+550 ;
if (pn[k+42]==0) jqn[k+42]= jqn[k+42]+300 ;
if (pn[k+42]==0&&pn[k+56]==0) jqn[k+42]= jqn[k+42]+400 ;
if (pn[k+42]==0&&pn[k+56]==0) jqn[k+56]= jqn[k+56]+550 ; } }
if (i>1&&i<13&&j>1&&j<13){
if (pn[k]==1&&pn[k+16]==1&&pn[k+32]==1){//右斜
//三连成嵌五 +550 叠加分进攻点
if (pn[k-16]==0) jqn[k-16]= jqn[k-16]+300 ;
if (pn[k-16]==0&&pn[k-32]==0) jqn[k-16]= jqn[k-16]+400 ;
if (pn[k-16]==0&&pn[k-32]==0) jqn[k-32]= jqn[k-32]+550 ;
if (pn[k+48]==0) jqn[k+48]= jqn[k+48]+300 ;
if (pn[k+48]==0&&pn[k+64]==0) jqn[k+48]= jqn[k+48]+400 ;
if (pn[k+48]==0&&pn[k+64]==0) jqn[k+64]= jqn[k+64]+550 ; } }
//三连，活三变活四 01110 白方逢三必堵
if(pn[k-2]==0&&pn[k-1]==0&&pn[k]==1&&pn[k+1]==1&&pn[k+2]==1&&pn[k+3]==0&&pn[k+4]==0){ //左右
jqn[k-1]= jqn[k-1]+800 ;
jqn[k+3]= jqn[k+3]+800 ; }
if(pn[k-30]==0&&pn[k-15]==0&&pn[k]==1&&pn[k+15]==1&&pn[k+30]==1&&pn[k+45]==0&&pn[k+60]==0){ //上下
jqn[k-15]= jqn[k-15]+800 ;
jqn[k+45]= jqn[k+45]+800 ; }
if(pn[k-28]==0&&pn[k-14]==0&&pn[k]==1&&pn[k+14]==1&&pn[k+28]==1&&pn[k+42]==0&&pn[k+56]==0){//左对角
jqn[k-14]= jqn[k-14]+800 ;
jqn[k+42]= jqn[k+42]+800 ; }
if(pn[k-32]==0&&pn[k-16]==0&&pn[k]==1&&pn[k+16]==1&&pn[k+32]==1&&pn[k+48]==0&&pn[k+64]==0){//右对角
jqn[k-16]= jqn[k-16]+800 ;
jqn[k+48]= jqn[k+48]+800 ; }
//黑方的必杀点就是白方的防守要点
//嵌四 010110 011010 必杀点 +350
if (j>1&&j<12){
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]+350 ; }
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]+350 ; } }
if (i>1&&i<12){
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]+350 ; }
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]+350 ; } }
if (i>1&&i<12&&j>3&&j<15){
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]+350 ; }
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]+350 ; } }
if (i>1&&i<12&&j>1&&j<12){
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]+350 ; }
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]+350 ; } }
//活四冲四 此是必杀点 211110 011112 +1200
//黑有此白必堵，此是必杀点 如白无连五则必应
if (j>1&&j<12){ // j<12 防越界
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]+1200 ;
if (pn[k+4]==0) jqn[k+4]= jqn[k+4]+1200 ; } }
if (i>1&&i<12){
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]+1200 ;
if (pn[k+60]==0) jqn[k+60]= jqn[k+60]+1200 ; } }
if (i>1&&i<12&&j>3&&j<15){
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]+1200 ;
if (pn[k+56]==0) jqn[k+56]= jqn[k+56]+1200 ; } }
if (i>1&&i<12&&j>1&&j<12){
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]+1200 ;
if (pn[k+64]==0) jqn[k+64]= jqn[k+64]+1200 ; } }
//嵌五 10111 11011 11101 +1200
//此是必杀点 如白无连五则必应
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
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]+1200 ; }
} } //test i , j pn(225) 棋盘点位
//******************************
//测试：显示加权计分情况，最高分白下子
if (isDo==0) return ;
cs.SetTextSize (14);
cs.SetTextStyle (0);
cs.SetColor (255,0,0,240) ;
for (i=1;i<=225;i++){ //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) ; //标记分值
} }
//计算最高分
jqf=0 ;
for (i=1;i<=225;i++){
k= jqn[i] ;
if ( k>jqf) { jqf=k ; jqfn=i ; }
} //计算最高分
sn=jqfn ; //计权最高分点位转坐标
// print " sn= ",jqfn ," jqf= ",jqf ; //test
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) ; //test 查看
n=sn ; //下子点号sn转换为n, draw board
px=dx ; py=dy ; //board ()标记下子点
//**** AI 走子 **********************
}//testAIq ()
swapabc (){ //传入col , 输出 ss = "ABC"
//pn(225) 转显示 H8 ...G9...
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 (); //AI 算法测试 ****
//scan restricted move and draw mark
if (jsset==0) restrict_move () ; //禁手设置标记
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 () ; }
testAIq (); //AI 算法测试 ****
//scan restricted move and draw mark
if (jsset==0) restrict_move () ; //禁手设置标记
}//white_do ()
board (){ //绘制棋板，更新棋板
if (isDo==0) return ; //结束标志
fname="/storage/emulated/0/go02.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.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,255,255,255); //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,255,255,255);
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,60,40,20);
cs.SetTextStyle (1);
cs.SetTextSize (14);
string abc$ ;
abc$="sABCDEFGHIJKLMNO" ;
a=0 ; b=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) ;
if (i==9) b=2 ; //"I" + tab 调整
if (i>10) b=-1 ; //"K...O" + tab
cs.DrawText (ss,i*40-4+b,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,255,255,255); //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,90,90,90); //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(95,255,0,0);
cs.DrawRect (390,670,600,740);
cs.SetColor(255,240,240,240);
cs.DrawText (s6,410,720);
cs.SetTextSize (36); //print s7=模式
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);
if(jsset==0){ //禁手设置 on ****
cs.SetColor(255,250,80,120);
cs.DrawText ("有禁手",600,720);
cs.SetColor (255,180,0,180) ;
cs.DrawCircle (690,710,9) ; }//draw mark
if(jsset==1){
cs.SetColor(255,250,80,120);
cs.DrawText ("无禁手",600,720);
cs.SetColor (255,250,250,0) ;
cs.DrawCircle (690,710,9) ; } //mark
cs.SetTextSize (30); // show开局名$ s8
cs.SetColor(255,220,0,200);
cs.DrawText (s8, 382,890);
//draw pieces number 画出下子序号*****
for (i=1;i<=dn;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,220);
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]>100){ //禁手，判白棋胜
print "禁手 pn=", n ;
cs.SetColor(255,255,0,0);
cs.SetTextSize (16);
cs.DrawText ("( 禁手 )",655,(dn+2)*16 );
cs.SetTextSize (40);
cs.DrawText ("( 禁手 )",460,530 );
ss9="白棋胜 !";
goto heqi; }
return;
//********
//** show win flag 判胜负
showwin:
if (dn>120) { //判和棋
ss9="( 和 棋 )"; goto heqi; }
cs.SetTextStyle (0);
cs.SetTextSize (16);
cs.SetColor(255,255,0,0);
if (pn[k]==1) {
ss9="黑棋胜 !"; print ss9;
cs.DrawText (ss9,655,(dn+2)*16); }
if (pn[k]==2) {
ss9="白棋胜 !"; print ss9;
cs.DrawText (ss9,655,(dn+2)*16); }
isDo=0; //结束标志
heqi: //和棋 drawngame
cs.SetTextSize (60);
cs.SetTextStyle (1);
cs.SetFillMode (1);//0不填色，1填色
cs.SetColor(255,0,90,0);
cs.DrawText (ss9,214,544);
cs.SetColor(255,255,0,0);
cs.DrawText (ss9,210,540);
cs.SetFillMode (0);//0不填色，1填色
cs.SetColor(255,250,250,0);
cs.DrawText (ss9,210,540);
print ss9 ; //record
cs.Update ();
isDo=0; //结束标志
}//detect ()
gamestart (){ //开始游戏
setDisplay (1);
isDo=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)禁手
s6="⚫棋选子"; //init
px=320 ; py=320 ; //标记
dn=0; wn=0 ; n=0 ; //计数清零
gn=gn+1; //game round + 1
clearOutput(); //清除记录
s8=" " ; //演示局名
jsset=1 ; //无禁手
board (); //绘出棋板
}//gamestart ()
restrict_set (){ //加禁手设置
jsset=0 ; //设置黑棋禁手 set on
board () ;
}//restrict_set()
restrict_move (){ //禁手设置
//黑棋禁手，加权计算查找
for (i=1;i<=225;i++) { js[i]=0 ; } //init scan
//三三禁手，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){
js[k+1]= js[k+1]+100 ;
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]==1&&pn[k+4]==1) { //101(0)101四四
js[k+1]= js[k+1]+200 ; } }//左右
if (pn[k-15]==0&&pn[k+15]==0&&pn[k+30]==1&&pn[k+45]==0){
js[k+15]= js[k+15]+100 ;
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]==1&&pn[k+60]==1) { //四四
js[k+15]= js[k+15]+200 ; } }//上下
if (pn[k-14]==0&&pn[k+14]==0&&pn[k+28]==1&&pn[k+42]==0){
js[k+14]= js[k+14]+200 ;
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]==1&&pn[k+42]==1) { //四四
js[k+14]= js[k+14]+200 ; } }//斜左
if (pn[k-16]==0&&pn[k+16]==0&&pn[k+32]==1&&pn[k+48]==0){
js[k+16]= js[k+16]+100 ;
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]==1&&pn[k+64]==1) { //四四
js[k+16]= js[k+16]+200 ; } }//右斜
} //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.DrawCircle (dx,dy,5) ; } //draw mark
} }
cs.Update () ;
// sleep(500) ;
}//restrict_move ()
set_smode ( ) { //选择开局定式
if (mode==1) return; //人机模式不设定式
gamestart () ;
smode=doubleInput("选择开局26定式（人机模式不设置定式）", "1. 寒星局 2. 溪月局 3. 疏星局 4. 花月局 ...... 23. 明星局 24. 斜月局 25. 名月局 26. 彗星局 \n 输入 [ 空 ] 或 ( 0 ) 则取消 " );
if (smode==0) return;
if (smode>26) smode=1 ; //防选空
num=(int)smode ; //double to int
n=113 ; wn=0 ;
black_do () ; //开局黑首子天元位
// 1. 寒星局 2. 溪月局 3. 疏星局
// 4. 花月局 5. 残月局 6. 雨月局
// 7. 金星局 8. 松月局 9. 丘月局
//10. 新月局 11. 瑞星局 12. 山月局
//13. 游星局 **> (1－13是直指式)
//14. 长星局 15. 峡月局 16. 恒星局
//17. 水月局 18. 流星局 19. 云月局
//20. 浦月局 21. 岚月局 22. 银月局
//23. 明星局 24. 斜月局 25. 名月局
//26. 彗星局 **>（14－26是斜指式）
if (num==1) { //直指
s8=" 1. 寒星局" ;
n=98 ; white_do () ;
n=83; black_do () ; }
if (num==2) { //直指
s8=" 2. 溪月局" ;
n=98 ; white_do () ;
n=84 ; black_do () ; }
if (num==3) { //直指
s8=" 3. 疏星局" ;
n=98 ; white_do () ;
n=85 ; black_do () ; }
if (num==4) { //直指
s8=" 4. 花月局" ;
n=98 ; white_do () ;
n=99 ; black_do () ; }
if (num==5) { //直指
s8=" 5. 残月局" ;
n=98 ; white_do () ;
n=100 ; black_do () ; }
if (num==6) { //直指
s8=" 6. 雨月局" ;
n=98 ; white_do () ;
n=114 ; black_do () ; }
if (num==7) { //直指
s8=" 7. 金星局" ;
n=98 ; white_do () ;
n=115; black_do () ; }
if (num==8) { //直指
s8=" 8. 松月局" ;
n=98 ; white_do () ;
n=128 ; black_do () ; }
if (num==9) { //直指
s8=" 9. 丘月局" ;
n=98 ; white_do () ;
n=129 ; black_do () ; }
if (num==10) { //直指
s8="10. 新月局" ;
n=98 ; white_do () ;
n=130; black_do () ; }
if (num==11) { //直指
s8="11. 瑞星局" ;
n=98 ; white_do () ;
n=143 ; black_do () ; }
if (num==12) { //直指
s8="12. 山月局" ;
n=98 ; white_do () ;
n=144 ; black_do () ; }
if (num==13) { //直指
s8="13. 游星局" ;
n=98 ; white_do () ;
n=145 ; black_do () ; }
//以上是直指开局13式，以下是斜指开局13式
if (num==14) { //斜指
s8="14. 长星局" ;
n=99 ; white_do () ;
n=85 ; black_do () ; }
if (num==15) { //斜指
s8="15. 峡月局" ;
n=99 ; white_do () ;
n=100 ; black_do () ; }
if (num==16) { //斜指
s8="16. 恒星局" ;
n=99 ; white_do () ;
n=115 ; black_do () ; }
if (num==17) { //斜指
s8="17. 水月局" ;
n=99 ; white_do () ;
n=130 ; black_do () ; }
if (num==18) { //斜指
s8="18. 流星局" ;
n=99 ; white_do () ;
n=145 ; black_do () ; }
if (num==19) { //斜指
s8="19. 云月局" ;
n=99 ; white_do () ;
n=114 ; black_do () ; }
if (num==20) { //斜指
s8="20. 浦月局" ;
n=99 ; white_do () ;
n=129 ; black_do () ; }
if (num==21) { //斜指
s8="21. 岚月局" ;
n=99 ; white_do () ;
n=144 ; black_do () ; }
if (num==22) { //斜指
s8="22. 银月局" ;
n=99 ; white_do () ;
n=128 ; black_do () ; }
if (num==23) { //斜指
s8="23. 明星局" ;
n=99 ; white_do () ;
n=143 ; black_do () ; }
if (num==24) { //斜指
s8="24. 斜月局" ;
n=99 ; white_do () ;
n=127 ; black_do () ; }
if (num==25) { //斜指
s8="25. 名月局" ;
n=99 ; white_do () ;
n=142 ; black_do () ; }
if (num==26) { //斜指
s8="26. 彗星局" ;
n=99 ; white_do () ;
n=141 ; black_do () ; }
}//set_mode ()
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 ()
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 "黑棋胜 ！ " ;
print ss9 ;
} //=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-5,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 ();
set_smode ( ) ;
}
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****
6998
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
