五子棋游戏程序记录和复盘功能设置
大家都玩过手机的小游戏吧。我是编程爱好者，喜欢动脑筋研究一些算法，编程做出小游戏程序，很有趣很有成就感。在学习VB6编程时就编制过钻石棋和伤脑筋十二块那样的游戏，都是标准Windows图形界面的。现在有空闲时就玩手机上编译手机游戏。
前些天我在站内发布了一款双人对弈版的五子棋游戏程序。接下来在研究人机对战的电脑智能应子算法，参阅很多五子棋书籍棋谱和五子棋竞赛的对抗棋谱。为了摆谱，就在此游戏程序上添加了复盘功能。程序没关闭就能复现出上一次的盘面。另外还加了记录功能和显示下子序号，每盘棋都打印黑白双方下子记录，界面上也显示记录。有一点就是程序关闭记录也就没了。解决的方法是把记录存为文本文件，需要时可作为复盘数据。
复盘数据和记录数据添加方法：在下子时记录下子序号，所下子点位，代码如下
加变量声明：
int ?fudat[100] ; ? ?//复盘数据组
int ?fusum ; ? ? ? ? ? //复盘黑白下子总数
string ?cordp ; ? ? ? //每条记录字串
black_do (){ ? ?//黑棋下子
? ? ? ? ?pn[n]=1; ? ?
? ? ? ? ? s6="白棋选子"; ??
? ? ? ? ? ?cordp=" B "+intToString (n); ? ?//走子记录，B 黑子，n 下子
? ? ? if (cordp != ss2) { ? ?//不重复记录
? ? ? ? ? dn=dn+1; ? ?print dn; ? ? ? ? ? ? ?//打印下子序号 dn
? ? ? ? ? ? ?print cordp; ? ss2=cordp; ? ? //打印记录
? ? ? ? ? ? ?dwn[dn]=n ; ? ?//print play number 保留记录
? ? ? ? ? ?fudat[dn]=n; ? ?fusum=dn; ?//复盘数据，复盘总子数
? ? ? ? ? ? ? ? ? ? ? }
? ? ?board ();
? ? ?testAI (); ? ? //电脑下子测试
}//black_do ()
white_do (){ ? ?//白棋下子
? ? ? ? pn[n]=2;
? ? ? ? ? s6="黑棋选子"; ? ? ??
? ? ? ? ? cordp="W "+intToString (n); ? ? //走子记录
? ? ? if (cordp != ss2) {?
? ? ? ? ? ?dn=dn+1; ? ?print dn; ??
? ? ? ? ? ? ?print cordp; ? ?ss2=cordp; ?
? ? ? ? ? ? ?dwn[dn]=n ; ? ?//print play number
? ? ? ? ? fudat[dn]=n; ? ?fusum=dn; ?//复盘
? ? ? ? ? ? ? ?}
}//white_do ()
//复盘功能设置为replay ( ) ?，命令按钮调用即可。
//也可改为按步逐子显示复盘，i＝ 1－ fusum
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 ?序号，单数＝白子，双数＝黑子
? ? ? dx=(kn-(kn/15*15))*40; ? ? //转坐标
? ? ? dy=(kn/15)*40+40;
? ? ? ?if (dx==0){ dx=15*40; ? ?dy=dy-40; ? }
?if ( sd==0){ ?//white 画白子
? print i, " ? W ",kn ; ? ? ? //打印记录
? ? ? ss=intToString (kn);
? ? ? ?cordp="W "+ss; ? ? ? ?//界面记录
? ? cs.SetColor (255,140,80,40); ?//piecesW
? ? ? ?cs.DrawCircle(dx+2,dy+2,15);
? ? cs.SetColor (255,220,220,220); ?//pieceW
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,250,250,250); ?//pieceW
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? }
?if ( sd==1){ ?//black 画黑子
? ? print i, " ? B ",kn ; ? ? ? //打印记录
? ? ? ss=intToString (kn);
? ? ? ?cordp="B "+ss; ? ? ? ?//界面记录
? ? cs.SetColor (255,220,100,40); ?//piecesB
? ? ? ?cs.DrawCircle(dx+1,dy+1,15);
? ? cs.SetColor (255,0,0,0); ? ? ? ? ? ? //pieceB
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,200,200,200); ?//pieceB
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? ? ? }
? ? if (i==fusum){ ? ? ?//最后一子
? ? cs.SetColor (255,0,250,0); ? ?//标志最末胜子点
? ? ? ?cs.DrawCircle(dx,dy,5); ? ? ?
? ? ? ? ? cs.SetTextSize (60); ??
? ? ? ? ? cs.SetColor (255,200,100,50); ?
? ? ? ? ? cs.DrawText ("复 ?盘",253, 553) ; ??
? ? ? ? ? ?cs.SetColor (255,20,250,0); ?
? ? ? ? ? cs.DrawText ("复 ?盘",250, 550) ; ? ? ? }
? ? ? ?cs.SetTextSize (16); ??
? ? ? ?s=intToString (i); ? ? ? //标记序号
? ? ? ? ?cs.SetColor (255,250,0,0); ?
? ? ? ? ?cs.DrawText (s,dx-2,dy+5);
? ? ? //界面显示记录
? ? ? cs.SetTextStyle (0);
? ? ? ?cs.SetTextSize (16);
? ? ?cs.SetColor(255,255,250,250);
? ? cs.DrawText (cordp,665,i*16); ? ? ?//写记录
? ? cs.Update ();
? ? sleep (1000);
? ? ? ? ? ?} ? ? //draw replay chess pieces ? ? ? ? ? ? ? ?
}//replay ()
下面的游戏代码是用MySpringC写的，v2.7是目前最新版本。我是在安卓手机上编写的，可制作成安卓手机桌面app应用程序。此样例可复制黏贴到编译器直接使用，亦可用 VB ，VC, ?java ?改写。
以下是完整的源码：
// ?最简单的 C 语言编程
// ?myspringc ?v2.7 ?可编译安卓本机 app 应用
// ?此样例可复制黏贴到 myspringc ?编译
// ?此文档可用 VB，VC ?, ?java 改写
//**********************************
//**** ? ?五子棋 Gobang ?AI ? ? ? ? ?********
//**** ? ?人机对战 ?双人对奕 ? ? ? ********
//**********************************
Canvas cs; ? ?//画布
string sBarDes[10];
int nBarId[10];
string sMenu[50];
int nMenu[50];
float src[4]; ?//ClearDraw (cls) clear screen
int size[2]; ? ?//load picture size
string s1,s2,s3,s4,s5,s6,s7; ? ? ?//显示
string s,ss,ss1,ss2,ss3;
?int dx,dy; ? ? ? ?//draw X, Y
FileInput filebox; ? //file Input box
string fname; ?//filename
int i,j,t,kn; ? ? ? ? ? //t = times ?计算时间
int pn[300]; ? ? // 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; ? ? ? ?//下子计数
int isDo; ? ? ?//游戏操作控制 1=可下子，0=不可下
int B,W,k; ? //detect win Black White
string cordp; ? //record ? 记录字串
int cord; ? ? ? ?//record switch
int mode; ? ? ?//0=人人，1=人机
int wn; ? ?
int sn;
int dwn[100]; ? ? ?//记录下子点位号，打印界面序号码
int cn; ? ? ?//AI record num
int gn ; ? ?//game round number
int fudat[100]; ? ? ?//复盘数据
int fusum; ? ?//复盘记录总数
int sd; ? ? ? ? //复盘
//**********
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]="记录";
? ?nBarId[5]=105;
? ?setToolBarHeight(6);
? ?setButtonTextSize(13);
? ?setToolBarBackgroundColor(255,220,220,220);
? ?setButtonColor(255,0,0,240);
? ?setButtonTextColor(255,255,255,0);
? ?setToolBar(100,myToolBarProc,sBarDes,nBarId,6);
? ?setTitle("五子棋 (双人对奕) V.1.0.5 ? ");
//**********
? cs.SetProc (context, mycanvasProc);
? ? ? mode=0 ; ?
? ? ? s7="游戏模式：双人对奕";?
? ? ? gn=0;
? ? ? gamestart (); ? ?//游戏初始界面
//draw title ****
? ? ? ? ss3="五子棋 (双人对奕)";
? ?cs.SetTextSize (60);
? ?cs.SetTextStyle (1);
? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? cs.SetColor(255,180,90,40);
? ? ? ? ?cs.DrawText (ss3,104,504);
? ? ? 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.Update(); ?
while (){}
? }//main ()
mycanvasProc (int context,int obj,int id,int event,float x,float y){ ? ? ? ? ?
? ? ? ?// ? board (); ? //redraw board
? ? ?if (isDo==0) return ; ? //结束标志 ??
? ? kn=kn+1; ? ? //延时, ?减少闪屏
? ? ?if ((kn-kn/2*2)==0){ kn=0; ? }else{ ?return; ?} ?
? ? ? ?board (); ? //redraw board
? //** get chess piece 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;
? ? ? ? ? ?n=(dy-1)*15+dx; ? ?//pn number 转棋子编码
? ? ? s5="选定落子位 >> ? "+intToString (n);
? ? cs.SetFillMode (0);//0不填色，1填色
? cs.SetColor (255,250,0,0); ?//chess flag选子标记
? ? cs.DrawRect (px-20,py-20,px+20,py+20); ?
? ? ? ? ? ? ?} ? ?
? ?//选子后落子缓冲按钮
? ? if (isDo==1){ ?//可下子
? ? if (x>100&&x<300&&y>900&&y<960){
? ? ? ? ? ?if (mode==0) black_do (); ? ?//双人对弈
? ? ? ? ? ?if (mode==1) {
? ? ? ? ? ? ? ? ? black_do (); ? ? ? ?//人机，黑棋下子
? ? ? ? ? ? ? ? ?// chessAI (); ? ?} ? ?//人机，机下子 ? ??
? ? ? ? ? ? ? ? ? testAI (); ? ?} ? ?//人机，机下子测试?
? ? ? ? ? ? ? ? } ? ?//黑已下
? ? if (x>400&&x<600&&y>900&&y<960){
? ? ? ? ? white_do (); ?
? ? ? ? ? ? ? ? ? ?} ? //白棋已下
? ? ? ? ?} ?//isDo==1 ? ??
? ?cs.SetFillMode (1);//0不填色，1填色
? ?cs.SetColor (255,230,230,230); ?//clear n
? ? cs.DrawRect (525,770,600,810);
? ? ?// cs.SetColor(255,255,0,0);
? ? // cs.SetTextSize (24);
? ? ?//cs.DrawText (s1,50,700); ?//测试
? ? ?//cs.DrawText (s2,50,740);
? ? ?//cs.DrawText (s3,200,700);
? ? ?//cs.DrawText (s4,200,740);
? ? ?cs.SetColor(255,0,0,180);
? ? ?cs.SetTextSize (30);
? ? ?cs.DrawText (s5,330,800);
? ? cs.Update ();
}//mycanvasProc?
testAI (){
//正在研究电脑下子智能算法********
//求解方案?
//**** AI 走子 **********************?
?return;
do_white: ?
? ?//print " sn= ",sn ," k= ",k ;
? ? ? 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 ();
? ? ?dwn[dn+1]=sn; ? ? //存储白下子信息供打印
}//testAI ()
chessAI (){ ? ? //人机模式 AI下子
? ? ? if (isDo==0) return ; ? //结束标志 ??
?//**** AI 走子 **********************?
?return;
put_white:
? ? ?pn[wn]=2;
? ? ? ? ? s6="黑棋选子"; ? ? ??
? ? ? ? ? cordp="w "+intToString (n); ? ? //走子记录
? ? ? if (cordp != ss2&&n<260) {?
? ? ? ? ? ? ?dn=dn+1; ? ?print dn; ??
? ? ? ? ? ? ?print cordp; ? ?ss2=cordp; ? ? } ? ??
? ? board ();
}//chessAI ()
black_do (){ ? ?//黑棋下子
? ? ? ? ?pn[n]=1; ? ?
? ? ? ? ? s6="白棋选子"; ??
? ? ? ? ? ?cordp=" B "+intToString (n); ? ?//走子记录
? ? ? if (cordp != ss2) { ? ?//不重复记录
? ? ? ? ? dn=dn+1; ? ?print dn; ??
? ? ? ? ? ? ?print cordp; ? ss2=cordp;?
? ? ? ? ? ? ?dwn[dn]=n ; ? ?//print play number
? ? ? ? ? ?fudat[dn]=n; ? ?fusum=dn; ?//复盘
? ? ? ? ? ? ? ? ? ? ? }
? ? ?board ();
? ? ?testAI (); ? ? //test AI
}//black_do ()
white_do (){ ? ?//白棋下子
? ? ? ? pn[n]=2;
? ? ? ? ? s6="黑棋选子"; ? ? ??
? ? ? ? ? cordp="W "+intToString (n); ? ? //走子记录
? ? ? if (cordp != ss2) {?
? ? ? ? ? ?dn=dn+1; ? ?print dn; ??
? ? ? ? ? ? ?print cordp; ? ?ss2=cordp; ?
? ? ? ? ? ? ?dwn[dn]=n ; ? ?//print play number
? ? ? ? ? fudat[dn]=n; ? ?fusum=dn; ?//复盘
? ? ? ? ? ? ? ?}
}//white_do ()
board (){ ? ? ? ?//初始棋盘，更新棋盘
? ?// draw board grids 棋盘方格
? ? cs.SetFillMode (1);//0不填色，1填色
? cs.SetColor (255,250,250,250); ?//backcolor
? ? cs.DrawRect (0,0,650,850); ? ? ? //底板
? cs.SetColor (255,110,110,110); ?
? ? cs.DrawRect (10,10,637,638);
? cs.SetColor (255,220,150,50); ?
? ? cs.DrawRect (8,8,632,632);
? cs.SetColor (255,250,180,100); ?
? ? 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 color
? ? ? ? cs.DrawRect(i*40-1,j*40-1,i*40+39,j*40+39); ?
? ? cs.SetColor (255,250,250,250); ?//grid color
? ? ? ? cs.DrawRect(i*40,j*40,i*40+40,j*40+40); ?
? ? ? ? ?} ?}
? ? cs.SetColor (255,0,0,0); ?// 框线
? ? ? ?cs.DrawRect (21,21,620,620);
? ? ? ?cs.DrawRect (20,20,620,620);
? ? //draw flag points
? ? cs.SetFillMode (1);//0不填色，1填色
? ? cs.SetColor (255,240,240,240); ?//pieces
? ? ? ?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); ? ?//中元
? //draw button 绘制按钮
? cs.SetColor (255,250,250,250); ?
? ? cs.DrawRect (100,900,301,960);
? ? cs.DrawRect (400,900,601,960);
? cs.SetColor (255,250,0,0); ?
? ? ? for (i=1;i<60;i++){ ? ?//按钮渐变色
? cs.SetColor (255,240-i*4,240-i*3,250-i*4); ?
? ? ? cs.DrawLine (101,900+i,300,900+i); ?
? ? ? cs.DrawLine (401,900+i,600,900+i); ?
? ? ? ? ? } ? ?
? ?cs.SetColor (255,0,120,0); ?
? ? ? ?cs.DrawCircle (141,931,15);
? ?cs.SetColor (255,0,0,0); ?
? ? ? ?cs.DrawCircle (140,930,15);
? ?cs.SetColor (255,220,220,220); ?
? ? ? ?cs.DrawCircle (135,925,2);
? ?cs.SetColor (255,0,120,0); ?
? ? ? ?cs.DrawCircle (442,932,15);
? ?cs.SetColor (255,220,220,220); ?
? ? ? cs.DrawCircle (440,930,15);
? ?cs.SetColor (255,250,250,250); ?
? ? ? ?cs.DrawCircle (435,925,2);
? ? ? cs.SetColor(255,255,250,0);
? ? ? cs.SetTextStyle (1);
? ? ? cs.SetTextSize (32);
? ? ? cs.DrawText ("黑子下",178,940);
? ? ? cs.DrawText ("白子下",478,940);
? ?//print title ?界面文字
? ? cs.SetTextSize (80);
? ? ? cs.SetTextStyle (1);
? ?cs.SetColor (255,100,100,100); ?
? ? ? ? cs.DrawText ("五子棋",50,770);
? ? ? ? cs.DrawText ("Gobang",50,870);
? ?cs.SetColor (255,220,220,220); ?
? ? ? ? cs.DrawText ("五子棋",52,772);
? ? ? ? cs.DrawText ("Gobang",52,872);
? ?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,15);
? ? cs.SetColor (255,220,220,220); ?//pieceW
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,250,250,250); ?//pieceW
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? }
?if (pn[i]==1){ ?//black
? ? cs.SetColor (255,220,100,40); ?//piecesB
? ? ? ?cs.DrawCircle(dx+1,dy+1,15);
? ? cs.SetColor (255,0,0,0); ? ? ? ? ? ? ?//pieceB
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,200,200,200); ?//pieceB
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? ? ? }
? ? ? ? ? ? ? } ? ? //draw chess pieces
? ? ?cs.SetColor (255,240,0,0); ?//刚落子标记
? ? ? ?cs.DrawCircle(px,py,5);
? ? //提示选子
? ? ?cs.SetTextSize (42);
? ? ?cs.SetColor(255,255,120,250);
? ? ?cs.DrawRect (390,670,600,740);
? ? ?cs.SetColor(255,255,250,0);
? ? ?cs.DrawText (s6,415,720); ? ?//pn num
? ? ?cs.SetTextSize (36);
? ? if (mode==0) cs.SetColor(255,205,200,80);
? ? if (mode==1) cs.SetColor(255,250,150,0);
? ? cs.DrawText (s7,20,680); ? ? ?//mode
? ? ? ?cs.SetTextStyle (0);
? ? ? ?cs.SetTextSize (16);
? ? ?cs.SetColor(255,255,250,250);
? ? cs.DrawText (cordp,665,dn*16); ? ? ?//record?
? //draw pieces number 画出下子序号*****
? ? ?for (i=1;i<=dn;i++){ ? ?//到已下子总数
? ? ? ?cn=i ;
? ? ? ?s=intToString(cn) ;
? ? ? ? ? ? kn=dwn[i] ; ? ? ? ? //读取下子点位号转为坐标 dx，dy?
? ? ?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+11);
? ? ? ? ? ? ? ? } ??
? 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){ ?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){ ?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){ ?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){ ?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 (dn>100) {
? ? ? ss="( ?和 ?棋 ?)"; ?goto showwin; ? ?}
return;
?//show win flag ?判胜负
showwin: ? ?
? ? ?cs.SetTextSize (60);
? ? ? if (pn[k]==1) { ss="黑棋胜 ! ?!"; ? print ss; }
? ? ? if (pn[k]==2) { ss="白棋胜 ! ?!"; ? print ss; }
? ?cs.SetTextStyle (1);
? ? ?cs.SetFillMode (1);//0不填色，1填色
? ? cs.SetColor(255,180,90,40);
? ? ? ? ?cs.DrawText (ss,204,504);
? ? ? cs.SetColor(255,255,0,0);
? ? ? ? ?cs.DrawText (ss,200,500);
? ? cs.SetFillMode (0);//0不填色，1填色
? ? cs.SetColor(255,250,250,0);
? ? ? ? ?cs.DrawText (ss,200,500);
? cs.Update ();
? ? ?isDo=0; ? ? ?//结束标志
}//detect ()
?
gamestart (){
? ? setDisplay (1); ?
? ? cord=1 ; ? ?//记录开关
? ? for (i=1;i<226;i++){ ?pn[i]=0; ? } ? //init pn (n)
? ? for (i=0;i<=90;i++){ ?dwn[i]=0; ? } ? //init dwn (n)
? ? ? ? isDo=1; ? ? ? ? //游戏操作控制
? ? ? ? s6="黑棋选子"; ? ? //init
? ? ? ? px=320 ; ?py=320 ; ? ? ?//标记
? ? ? ?// mode=0 ; ?s7="游戏模式：双人对奕";
? ? ? ? dn=0; ? ? ?//计数清零
? ? ? ? gn=gn+1; ? ?//game round + 1
? ? ? ? ?clearOutput(); ? ? //清除记录
? ? ? ? ?cs.SetBackground(200,200,200); ?//清记录
? ? ? ?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 ("悔",652,dn*16); ??
? ? ? ? ? ? dn=dn-1 ; ?//序号减 1
? ? ? ? ? ? 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 ?序号，单数＝白子，双数＝黑子
? ? ? dx=(kn-(kn/15*15))*40; ? ? //转坐标
? ? ? dy=(kn/15)*40+40;
? ? ? ?if (dx==0){ dx=15*40; ? ?dy=dy-40; ? }
?if ( sd==0){ ?//white 画白子
? print i, " ? W ",kn ; ? ? ? //打印记录
? ? ? ss=intToString (kn);
? ? ? ?cordp="W "+ss; ? ? ? ?//界面记录
? ? cs.SetColor (255,140,80,40); ?//piecesW
? ? ? ?cs.DrawCircle(dx+2,dy+2,15);
? ? cs.SetColor (255,220,220,220); ?//pieceW
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,250,250,250); ?//pieceW
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? }
?if ( sd==1){ ?//black 画黑子
? ? print i, " ? B ",kn ; ? ? ? //打印记录
? ? ? ss=intToString (kn);
? ? ? ?cordp="B "+ss; ? ? ? ?//界面记录
? ? cs.SetColor (255,220,100,40); ?//piecesB
? ? ? ?cs.DrawCircle(dx+1,dy+1,15);
? ? cs.SetColor (255,0,0,0); ? ? ? ? ? ? //pieceB
? ? ? ?cs.DrawCircle(dx,dy,15);
? ? cs.SetColor (255,200,200,200); ?//pieceB
? ? ? ?cs.DrawCircle(dx-5,dy-5,2); ? ? ? }
? ? if (i==fusum){ ? ? ?//最后一子
? ? cs.SetColor (255,0,250,0); ? ?//标志最末胜子点
? ? ? ?cs.DrawCircle(dx,dy,5); ? ? ?
? ? ? ? ? cs.SetTextSize (60); ??
? ? ? ? ? cs.SetColor (255,200,100,50); ?
? ? ? ? ? cs.DrawText ("复 ?盘",253, 553) ; ??
? ? ? ? ? ?cs.SetColor (255,20,250,0); ?
? ? ? ? ? cs.DrawText ("复 ?盘",250, 550) ; ? ? ? }
? ? ? ?cs.SetTextSize (16); ??
? ? ? ?s=intToString (i); ? ? ? //标记序号
? ? ? ? ?cs.SetColor (255,250,0,0); ?
? ? ? ? ?cs.DrawText (s,dx-2,dy+5);
? ? ? //界面显示记录
? ? ? cs.SetTextStyle (0);
? ? ? ?cs.SetTextSize (16);
? ? ?cs.SetColor(255,255,250,250);
? ? cs.DrawText (cordp,665,i*16); ? ? ?//写记录
? ? cs.Update ();
? ? sleep (1000);
? ? ? ? ? ?} ? ? //draw replay chess pieces ? ? ? ? ? ? ? ?
}//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){//悔棋
? ? ? ? ? ? undo () ; ??
? ? ? ? ? ? ? ? ? ? }
? ? ? if(nBtn==103){//显示图板，复盘
? ? ? ? ? ? replay ();
? ? ? ? ? ? ? ? ? ? ?}
? ? ? 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 ()
loadpic (){ ?//可用于装载预设棋盘底图
//use filebox open a file 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,2);
? ? ? ? ? cs.Update ();
? ? ? ? ? ? ? }
}//loadpic ()
?
//**** ?End ?********
?