独立钻石棋游戏制作

独立钻石棋游戏制作

我是编程爱好者。早期使用windows时就被扫雷游戏，钻石棋游戏，红心大战游戏迷住。相信大家也都玩过吧。在学习VB6编程时就编制过钻石棋和红心大战那样的纸牌游戏。都是标准Windows 图形界面的。

MySpringC是一个简化的C语言编译器。主要用于科学计算、个人娱乐和个性化的设备控制等场合。当前运行在Android平台上，是Android平台的一款应用。使用MySpringC可以书写简单的C语言程序，编写完成后可以编译、运行并获得结果。还可以做出安卓手机桌面app应用。SpringC支持的C与普通的C非常类似，程序从main开始，支持全局变量和局部变量，支持各种数据类型和常用的控制流。MySpringC它没有复杂、庞大的编程环境，只要你了解一点C或java，只需要一部手机，在家里、在公共汽车上任何方便的时候，就可以编写满足自己特定需求的小程序。
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;
float x,y,x0,y0,x1,y1;
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];
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,6);
sMenu[0]=“开始游戏”;
nMenu[0]=200;
sMenu[1]=“选择图形”;
nMenu[1]=201;
sMenu[2]=“自动演示”;
nMenu[2]=202;
sMenu[3]=“走步记录”;
nMenu[3]=203;
sMenu[4]=“显示棋盘”;
nMenu[4]=204;
sMenu[5]=“图形目录”;
nMenu[5]=205;
sMenu[6]="版本信息 ";
nMenu[6]=206;
sMenu[7]="退出程序 ";
nMenu[7]=207;
setMenu(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=i60+115;
y1=j60+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+i2,699+i,749+i2) ; }
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,i21-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 (status0) return;
if (autoplay1) sleep (1000);
n=0; //detect chess End ********
for (i=1;i<34;i++){
if (pn[i]1)n=n+1; }
if (n1){
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 (event0||event10){ //get chess touch
kn=kn+1;
if (kn>1)kn=0;
if (kn0)pdown=id;
if (kn1)pup=id;
if (kn1&&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 (status1){
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 (kn0){ s2=" 起始位："+ s; }
else{ s2=" 落子位："+ s; }
if (kn0) cs.DrawText (s2,510,130);
if (kn1) cs.DrawText (s2,510,200); }
//** check remained chess pieces
if (status1) checkmove ();
cs.Update();
}//mycanvasProc ()

checkmove(){ //check remained chess pieces
for (i=0;i<34;i++){
if (i==1&&pn[i]==1){
if (pn[4]==2||pn[2]1)return; }
if (i2&&pn[i]==1){
if (pn[5]1)return; }
if (i3&&pn[i]==1){
if (pn[6]==1||pn[2]1)return; }
if (i4&&pn[i]==1){
if (pn[5]==1||pn[9]1)return; }
if (i5&&pn[i]==1){
if (pn[10]1)return; }
if (i6&&pn[i]==1){
if (pn[5]==1||pn[11]1)return; }
if (i7&&pn[i]==1){
if (pn[8]==1||pn[14]1)return; }
if (i8&&pn[i]==1){
if (pn[9]==1||pn[15]1)return; }
if (i9&&pn[i]==1){
if (pn[16]==1||pn[4]==1||pn[8]==1||pn[10]1)return; }
if (i10&&pn[i]==1){
if (pn[17]==1||pn[5]==1||pn[9]==1||pn[11]1)return; }
if (i11&&pn[i]==1){
if (pn[12]==1||pn[6]==1||pn[18]==1||pn[10]1)return; }
if (i12&&pn[i]==1){
if (pn[11]==1||pn[19]1)return; }
if (i13&&pn[i]==1){
if (pn[12]==1||pn[20]1)return; }
if (i14&&pn[i]==1){
if (pn[15]1)return; }
if (i15&&pn[i]==1){
if (pn[16]1)return; }
if (i16&&pn[i]==1){
if (pn[23]==1||pn[9]==1||pn[15]==1||pn[17]1)return; }
if (i17&&pn[i]==1){
if (pn[24]==1||pn[10]==1||pn[18]==1||pn[16]1)return; }
if (i18&&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 (i24&&pn[i]==1){
if (pn[17]==1||pn[29]==1||pn[23]==1||pn[25]1)return; }
if (i25&&pn[i]==1){
if (pn[18]==1||pn[30]==1||pn[24]==1||pn[26]1)return; }
if (i26&&pn[i]==1){
if (pn[19]==1||pn[25]1)return; }
if (i27&&pn[i]==1){
if (pn[20]==1||pn[26]1)return; }
if (i28&&pn[i]==1){
if (pn[23]==1||pn[29]1)return; }
if (i29&&pn[i]==1){
if (pn[24]1)return; }
if (i30&&pn[i]==1){
if (pn[25]==1||pn[29]1)return; }
if (i31&&pn[i]==1){
if (pn[28]==1||pn[32]1)return; }
if (i32&&pn[i]==1){
if (pn[29]1)return; }
if (i33&&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-thh2600)/60;
tss=mms-thh3600-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&&pup3&&pn[pup]==0&&pn[2]1){//010203
pn[pdown]=0; pn[2]=0; pn[pup]=1; }
if(pdown1&&pn[pdown]1&&pup9&&pn[pup]==0&&pn[4]==1){//010409
pn[pdown]=0; pn[4]=0; pn[pup]=1; }

if(pdown==2&&pn[pdown]1&&pup10&&pn[pup]==0&&pn[5]==1){//020510
pn[pdown]=0; pn[5]=0; pn[pup]=1; }

if(pdown==3&&pn[pdown]1&&pup1&&pn[pup]==0&&pn[2]1){//030201
pn[pdown]=0; pn[2]=0; pn[pup]=1; }
if(pdown3&&pn[pdown]1&&pup11&&pn[pup]==0&&pn[6]==1){//030611
pn[pdown]=0; pn[6]=0; pn[pup]=1; }

if(pdown==4&&pn[pdown]1&&pup16&&pn[pup]==0&&pn[9]1){//040916
pn[pdown]=0; pn[9]=0; pn[pup]=1; } if(pdown4&&pn[pdown]1&&pup6&&pn[pup]==0&&pn[5]==1){//040506
pn[pdown]=0; pn[5]=0; pn[pup]=1; }

if(pdown==5&&pn[pdown]1&&pup17&&pn[pup]==0&&pn[10]1){//051017
pn[pdown]=0; pn[10]=0; pn[pup]=1; }
if(pdown6&&pn[pdown]1&&pup4&&pn[pup]==0&&pn[5]1){//060504
pn[pdown]=0; pn[5]=0; pn[pup]=1; }
if(pdown6&&pn[pdown]1&&pup18&&pn[pup]==0&&pn[11]==1){//061118
pn[pdown]=0; pn[11]=0; pn[pup]=1; }

if(pdown==7&&pn[pdown]1&&pup9&&pn[pup]==0&&pn[8]1){//070809
pn[pdown]=0; pn[8]=0; pn[pup]=1; }
if(pdown7&&pn[pdown]1&&pup21&&pn[pup]==0&&pn[14]==1){//071421
pn[pdown]=0; pn[14]=0; pn[pup]=1; }

if(pdown==8&&pn[pdown]1&&pup10&&pn[pup]==0&&pn[9]1){//080910
pn[pdown]=0; pn[9]=0; pn[pup]=1; }
if(pdown8&&pn[pdown]1&&pup22&&pn[pup]==0&&pn[15]==1){//081522
pn[pdown]=0; pn[15]=0; pn[pup]=1; }

if(pdown==9&&pn[pdown]1&&pup1&&pn[pup]==0&&pn[4]1){//090401
pn[pdown]=0; pn[4]=0; pn[pup]=1; }
if(pdown9&&pn[pdown]1&&pup7&&pn[pup]==0&&pn[8]1){//090807
pn[pdown]=0; pn[8]=0; pn[pup]=1; }
if(pdown9&&pn[pdown]1&&pup11&&pn[pup]==0&&pn[10]1){//091011
pn[pdown]=0; pn[10]=0; pn[pup]=1; } if(pdown9&&pn[pdown]1&&pup23&&pn[pup]==0&&pn[16]1){//091623
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown10&&pn[pdown]1&&pup2&&pn[pup]==0&&pn[5]1){ //100502
pn[pdown]=0; pn[5]=0; pn[pup]=1; } if(pdown10&&pn[pdown]1&&pup8&&pn[pup]==0&&pn[9]1){//100908
pn[pdown]=0; pn[9]=0; pn[pup]=1; }
if(pdown10&&pn[pdown]1&&pup12&&pn[pup]==0&&pn[11]1){ //101112
pn[pdown]=0; pn[11]=0; pn[pup]=1; } if(pdown10&&pn[pdown]1&&pup24&&pn[pup]==0&&pn[17]==1){//101724
pn[pdown]=0; pn[17]=0; pn[pup]=1; }

if(pdown==11&&pn[pdown]1&&pup3&&pn[pup]==0&&pn[6]1){//110603
pn[pdown]=0; pn[6]=0; pn[pup]=1; }
if(pdown11&&pn[pdown]1&&pup9&&pn[pup]==0&&pn[10]1){//111009
pn[pdown]=0; pn[10]=0; pn[pup]=1; } if(pdown11&&pn[pdown]1&&pup13&&pn[pup]==0&&pn[12]1){//111213
pn[pdown]=0; pn[12]=0; pn[pup]=1; }
if(pdown11&&pn[pdown]1&&pup25&&pn[pup]==0&&pn[18]==1){//111825
pn[pdown]=0; pn[18]=0; pn[pup]=1; }

if(pdown==12&&pn[pdown]1&&pup10&&pn[pup]==0&&pn[11]1){//121110
pn[pdown]=0; pn[11]=0; pn[pup]=1; }
if(pdown12&&pn[pdown]1&&pup26&&pn[pup]==0&&pn[19]==1){//121926
pn[pdown]=0; pn[19]=0; pn[pup]=1; }

if(pdown==13&&pn[pdown]1&&pup11&&pn[pup]==0&&pn[12]1){ //131211
pn[pdown]=0; pn[12]=0; pn[pup]=1; } if(pdown13&&pn[pdown]1&&pup27&&pn[pup]==0&&pn[20]==1){//132027
pn[pdown]=0; pn[20]=0; pn[pup]=1; }

if(pdown==14&&pn[pdown]1&&pup16&&pn[pup]==0&&pn[15]==1){//141516
pn[pdown]=0; pn[15]=0; pn[pup]=1; }

if(pdown==15&&pn[pdown]1&&pup17&&pn[pup]==0&&pn[16]==1){//151617
pn[pdown]=0; pn[16]=0; pn[pup]=1; }

if(pdown==16&&pn[pdown]1&&pup4&&pn[pup]==0&&pn[9]1){ //160904
pn[pdown]=0; pn[9]=0; pn[pup]=1; } if(pdown16&&pn[pdown]1&&pup14&&pn[pup]==0&&pn[15]1){//161514
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown16&&pn[pdown]1&&pup18&&pn[pup]==0&&pn[17]1){//161718
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown16&&pn[pdown]1&&pup28&&pn[pup]==0&&pn[23]==1){//162328
pn[pdown]=0; pn[23]=0; pn[pup]=1; }

if(pdown==17&&pn[pdown]1&&pup5&&pn[pup]==0&&pn[10]1){//171005
pn[pdown]=0; pn[10]=0; pn[pup]=1; }
if(pdown17&&pn[pdown]1&&pup15&&pn[pup]==0&&pn[16]1){//171615
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown17&&pn[pdown]1&&pup19&&pn[pup]==0&&pn[18]1){//171819
pn[pdown]=0; pn[18]=0; pn[pup]=1; }
if(pdown17&&pn[pdown]1&&pup29&&pn[pup]==0&&pn[24]==1){//172429
pn[pdown]=0; pn[24]=0; pn[pup]=1; }

if(pdown==18&&pn[pdown]1&&pup6&&pn[pup]==0&&pn[11]1){ //181106
pn[pdown]=0; pn[11]=0; pn[pup]=1; } if(pdown18&&pn[pdown]1&&pup16&&pn[pup]==0&&pn[17]1){//181716
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown18&&pn[pdown]1&&pup20&&pn[pup]==0&&pn[19]1){//181920
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown18&&pn[pdown]1&&pup30&&pn[pup]==0&&pn[25]==1){//182530
pn[pdown]=0; pn[25]=0; pn[pup]=1; }

if(pdown==19&&pn[pdown]1&&pup17&&pn[pup]==0&&pn[18]==1){//191817
pn[pdown]=0; pn[18]=0; pn[pup]=1; }

if(pdown==20&&pn[pdown]1&&pup18&&pn[pup]==0&&pn[19]==1){//201918
pn[pdown]=0; pn[19]=0; pn[pup]=1; }

if(pdown==21&&pn[pdown]1&&pup7&&pn[pup]==0&&pn[14]1){ //211407
pn[pdown]=0; pn[14]=0; pn[pup]=1; } if(pdown21&&pn[pdown]1&&pup23&&pn[pup]==0&&pn[22]==1){//212223
pn[pdown]=0; pn[22]=0; pn[pup]=1; }

if(pdown==22&&pn[pdown]1&&pup8&&pn[pup]==0&&pn[15]1){//221508
pn[pdown]=0; pn[15]=0; pn[pup]=1; }
if(pdown22&&pn[pdown]1&&pup24&&pn[pup]==0&&pn[23]==1){//222324
pn[pdown]=0; pn[23]=0; pn[pup]=1; }

if(pdown==23&&pn[pdown]1&&pup9&&pn[pup]==0&&pn[16]1){//231609
pn[pdown]=0; pn[16]=0; pn[pup]=1; }
if(pdown23&&pn[pdown]1&&pup21&&pn[pup]==0&&pn[22]1){ //232221
pn[pdown]=0; pn[22]=0; pn[pup]=1; } if(pdown23&&pn[pdown]1&&pup25&&pn[pup]==0&&pn[24]1){//232425
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown23&&pn[pdown]1&&pup31&&pn[pup]==0&&pn[28]==1){//232831
pn[pdown]=0; pn[28]=0; pn[pup]=1; }

if(pdown==24&&pn[pdown]1&&pup10&&pn[pup]==0&&pn[17]1){//241710
pn[pdown]=0; pn[17]=0; pn[pup]=1; }
if(pdown24&&pn[pdown]1&&pup22&&pn[pup]==0&&pn[23]1){ //242322
pn[pdown]=0; pn[23]=0; pn[pup]=1; } if(pdown24&&pn[pdown]1&&pup26&&pn[pup]==0&&pn[25]1){//242526
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown24&&pn[pdown]1&&pup32&&pn[pup]==0&&pn[29]==1){//242932
pn[pdown]=0; pn[29]=0; pn[pup]=1; }

if(pdown==25&&pn[pdown]1&&pup11&&pn[pup]==0&&pn[18]1){ //251811
pn[pdown]=0; pn[18]=0; pn[pup]=1; } if(pdown25&&pn[pdown]1&&pup23&&pn[pup]==0&&pn[24]1){//252423
pn[pdown]=0; pn[24]=0; pn[pup]=1; }
if(pdown25&&pn[pdown]1&&pup27&&pn[pup]==0&&pn[26]1){ //252627
pn[pdown]=0; pn[26]=0; pn[pup]=1; } if(pdown25&&pn[pdown]1&&pup33&&pn[pup]==0&&pn[30]==1){//253033
pn[pdown]=0; pn[30]=0; pn[pup]=1; }

if(pdown==26&&pn[pdown]1&&pup12&&pn[pup]==0&&pn[19]1){//261912
pn[pdown]=0; pn[19]=0; pn[pup]=1; }
if(pdown26&&pn[pdown]1&&pup24&&pn[pup]==0&&pn[25]==1){//262524
pn[pdown]=0; pn[25]=0; pn[pup]=1; }

if(pdown==27&&pn[pdown]1&&pup13&&pn[pup]==0&&pn[20]1){ //272013
pn[pdown]=0; pn[20]=0; pn[pup]=1; } if(pdown27&&pn[pdown]1&&pup25&&pn[pup]==0&&pn[26]1){//272625
pn[pdown]=0; pn[26]=0; pn[pup]=1; }
if(pdown28&&pn[pdown]1&&pup16&&pn[pup]==0&&pn[23]1){ //282316
pn[pdown]=0; pn[23]=0; pn[pup]=1; } if(pdown28&&pn[pdown]1&&pup30&&pn[pup]==0&&pn[29]==1){//282930
pn[pdown]=0; pn[29]=0; pn[pup]=1; }

if(pdown==29&&pn[pdown]1&&pup17&&pn[pup]==0&&pn[24]==1){//292417
pn[pdown]=0; pn[24]=0; pn[pup]=1; }

if(pdown==30&&pn[pdown]1&&pup18&&pn[pup]==0&&pn[25]1){//302518
pn[pdown]=0; pn[25]=0; pn[pup]=1; }
if(pdown30&&pn[pdown]1&&pup28&&pn[pup]==0&&pn[29]==1){//302928
pn[pdown]=0; pn[29]=0; pn[pup]=1; }

if(pdown==31&&pn[pdown]1&&pup23&&pn[pup]==0&&pn[28]1){ //312823
pn[pdown]=0; pn[28]=0; pn[pup]=1; } if(pdown31&&pn[pdown]1&&pup33&&pn[pup]==0&&pn[32]==1){//313233
pn[pdown]=0; pn[32]=0; pn[pup]=1; }

if(pdown==32&&pn[pdown]1&&pup24&&pn[pup]==0&&pn[29]1){ //322924
pn[pdown]=0; pn[29]=0; pn[pup]=1; }
if(pdown33&&pn[pdown]1&&pup25&&pn[pup]==0&&pn[30]1){//333025
pn[pdown]=0; pn[30]=0; pn[pup]=1; }
if(pdown33&&pn[pdown]1&&pup31&&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 ()

autoshow (){//auto play >> show
autoplay=1;
gameStart (); //draw out chessboard to play
pss[1]=“2917262433251830061813111012271313112325212308101012122626242422313333252511010916040301010907212123281616040406061818161517”; //ks31

pss[2]="10122410091112100517 "; //ks 5
pss[3]=“18201618051717192018291718161517”; //ks 8
pss[4]=“10241517041623091729060404162612121025111109092322242917”; //kstep14
pss[5]="101224102624232521231008082222242426272525111210051716181917 "; // ks 15
pss[6]="3325252328300618091112103133332525111109041623090210170508100517 “; // ks 16
pss[7]=“15170416060418062527271313111103030101090911230909070721212323313133332524101012122626242917”; //kstep23
pss[8]=“2624241010121628090101030311121005171816312316283331312322242917”; //kstep16
pss[9]=“210707090901010303111125271313112523222431232325261212101024242633252624151724100517”; //kstep21
pss[10]=“19171628283030180822072121232325171906181311180609010103031110122018251112100517”; //kstep20
pss[11]=“180610082321210707093123162830183331312323252511201811250604041616182624291718161517”; //kstep21
pss[12]=“23212523233131333325092326242422212311030301010909111210102429171816230908100517”; //kstep20
pss[13]=“0311101227131311312316280109261212101008210707093331312322080810171929171024232530181917”; //kstep22
pss[14]=“2123242201090923281607212123131110122713131106040301010926121210171908222224291716180911112530181917”; //kstep26
pss[15]=“183010122422313333252713131107212123160403010109082222242612121006040416171529171024252328161517”; //kstep25
pss[16]=“2527233131333325072121231830061813111012271313111125161804161917241005170822222417152917301818161517”; //kstep26
pss[17]=“131111030301010909232331313333252511101227131311212324100517261212101024242207212123082222242917”; //kstep25
pss[18]=“21070709090101030311112527131311110931231628220808100517241030181917102433313123232526242917”; //kstep24
pss[19]=“1008233111030301010909070721212325113133332520181719261212101628283030180517181615172410”; //kstep23
pss[20]=“1113090101030311230918060604041630182725242631231628333131232224210707091327272525231008082222241816291716181917”;
//kstep28
pss[21]=“1705291722243123242221232624242207212123112516283018031111253331312313110810101201092713131102101008082222242426261212101705”; //kstep31
if (sn1){pm=pss[1]; kstep=31; }
if (sn2){pm=pss[2]; kstep=5; }
if (sn3){pm=pss[3]; kstep=8; }
if (sn4){pm=pss[4]; kstep=14; }
if (sn5){pm=pss[5]; kstep=15; }
if (sn6){pm=pss[6]; kstep=16; }
if (sn7){pm=pss[7]; kstep=23; }
if (sn8){pm=pss[8]; kstep=16; }
if (sn9){pm=pss[9]; kstep=21; }
if (sn10){pm=pss[10]; kstep=20; }
if (sn11){pm=pss[11]; kstep=21; }
if (sn12){pm=pss[12]; kstep=20; }
if (sn13){pm=pss[13]; kstep=22; }
if (sn14){pm=pss[14]; kstep=25; }
if (sn15){pm=pss[15]; kstep=24; }
if (sn16){pm=pss[16]; kstep=25; }
if (sn17){pm=pss[17]; kstep=24; }
if (sn18){pm=pss[18]; kstep=23; }
if (sn19){pm=pss[19]; kstep=22; }
if (sn20){pm=pss[20]; kstep=28; }
if (sn==21){pm=pss[21]; kstep=31; }
//**** mode 1 - 7 - 21 autoplay *******
for (k=0;k<kstep;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;
}//autoshow()

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 ();
}//mode16 ()
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 (sn1){mode1(); s3="十字钻石 "; }
if (sn2){mode2(); s3="以一当十 "; }
if (sn3){mode3(); s3="十字街头 "; }
if (sn4){mode4(); s3="门庭若市 "; }
if (sn5){mode5(); s3="三足鼎立 "; }
if (sn6){mode6(); s3="勇往直前 "; }
if (sn7){mode7(); s3="钻石菱形 "; }
if (sn8){mode8(); s3="顶天立地 "; }
if (sn9){mode9(); s3="坐井观天 "; }
if (sn10){mode10(); s3="逐鹿中原 "; }
if (sn11){mode11(); s3="山高水险 "; }
if (sn12){mode12(); s3="上通下达 "; }
if (sn13){mode13(); s3="张牙舞爪 "; }
if (sn14){mode14(); s3="中流砥柱 "; }
if (sn15){mode15(); s3="四通八达 "; }
if (sn16){mode16(); s3="八仙过海 "; }
if (sn17){mode17(); s3="壁垒森严 "; }
if (sn18){mode18(); s3="五湖四海 "; }
if (sn19){mode19(); s3="乘风破浪 "; }
if (sn20){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 (i1) s3=" 1. 十字钻石 ";
if (i2) s3=” 2. 以一当十 “;
if (i3) s3=" 3. 十字街头 ";
if (i4) s3=” 4. 门庭若市 “;
if (i5) s3=" 5. 三足鼎立 ";
if (i6) s3=” 6. 勇往直前 “;
if (i7) s3=" 7. 钻石菱形 ";
if (i8) s3=” 8. 顶天立地 ";
if (i9) s3=" 9. 坐井观天 ";
if (i10) s3="10. 逐鹿中原 ";
if (i11) s3="11. 山高水险 ";
if (i12) s3="12. 上通下达 ";
if (i13) s3="13. 张牙舞爪 ";
if (i14) s3="14. 中流砥柱 ";
if (i15) s3="15. 四通八达 ";
if (i16) s3="16. 八仙过海 ";
if (i17) s3="17. 壁垒森严 ";
if (i18) s3="18. 五湖四海 ";
if (i19) s3="19. 乘风破浪 ";
if (i20) s3="20. 蟠桃盛会 ";
if (i==21) s3="21. 网开一面 ";
print s3; }
}//content ()

myToolBarProc(int nBtn,int nContext) {
if(nBtn100){//开始游戏
autoplay=0;
gameStart ();
setDisplay (1); }
if(nBtn101){//图形选择
sn=doubleInput(“选择游戏图形”, " 1. 十字钻石 2. 以一当十 3. 十字街头 4. 门庭若市 5. 三足鼎立 6. 勇往直前 7. 钻石菱形 ＞ 21. \n 输入 [ 空 ] 则取消 " );
if (sn0) return; //init set mode
if (sn>21) sn=1;
mode=(int)sn;
gameStart (); }
//return; }
if(nBtn102){//走步记录
setDisplay (0); }
if(nBtn103){//显示图板 自动演示
clearOutput();
setDisplay (1);
if(sn<22)autoshow ();
cs.Update (); }
if(nBtn104){//退出程序
clearOutput();
cs.ClearDraw (0,src);
setDisplay (0);
exit (0); }
if(nBtn105){//版本信息 v2.7
cs.ClearDraw (0,src);
drawcover ();
cs.RemoveAllHotObjects();
setDisplay (1);
cs.Update (); }
}//myToolBar ()

myMenuProc(int nMen,int nContext) {
if(nMen200){//开始游戏
autoplay=0;
gameStart ();
setDisplay (1); }
if(nMen201){//选择图形
sn=doubleInput(“选择游戏图形”, " 1. 十字钻石 2. 以一当十 3. 十字街头 4. 门庭若市 5. 三足鼎立 6. 勇往直前 7. 钻石菱形 ＞ 21. \n 输入 [ 空 ] 则取消 " );
if (sn0) return; //init set mode
if (sn>21) sn=1;
mode=(int)(sn);
gameStart (); }
//return; }
if (nMen202){//自动演示
clearOutput();
setDisplay (1);
if(sn<22)autoshow ();
cs.Update (); }
if(nMen203){//走步记录
setDisplay (0); }
if (nMen204){//显示棋盘
//drawpad ();
setDisplay (1); }
if (nMen205){//图形目录
content ();
setDisplay (0); }
if(nMen206){//版本信息
cs.ClearDraw (0,src);
drawcover ();
cs.RemoveAllHotObjects();
setDisplay (1);
cs.Update (); }
if (nMen207){//退出程序
clearOutput();
cs.ClearDraw (0,src);
exit (0); }
}//myMenu()
//….end….