独立钻石棋游戏设计制作（C语言）
我是编程爱好者。早期使用windows时就被扫雷游戏，钻石棋游戏，红心大战游戏迷住。相信大家也都玩过吧。在学习VB6编程时就编制过钻石棋和红心大战那样的纸牌游戏。都是标准Windows图形界面的。我在本站上传过VB6版的独立钻石棋资源，可参考。
去年年底在本站发了一博文介绍独立钻石棋游戏C语言的设计制作。在机器审核时把代码都搞乱了，删掉好多”＝”符号，这代码我也看不懂了。今重新整理重新发布此游戏的设计制作博文。程序中设置了二十几个图例的自动演示功能。供玩家探索把玩。
我喜欢编制游戏程序，即好玩又有兴趣，玩益智游戏是大脑运动又是大脑调剂休息好方法。编制游戏程序亦如是。
MySpringC不仅可以编写简单的C语言程序，而且它能读取手机中各种传感器的数值,控制各种多媒体设备，从而实现让普通用户用C语言控制手机，编写出意想不到的、适合自己使用的应用。v.2.7是目前的完善版本。下面的游戏代码就是用它在安卓手机上编写的，可制作成安卓手机桌面app应用程序。此样例可复制黏贴到编译器直接使用，亦可用 VB6 ，C++ , java 改写。
以下是源码：
//****************************************
//* 十字钻石棋 Version 2.7.1 *
//* PEG SOLITAIRE *
//* 制作：张纯叔 ( micelu@126.com ) *
//****************************************
Canvas cs;
string sBarDes[10];
int nBarId[10];
string sMenu[50];
int nMenu[50];
float src[4]; //ClearDraw (cls) clear screen
string s,ss,s1,s2,s3; //put out string
float x,y,x0,y0,x1,y1; //draw table & chess
double sx,sy; // step$
string sxs,sys,px,py;
int i,j,k,n,mode;
int kn; //chess down or up touch
double sn; //mode : 1 -- 30
int pn[33]; //chess pieces 0=" " , 1=set
int dx[33]; //chess x y
int dy[33];
int context; //canvasProc
int obj;
int id;
int event;
float p[3];
string pss[81]; //autoplay data$
string pm; //for autoplay mode
string ms;
string m1,m2,m3;
int p1,p2,p3;
int kstep; //autoplay mode steps
int pdown,pup; //user 起子 落子
int autoplay; //set autoplay sleep (1000)
int im,in; //num check moveable
int status; //show status
int tim[3]; //get Time
int thh,tmm,tss;
int oldhh,oldmm,oldss;
int newhh,newmm,newss;
int mms; //show using time
string hhts,mmts,ssts;
string ts,ts1,ts2;
string ss1,ss2,ss3,ps1,ps2,ps3;
main(){
cs.Update();
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,192,192,192);
setButtonColor(255,0,0,240);
setButtonTextColor(255,255,255,0);
setToolBar(100,myToolBarProc,sBarDes,nBarId,7);
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;
sMenu[8]="退出程序 ";
nMenu[8]=208;
setMenu(50,myMenuProc,sMenu,nMenu,8);
setTitle("十字钻石棋 v2.7.1");
sxs="250350450250350450050150250350450550650050150250350450550650050150250350450550650250350450250350450";
sys="100100100200200200300300300300300300300400400400400400400400500500500500500500500600600600700700700";
cs.SetProc (context, mycanvasProc);
kn=1; //hot swetch 0=down,1=up
sn=1; mode=1; //init mode first
drawcover (); //show version
setDisplay (1);
cs.Update ();
while (){}
}//main ()
drawcover (){// draw ver2.7 title
cs.SetFillMode (1);//0不填色，1填色
cs.SetStrokeWidth (0);
cs.SetColor(255,150,50,200);
cs.DrawRect(0,2,720,980); //back color
cs.SetColor(255,0,0,150);
cs.DrawRect(135,95,585,545);
cs.SetColor(255,10,180,180);
cs.DrawRect(130,90,580,540);
cs.SetColor(255,120,120,120);
cs.DrawRect(140,100,570,530);
cs.SetColor(255,250,250,250); //draw grid
cs.DrawRect(175,254,536,256);
cs.DrawRect(175,314,536,316);
cs.DrawRect(175,374,536,376);
cs.DrawRect(295,134,416,136);
cs.DrawRect(295,194,416,196);
cs.DrawRect(295,434,416,436);
cs.DrawRect(295,494,416,496);
cs.DrawRect(294,134,296,496);
cs.DrawRect(354,134,356,496);
cs.DrawRect(414,134,416,496);
cs.DrawRect(174,254,176,376);
cs.DrawRect(234,254,236,376);
cs.DrawRect(474,254,476,376);
cs.DrawRect(534,254,536,376);
for (i=1;i<8;i++){//draw pieces
for (j=1;j<8;j++){
x1=i*60+115;
y1=j*60+75;
cs.SetColor (255,0,0,125);
cs.DrawCircle (x1+1,y1+1,15);
cs.SetColor (255,0,0,255);
cs.DrawCircle (x1-2,y1-2,15);
cs.SetColor (255,235,235,235);
cs.DrawCircle (x1-5,y1-5,2); }
}
cs.SetColor(255,235,235,235);
cs.DrawRect(140,100,260,225);
cs.DrawRect(450,100,570,225);
cs.DrawRect(140,410,260,530);
cs.DrawRect(450,410,570,530);
cs.SetColor(255,120,120,120);
cs.DrawRect(338,298,371,332);
cs.SetColor(255,235,235,235);
cs.DrawCircle (355,315,15);
cs.SetColor(255,180,180,180);
cs.DrawCircle (355,315,11);
s="十字钻石棋";
s1="PEG SOLITAIRE";
cs.SetColor(255,0,0,155);
cs.SetTextSize (96);
cs.DrawText (s,134,644);
cs.SetTextSize (66);
cs.DrawText (s1,136,714);
cs.SetColor(255,250,250,0);
cs.SetTextSize (96);
cs.DrawText (s,130,640);
cs.SetTextSize (66);
cs.DrawText (s1,130,710);
cs.DrawText (s1,132,710);
cs.SetTextSize (36);
cs.DrawText ("Copyright Version 2.7.1 ",177,760);
cs.DrawRect (5,900,715,903);
cs.SetTextSize (28);
s2="编译人：张纯叔（ micelu@126.com ）";
cs.DrawText (s2,20,930);
cs.SetFillMode (0);//0不填色，1填色
cs.SetColor(255,250,200,0);
cs.DrawRect(134,95,575,535);
cs.SetColor(255,0,250,0);
cs.SetTextSize (96);
cs.DrawText (s,130,640);
cs.SetTextSize (66);
cs.DrawText (s1,132,710);
status=0;
}//drawface ()
drawpad (){ //show out steps and redraw board
cs.ClearDraw (0,src);
cs.SetStrokeWidth (2);
cs.SetFillMode (1);//0不填色，1填色
cs.SetColor(255,200,100,20);
for (i=0;i<6;i++){
cs.DrawRect(5+i,55+i*2,699+i,749+i*2) ; }
cs.SetColor(255,250,200,0);
cs.DrawRect(3,53,697,747);
cs.SetColor(255,120,120,120);
cs.DrawRect(11,61,688,738);
cs.SetColor(255,250,250,250);
cs.DrawRect (15,65,205,260);
cs.DrawRect (495,65,685,260);
cs.DrawRect (15,540,205,735);
cs.DrawRect (495,540,685,735);
cs.SetFillMode (0);//0不填色，1填色
cs.SetColor(255,130,60,0);
cs.DrawRect(11,61,687,737);
cs.SetColor(255,250,250,250);
cs.DrawRect (50,300,650,500);
cs.DrawRect (250,100,450,700);
cs.DrawLine (50,400,650,400);
cs.DrawLine (350,100,350,700);
cs.DrawLine (250,200,450,200);
cs.DrawLine (250,600,450,600);
cs.DrawLine (150,300,150,500);
cs.DrawLine (550,300,550,500);
cs.SetFillMode (1);//0不填色，1填色
for (i=1;i<34;i++){ //get pn(dx,dy) draw board
s1=subString (sxs,(i-1)*3,3);
dx[i]=(int)(stringToDouble (s1));
s2=subString (sys,(i-1)*3,3);
dy[i]=(int)(stringToDouble (s2));
cs.SetColor(255,250,250,250);
cs.DrawCircle (dx[i],dy[i],21);
cs.SetColor(255,200,200,200);
cs.DrawCircle (dx[i],dy[i],17);
//s=intToString (i); //print chess number
// cs.SetTextSize (20);
//cs.SetColor(255,0,0,220);
//if (i>9){k=7;}else{k=0;}
//cs.DrawText (s,dx[i]-5-k,dy[i]+7);
}
cs.SetTextSize (22);
if (status==1){
cs.SetColor(255,20,150,240);
cs.DrawRect (500,70,680,255);
cs.SetColor (255,255,0,0);
cs.DrawText ("选取起始棋子 >>",510,100);
}
for (i=1;i<34;i++){ //draw out chess pieces
if (pn[i]==1){
cs.SetColor (205,0,0,135);
cs.DrawCircle (dx[i]+2,dy[i]+2,24);
cs.SetColor (255,0,0,255);
cs.DrawCircle (dx[i]-3,dy[i]-3,25);
cs.SetColor (255,0,90,255);
cs.DrawCircle (dx[i]-10,dy[i]-10,6);
cs.SetColor (255,0,220,255);
cs.DrawCircle (dx[i]-9,dy[i]-11,2);
cs.DrawCircle (dx[i]-11,dy[i]-9,2);
//show chess pieces (num,dx,dy) ********
// cs.SetTextSize (18);
//cs.SetColor(255,255,0,0);
//s=intToString (i); //show pieces num
//px=doubleToString (dx[i]);
// py=doubleToString (dy[i]);
//cs.DrawText (s,i*21-5,50);
s1=intToString (mode); //mode number
cs.SetTextSize (28);
cs.SetColor (255,255,0,0);
ss="游戏图形： "+s1+". "+s3;
cs.DrawText (ss,365,40);
} }
cs.SetColor (255,250,0,0);
cs.SetTextSize (24); //show times
cs.DrawText (ts,20,820);
cs.DrawText (ts1,20,850);
cs.DrawText (ts2,20,880);
cs.DrawText (ss3,320,820);
cs.Update ();
if (status==0) return;
if (autoplay==1) sleep (1000);
n=0; //detect chess End ********
for (i=1;i<34;i++){
if (pn[i]==1)n=n+1; }
if (n==1){
ss=s1+". "+s3+" > You Win ! ! 棒极了, 伙计！";
msgBox ("十字钻石棋 v2.7.1 ",ss);
status=0;
showtimes ();
return; }
}//drawpad ()
mycanvasProc (int context,int obj,int id,int event,float x,float y){
cs.RemoveAllHotObjects();
for (i=1;i<34;i++){//set hot point > circle...
cs.AddHotCircle(i,dx[i],dy[i],29,4,0); }
// get hot circle touch and check step ********
cs.GetHotObject(4,p);
// game start kn=1 ***
if (event==0||event==10){ //get chess touch
kn=kn+1;
if (kn>1)kn=0;
if (kn==0)pdown=id;
if (kn==1)pup=id;
if (kn==1&&pup>0&&pdown>0){
print "do > ",pdown," - ",pup;
// ps1=intToString (k+1); //show step
ps2=intToString (pdown);
ps3=intToString (pup);
ss3="do> step "+" "+ps2+" - "+ps3; }
} //mouse down & mouse up ********
if ( pup>0&&pdown>0) checkstep ();
//** renew step output , step down step up
if (status==1){
cs.SetColor(255,20,150,240);
cs.DrawRect (500,70,680,255); // clear print
s=intToString(id);
if (s=="0")s=" ";
cs.SetTextSize (22);
cs.SetColor (255,255,0,0);
cs.DrawText ("选取起始棋子 >>",510,100);
cs.DrawText ("选取落子位 >>",510,170);
if (kn==0){ s2=" 起始位："+ s; }
else{ s2=" 落子位："+ s; }
if (kn==0) cs.DrawText (s2,510,130);
if (kn==1) cs.DrawText (s2,510,200); }
//** check remained chess pieces
if (status==1) checkmove ();
cs.Update();
}//mycanvasProc ()
checkmove(){ //check remained chess pieces
for (i=0;i<34;i++){
if (i==1&&pn[i]==1){
if (pn[4]==1||pn[2]==1)return; }
if (i==2&&pn[i]==1){
if (pn[5]==1)return; }
if (i==3&&pn[i]==1){
if (pn[6]==1||pn[2]==1)return; }
if (i==4&&pn[i]==1){
if (pn[5]==1||pn[9]==1)return; }
if (i==5&&pn[i]==1){
if (pn[10]==1)return; }
if (i==6&&pn[i]==1){
if (pn[5]==1||pn[11]==1)return; }
if (i==7&&pn[i]==1){
if (pn[8]==1||pn[14]==1)return; }
if (i==8&&pn[i]==1){
if (pn[9]==1||pn[15]==1)return; }
if (i==9&&pn[i]==1){
if (pn[16]==1||pn[4]==1||pn[8]==1||pn[10]==1)return; }
if (i==10&&pn[i]==1){
if (pn[17]==1||pn[5]==1||pn[9]==1||pn[11]==1)return; }
if (i==11&&pn[i]==1){
if (pn[12]==1||pn[6]==1||pn[18]==1||pn[10]==1)return; }
if (i==12&&pn[i]==1){
if (pn[11]==1||pn[19]==1)return; }
if (i==13&&pn[i]==1){
if (pn[12]==1||pn[20]==1)return; }
if (i==14&&pn[i]==1){
if (pn[15]==1)return; }
if (i==15&&pn[i]==1){
if (pn[16]==1)return; }
if (i==16&&pn[i]==1){
if (pn[23]==1||pn[9]==1||pn[15]==1||pn[17]==1)return; }
if (i==17&&pn[i]==1){
if (pn[24]==1||pn[10]==1||pn[18]==1||pn[16]==1)return; }
if (i==18&&pn[i]==1){
if (pn[25]==1||pn[11]==1||pn[17]==1||pn[19]==1)return; }
if (i==19&&pn[i]==1){
if (pn[18]==1)return; }
if (i==20&&pn[i]==1){
if (pn[19]==1)return; }
if (i==21&&pn[i]==1){
if (pn[14]==1||pn[22]==1)return; }
if (i==22&&pn[i]==1){
if (pn[15]==1||pn[23]==1)return; }
if (i==23&&pn[i]==1){
if (pn[16]==1||pn[28]==1||pn[22]==1||pn[24]==1)return; }
if (i==24&&pn[i]==1){
if (pn[17]==1||pn[29]==1||pn[23]==1||pn[25]==1)return; }
if (i==25&&pn[i]==1){
if (pn[18]==1||pn[30]==1||pn[24]==1||pn[26]==1)return; }
if (i==26&&pn[i]==1){
if (pn[19]==1||pn[25]==1)return; }
if (i==27&&pn[i]==1){
if (pn[20]==1||pn[26]==1)return; }
if (i==28&&pn[i]==1){
if (pn[23]==1||pn[29]==1)return; }
if (i==29&&pn[i]==1){
if (pn[24]==1)return; }
if (i==30&&pn[i]==1){
if (pn[25]==1||pn[29]==1)return; }
if (i==31&&pn[i]==1){
if (pn[28]==1||pn[32]==1)return; }
if (i==32&&pn[i]==1){
if (pn[29]==1)return; }
if (i==33&&pn[i]==1){
if (pn[30]==1||pn[32]==1)return; }
}
//****** finished check move ********
im=0;
for (i=0;i<34;i++){
if (pn[i]==1)im=im+1; }
if (im>1){
status=0;
s=intToString (im);
ss=" 还剩下 "+s+" 枚棋子。 再努力。";
msgBox ("十字钻石棋 v2.7.1",ss);
showtimes (); }
}//checkmove ()
showtimes (){
getTime (tim);
newhh=tim[0];
newmm=tim[1];
newss=tim[2];
hhts=intToString (tim[0]);
mmts=intToString (tim[1]);
ssts=intToString (tim[2]);
if (newhh<10)hhts="0"+hhts;
if (newmm<10)mmts="0"+mmts;
if (newss<10)ssts="0"+ssts;
mms=((newhh-oldhh)*3600)+
((newmm-oldmm)*60)+((newss-oldss));
if (mms<0) mms=mms+864000;
thh=mms/3600;
tmm=(mms-thh*2600)/60;
tss=mms-thh*3600-tmm*60;
ss1=intToString (tmm)+" 分 "+intToString (tss)+" 秒";
ss2=hhts+" : "+mmts+" : "+ssts;
ts1= "完成 > "+ss2;
ts2= "用时 > "+ss1;
print ts1;
print ts2;
drawpad (); //show ts1,ts2
}//showtimes ()
checkstep (){
//check steps if ture drawpad and show ********
if(pdown==1&&pn[pdown]==1&&pup==3&&pn[pup]==0&&pn[2]==1){//010203
pn[pdown]=0; pn[2]=0; pn[pup]=1; }
if(pdown==1&&pn[pdown]==1&&pup==9&&pn[pup]==0&&pn[4]==1){//010409
pn[pdown]=0; pn[4]=0; pn[pup]=1; }
if(pdown==2&&pn[pdown]==1&&pup==10&&pn[pup]==0&&pn[5]==1){//020510
pn[pdown]=0; pn[5]=0; pn[pup]=1; }
if(pdown==3&&pn[pdown]==1&&pup==1&&pn[pup]==0&&pn[2]==1){//030201
pn[pdown]=0; pn[2]=0; pn[pup]=1; }
if(pdown==3&&pn[pdown]==1&&pup==11&&pn[pup]==0&&pn[6]==1){//030611
pn[pdown]=0; pn[6]=0; pn[pup]=1; }
if(pdown==4&&pn[pdown]==1&&pup==16&&pn[pup]==0&&pn[9]==1){//040916
pn[pdown]=0; pn[9]=0; pn[pup]=1; } if(pdown==4&&pn[pdown]==1&&pup==6&&pn[pup]==0&&pn[5]==1){//040506
pn[pdown]=0; pn[5]=0; pn[pup]=1; }
if(pdown==5&&pn[pdown]==1&&pup==17&&pn[pup]==0&&pn[10]==1){//051017
pn[pdown]=0; pn[10]=0; pn[pup]=1; }
if(pdown==6&&pn[pdown]==1&&pup==4&&pn[pup]==0&&pn[5]==1){//060504
pn[pdown]=0; pn[5]=0; pn[pup]=1; }
if(pdown==6&&pn[pdown]==1&&pup==18&&pn[pup]==0&&pn[11]==1){//061118
pn[pdown]=0; pn[11]=0; pn[pup]=1; }
if(pdown==7&&pn[pdown]==1&&pup==9&&pn[pup]==0&&pn[8]==1){//070809
pn[pdown]=0; pn[8]=0; pn[pup]=1; }
if(pdown==7&&pn[pdown]==1&&pup==21&&pn[pup]==0&&pn[14]==1){//071421
pn[pdown]=0; pn[14]=0; pn[pup]=1; }
if(pdown==8&&pn[pdown]==1&&pup==10&&pn[pup]==0&&pn[9]==1){//080910
pn[pdown]=0; pn[9]=0; pn[pup]=1; }
if(pdown==8&&pn[pdown]==1&&pup==22&&pn[pup]==0&&pn[15]==1){//081522
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown==9&&pn[pdown]==1&&pup==1&&pn[pup]==0&&pn[4]==1){//090401
pn[pdown]=0; pn[4]=0; pn[pup]=1; }
if(pdown==9&&pn[pdown]==1&&pup==7&&pn[pup]==0&&pn[8]==1){//090807
pn[pdown]=0; pn[8]=0; pn[pup]=1; }
if(pdown==9&&pn[pdown]==1&&pup==11&&pn[pup]==0&&pn[10]==1){//091011
pn[pdown]=0; pn[10]=0; pn[pup]=1; } if(pdown==9&&pn[pdown]==1&&pup==23&&pn[pup]==0&&pn[16]==1){//091623
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown==10&&pn[pdown]==1&&pup==2&&pn[pup]==0&&pn[5]==1){ //100502
pn[pdown]=0; pn[5]=0; pn[pup]=1; } if(pdown==10&&pn[pdown]==1&&pup==8&&pn[pup]==0&&pn[9]==1){//100908
pn[pdown]=0; pn[9]=0; pn[pup]=1; }
if(pdown==10&&pn[pdown]==1&&pup==12&&pn[pup]==0&&pn[11]==1){ //101112
pn[pdown]=0; pn[11]=0; pn[pup]=1; } if(pdown==10&&pn[pdown]==1&&pup==24&&pn[pup]==0&&pn[17]==1){//101724
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown==11&&pn[pdown]==1&&pup==3&&pn[pup]==0&&pn[6]==1){//110603
pn[pdown]=0; pn[6]=0; pn[pup]=1; }
if(pdown==11&&pn[pdown]==1&&pup==9&&pn[pup]==0&&pn[10]==1){//111009
pn[pdown]=0; pn[10]=0; pn[pup]=1; } if(pdown==11&&pn[pdown]==1&&pup==13&&pn[pup]==0&&pn[12]==1){//111213
pn[pdown]=0; pn[12]=0; pn[pup]=1; }
if(pdown==11&&pn[pdown]==1&&pup==25&&pn[pup]==0&&pn[18]==1){//111825
pn[pdown]=0; pn[18]=0; pn[pup]=1; }
if(pdown==12&&pn[pdown]==1&&pup==10&&pn[pup]==0&&pn[11]==1){//121110
pn[pdown]=0; pn[11]=0; pn[pup]=1; }
if(pdown==12&&pn[pdown]==1&&pup==26&&pn[pup]==0&&pn[19]==1){//121926
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown==13&&pn[pdown]==1&&pup==11&&pn[pup]==0&&pn[12]==1){ //131211
pn[pdown]=0; pn[12]=0; pn[pup]=1; } if(pdown==13&&pn[pdown]==1&&pup==27&&pn[pup]==0&&pn[20]==1){//132027
pn[pdown]=0; pn[20]=0; pn[pup]=1; }
if(pdown==14&&pn[pdown]==1&&pup==16&&pn[pup]==0&&pn[15]==1){//141516
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown==15&&pn[pdown]==1&&pup==17&&pn[pup]==0&&pn[16]==1){//151617
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown==16&&pn[pdown]==1&&pup==4&&pn[pup]==0&&pn[9]==1){ //160904
pn[pdown]=0; pn[9]=0; pn[pup]=1; } if(pdown==16&&pn[pdown]==1&&pup==14&&pn[pup]==0&&pn[15]==1){//161514
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown==16&&pn[pdown]==1&&pup==18&&pn[pup]==0&&pn[17]==1){//161718
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown==16&&pn[pdown]==1&&pup==28&&pn[pup]==0&&pn[23]==1){//162328
pn[pdown]=0; pn[23]=0; pn[pup]=1; }
if(pdown==17&&pn[pdown]==1&&pup==5&&pn[pup]==0&&pn[10]==1){//171005
pn[pdown]=0; pn[10]=0; pn[pup]=1; }
if(pdown==17&&pn[pdown]==1&&pup==15&&pn[pup]==0&&pn[16]==1){//171615
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown==17&&pn[pdown]==1&&pup==19&&pn[pup]==0&&pn[18]==1){//171819
pn[pdown]=0; pn[18]=0; pn[pup]=1; }
if(pdown==17&&pn[pdown]==1&&pup==29&&pn[pup]==0&&pn[24]==1){//172429
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown==18&&pn[pdown]==1&&pup==6&&pn[pup]==0&&pn[11]==1){ //181106
pn[pdown]=0; pn[11]=0; pn[pup]=1; } if(pdown==18&&pn[pdown]==1&&pup==16&&pn[pup]==0&&pn[17]==1){//181716
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown==18&&pn[pdown]==1&&pup==20&&pn[pup]==0&&pn[19]==1){//181920
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown==18&&pn[pdown]==1&&pup==30&&pn[pup]==0&&pn[25]==1){//182530
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown==19&&pn[pdown]==1&&pup==17&&pn[pup]==0&&pn[18]==1){//191817
pn[pdown]=0; pn[18]=0; pn[pup]=1; }
if(pdown==20&&pn[pdown]==1&&pup==18&&pn[pup]==0&&pn[19]==1){//201918
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown==21&&pn[pdown]==1&&pup==7&&pn[pup]==0&&pn[14]==1){ //211407
pn[pdown]=0; pn[14]=0; pn[pup]=1; } if(pdown==21&&pn[pdown]==1&&pup==23&&pn[pup]==0&&pn[22]==1){//212223
pn[pdown]=0; pn[22]=0; pn[pup]=1; }
if(pdown==22&&pn[pdown]==1&&pup==8&&pn[pup]==0&&pn[15]==1){//221508
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown==22&&pn[pdown]==1&&pup==24&&pn[pup]==0&&pn[23]==1){//222324
pn[pdown]=0; pn[23]=0; pn[pup]=1; }
if(pdown==23&&pn[pdown]==1&&pup==9&&pn[pup]==0&&pn[16]==1){//231609
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown==23&&pn[pdown]==1&&pup==21&&pn[pup]==0&&pn[22]==1){ //232221
pn[pdown]=0; pn[22]=0; pn[pup]=1; } if(pdown==23&&pn[pdown]==1&&pup==25&&pn[pup]==0&&pn[24]==1){//232425
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown==23&&pn[pdown]==1&&pup==31&&pn[pup]==0&&pn[28]==1){//232831
pn[pdown]=0; pn[28]=0; pn[pup]=1; }
if(pdown==24&&pn[pdown]==1&&pup==10&&pn[pup]==0&&pn[17]==1){//241710
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown==24&&pn[pdown]==1&&pup==22&&pn[pup]==0&&pn[23]==1){ //242322
pn[pdown]=0; pn[23]=0; pn[pup]=1; } if(pdown==24&&pn[pdown]==1&&pup==26&&pn[pup]==0&&pn[25]==1){//242526
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown==24&&pn[pdown]==1&&pup==32&&pn[pup]==0&&pn[29]==1){//242932
pn[pdown]=0; pn[29]=0; pn[pup]=1; }
if(pdown==25&&pn[pdown]==1&&pup==11&&pn[pup]==0&&pn[18]==1){ //251811
pn[pdown]=0; pn[18]=0; pn[pup]=1; } if(pdown==25&&pn[pdown]==1&&pup==23&&pn[pup]==0&&pn[24]==1){//252423
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown==25&&pn[pdown]==1&&pup==27&&pn[pup]==0&&pn[26]==1){ //252627
pn[pdown]=0; pn[26]=0; pn[pup]=1; } if(pdown==25&&pn[pdown]==1&&pup==33&&pn[pup]==0&&pn[30]==1){//253033
pn[pdown]=0; pn[30]=0; pn[pup]=1; }
if(pdown==26&&pn[pdown]==1&&pup==12&&pn[pup]==0&&pn[19]==1){//261912
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown==26&&pn[pdown]==1&&pup==24&&pn[pup]==0&&pn[25]==1){//262524
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown==27&&pn[pdown]==1&&pup==13&&pn[pup]==0&&pn[20]==1){ //272013
pn[pdown]=0; pn[20]=0; pn[pup]=1; } if(pdown==27&&pn[pdown]==1&&pup==25&&pn[pup]==0&&pn[26]==1){//272625
pn[pdown]=0; pn[26]=0; pn[pup]=1; }
if(pdown==28&&pn[pdown]==1&&pup==16&&pn[pup]==0&&pn[23]==1){ //282316
pn[pdown]=0; pn[23]=0; pn[pup]=1; } if(pdown==28&&pn[pdown]==1&&pup==30&&pn[pup]==0&&pn[29]==1){//282930
pn[pdown]=0; pn[29]=0; pn[pup]=1; }
if(pdown==29&&pn[pdown]==1&&pup==17&&pn[pup]==0&&pn[24]==1){//292417
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown==30&&pn[pdown]==1&&pup==18&&pn[pup]==0&&pn[25]==1){//302518
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown==30&&pn[pdown]==1&&pup==28&&pn[pup]==0&&pn[29]==1){//302928
pn[pdown]=0; pn[29]=0; pn[pup]=1; }
if(pdown==31&&pn[pdown]==1&&pup==23&&pn[pup]==0&&pn[28]==1){ //312823
pn[pdown]=0; pn[28]=0; pn[pup]=1; } if(pdown==31&&pn[pdown]==1&&pup==33&&pn[pup]==0&&pn[32]==1){//313233
pn[pdown]=0; pn[32]=0; pn[pup]=1; }
if(pdown==32&&pn[pdown]==1&&pup==24&&pn[pup]==0&&pn[29]==1){ //322924
pn[pdown]=0; pn[29]=0; pn[pup]=1; }
if(pdown==33&&pn[pdown]==1&&pup==25&&pn[pup]==0&&pn[30]==1){//333025
pn[pdown]=0; pn[30]=0; pn[pup]=1; }
if(pdown==33&&pn[pdown]==1&&pup==31&&pn[pup]==0&&pn[32]==1){//333231
pn[pdown]=0; pn[32]=0; pn[pup]=1; }
drawpad (); //show out...
}//checkstep()
midstep (){ //for autoplay
if (m1=="01"&&m3=="03")m2="02";
if (m1=="01"&&m3=="09")m2="04";
if (m1=="02"&&m3=="10")m2="05";
if (m1=="03"&&m3=="01")m2="02";
if (m1=="03"&&m3=="11")m2="06";
if (m1=="05"&&m3=="17")m2="10";
//3 11 6 4 6 5 4 16 95 17 10 6 4 5 6 18 11
if (m1=="04"&&m3=="06")m2="05";
if (m1=="04"&&m3=="16")m2="09";
if (m1=="05"&&m3=="17")m2="10";
if (m1=="06"&&m3=="04")m2="05";
if (m1=="06"&&m3=="18")m2="11";
if (m1=="07"&&m3=="09")m2="08";
if (m1=="07"&&m3=="21")m2="14";
if (m1=="08"&&m3=="10")m2="09";
if (m1=="08"&&m3=="22")m2="15";
if (m1=="09"&&m3=="01")m2="04";
//7 9 8 7 21 14 8 10 9 8 22 15
if (m1=="09"&&m3=="07")m2="08";
if (m1=="09"&&m3=="11")m2="10";
if (m1=="09"&&m3=="23")m2="16";
if (m1=="10"&&m3=="02")m2="05";
if (m1=="10"&&m3=="12")m2="11";
if (m1=="10"&&m3=="08")m2="09";
if (m1=="10"&&m3=="24")m2="17";
//9 1 4 9 7 8 9 11 10 9 23 16
//10 2 5 10 8 9 10 12 11 1024 17
if (m1=="11"&&m3=="03")m2="06";
if (m1=="11"&&m3=="09")m2="10";
if (m1=="11"&&m3=="13")m2="12";
if (m1=="11"&&m3=="25")m2="18";
//11 3 6 11 9 10 11 13 12 11 25 18
if (m1=="12"&&m3=="10")m2="11";
if (m1=="12"&&m3=="26")m2="19";
if (m1=="13"&&m3=="11")m2="12";
if (m1=="13"&&m3=="27")m2="20";
//12 10 11 12 26 19
//13 11 12 13 27 20
if (m1=="14"&&m3=="16")m2="15";
if (m1=="15"&&m3=="17")m2="16";
if (m1=="16"&&m3=="04")m2="09";
if (m1=="16"&&m3=="14")m2="15";
if (m1=="16"&&m3=="18")m2="17";
if (m1=="16"&&m3=="28")m2="23";
//1416 15 1517 16 1604 9 1614 15 1618 17 16 28 23
if (m1=="17"&&m3=="05")m2="10";
if (m1=="17"&&m3=="15")m2="16";
if (m1=="17"&&m3=="19")m2="18";
if (m1=="17"&&m3=="29")m2="24";
//1705 10 1715 16 1719 18 1729 24
if (m1=="18"&&m3=="06")m2="11";
if (m1=="18"&&m3=="16")m2="17";
if (m1=="18"&&m3=="20")m2="19";
if (m1=="18"&&m3=="30")m2="25";
//1806 11 1816 17 1820 19 1830 25
if (m1=="19"&&m3=="17")m2="18";
if (m1=="20"&&m3=="18")m2="19";
if (m1=="21"&&m3=="07")m2="14";
if (m1=="21"&&m3=="23")m2="22";
//1917 18 2018 19 2107 14 2123 22
if (m1=="22"&&m3=="08")m2="15";
if (m1=="22"&&m3=="24")m2="23";
if (m1=="23"&&m3=="09")m2="16";
if (m1=="23"&&m3=="21")m2="22";
if (m1=="23"&&m3=="25")m2="24";
if (m1=="23"&&m3=="31")m2="28";
//2208 15 2224 23
//2309 16 2321 22 2331 28 2325 24
if (m1=="24"&&m3=="10")m2="17";
if (m1=="24"&&m3=="22")m2="23";
if (m1=="24"&&m3=="26")m2="25";
if (m1=="25"&&m3=="32")m2="29";
//2410 17 2422 23 2426 25 2432 29
if (m1=="25"&&m3=="11")m2="18";
if (m1=="25"&&m3=="23")m2="24";
if (m1=="25"&&m3=="27")m2="26";
if (m1=="25"&&m3=="33")m2="30";
//2511 18 2523 24 2527 26 2533 30
if (m1=="26"&&m3=="12")m2="19";
if (m1=="26"&&m3=="24")m2="25";
if (m1=="27"&&m3=="13")m2="20";
if (m1=="27"&&m3=="25")m2="26";
//2612 19 2624 25 2713 20 2725 26
if (m1=="28"&&m3=="16")m2="23";
if (m1=="28"&&m3=="30")m2="29";
if (m1=="29"&&m3=="17")m2="24";
//2816 23 2830 29 2917 24
if (m1=="30"&&m3=="18")m2="25";
if (m1=="30"&&m3=="28")m2="29";
if (m1=="31"&&m3=="23")m2="28";
if (m1=="31"&&m3=="33")m2="32";
if (m1=="32"&&m3=="24")m2="29";
if (m1=="33"&&m3=="25")m2="30";
if (m1=="33"&&m3=="31")m2="32";
//3018 25 3028 29
//3123 28 3133 32 3224 29 3325 30 3331 32
}//midstep ()
autoscan (){//auto detect >> find
autoplay=1;
gameStart (); //draw out chessboard to play
// return;
for (k=0;k<32;k++){
ms=subString(pm,k*4,4);
m1=subString (ms,0,2);
m3=subString (ms,2,2);
midstep (); //get middle m2 num
p1=(int)(stringToDouble (m1));
p2=(int)(stringToDouble (m2));
p3=(int)(stringToDouble (m3));
// print ms,p1,p2,p3;
pn[p1]=0; pn[p2]=0; pn[p3]=1;
print k+1," ", p1," - ",p3 ;
ps1=intToString (k+1); //show step
ps2=intToString (p1);
ps3=intToString (p3);
ss3="do> step "+ps1+" "+ps2+" - "+ps3;
drawpad (); }
// n=1;
//status=0;
}//autoscan()
mode1 (){//十字钻石
for (i=1;i<34;i++){ pn[i]=1;}
pn[17]=0;
sn=1; drawpad ();
}//mode1 ()
mode2 (){//以一当十
for (i=1;i<34;i++){ pn[i]=0;}
pn[5]=1; pn[9]=1; pn[10]=1;
pn[11]=1; pn[17]=1; pn[24]=1;
sn=2; drawpad ();
}//mode2 ()
mode3(){//十字街头
for (i=1;i<34;i++){ pn[i]=0;}
pn[10]=1; pn[16]=1; pn[17]=1; pn[18]=1;
pn[24]=1; pn[29]=1; pn[5]=1; pn[15]=1;
pn[19]=1;
sn=3; drawpad ();
}//mode3 ()
mode4 (){//门庭若市
for (i=1;i<34;i++){ pn[i]=0;}
pn[4]=1; pn[5]=1; pn[6]=1;
pn[9]=1; pn[10]=1; pn[11]=1;
pn[15]=1; pn[16]=1; pn[17]=1; pn[18]=1;
pn[19]=1;
pn[22]=1; pn[23]=1; pn[25]=1; pn[26]=1;
sn=4; drawpad ();
}//mode4 ()
mode5 (){//三足鼎立
for (i=1;i<34;i++){ pn[i]=0;}
for (i=5;i<28;i++){ pn[i]=1;}
pn[6]=0; pn[7]=0; pn[8]=0;
pn[12]=0; pn[13]=0; pn[14]=0; pn[20]=0;
sn=5; drawpad ();
}//mode5 ()
mode6 (){//勇往直前
for (i=1;i<34;i++){ pn[i]=0;}
for (i=2;i<13;i++){ pn[i]=1;}
for (i=28;i<34;i++){ pn[i]=1;}
pn[17]=1; pn[24]=1; pn[3]=0; pn[7]=0;
sn=6; drawpad ();
}//mode6 ()
mode7 (){//钻石菱形
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[3]=0; pn[31]=0; pn[33]=0;
pn[7]=0; pn[13]=0; pn[21]=0; pn[27]=0;
pn[17]=0;
sn=7; drawpad ();
}//mode7()
mode8 (){//顶天立地
for (i=1;i<34;i++){ pn[i]=0; }
pn[2]=1; pn[4]=1; pn[5]=1; pn[6]=1;
pn[9]=1; pn[11]=1;
pn[16]=1; pn[17]=1; pn[18]=1;
pn[22]=1; pn[23]=1; pn[25]=1; pn[26]=1;
pn[29]=1; pn[31]=1; pn[32]=1; pn[33]=1;
sn=8; drawpad ();
}//mode8 ()
mode9 (){//坐井观天
for (i=1;i<34;i++){ pn[i]=0; }
for (i=14;i<21;i++){ pn[i]=1; }
for (i=21;i<28;i++){ pn[i]=1; }
pn[2]=1; pn[4]=1; pn[5]=1; pn[6]=1;
pn[23]=0; pn[25]=0;
pn[8]=1; pn[12]=1;
pn[28]=1; pn[30]=1; pn[31]=1; pn[33]=1;
sn=9; drawpad ();
}//mode9 ()
mode10 (){//逐鹿中原
for (i=1;i<34;i++){ pn[i]=0; }
for (i=7;i<14;i++){ pn[i]=1; }
for (i=14;i<21;i++){ pn[i]=1; }
pn[17]=0;
pn[2]=1; pn[4]=1; pn[5]=1; pn[6]=1;
pn[23]=1; pn[24]=1; pn[25]=1; pn[29]=1;
sn=10; drawpad ();
}//mode10 ()
mode11 (){//山高水险
for (i=1;i<34;i++){ pn[i]=0; }
for (i=14;i<21;i++){ pn[i]=1; }
for (i=22;i<27;i++){ pn[i]=1; }
pn[5]=1; pn[9]=1; pn[10]=1; pn[11]=1;
pn[28]=1; pn[29]=1; pn[30]=1;
pn[31]=1; pn[32]=1; pn[33]=1;
sn=11; drawpad ();
}//mode11 ()
mode12 (){//上通下达
for (i=1;i<34;i++){ pn[i]=0; }
for (i=8;i<13;i++){ pn[i]=1; }
for (i=22;i<27;i++){ pn[i]=1; }
pn[16]=1; pn[17]=1; pn[18]=1;
pn[2]=1; pn[4]=1; pn[5]=1; pn[6]=1;
pn[28]=1; pn[29]=1; pn[30]=1; pn[32]=1;
sn=12; drawpad ();
}//mode12 ()
mode13 (){//张牙舞爪
for (i=1;i<34;i++){ pn[i]=0; }
for (i=14;i<21;i++){ pn[i]=1; }
for (i=21;i<28;i++){ pn[i]=1; }
pn[23]=0; pn[25]=0; pn[10]=1;
pn[1]=1; pn[3]=1; pn[4]=1; pn[6]=1;
pn[28]=1; pn[29]=1; pn[30]=1;
pn[31]=1; pn[32]=1; pn[33]=1;
sn=13; drawpad ();
}//mode13 ()
mode14 (){//中流砥柱
for (i=1;i<34;i++){ pn[i]=0; }
for (i=1;i<31;i++){ pn[i]=1; }
pn[9]=0; pn[11]=0; pn[23]=0; pn[25]=0;
sn=14; drawpad ();
}//mode14 ()
mode15 (){//四通八达
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[4]=0; pn[12]=0; pn[13]=0;
pn[21]=0; pn[22]=0; pn[30]=0; pn[33]=0;
sn=15; drawpad ();
}//mode15()
mode16 (){//八仙过海
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[2]=0; pn[3]=0;
pn[21]=0; pn[27]=0; pn[31]=0; pn[33]=0;
sn=16; drawpad ();
}//mode16 ()
mode17 (){//壁垒森严
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[3]=0; pn[9]=0; pn[11]=0;
pn[23]=0; pn[25]=0; pn[31]=0; pn[33]=0;
sn=17; drawpad ();
}//mode17 ()
mode18 (){//五湖四海
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[3]=0;
pn[7]=0; pn[9]=0; pn[11]=0; pn[13]=0;
pn[17]=0; pn[23]=0; pn[25]=0;
sn=18; drawpad ();
}//mode18 ()
mode19 (){//乘风破浪
for (i=1;i<34;i++){ pn[i]=1;}
//pn[17]=0;
pn[1]=0; pn[3]=0; pn[7]=0; pn[8]=0;
pn[12]=0; pn[13]=0;
pn[21]=0; pn[27]=0; pn[31]=0; pn[33]=0;
sn=19; drawpad ();
}//mode19 ()
mode20 (){//蟠桃盛会
for (i=1;i<34;i++){ pn[i]=1;}
pn[1]=0; pn[3]=0; pn[7]=0; pn[13]=0;
sn=20; drawpad ();
}//mode20 ()
mode21 (){//网开一面
for (i=1;i<34;i++){ pn[i]=1;}
pn[5]=0;
sn=21; drawpad ();
}//mode21 ()
gameStart (){ //mode (1-21) draw table show
cs.SetBackground(225,245,245);
if (sn==1){mode1(); s3="十字钻石 "; }
if (sn==2){mode2(); s3="以一当十 "; }
if (sn==3){mode3(); s3="十字街头 "; }
if (sn==4){mode4(); s3="门庭若市 "; }
if (sn==5){mode5(); s3="三足鼎立 "; }
if (sn==6){mode6(); s3="勇往直前 "; }
if (sn==7){mode7(); s3="钻石菱形 "; }
if (sn==8){mode8(); s3="顶天立地 "; }
if (sn==9){mode9(); s3="坐井观天 "; }
if (sn==10){mode10(); s3="逐鹿中原 "; }
if (sn==11){mode11(); s3="山高水险 "; }
if (sn==12){mode12(); s3="上通下达 "; }
if (sn==13){mode13(); s3="张牙舞爪 "; }
if (sn==14){mode14(); s3="中流砥柱 "; }
if (sn==15){mode15(); s3="四通八达 "; }
if (sn==16){mode16(); s3="八仙过海 "; }
if (sn==17){mode17(); s3="壁垒森严 "; }
if (sn==18){mode18(); s3="五湖四海 "; }
if (sn==19){mode19(); s3="乘风破浪 "; }
if (sn==20){mode20(); s3="蟠桃盛会 "; }
if (sn==21){mode21(); s3="网开一面 "; }
clearOutput();
print "游戏图形> ",(int)sn, ". ",s3;
kn=1; pdown=0; pup=0; //init step first
status=1;
getTime (tim);
oldhh=tim[0];
oldmm=tim[1];
oldss=tim[2];
hhts=intToString (tim[0]);
mmts=intToString (tim[1]);
ssts=intToString (tim[2]);
if (oldhh<10)hhts="0"+hhts;
if (oldmm<10)mmts="0"+mmts;
if (oldss<10)ssts="0"+ssts;
ss2=hhts+" : "+mmts+" : "+ssts;
ts="开始 > "+ss2; //drawpad() show start time
ts1=" ";
ts2=" ";
ss3=" ";
print ts; //print Start time
drawpad ();
}//gameStrat ()
content (){
print " ";
print "游戏图形目录 : ";
print " ";
for (i=1;i<22;i++){
if (i==1) s3=" 1. 十字钻石 ";
if (i==2) s3=" 2. 以一当十 ";
if (i==3) s3=" 3. 十字街头 ";
if (i==4) s3=" 4. 门庭若市 ";
if (i==5) s3=" 5. 三足鼎立 ";
if (i==6) s3=" 6. 勇往直前 ";
if (i==7) s3=" 7. 钻石菱形 ";
if (i==8) s3=" 8. 顶天立地 ";
if (i==9) s3=" 9. 坐井观天 ";
if (i==10) s3="10. 逐鹿中原 ";
if (i==11) s3="11. 山高水险 ";
if (i==12) s3="12. 上通下达 ";
if (i==13) s3="13. 张牙舞爪 ";
if (i==14) s3="14. 中流砥柱 ";
if (i==15) s3="15. 四通八达 ";
if (i==16) s3="16. 八仙过海 ";
if (i==17) s3="17. 壁垒森严 ";
if (i==18) s3="18. 五湖四海 ";
if (i==19) s3="19. 乘风破浪 ";
if (i==20) s3="20. 蟠桃盛会 ";
if (i==21) s3="21. 网开一面 ";
print s3; }
}//content ()
myToolBarProc(int nBtn,int nContext) {
if(nBtn==100){//开始游戏
autoplay=0;
gameStart ();
setDisplay (1); }
if(nBtn==101){//图形选择
sn=doubleInput("选择游戏图形", " 1. 十字钻石 2. 以一当十 3. 十字街头 4. 门庭若市 5. 三足鼎立 6. 勇往直前 7. 钻石菱形 ==＞ 21. \n 输入 [ 空 ] 则取消 " );
if (sn==0) return; //init set mode
if (sn>21) sn=1;
mode=(int)sn;
gameStart (); }
//return; }
if(nBtn==102){//走步记录
setDisplay (0); }
if(nBtn==103){//显示图板 自动演示
clearOutput();
setDisplay (1);
if(sn<22)autoscan ();
cs.Update (); }
if(nBtn==104){//退出程序
clearOutput();
cs.ClearDraw (0,src);
setDisplay (0);
exit (0); }
if(nBtn==105){//版本信息 v2.7
cs.ClearDraw (0,src);
drawcover ();
cs.RemoveAllHotObjects();
setDisplay (1);
cs.Update (); }
}//myToolBar ()
myMenuProc(int nMen,int nContext) {
if(nMen==200){//开始游戏
autoplay=0;
gameStart ();
setDisplay (1); }
if(nMen==201){//选择图形
sn=doubleInput("选择游戏图形", " 1. 十字钻石 2. 以一当十 3. 十字街头 4. 门庭若市 5. 三足鼎立 6. 勇往直前 7. 钻石菱形 ==＞ 21. \n 输入 [ 空 ] 则取消 " );
if (sn==0) return; //init set mode
if (sn>21) sn=1;
mode=(int)(sn);
gameStart (); }
if(nMen==202){//下一图形
sn=sn+1;
mode=(int)(sn);
gameStart (); }
if (nMen==203){//自动演示
clearOutput();
setDisplay (1);
if(sn<22)autoscan ();
cs.Update (); }
if(nMen==204){//走步记录
setDisplay (0); }
if (nMen==205){//显示棋盘
//drawpad ();
setDisplay (1); }
if (nMen==206){//图形目录
content ();
setDisplay (0); }
if(nMen==207){//版本信息
cs.ClearDraw (0,src);
drawcover ();
cs.RemoveAllHotObjects();
setDisplay (1);
cs.Update (); }
if (nMen==208){//退出程序
clearOutput();
cs.ClearDraw (0,src);
exit (0); }
}//myMenu()
//**** End ****
2730
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
