可自动求解的魔法游戏程序（C语言）

我心血来潮在手机上编写了一个玩魔方的游戏程序，前些时在本站发布了C语言源码。后来在网上看到有人编写魔方自动求解的东西，感到很有趣味。故此在原编译的游戏程序上加了魔方自动求解的部分。这也是AI 解决问题的探讨。

游戏模式：界面上设置了12个操作按钮和3个转向按钮，用以直接操作魔方。魔方图像块上点击可执行雷同的12个操作动作。

另加了层先法的第一步底层十字和第二步底层棱角的隐式操作按钮（step1 , step2），以及第三步上层十字到第六步六面同色的四个公式（A B C D ）的隐式操作按钮。

下拉菜单设置了层先法的六个步骤的自动演示操作。

求解模式：设置魔方六个面的颜色输入界面，按实际的魔方各个块的颜色点击输入到颜色设置板即可自动求解魔方。游戏程序有详细的操作步骤记录。另有用于输出的操作步数据。

数据格式采用二个字节，按20个字节分段打印。用二个字节来设置一个操作数据单元，此方法便于机器的输入输出。

L0 = Left 面顺转90度， L1 = Left 面逆转90度。F R U B D 面以此类推。

TL = Turn Left 左转， TR = Turn Right 右转

另一组测试：

以下是有详细注释的源码：

//***************************************

// 魔方求解 Seek Solve * Magic Cube

// 制作人：张纯叔 micelu@126.com

// myspringc v2.7 编译

// 编译：2025-10-06

//***************************************

Canvas cs ;

string sBarDes $10$ ;

int nBarId $10$ ;

string sMenu $50$ ;

int nMenu $50$ ;

float pi=3.1415926535;

float src $4$ ; //ClearDraw (cls) clear screen

string s,s1,s2,s3,s4,s5,s6,s7,s8,ss1,ss2,ss3;

float sx,sy,dx,dy;

float px,py;

FileInput filebox;

string fname; //filename

int i,j,t,k ; //t = times

int ts; //ts=calculate steps

int context,obj,id,event; //canvasProc

int bx,by; //button x y position

int bn; //button id number

int B $70$ ; //1 left 2 front 3 right 4 up 5 back 6 down

int SB $70$ ; //1 left 2 front 3 right 4 up 5 back 6 down

int cr1,cg1,cb1; //set color rgb

int scolor, scolor1 ; // switch cube color

int sw $9$ ; //switch Block color

//int donum; //calculate do step number

int n, sn,kn,cando;

double Rn; //random number

int tim $3$ ; //get Time

int hh,mm,ss;

int oldhh,oldmm,oldss;

int newhh,newmm,newss;

int mms; //show using time

string hhts,mmts,ssts, tim$;

string fma,fmb,fmc,fmd, fmd1; //formula

int ms, uf; //using formula

string dat $300$ ; //存储解步数据，2字节，260步

string D $; //data$

int St; //动画：0 不显示，1 显示

int status; //模式切换：0游戏，1求解

int sbx, sby;

int mode ;

main(){

setDisplay(1);

cs.Active();

cs.SetProc (context, mycanvasProc); //getProc

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$ ="AV";

nBarId $5$ =105;

setToolBarHeight(6);

setButtonTextSize(13);

setButtonColor(255,240,240,240);

setButtonTextColor(255,0,0,250);

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;

sMenu $8$ ="查看走步记录";

nMenu $8$ =208;

sMenu $9$ ="显示游戏图板";

nMenu $9$ =209;

sMenu $10$ ="退出";

nMenu $10$ =210;

setMenu(200,myMenuProc,sMenu,nMenu,11);

setTitle("魔方 Magic Cube ");

//*****************************

getTime (tim);

oldhh=tim $0$ ;

oldmm=tim $1$ ;

oldss=tim $2$ ;

kn=2;

drawcover (); //版本信息

St=1; // 0 不显示动画，1 显示

for (i=0; i<70; i++){ SB $i$ =0 ; } //init seek data

while ( ){ }

}//main ()

mycanvasProc (int context,int obj,int id,int event,float x,float y){

//**** Canvas mouse click () ****

if (event==0||event==2||event==10){ //get touch

//** screen touch & select button **

bn=0; //init buttom

kn=kn+1;

if ((kn-kn/2*2)==0){ //触控防闪烁

cando=1; }else{ cando=0; return; }

if (status==0){ //游戏模式

//设置界面操作按钮 12 cmd + 3 转向

if (x>20&&x<110){ //select button btn number

if (y>770&&y<840)bn=1;

if (y>840&&y<910)bn=2;

if (y>920&&y<980)bn=9; }

if (x>310&&x<400){ //select button btn number

if (y>760&&y<840)bn=3;

if (y>840&&y<920)bn=4;

if (y>920&&y<990)bn=10; }

if (x>120&&x<210&&y>750&&y<810)bn=5;

if (x>210&&x<300&&y>750&&y<810)bn=6;

if (x>120&&x<210&&y>815&&y<885)bn=7;

if (x>210&&x<300&&y>815&&y<885)bn=8;

if (x>120&&x<210&&y>890&&y<960)bn=11;

if (x>210&&x<300&&y>890&&y<960)bn=12;

//左旋转，右旋转，上翻转

if (x>430&&x<555&&y>750&&y<840)bn=13;

if (x>560&&x<690&&y>750&&y<840)bn=14;

if (x>490&&x<620&&y>850&&y<950)bn=15;

//** 设置操作标记

cs.SetFillMode (1);

cs.SetTextSize (20);

cs.SetColor(255,255,255,255);

//cs.DrawCircle (160,280,5); //L

// cs.DrawCircle (160,440,5);

if (x>120&&x<200&&y>240&&y<320)bn=1;

if (x>120&&x<200&&y>400&&y<480)bn=2;

cs.DrawText ("L1",150,290);

cs.DrawText ("L",150,450);

// cs.DrawCircle (320,370,2); //R

// cs.DrawCircle (320,520,2);

if (x>280&&x<360&&y>330&&y<410)bn=3;

if (x>280&&x<360&&y>480&&y<560)bn=4;

cs.DrawText ("R",310,370);

cs.DrawText ("R1",305,530);

// cs.DrawCircle (260,270,40); //U

//cs.DrawCircle (450,270,40);

if (x>220&&x<300&&y>230&&y<310)bn=5;

if (x>410&&x<490&&y>230&&y<310)bn=6;

cs.DrawText ("U",270,270);

cs.DrawText ("U1",430,270);

//cs.DrawCircle (400,370,2); //F

//cs.DrawCircle (400,520,2);

if (x>360&&x<440&&y>330&&y<410)bn=7;

if (x>360&&x<440&&y>480&&y<560)bn=8;

cs.DrawText ("F1",390,370);

cs.DrawText ("F",395,530);

//cs.DrawCircle (560,280,5); //B

//cs.DrawCircle (560,440,5);

if (x>520&&x<600&&y>240&&y<320)bn=10;

if (x>520&&x<600&&y>400&&y<480)bn=9;

cs.DrawText ("B",550,290);

cs.DrawText ("B1",550,450);

// cs.DrawCircle (230,490,4); //D

// cs.DrawCircle (480,490,4);

if (x>190&&x<270&&y>450&&y<530)bn=11;

if (x>440&&x<520&&y>450&&y<530)bn=12;

cs.DrawText ("D1",230,490);

cs.DrawText ("D",470,490);

cs.SetColor (255,0,0,250) ;

cs.DrawCircle (648,700, 21) ;

cs.DrawCircle (660,700, 21) ;

cs.SetColor (255,250,250,0) ;

cs.DrawText ("Fm", 640, 705 ) ;

//公式解法：

//顶层十字：至多三次即可

//公式 A：R1 U1 F1 U F R

// 顶面同色：顶面十字四角无色块，下角色块置左；

// 有一块，田置左下；有二块，黄色置前左

//公式 B：R U R1 U R U U R1

//顶面同色：调整角块，两角块同色置前

//公式 C：R B1 R FF R1 B R FF RR

//六面同色：顶棱同色置后B，

//公式 D：R U1 R U R U R U1 R1 U1 RR

if (x>630&&x<720&&y>650&&y<720){

fma="A = R1 U1 F1 U F R ";

fmb="B = R U R1 U R U U R1 ";

fmc="C = R B1 R FF R1 B R FF RR ";

fmd="D = R U1 R U R U R U1 ";

fmd1=" R1 U1 RR"; }

else{ fma=" "; fmb=" "; fmc=" "; fmd=" "; fmd1=" "; }

cs.SetColor (255,80,80,80) ; //clear text

cs.DrawRect (485, 525, 710, 625) ;

cs.DrawRect (667, 210, 685, 325) ;

cs.DrawRect (667, 380, 685, 520) ;

cs.SetColor (255,250,250,250) ;

cs.SetTextSize (16);

cs.DrawText (fma,490,540);

cs.DrawText (fmb,490,560);

cs.DrawText (fmc,490,580);

cs.DrawText (fmd,490,600);

cs.DrawText (fmd1,490,620); //显示公式

cs.DrawCircle (675,220,9); //A

cs.DrawCircle (675,300,9); //B

cs.DrawCircle (675,400,9); //C

cs.DrawCircle (675,480,9); //D

cs.DrawText ("A",670,245);

cs.DrawText ("B",670,325);

cs.DrawText ("C",670,425);

cs.DrawText ("D",670,505);

cs.SetColor (255,0,250,0);

cs.DrawCircle (35,380,15); //BS1

cs.DrawCircle (35,460,15); //BS2

cs.DrawCircle (35,540,15); //BS test

cs.SetColor (255,250,0,0);

cs.DrawText ("Step1",30,385);

cs.DrawText ("Step2",30,465);

cs.DrawText ("Solve",30,545); //test

cs.Update ();

if (x>660&&x<720&&y>180&&y<260){

ms=41; Formula (); } //A

if (x>660&&x<720&&y>260&&y<340){

ms=51; Formula (); } //B

if (x>660&&x<720&&y>380&&y<460){

ms=53; Formula (); } //C

if (x>660&&x<720&&y>460&&y<540){

ms=61; Formula (); } //D

//****

if (x>10&&x<90&&y>365&&y<395){

Bstep1 (); } //底层十字

if (x>10&&x<90&&y>445&&y<475){

Bstep2 (); } //底层四棱

if (x>10&&x<90&&y>525&&y<555){

Autorun (); } //test auto play

// solve (); } //test seek solve

// cs.SetFillMode (1);

cs.Update ();

//********* get button run step

//bx=(int)(x);

//by=(int)(y);

if (bn==1){

s3="走步：左上 L ' ";

Leftup (); }

if (bn==2){

s3="走步：左下 L ";

Leftdown (); }

if (bn==3){

s3="走步：右上 R ";

Rightup (); }

if (bn==4){

s3="走步：右下 R ' ";

Rightdown (); }

if (bn==5){

s3="走步：上左 U ";

Upleft (); }

if (bn==6){

s3="走步：上右 U ' ";

Upright (); }

if (bn==7){

s3="走步：前左 F ' ";

Frontleft (); }

if (bn==8){

s3="走步：前右 F ";

Frontright (); }

if (bn==9){

s3="走步：后左 B ' ";

Backleft (); }

if (bn==10){

s3="走步：后右 B ";

Backright (); }

if (bn==11){

s3="走步：下左 D ' ";

Downleft (); }

if (bn==12){

s3="走步：下右 D ";

Downright (); }

if (bn==13){

s3="走步：左旋转 ";

Turnleft (); }

if (bn==14){

s3="走步：右旋转 ";

Turnright (); }

if (bn==15){

s3="走步：翻转 ";

Turnup (); }

//screen touch & select button ********

cs.SetFillMode (1);

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,700,30); // clear print x y

s=intToString(bn);

s4="按钮(bn) > "+s;

s=intToString(bx);

s1="X= "+s;

s=intToString(by);

s2="Y= "+s;

cs.SetColor (255,250,0,0);

cs.SetTextSize (26);

// cs.DrawText (s1,25,25);

// cs.DrawText (s2,120,25);

cs.DrawText (s4,220,25);

cs.DrawText (s3,445,25);

cs.SetColor (255,90,90,90); //clear

cs.DrawRect (10,30,710,730);

drawbox ();

checkfinished ();

} //status=0 游戏模式

//****************************

//**** status 求解模式 ******

if (status==1) { //求解模式

drawblock (); //Show block

if (x>20&&x<700&&y>60&&y<720){

seekpad (); } //draw seek pad

//** select color

cs.SetTextSize (22) ;

if (x>20&&x<590&&y>600&&y<680){ //colorpad

bx=(int)(x/80)*80; //取整数

scolor1=bx/80+1 ;

cs.DrawText ("select >", 22, 505);

cs.Update ();

} //colorpad

//**** U40 ****

if (x>170&&x<320&&y>50&&y<200){ //U40

bx=(int)((x-20)/50)*50; //取整数

by=(int)(y/50)*50; //取整数

sbx=(bx-150)/50+1 ;

sby=(by-50)/50 ;

cs.SetColor (255,250,0,0);

sn=sbx+sby*3+40; //U40

s="B"+intToString (sn) ;

cs.DrawText (s, 100, 130);

SB $sn$ =scolor1 ;

cs.Update ();

} //U40

//** L10 F20 R30 B50

if (x>20&&x<620&&y>200&&y<350){

bx=(int)((x-20)/150)*150 ; //取整数

bx=bx/150 ;

if (bx==0) kn=10 ; //L10

if (bx==1) kn=20 ;

if (bx==2) kn=30 ;

if (bx==3) kn=50 ;

sbx=(int)(x-20-bx*150)/50+1 ; // *150 还原

by=(int)(y/50)*50; //取整数

sby=(by-200)/50 ;

sn=sbx+sby*3+kn;

cs.SetColor (255,250,0,0);

s="B"+intToString (sn) ;

cs.DrawText (s, 100, 435);

SB $sn$ =scolor1 ;

cs.Update (); } //LFRB

//**** D60 ****

if (x>170&&x<320&&y>350&&y<500){ //U40

bx=(int)((x-20)/50)*50; //取整数

by=(int)(y/50)*50; //取整数

sbx=(bx-150)/50+1 ;

sby=(by-350)/50 ;

cs.SetColor (255,250,0,0);

sn=sbx+sby*3+60; //D60

s="B"+intToString (sn) ;

cs.DrawText (s, 355, 435);

SB $sn$ =scolor1 ;

cs.Update ();

} //D60

//** 操作按钮设置

if (x>540&&x<660&&y>520&&y<580){ //解魔方

for (i=0; i<70; i++){ B $i$ =SB $i$ ; } //传数据

status=0 ; //游戏模式

for (j=1; j<=6; j++){

for (i=1; i<=9; i++){

kn=j*10+i ;

if (SB $kn$ ==0) {

disMsg (0, "缺数据，重置 > ") ;

goto reset ; } //跳出

} } //若有一块未设置则返回补设置

solve () ; } //解魔方

if (x>540&&x<660&&y>620&&y<680){ //重置

for (i=0; i<70; i++){ SB $i$ =0 ; }

drawblock (); //Show empty

} //重置

reset:

drawblock (); //draw out block

} //求解模式

} //screen touch & select button ********

}//mycanvasProc ()

solve (){

//** 魔方自动求解

clearOutput (); //清除记录

print "User select >>> 魔方自动求解";

for (i=0; i<70; i++){ B $i$ =SB $i$ ; } //传数据

ts=-1 ; //init calculate steps, 数据计数0开始

St=0; //不作动画显示

Bstep1 (); //底层四棱

Bstep2 (); //底层四角

Astep3 (); //二层四棱

Astep4 (); //顶层十字

Astep5 (); //顶面同色

Astep6 (); //六面同色

drawbox ();

}//solve ()

seekpad (){

//** 求解：画颜色设置板

//draw pad

cs.SetFillMode (1);//0不填色，1填色

cs.SetColor (255,250,250,250); //backcolor

cs.DrawRect (0,5,720,740);

cs.SetColor (255,90,90,90);

cs.DrawRect (10,30,710,730);

cs.SetColor (255,100,100,100); //seek backcolor

cs.DrawRect (169,49,320,200); //U

cs.DrawRect (19,199,620,350); //LFRB

cs.DrawRect (169,349,320,500); //D

//**** draw cube grid

int d, x1, y1;

cs.SetFillMode (1);//0不填色，1填色

d=50;

x1=20 ; y1=200 ;

for (j=0; j<3; j++){ //draw LFRB

for (i=0; i<12; i++){

cs.SetColor (255,250,250,250);

cs.DrawRect (i*d+x1,j*d+y1,i*d+d-2+x1,j*d+d-2+y1);

} }

for (j=0; j<3; j++){ //draw UD

for (i=0; i<3; i++){

cs.SetColor (255,250,250,250);

x1=170 ; y1=50;

cs.DrawRect (i*d+x1,j*d+y1,i*d+d-2+x1,j*d+d-2+y1);

y1=350;

cs.DrawRect (i*d+x1,j*d+y1,i*d+d-2+x1,j*d+d-2+y1);

} }

d=80 ; x1=20 ; y1=600 ;

for (i=0; i<6; i++){ //draw color pad

scolor=i+1 ;

switchcolor (); //界面块颜色设置

cs.SetColor(255,cr1,cg1,cb1); //color

cs.DrawRect (i*d+x1,j+y1,i*d+d-2+x1,j+d-2+y1);

} // draw colorpad

//** draw select color

scolor=scolor1;

switchcolor (); //界面块颜色设置

cs.SetColor(255,cr1,cg1,cb1); //select color

cs.DrawRect (20,510,100,590);

s=intToString (scolor) ;

cs.SetColor (255,200,200,200);

// cs.DrawText (s, 100, 505);

cs.DrawText ("select >", 22, 505);

//** draw button

cs.SetColor (255,50,50,50);

cs.DrawRect (540,520,660,580);

cs.DrawRect (540,620,660,680);

cs.SetColor (255,250,250,250);

cs.DrawRect (541,521,657,577);

cs.DrawRect (541,621,657,677);

cs.SetColor (255,100,100,100);

cs.DrawRect (544,524,657,577);

cs.DrawRect (544,624,657,677);

cs.SetColor (255,200,200,200);

cs.DrawRect (544,524,655,575);

cs.DrawRect (544,624,655,675);

cs.SetTextSize (28) ;

cs.SetColor (255,250,250,250);

cs.DrawText ("解魔方" , 561, 559);

cs.DrawText ("重置" , 561, 659);

cs.SetColor (255,0,0,150);

cs.DrawText ("解魔方" , 560, 557);

cs.DrawText ("重置" , 560, 657);

drawblock ();

cs.Update ();

}//seekpad ()

drawblock (){

//** 依颜色设置，即时更新面和块颜色

//**** Up blocks

scolor=SB $41$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u1

cs.DrawRect (170,50,218,98);

scolor=SB $42$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u2

cs.DrawRect (220,50,268,98);

scolor=SB $43$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u3

cs.DrawRect (270,50,318,98);

scolor=SB $44$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u4

cs.DrawRect (170,100,218,148);

scolor=SB $45$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u5

cs.DrawRect (220,100,268,148);

scolor=SB $46$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u6

cs.DrawRect (270,100,318,148);

scolor=SB $47$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u7

cs.DrawRect (170,150,218,198);

scolor=SB $48$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u8

cs.DrawRect (220,150,268,198);

scolor=SB $49$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u9

cs.DrawRect (270,150,318,198);

//**********

//**** Down blocks

scolor=SB $61$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //1

cs.DrawRect (170,350,218,398);

scolor=SB $62$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //2

cs.DrawRect (220,350,268,398);

scolor=SB $63$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //3

cs.DrawRect (270,350,318,398);

scolor=SB $64$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //4

cs.DrawRect (170,400,218,448);

scolor=SB $65$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //5

cs.DrawRect (220,400,268,448);

scolor=SB $66$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //6

cs.DrawRect (270,400,318,448);

scolor=SB $67$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //7

cs.DrawRect (170,450,218,498);

scolor=SB $68$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //8

cs.DrawRect (220,450,268,498);

scolor=SB $69$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //9

cs.DrawRect (270,450,318,498);

//**********

//**** Left blocks

scolor=SB $11$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //1

cs.DrawRect (20,200,68,248);

scolor=SB $12$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //2

cs.DrawRect (70,200,118,248);

scolor=SB $13$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //3

cs.DrawRect (120,200,168,248);

scolor=SB $14$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //4

cs.DrawRect (20,250,68,298);

scolor=SB $15$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //5

cs.DrawRect (70,250,118,298);

scolor=SB $16$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //6

cs.DrawRect (120,250,168,298);

scolor=SB $17$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //7

cs.DrawRect (20,300,68,348);

scolor=SB $18$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //8

cs.DrawRect (70,300,118,348);

scolor=SB $19$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //9

cs.DrawRect (120,300,168,348);

//**********

//**** Front blocks

scolor=SB $21$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //1

cs.DrawRect (170,200,218,248);

scolor=SB $22$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //2

cs.DrawRect (220,200,268,248);

scolor=SB $23$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //3

cs.DrawRect (270,200,318,248);

scolor=SB $24$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //4

cs.DrawRect (170,250,218,298);

scolor=SB $25$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //5

cs.DrawRect (220,250,268,298);

scolor=SB $26$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //6

cs.DrawRect (270,250,318,298);

scolor=SB $27$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //7

cs.DrawRect (170,300,218,348);

scolor=SB $28$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //8

cs.DrawRect (220,300,268,348);

scolor=SB $29$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //9

cs.DrawRect (270,300,318,348);

//**********

//**** Right blocks

scolor=SB $31$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //1

cs.DrawRect (320,200,368,248);

scolor=SB $32$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //2

cs.DrawRect (370,200,418,248);

scolor=SB $33$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //3

cs.DrawRect (420,200,468,248);

scolor=SB $34$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //4

cs.DrawRect (320,250,368,298);

scolor=SB $35$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //5

cs.DrawRect (370,250,418,298);

scolor=SB $36$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //6

cs.DrawRect (420,250,468,298);

scolor=SB $37$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //7

cs.DrawRect (320,300,368,348);

scolor=SB $38$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //8

cs.DrawRect (370,300,418,348);

scolor=SB $39$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //9

cs.DrawRect (420,300,468,348);

//**********

//**** Back blocks

scolor=SB $51$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //1

cs.DrawRect (470,200,518,248);

scolor=SB $52$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //2

cs.DrawRect (520,200,568,248);

scolor=SB $53$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //3

cs.DrawRect (570,200,618,248);

scolor=SB $54$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //4

cs.DrawRect (470,250,518,298);

scolor=SB $55$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //5

cs.DrawRect (520,250,568,298);

scolor=SB $56$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //6

cs.DrawRect (570,250,618,298);

scolor=SB $57$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //7

cs.DrawRect (470,300,518,348);

scolor=SB $58$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //8

cs.DrawRect (520,300,568,348);

scolor=SB $59$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //9

cs.DrawRect (570,300,618,348);

//**********

//** 标记面

cs.SetTextSize (28);

cs.SetColor(255,0,0,120);

cs.DrawText ("U", 235,132);

cs.DrawText ("L", 85,282);

cs.DrawText ("F", 235,282);

cs.DrawText ("R", 385,282);

cs.DrawText ("B", 535,282);

cs.DrawText ("D", 235,432);

cs.Update (); //show

}//drawblock ()

//***************************************

Autoplay (){

//** 第一式自动运行设置（白十字置上）

newgame ();

clearOutput ();

print "User select >>> 自动演示";

ts=-1 ; //init calculate steps, 数据计数0开始

St=0; //0 不演示，1 演示

Astep1 (); //上层四棱

//sleep (1000);

Astep2 (); //上层四角

//sleep (1000);

Turnup (); Turnup (); //上层白色置底层

//sleep (1000);

Astep3 (); //二层四棱

//sleep (1000);

Astep4 (); //顶层十字

//sleep (1000);

Astep5 (); //顶面同色

//sleep (1000);

Astep6 (); //六面同色

}//Autoplay ()

Autorun (){

//** 第二式自动运行设置（白十字置底）

newgame ();

Turnup (); Turnup (); //白置底层

clearOutput ();

print "User select >>> 自动演示";

ts=-1 ; //init calculate steps, 数据计数0开始

St=0;

Bstep1 (); //底层四棱

Bstep2 (); //底层四角

Astep3 (); //二层四棱

Astep4 (); //顶层十字

Astep5 (); //顶面同色

Astep6 (); //六面同色

}//Aoutorun ()

Formula (){

//** 界面设置四公式操作，可直接使用公式

if (ms==41){ goto ms41; } //公式 A

if (ms==51){ goto ms51; } //公式 B

if (ms==53){ goto ms53; } //公式 C

if (ms==61){ goto ms61; } //公式 D

ms41: //顶层十字

//fma= A：R1 U1 F1 U F R

print "公式 A ";

Rightdown (); Upright (); Frontleft ();

Upleft (); Frontright (); Rightup ();

s=" fma= A：R1 U1 F1 U F R ";

print s;

return; //************

ms51: //顶面同色：同色

//fmb= B：R U R1 U R U U R1

print "公式 B ";

Rightup (); Upleft (); Rightdown ();

Upleft (); Rightup ();

Upleft (); Upleft (); Rightdown ();

s=" fmb= B：R U R1 U R U U R1 " ;

print s;

return; //************

ms53: //顶面同色：调整角块

//fmc= C：R B1 R FF R1 B R FF RR

print "公式 C";

Rightup (); Backleft (); //R B1

Rightup (); Frontright (); Frontright (); //R FF

Rightdown (); Backright (); //R1 B

Rightup (); Frontright (); Frontright (); //R FF

Rightup (); Rightup (); //RR

s=" fmc= C：R B1 R FF R1 B R FF RR ";

print s;

return; //顶面同色 *************

ms61: //六面同色：完成

//fmd= D：R U1 R U R U R U1 R1 U1 RR

print "公式 D ";

Rightup (); Upright (); //R U1

Rightup (); Upleft (); //R U

Rightup (); Upright (); //R U1

Rightdown (); Upright (); //R1 U1

Rightup (); Rightup (); //RR

s=" fmd= D：R U1 R U R U R U1 R1 U1 RR ";

print s;

return; // 公式 D

}//Formula ()

checkfinished (){

//** 查看魔方是否已完成

//**** check finished ************

for (i=1;i<10;i++){

if (B $10+i$ ==B $15$ ){ }else{ goto f60; }

if (B $20+i$ ==B $25$ ){ }else{ goto f60; }

if (B $30+i$ ==B $35$ ){ }else{ goto f60; }

if (B $40+i$ ==B $45$ ){ }else{ goto f60; }

if (B $50+i$ ==B $55$ ){ }else{ goto f60; }

if (B $60+i$ ==B $65$ ){ }else{ goto f60; }

} //check >>>>>>

goto f66; //if finished then show score

f60:

ms=80 ; return; //if not finished then retry

f66: // **** finished & show score *******

drawbox ();

if (ms==99) return;

print "times = ", n ; //D 公式，次数

print "步数 steps = ", ts+1 ; //使用步数

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;

hh=mms/3600;

mm=(mms-hh*2600)/60;

ss=mms-hh*3600-mm*60;

s=intToString (ss);

if (ss<10) s="0"+s ; //** 若 sec<10 补 0

ss1=intToString (mm)+" 分 "+s+" 秒";

ss2=hhts+" : "+mmts+" : "+ssts;

s7="用时："+ss1;

print "结束时间 "+ss2;

print s7;

cs.SetColor (255,250,250,250);

cs.SetTextSize (20);

cs.DrawText (tim$, 20, 710);

cs.DrawText (ss2, 20, 690);

cs.DrawText (ss1, 20, 670);

oldhh=newhh;

oldmm=newmm;

oldss=newss;

//******************

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《六面同色》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.DrawText (s7,100,25);

s="恭喜你完成了魔方游戏！ ";

cs.SetTextSize (60);

cs.SetFillMode (1);

cs.SetStrokeWidth (2);

cs.SetColor (255,160,30,240);

cs.DrawText (s,63,313);

cs.SetColor (255,250,0,0);

cs.DrawText (s,60,310);

cs.SetFillMode (0);

cs.SetStrokeWidth (1);

cs.SetColor (255,250,250,0);

cs.DrawText (s,60,310);

cs.SetFillMode (1);

cs.SetTextSize (26);

cs.Update ();

//** 打印解步数据记录，类> R0=R , R1=R' ...

print " ";

print "**** 分段打印解步数据记录 ********";

for (t=0; t<15; t++){ //280

D$=" ";

for (i=t*20; i<t*20+20; i++){

D $=D$ +dat $i$ +" " ; }

print D$ ; }

ms=99; //if finished then cut 结束标志

}//checkfinished ()

Bstep1 (){

//** 底层十字：白色置底层，做十字

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(1)《底层十字》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0; goto B15; //check finished

B10: //底层四菱有白转上

if (B $18$ ==B $65$ ){

Leftup (); Leftup (); }

if (B $28$ ==B $65$ ){

Frontright (); Frontright (); }

if (B $38$ ==B $65$ ){

Rightup (); Rightup (); }

if (B $58$ ==B $65$ ){

Backright (); Backright (); }

B11:

//**** 底错位白转上 *******

if (B $62$ ==B $65$ &&B $28$ !=B $25$ ){

Frontright (); Frontright (); }

if (B $64$ ==B $65$ &&B $18$ !=B $15$ ){

Leftup (); Leftup (); }

if (B $66$ ==B $65$ &&B $38$ !=B $35$ ){

Rightup (); Rightup (); }

if (B $68$ ==B $65$ &&B $58$ !=B $55$ ){

Backright (); Backright (); }

//**** 后2中转上

if (B $56$ ==B $65$ ||B $14$ ==B $65$ ){

Leftdown (); Upright (); Leftup (); }

if (B $54$ ==B $65$ ||B $36$ ==B $65$ ){

Rightdown (); Upleft (); Rightup (); }

B13: //**** at front 4 edge put it to correct ****

//top 4 edge 有白 to correct

if (B $48$ ==B $65$ &&B $22$ ==B $25$ ){ //FF

Frontright (); Frontright (); }

if (B $22$ ==B $65$ &&B $48$ ==B $25$ ){ //U L F1

Upright(); Leftdown (); Frontleft (); }

if (B $48$ ==B $65$ &&B $22$ ==B $15$ ){ //U L L

Upleft (); Leftdown (); Leftdown (); }

if (B $22$ ==B $65$ &&B $48$ ==B $15$ ){ // F1 L F

Frontleft (); Leftdown (); Frontright (); }

if (B $48$ ==B $65$ &&B $22$ ==B $35$ ){ //U R1 R1

Upright(); Rightdown (); Rightdown (); }

if (B $22$ ==B $65$ &&B $48$ ==B $35$ ){ //F R1 F1

Frontright (); Rightdown (); Frontleft (); }

if (B $48$ ==B $65$ &&B $22$ ==B $55$ ){ //U U B B

Upright(); Upright ();

Backright (); Backright (); }

if (B $22$ ==B $65$ &&B $48$ ==B $55$ ){ //F RR B

Frontright (); Rightup (); Rightup ();

Backright (); }

if (B $46$ ==B $65$ &&B $32$ ==B $25$ ){ //U FF

Upleft (); Frontright (); Frontright (); }

if (B $32$ ==B $65$ &&B $46$ ==B $25$ ){ //R1 F R

Rightdown (); Frontright (); Rightup (); }

if (B $46$ ==B $65$ &&B $32$ ==B $15$ ){ //UU L L

Upleft (); Upleft (); Leftdown (); Leftdown (); }

if (B $32$ ==B $65$ &&B $46$ ==B $15$ ){ //U F1 L F

Upright (); Frontleft ();

Leftdown (); Frontright (); }

if (B $46$ ==B $65$ &&B $32$ ==B $35$ ){ // R R

Rightup (); Rightup (); }

if (B $32$ ==B $65$ &&B $46$ ==B $35$ ){//U F R1 F1

Upright (); Frontright ();

Rightdown (); Frontleft (); }

if (B $46$ ==B $65$ &&B $32$ ==B $55$ ){ //U1 B B

Upleft (); Backright (); Backright (); }

if (B $32$ ==B $65$ &&B $46$ ==B $55$ ){ //R B1 R1

Rightup (); Backleft (); Rightdown (); }

if (B $44$ ==B $65$ &&B $12$ ==B $25$ ){ //U1 FF

Upright (); Frontright (); Frontright (); }

if (B $12$ ==B $65$ &&B $44$ ==B $25$ ){ //L F1 L1

Leftdown (); Frontleft (); Leftup (); }

if (B $44$ ==B $65$ &&B $12$ ==B $15$ ){ // L L

Leftdown (); Leftdown (); }

if (B $12$ ==B $65$ &&B $44$ ==B $15$ ){ //U1 F1 L F

Upleft (); Frontright ();

Leftdown (); Frontleft (); }

if (B $44$ ==B $65$ &&B $12$ ==B $35$ ){ //U1U1 R1R1

Upright (); Upright ();

Rightdown (); Rightdown (); }

if (B $12$ ==B $65$ &&B $44$ ==B $35$ ){ //U1 F R1 F1

Upright (); Frontright ();

Rightdown (); Frontleft (); }

if (B $44$ ==B $65$ &&B $12$ ==B $55$ ){ //U B B

Upright (); Backright (); Backright (); }

if (B $12$ ==B $65$ &&B $44$ ==B $55$ ){ //L1 B L

Leftup (); Backright (); Leftdown (); }

if (B $42$ ==B $65$ &&B $52$ ==B $25$ ){ //UU FF

Upright (); Upright ();

Frontright (); Frontright (); }

if (B $52$ ==B $65$ &&B $42$ ==B $25$ ){ //U1 L F1 L1

Upleft (); Leftdown ();

Frontleft (); Leftup (); }

if (B $42$ ==B $65$ &&B $52$ ==B $15$ ){ //U1 L

Upleft (); Leftdown (); Leftdown (); }

if (B $52$ ==B $65$ &&B $42$ ==B $15$ ){ //B L1 B1

Backright (); Leftup (); Backleft (); }

if (B $42$ ==B $65$ &&B $52$ ==B $35$ ){ //U R R

Upright (); Rightup (); Rightup (); }

if (B $52$ ==B $65$ &&B $42$ ==B $35$ ){ //B1 R B

Backleft (); Rightup (); Backright (); }

if (B $42$ ==B $65$ &&B $52$ ==B $55$ ){ //B B

Backright (); Backright (); }

if (B $52$ ==B $65$ &&B $42$ ==B $55$ ){ //U R B1

Upright (); Rightup (); Backleft (); }

//**** front under edge white to correct

if (B $28$ !=B $25$ &&B $62$ ==B $65$ ){ //F F

Frontright (); Frontright (); }

if (B $28$ ==B $65$ &&B $62$ ==B $15$ ){ //F L

Frontleft (); Leftdown (); }

if (B $28$ ==B $65$ &&B $62$ ==B $25$ ){ //F1 L U L1 FF

Frontleft (); Leftup (); Upright (); Leftdown ();

Frontright (); Frontright (); }

if (B $28$ ==B $65$ &&B $62$ ==B $35$ ){ //F1 R1

Frontright (); Rightdown (); }

if (B $28$ ==B $65$ &&B $62$ ==B $55$ ){ //F L1 U L BB

Frontright (); Leftup(); Upright (); Leftdown ();

Backright (); Backright (); }

//2 layer front 2 edge white to correct

if (B $34$ ==B $65$ &&B $26$ ==B $25$ ){ //F

Frontleft (); }

if (B $26$ ==B $65$ &&B $34$ ==B $25$ ){ //R U R1 FF **

Rightup (); Upleft (); Rightdown ();

Frontright (); Frontright (); }

if (B $16$ ==B $65$ &&B $24$ ==B $25$ ){ //F1

Frontright (); }

if (B $24$ ==B $65$ &&B $16$ ==B $25$ ){ //L1 U1 L FF

Leftup(); Upright (); Leftdown ();

Frontleft (); Frontleft (); }

Turnleft ();

n=n+1;

// if (ts>40) goto B16;

B15: //**** check finished ************

if (B $62$ ==B $65$ &&B $64$ ==B $65$ &&

B $66$ ==B $65$ &&B $68$ ==B $65$ ){

goto B16; } else { goto B10 ; }

B16: //**** under cross finished ******

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《底层十字》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ",n;

print "步数 steps = ", ts+1 ; //使用步数

}//Bstep1 ()

Bstep2 (){

//** 底层四角：白色置底层 **

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(2)《底层四角》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0; goto B25; //check finished

B20: //** 底四角白翻上

if (B $29$ ==B $65$ ||B $37$ ==B $65$ ||B $63$ ==B $65$ ){

Rightup(); Upleft (); Rightdown (); }

if (B $19$ ==B $65$ ||B $27$ ==B $65$ ||B $61$ ==B $65$ ){

Frontright (); Upleft (); Frontleft (); }

if (B $59$ ==B $65$ ||B $17$ ==B $65$ ||B $67$ ==B $65$ ){

Leftdown (); Upleft (); Leftup (); }

if (B $39$ ==B $65$ ||B $57$ ==B $65$ ||B $69$ ==B $65$ ){

Backright (); Upleft (); Backleft (); }

B21:

//****adjust this right corner

if (B $29$ ==B $65$ ||B $37$ ==B $65$ ||B $63$ !=B $65$ ){

Rightup (); Upleft ();

Rightdown (); } //Upright (); } //未就位

//** adjust 上四角入巢

if (B $33$ ==B $65$ ||B $51$ ==B $65$ ||B $43$ ==B $65$ ){

if (B $33$ ==B $25$ ||B $51$ ==B $25$ ||B $43$ ==B $25$ ){

if (B $33$ ==B $35$ ||B $51$ ==B $35$ ||B $43$ ==B $35$ ){

Upright (); } } }

if (B $13$ ==B $65$ ||B $21$ ==B $65$ ||B $47$ ==B $65$ ){

if (B $13$ ==B $25$ ||B $21$ ==B $25$ ||B $47$ ==B $25$ ){

if (B $13$ ==B $35$ ||B $21$ ==B $35$ ||B $47$ ==B $35$ ){

Upleft (); } } }

if (B $53$ ==B $65$ ||B $11$ ==B $65$ ||B $41$ ==B $65$ ){

if (B $53$ ==B $25$ ||B $11$ ==B $25$ ||B $41$ ==B $25$ ){

if (B $53$ ==B $35$ ||B $11$ ==B $35$ ||B $41$ ==B $35$ ){

Upleft (); Upleft (); } } }

//**** do it to correct corner

//白上，U1 R1 U R R U1 R1

if (B $49$ ==B $65$ &&B $23$ ==B $35$ &&B $31$ ==B $25$ ){

Upright (); Rightdown (); Upleft ();

Rightup (); Rightup (); Upright (); Rightdown();

print "s2_21 : 白上 U1 R1 U R R U1 R1 "; }

//白左 U R U1 R1

if (B $23$ ==B $65$ &&B $31$ ==B $35$ &&B $49$ ==B $25$ ){

Upleft (); Rightup (); Upright (); Rightdown ();

print "s2_22 : 白左 U R U1 R1 "; }

//白右 R U R1

if (B $31$ ==B $65$ &&B $23$ ==B $25$ &&B $49$ ==B $35$ ){

Rightup (); Upleft (); Rightdown ();

print "s2_23 : 白右 R U R1 "; }

Turnleft ();

n=n+1;

B25: //**** check finished ************

if (B $61$ ==B $65$ &&B $63$ ==B $65$ &&

B $67$ ==B $65$ &&B $69$ ==B $65$ ){

goto B26; } else { goto B21; }

return;

B26:

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《底层四角》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ", n ;

print "步数 steps = ", ts+1 ; //使用步数

}//Bstep2 ()

Astep6 (){ //六面同色 ************

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(6)《六面同色》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0;

checkfinished (); // 可能 Astep5 () 已完成

if (ms==99) return; //已完成

s61:

//**** adjust status at first *********

if (B $12$ ==B $15$ ){ //same color edge to back

Turnleft (); }

if (B $22$ ==B $25$ ){ Turnleft (); Turnleft (); }

if (B $32$ ==B $35$ ){ Turnright (); }

//** new：using formula D to finished cube

//已同色棱置后，逆一次，顺二次就可完成

ms=61; Formula ();

n=n+1;

checkfinished ();

print "步数 steps = ", ts+1 ; //使用步数

if(ms<99){ goto s61 ; }

}//Astep6 ()

Astep5 (){ //顶面同色 ************

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(5)《顶面同色》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0;

//对齐前面同色棱，查看几块同色

if (B $12$ ==B $25$ ){ Upright (); }

if (B $32$ ==B $25$ ){ Upleft (); }

if (B $52$ ==B $25$ ){ Upleft (); Upleft (); }

s51:

k=0 ; n=n+1 ; //计算顶面有几角块同色

if (B $41$ ==B $45$ ) k=k+1 ;

if (B $43$ ==B $45$ ) k=k+1 ;

if (B $47$ ==B $45$ ) k=k+1 ;

if (B $49$ ==B $45$ ) k=k+1 ;

//state 1 > ** adjust status 顶面角块无同色

if (k==0){

if (B $23$ ==B $45$ ){ Turnleft (); }

if (B $33$ ==B $45$ ){ Turnleft (); Turnleft (); }

if (B $53$ ==B $45$ ){ Turnright (); }

if (B $13$ ==B $45$ ){ }

ms=51; Formula(); } //公式 B

//state 2 > ** adjust status

// 顶面一角块同色，小鱼置左

if (k==1) {

if (B $41$ ==B $45$ ){ Turnright (); }

if (B $43$ ==B $45$ ){ Turnleft (); Turnleft (); }

if (B $49$ ==B $45$ ){ Turnleft (); }

ms=51; Formula(); } //公式 B

//state 3 > ** adjust statue

// 顶面二以上角块同色，另角边色同顶色置前

if (k>1) {

if (B $11$ ==B $45$ ){ Turnright (); }

if (B $31$ ==B $45$ ){ Turnleft (); }

if (B $51$ ==B $45$ ){ Turnleft (); Turnleft (); }

ms=51; Formula(); //公式 B

} //若有2块以上同顶色，同色置前

//**** check finished ************

if (B $41$ ==B $45$ &&B $42$ ==B $45$ &&

B $43$ ==B $45$ &&B $44$ ==B $45$ &&

B $46$ ==B $45$ &&B $47$ ==B $45$ &&

B $48$ ==B $45$ &&B $49$ ==B $45$ ) {

goto s53; } //to next execute

goto s51; //retry ******

return;

//*****************************

//**** sequence C *******

s53:

//**** state adjust

if (B $11$ ==B $25$ ){ Upright (); }

if (B $31$ ==B $25$ ){ Upleft (); }

if (B $51$ ==B $25$ ){ Upleft (); Upleft (); }

//**** 可能此步已完成

//**** check finished ************

if (B $41$ ==B $45$ &&B $42$ ==B $45$ &&

B $43$ ==B $45$ &&B $44$ ==B $45$ &&

B $46$ ==B $45$ &&B $47$ ==B $45$ &&

B $48$ ==B $45$ &&B $49$ ==B $45$ &&

B $11$ ==B $15$ &&B $21$ ==B $25$ &&

B $31$ ==B $35$ &&B $51$ ==B $55$ ) {

goto s57; } //finished game

//完成顶面同色，再调整角块，二块同色置前

n=n+1 ;

if (B $11$ ==B $13$ ){ Turnright (); }

if (B $31$ ==B $33$ ){ Turnleft (); }

if (B $51$ ==B $53$ ){ Turnleft (); Turnleft (); }

ms=53; Formula(); //公式 C

//**** check finished ************

if (B $41$ ==B $45$ &&B $42$ ==B $45$ &&

B $43$ ==B $45$ &&B $44$ ==B $45$ &&

B $46$ ==B $45$ &&B $47$ ==B $45$ &&

B $48$ ==B $45$ &&B $49$ ==B $45$ &&

B $11$ ==B $15$ &&B $21$ ==B $25$ &&

B $31$ ==B $35$ &&B $51$ ==B $55$ ) {

goto s57; } //finished game

else{ goto s53; } //if not finished then retry

return;

//**** finished ******

s57:

//**** check finished ************

if (B $11$ ==B $15$ &&B $12$ ==B $15$ &&B $13$ ==B $15$ ){

if (B $21$ ==B $25$ &&B $22$ ==B $25$ &&B $23$ ==B $25$ ){

if (B $31$ ==B $35$ &&B $32$ ==B $35$ &&B $33$ ==B $35$ ){

if (B $51$ ==B $55$ &&B $52$ ==B $55$ &&B $53$ ==B $55$ ){

goto s59; } } } } //六面同色已完成

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《顶面同色》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ",n;

print "步数 steps = ", ts+1 ; //使用步数

return;

s59: //if finuished magic cube some times ****

checkfinished ();

print "Well done ! magic cube is finished. ";

ms=99 ;

}//Astep5 ()

Astep4 (){ //顶层十字 ************

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(4)《顶层十字》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0;

goto s45; //check finished 可能此步已完成

s41: //run 4 times when finished *******

//adjust status ***********

if (B $44$ ==B $45$ &&B $48$ ==B $45$ ){

Upleft (); }

if (B $46$ ==B $45$ &&B $48$ ==B $45$ ){

Upleft (); Upleft (); }

if (B $42$ ==B $45$ &&B $46$ ==B $45$ ){

Upright (); }

if (B $44$ ==B $45$ &&B $46$ ==B $45$ ){

Upleft (); }

//use formula execute R' U' F' U F R *****

print "公式 A ";

Rightdown (); Upright (); Frontleft ();

Upleft (); Frontright (); Rightup ();

n=n+1;

// if (n>10) goto s46;

s45: //**** check finished ************

if (B $42$ ==B $45$ &&B $44$ ==B $45$ &&

B $46$ ==B $45$ &&B $48$ ==B $45$ ){

goto s46; } else { goto s41; }

return;

s46:

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《顶层十字》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ",n;

print "步数 steps = ", ts+1 ; //使用步数

}//Astep4 ()

Astep3 (){ //二层四棱 *************

s30:

s3="Autoplay >> 二层四棱 ";

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(3)《二层四棱》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0 ; //计算次数

goto s35; //check finished

s31:

//****** adjust status ************

if (B $26$ ==B $35$ ||B $34$ ==B $25$ ){

if (B $26$ ==B $15$ ||B $34$ ==B $55$ ){

print "s3_31 "; // R' U' R' U' R' U R U R

Rightdown (); Upright (); Rightdown();

Upright (); Rightdown ();

Upleft (); Rightup (); Upleft ();

Rightup (); } } // s3_31

if (B $36$ ==B $25$ ||B $54$ ==B $35$ ){

if (B $36$ ==B $55$ ||B $54$ ==B $15$ ){

print "s3_32 "; // R U R U R U' R' U' R'

Rightup (); Upleft (); Rightup();

Upleft (); Rightup ();

Upright (); Rightdown (); Upright ();

Rightdown (); } } // s3_32

//**** adjust status *******************

if (B $44$ ==B $25$ &&B $12$ ==B $35$ ){

Upright (); Upright (); }

if (B $44$ ==B $55$ &&B $12$ ==B $35$ ){

Upright (); Upright (); }

if (B $42$ ==B $25$ &&B $52$ ==B $35$ ){

Upleft (); }

if (B $42$ ==B $55$ &&B $52$ ==B $35$ ){

Upleft (); }

if (B $48$ ==B $25$ &&B $22$ ==B $35$ ){

Upright (); }

if (B $48$ ==B $55$ &&B $22$ ==B $35$ ){

Upright (); }

s32: //do medium layer edges ******

if (B $46$ ==B $25$ &&B $32$ ==B $35$ ){ //s3_31 left

print "s3_31 ";

Rightdown (); Upright (); Rightdown();

Upright (); Rightdown ();

Upleft (); Rightup (); Upleft ();

Rightup (); } //Turnleft (); }

if (B $46$ ==B $55$ &&B $32$ ==B $35$ ){ //s3_32 right

print "s3_32 ";

Rightup (); Upleft (); Rightup();

Upleft (); Rightup ();

Upright (); Rightdown (); Upright ();

Rightdown (); }

Turnleft (); // adjust status ******

n=n+1;

if (n>10) goto s30 ; //若没成，重做

s35: //**** check finished ************

if (B $24$ ==B $25$ &&B $26$ ==B $25$ &&

B $34$ ==B $35$ &&B $36$ ==B $35$ &&

B $14$ ==B $15$ &&B $16$ ==B $15$ &&

B $54$ ==B $55$ &&B $56$ ==B $55$ ) {

goto s36; }

//else { Upright(); goto s31; }

else { goto s31; }

return;

s36:

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《二层四棱》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ",n ;

print "步数 steps = ", ts+1 ; //使用步数

}//Astep3 ()

Astep2 (){ //上层四角 *************

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(2)《上层四角》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0; goto s25; //check finished

s21:

//**** under 4 corner to top layer ** state adjust

if (B $23$ ==B $45$ ||B $31$ ==B $45$ ||B $49$ ==B $45$ ){

Downleft (); Rightdown ();

Downright (); Rightup (); } //adjust

if (B $39$ ==B $45$ ||B $57$ ==B $45$ ||B $69$ ==B $45$ ){

if (B $39$ ==B $25$ ||B $57$ ==B $25$ ||B $69$ ==B $25$ ){

if (B $39$ ==B $35$ ||B $57$ ==B $35$ ||B $69$ ==B $35$ ){

Downleft (); } } }

if (B $19$ ==B $45$ ||B $27$ ==B $45$ ||B $61$ ==B $45$ ){

if (B $19$ ==B $25$ ||B $27$ ==B $25$ ||B $61$ ==B $25$ ){

if (B $19$ ==B $35$ ||B $27$ ==B $35$ ||B $61$ ==B $35$ ){

Downright (); } } }

if (B $59$ ==B $45$ ||B $17$ ==B $45$ ||B $67$ ==B $45$ ){

if (B $59$ ==B $25$ ||B $17$ ==B $25$ ||B $67$ ==B $25$ ){

if (B $59$ ==B $35$ ||B $17$ ==B $35$ ||B $67$ ==B $35$ ){

Downleft (); Downleft (); } } }

//**** under 4 corner to top layer ********

if (B $29$ ==B $45$ &&B $37$ ==B $35$ &&B $63$ ==B $25$ ){

print "s2_21";

Downleft (); Rightdown ();

Downright (); Rightup (); } //s2_21

if (B $37$ ==B $45$ &&B $29$ ==B $25$ &&B $63$ ==B $35$ ){

print " s2_22 ";

Rightdown (); Downleft ();

Rightup (); } //s2_22

if (B $63$ ==B $45$ &&B $29$ ==B $35$ &&B $37$ ==B $25$ ){

print "s2_23 ";

Rightdown (); Downleft (); Downleft ();

Rightup (); Downright (); Rightdown ();

Downleft (); Rightup (); } //s2_23

Turnleft ();

Downleft ();

n=n+1;

s25: //**** check finished ************

if (B $41$ ==B $45$ &&B $43$ ==B $45$ &&

B $47$ ==B $45$ &&B $49$ ==B $45$ ){

goto s26; } else { goto s21; }

return;

s26:

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《上层四角》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ", n ;

print "步数 steps = ", ts+1 ; //使用步数

}//Astep2 ()

Astep1 (){ //上层四棱 ***********

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s5="(1)《上层四棱》 do >>>>>> ";

print s5;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s5,90,25);

cs.Update ();

n=0;

s11: //**** top 4 edge to under

if (B $12$ ==B $45$ ){

Leftdown(); Upright(); Frontleft(); }

if (B $22$ ==B $45$ ){

Frontleft() ; Upleft(); Leftdown(); }

if (B $32$ ==B $45$ ){

Rightdown(); Upleft(); Frontright(); }

if (B $52$ ==B $45$ ){

Backleft (); Upleft(); Rightup(); }

if (B $42$ ==B $45$ ){

Backleft (); Backleft (); }

if (B $44$ ==B $45$ ){

Leftdown (); Leftdown (); }

if (B $46$ ==B $45$ ){

Rightdown(); Rightdown (); }

if (B $48$ ==B $45$ ){

Frontleft(); Frontleft (); }

//return;

s12: //**** under layer 4 edges to top ****

if (B $66$ ==B $45$ &&B $38$ ==B $35$ ){

Rightup(); Rightup (); }

if (B $68$ ==B $45$ &&B $58$ ==B $55$ ){

Backleft(); Backleft (); }

if (B $64$ ==B $45$ &&B $18$ ==B $15$ ){

Leftup (); Leftup (); }

if (B $62$ ==B $45$ &&B $28$ ==B $25$ ){

Frontright (); Frontright (); }

s13: //就位

if (B $66$ ==B $45$ &&B $38$ ==B $35$ ){

Rightup(); Rightup (); }

if (B $66$ ==B $45$ &&B $38$ ==B $25$ ){

Downleft (); Frontleft (); Frontleft (); }

if (B $66$ ==B $45$ &&B $38$ ==B $15$ ){

Downleft (); Downleft (); Leftup (); Leftup (); }

if (B $66$ ==B $45$ &&B $38$ ==B $55$ ){

Downright (); Backright (); Backright (); }

Downleft ();

s14: //**** 2 layer 4 edges to under ****

for (i=0;i<4;i++){

if (B $26$ ==B $45$ ){

Rightdown (); Downleft (); Rightup (); }

if (B $34$ ==B $45$ ){

Frontright (); Downright (); Frontleft (); }

Turnleft (); }

//*** under 4 edges b45 color ****

if (B $38$ ==B $45$ ){

Downleft (); Frontleft (); Rightdown ();

Frontright (); }

if (B $58$ ==B $45$ ){

Downleft (); Downleft ();

Frontleft (); Rightdown (); Frontright (); }

if (B $28$ ==B $45$ ){

Frontleft (); Rightdown (); Frontright (); }

if (B $18$ ==B $45$ ){

Downright (); Frontleft (); Rightdown ();

Frontright (); }

if (B $32$ ==B $45$ ){

Rightdown (); Frontright (); Downright ();

Frontleft (); }

n=n+1;

if (n>20) goto s16;

s15: //**** check finished ************

if (B $42$ ==B $45$ &&B $44$ ==B $45$ &&

B $46$ ==B $45$ &&B $48$ ==B $45$ ){

goto s16; } else { goto s12; }

return;

s16:

cs.SetColor(255,250,250,250);

cs.DrawRect (80,3,720,30); // clear print

s3="《上层四棱》已完成 ";

print s3;

cs.SetColor (255,250,20,120);

cs.SetTextSize (26);

cs.DrawText (s3,380,25);

cs.Update ();

print "times = ",n;

print "步数 steps = ", ts+1 ; //使用步数

}//Astep1()

switchcolor (){

//颜色设置 set cube 1--6 color

//1. 中蓝 2. 深红 3. 中绿 4. 黄色 5. 橙色 6. 淡粉

//美官方配色：

//1. 橙色 2. 中蓝 3. 深红 4. 黄色 5. 中绿 6. 白色

if (scolor==0){cr1=240; cg1=250; cb1=250; }

if (scolor==1){cr1=250; cg1=150; cb1=0; }

if (scolor==2){cr1=0; cg1=120; cb1=250; }

if (scolor==3){cr1=200; cg1=0; cb1=0; }

if (scolor==4){cr1=250; cg1=220; cb1=0; }

if (scolor==5){cr1=0; cg1=220; cb1=0; }

if (scolor==6){cr1=250; cg1=240; cb1=250; }

//求解 > 加色 0，显示未置色点块

}//switchcolor ()

drawbox (){

//draw out & show user cube ****

setDisplay (1);

cs.SetStrokeWidth(1);

cs.SetColor(255,80,80,80);

cs.DrawRect (10,30,710,730); // box backcolor

cs.SetColor(255,150,150,150); //cross line

cs.DrawLine(360,50,360,700); //center

cs.DrawLine(20,340,700,340); //center

cs.SetStrokeWidth(2);

for (j=0;j<80;j++){ //draw up cube ****

scolor=B $41$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u1

cs.DrawLine (280+j,140+j/2,360+j,100+j/2);

scolor=B $42$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u2

cs.DrawLine (360+j,180+j/2,440+j,140+j/2);

scolor=B $43$ ;

switchcolor (); //界面块颜色设置

cs.SetColor(255,cr1,cg1,cb1); //u3

cs.DrawLine (440+j,220+j/2,520+j,180+j/2);

scolor=B $44$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u4

cs.DrawLine (200+j,180+j/2,280+j,140+j/2);

scolor=B $45$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u5

cs.DrawLine (280+j,220+j/2,360+j,180+j/2);

scolor=B $46$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u6

cs.DrawLine (360+j,260+j/2,440+j,220+j/2);

scolor=B $47$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u7

cs.DrawLine (120+j,220+j/2,200+j,180+j/2);

scolor=B $48$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u8

cs.DrawLine (200+j,260+j/2,280+j,220+j/2);

scolor=B $49$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u9

cs.DrawLine (280+j,300+j/2,360+j,260+j/2);

}

//draw right cube ******

for (j=0;j<80;j++){ //draw right cube ****

scolor=B $31$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r1

cs.DrawLine (360+j,340-j/2,360+j,420-j/2);

scolor=B $32$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r2

cs.DrawLine (440+j,300-j/2,440+j,380-j/2);

scolor=B $33$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r3

cs.DrawLine (520+j,260-j/2,520+j,340-j/2);

scolor=B $34$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r4

cs.DrawLine (360+j,420-j/2,360+j,500-j/2);

scolor=B $35$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r5

cs.DrawLine (440+j,380-j/2,440+j,460-j/2);

scolor=B $36$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r6

cs.DrawLine (520+j,340-j/2,520+j,420-j/2);

scolor=B $37$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r7

cs.DrawLine (360+j,500-j/2,360+j,580-j/2);

scolor=B $38$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r8

cs.DrawLine (440+j,460-j/2,440+j,540-j/2);

scolor=B $39$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r9

cs.DrawLine (520+j,420-j/2,520+j,500-j/2);

}

//draw front cube ******

for (j=0;j<80;j++){ //draw front cube

scolor=B $21$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f1

cs.DrawLine (120+j,220+j/2,120+j,300+j/2);

scolor=B $22$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f2

cs.DrawLine (200+j,260+j/2,200+j,340+j/2);

scolor=B $23$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f3

cs.DrawLine (280+j,300+j/2,280+j,380+j/2);

scolor=B $24$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f4

cs.DrawLine (120+j,300+j/2,120+j,380+j/2);

scolor=B $25$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f5

cs.DrawLine (200+j,340+j/2,200+j,420+j/2);

scolor=B $26$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f6

cs.DrawLine (280+j,380+j/2,280+j,460+j/2);

scolor=B $27$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f7

cs.DrawLine (120+j,380+j/2,120+j,460+j/2);

scolor=B $28$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f8

cs.DrawLine (200+j,420+j/2,200+j,500+j/2);

scolor=B $29$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f9

cs.DrawLine (280+j,460+j/2,280+j,540+j/2);

}

cs.SetStrokeWidth (9);

//square divide lines *********

cs.SetColor(255,240,240,240);

for (i=0;i<4;i++){

cs.DrawLine(360+i*80,339-i*40,360+i*80,581-i*40);

cs.DrawLine(360-i*80,339-i*40,360-i*80,581-i*40);

cs.DrawLine(120+i*80,220+i*40,360+i*80,100+i*40);

cs.DrawLine(360-i*80,100+i*40,600-i*80,220+i*40);

cs.DrawLine(120,220+i*80,360,340+i*80);

cs.DrawLine(360,340+i*80,600,220+i*80);

}

cs.SetStrokeWidth (1);

//square divide lines *********

cs.SetColor(255,0,0,0);

for (i=1;i<3;i++){

cs.DrawLine(360+i*80,341-i*40,360+i*80,584-i*40);

cs.DrawLine(360-i*80,341-i*40,360-i*80,584-i*40);

cs.DrawLine(121+i*80,219+i*40,360+i*80,100+i*40);

cs.DrawLine(361-i*80,100+i*40,600-i*80,220+i*40);

cs.DrawLine(120,220+i*80,359,340+i*80);

cs.DrawLine(361,340+i*80,600,220+i*80);

}

cs.SetColor(255,240,240,240);

cs.DrawCircle (121,221,5);

cs.DrawCircle (121,460,5);

cs.DrawCircle (600,221,5);

cs.DrawCircle (600,459,5);

cs.DrawCircle (360,101,5);

cs.DrawCircle (360,579,5);

//draw left back down cube figuer ********

cs.SetTextSize (32);

cs.SetColor (255,250,250,20);

cs.DrawText ("Left ",185,150);

cs.DrawText ("Back ",470,150);

cs.DrawText ("Down ",175,555);

cs.DrawText ("Right ",612,350);

cs.DrawText ("Front ",30,350);

cs.DrawText ("Up ",340,80);

cs.SetColor (255,50,50,50); //left cube

cs.DrawRect (18,38,170,190);

scolor=B $11$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L1

cs.DrawRect (20,40,68,88);

cs.DrawRect (349,630,362,643);

scolor=B $12$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L2

cs.DrawRect (70,40,118,88);

cs.DrawRect (364,630,377,643);

scolor=B $13$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L3

cs.DrawRect (120,40,168,88);

cs.DrawRect (379,630,392,643);

scolor=B $14$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L4

cs.DrawRect (20,90,68,138);

cs.DrawRect (349,645,362,658);

scolor=B $15$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L5

cs.DrawRect (70,90,118,138);

cs.DrawRect (364,645,377,658);

scolor=B $16$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L6

cs.DrawRect (120,90,168,138);

cs.DrawRect (379,645,392,658);

scolor=B $17$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L7

cs.DrawRect (20,140,68,188);

cs.DrawRect (349,660,362,673);

scolor=B $18$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L8

cs.DrawRect (70,140,118,188);

cs.DrawRect (364,660,377,673);

scolor=B $19$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //L9

cs.DrawRect (120,140,168,188);

cs.DrawRect (379,660,392,673);

scolor=B $31$ ; //right cube

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r1

cs.DrawRect (450,630,463,643);

scolor=B $32$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r2

cs.DrawRect (465,630,478,643);

scolor=B $33$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r3

cs.DrawRect (480,630,493,643);

scolor=B $34$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r4

cs.DrawRect (450,645,463,658);

scolor=B $35$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r5

cs.DrawRect (465,645,478,658);

scolor=B $36$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r6

cs.DrawRect (480,645,493,658);

scolor=B $37$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r7

cs.DrawRect (450,660,463,673);

scolor=B $38$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r8

cs.DrawRect (465,660,478,673);

scolor=B $39$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //r9

cs.DrawRect (480,660,493,673);

cs.SetColor (255,50,50,50); //back cube

cs.DrawRect (548,38,700,190);

scolor=B $51$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b1

cs.DrawRect (550,40,598,88);

cs.DrawRect (500,630,513,643);

scolor=B $52$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b2

cs.DrawRect (600,40,648,88);

cs.DrawRect (515,630,528,643);

scolor=B $53$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b3

cs.DrawRect (650,40,698,88);

cs.DrawRect (530,630,543,643);

scolor=B $54$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b4

cs.DrawRect (550,90,598,138);

cs.DrawRect (500,645,513,658);

scolor=B $55$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b5

cs.DrawRect (600,90,648,138);

cs.DrawRect (515,645,528,658);

scolor=B $56$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b6

cs.DrawRect (650,90,698,138);

cs.DrawRect (530,645,543,658);

scolor=B $57$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b7

cs.DrawRect (550,140,598,188);

cs.DrawRect (500,660,513,673);

scolor=B $58$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b8

cs.DrawRect (600,140,648,188);

cs.DrawRect (515,660,528,673);

scolor=B $59$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //b9

cs.DrawRect (650,140,698,188);

cs.DrawRect (530,660,543,673);

cs.SetColor (255,50,50,50); //down cube

cs.DrawRect (138,563,290,715);

scolor=B $61$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d1

cs.DrawRect (140,565,188,613);

cs.DrawRect (400,680,413,693);

scolor=B $62$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d2

cs.DrawRect (190,565,238,613);

cs.DrawRect (415,680,428,693);

scolor=B $63$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d3

cs.DrawRect (240,565,288,613);

cs.DrawRect (430,680,443,693);

scolor=B $64$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d4

cs.DrawRect (140,615,188,663);

cs.DrawRect (400,695,413,708);

scolor=B $65$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d5

cs.DrawRect (190,615,238,663);

cs.DrawRect (415,695,428,708);

scolor=B $66$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d6

cs.DrawRect (240,615,288,663);

cs.DrawRect (430,695,443,708);

scolor=B $67$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d7

cs.DrawRect (140,665,188,713);

cs.DrawRect (400,710,413,723);

scolor=B $68$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d8

cs.DrawRect (190,665,238,713);

cs.DrawRect (415,710,428,723);

scolor=B $69$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //d9

cs.DrawRect (240,665,288,713);

cs.DrawRect (430,710,443,723);

scolor=B $21$ ; //**** front

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f1

cs.DrawRect (400,630,412,643);

scolor=B $22$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f2

cs.DrawRect (415,630,427,643);

scolor=B $23$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f3

cs.DrawRect (430,630,443,643);

scolor=B $24$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f4

cs.DrawRect (400,645,412,658);

scolor=B $25$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f5

cs.DrawRect (415,645,427,658);

scolor=B $26$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f6

cs.DrawRect (430,645,443,658);

scolor=B $27$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f7

cs.DrawRect (400,660,412,673);

scolor=B $28$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f8

cs.DrawRect (415,660,427,673);

scolor=B $29$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //f9

cs.DrawRect (430,660,443,673);

scolor=B $41$ ; //**** up cube

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u1

cs.DrawRect (400,580,412,593);

scolor=B $42$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u2

cs.DrawRect (415,580,427,593);

scolor=B $43$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u3

cs.DrawRect (430,580,443,593);

scolor=B $44$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u4

cs.DrawRect (400,595,412,608);

scolor=B $45$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u5

cs.DrawRect (415,595,427,608);

scolor=B $46$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u6

cs.DrawRect (430,595,443,608);

scolor=B $47$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u7

cs.DrawRect (400,610,412,623);

scolor=B $48$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u8

cs.DrawRect (415,610,427,623);

scolor=B $49$ ;

switchcolor ();

cs.SetColor(255,cr1,cg1,cb1); //u9

cs.DrawRect (430,610,443,623);

//**********

s="S > "+intToString (ts+1);

cs.SetColor(255,250,250,250);

cs.DrawRect (3,3,80,30);

cs.SetColor(255,0,0,250);

cs.SetTextSize (20);

cs.DrawText (s, 10, 22);

cs.SetColor (255,250,250,250);

cs.SetTextSize (20);

cs.DrawText (tim$, 20, 710);

cs.SetColor (255,50,0,0);

cs.DrawCircle (35,380,15); //BStep1

cs.DrawCircle (35,460,15); //BStep2

//cs.DrawCircle (35,540,15); //BS3

cs.Update ();

}//drawbox () //draw & show cube box

drawButton (){

//** 画操作按钮

//setDisplay(1);

cs.SetStrokeWidth(2);

cs.SetFillMode (1);

cs.SetColor(255,250,250,250);

cs.DrawRect (0,2,720,30); // clear print x y

cs.SetColor(255,80,190,180);

cs.DrawRect (0,740,720,995); // btn backcolor

cs.SetColor(255,180,250,250);

cs.SetTextSize (28);

ss1="编译人：张纯叔 ( micelu@126.com ) ";

cs.DrawText (ss1,20,1020);

dy=800; //draw button bn1 - bn12

for (i=0;i<2;i++){

cs.SetColor(255,240,200,20); //big 2B

cs.DrawCircle (480+i*120,800,38);

cs.DrawCircle (518+i*120,800,38);

cs.SetColor(255,0,0,250);

cs.DrawCircle (482+i*120,800,35);

cs.DrawCircle (516+i*120,800,35); }

cs.SetColor(255,240,200,20); //big B

cs.DrawCircle (540,900,42);

cs.DrawCircle (574,900,42);

cs.SetColor(255,0,0,250);

cs.DrawCircle (542,900,38);

cs.DrawCircle (572,900,38);

dy=850;

cs.SetColor(255,240,200,20); //small B

cs.DrawCircle (50,dy-40,27);

cs.DrawRect (50,dy-68,105,dy-13);

cs.DrawCircle (50,dy+20,27);

cs.DrawRect (50,dy-7,105,dy+48);

cs.DrawCircle (370,dy-40,27);

cs.DrawRect (314,dy-68,370,dy-13);

cs.DrawCircle (370,dy+20,27);

cs.DrawRect (314,dy-7,370,dy+48);

cs.DrawCircle (50,dy+100,27);

cs.DrawRect (50,dy+73,105,dy+128);

cs.DrawCircle (370,dy+100,27);

cs.DrawRect (314,dy+73,370,dy+128);

cs.SetColor(255,0,0,250); //small B center

cs.DrawCircle (50,dy-40,25);

cs.DrawRect (48,dy-66,101,dy-15);

cs.DrawCircle (50,dy+20,25);

cs.DrawRect (48,dy-5,101,dy+46);

cs.DrawCircle (370,dy-40,25);

cs.DrawRect (318,dy-66,368,dy-15);

cs.DrawCircle (370,dy+20,25);

cs.DrawRect (318,dy-5,368,dy+46);

cs.DrawCircle (50,dy+100,25);

cs.DrawRect (50,dy+75,101,dy+126);

cs.DrawCircle (370,dy+100,25);

cs.DrawRect (318,dy+75,368,dy+126);

for (i=0;i<3;i++){ //small 6B

cs.SetColor(255,240,200,20); //small B

cs.DrawCircle (150,dy-70+i*70,27);

cs.DrawRect (150,dy-97+i*70,205,dy-42+i*70);

cs.DrawCircle (270,dy-70+i*70,27);

cs.DrawRect (214,dy-97+i*70,270,dy-42+i*70);

cs.SetColor(255,0,0,250); //small B

cs.DrawCircle (150,dy-70+i*70,25);

cs.DrawRect (148,dy-95+i*70,201,dy-44+i*70);

cs.DrawCircle (270,dy-70+i*70,25);

cs.DrawRect (218,dy-95+i*70,268,dy-44+i*70);

}

cs.SetColor (255,255,255,20);

cs.SetTextSize (22);

cs.DrawText ("左上 L' ",32,816);

cs.DrawText ("左下 L ",32,877);

cs.DrawText ("后左 B' ",32,958);

cs.DrawText ("右上 R ",325,816);

cs.DrawText ("右下 R' ",325,877);

cs.DrawText ("后右 B ",325,958);

cs.DrawText ("上左 U ",132,788);

cs.DrawText ("上右 U' ",224,788);

cs.DrawText ("前左 F' ",132,858);

cs.DrawText ("前右 F ",224,858);

cs.DrawText ("下左 D' ",132,928);

cs.DrawText ("下右 D ",224,928);

cs.SetTextSize (26);

cs.DrawText ("左旋转 ",460,808);

cs.DrawText ("右旋转 ",582,808);

cs.DrawText ("翻转 ",526,908);

cs.Update ();

}//drawButton ()

Turnup (){ //向上翻转

sw $1$ =B $21$ ; //temp

sw $2$ =B $22$ ;

sw $3$ =B $23$ ;

sw $4$ =B $24$ ;

sw $5$ =B $25$ ;

sw $6$ =B $26$ ;

sw $7$ =B $27$ ;

sw $8$ =B $28$ ;

sw $9$ =B $29$ ;

B $21$ =B $61$ ;

B $22$ =B $62$ ;

B $23$ =B $63$ ;

B $24$ =B $64$ ;

B $25$ =B $65$ ;

B $26$ =B $66$ ;

B $27$ =B $67$ ;

B $28$ =B $68$ ;

B $29$ =B $69$ ;

B $61$ =B $59$ ;

B $62$ =B $58$ ;

B $63$ =B $57$ ;

B $64$ =B $56$ ;

B $65$ =B $55$ ;

B $66$ =B $54$ ;

B $67$ =B $53$ ;

B $68$ =B $52$ ;

B $69$ =B $51$ ;

B $59$ =B $41$ ;

B $58$ =B $42$ ;

B $57$ =B $43$ ;

B $56$ =B $44$ ;

B $55$ =B $45$ ;

B $54$ =B $46$ ;

B $53$ =B $47$ ;

B $52$ =B $48$ ;

B $51$ =B $49$ ;

B $41$ =sw $1$ ;

B $42$ =sw $2$ ;

B $43$ =sw $3$ ;

B $44$ =sw $4$ ;

B $45$ =sw $5$ ;

B $46$ =sw $6$ ;

B $47$ =sw $7$ ;

B $48$ =sw $8$ ;

B $49$ =sw $9$ ;

sw $1$ =B $11$ ;

B $11$ =B $13$ ;

B $13$ =B $19$ ;

B $19$ =B $17$ ;

B $17$ =sw $1$ ;

sw $2$ =B $12$ ;

B $12$ =B $16$ ;

B $16$ =B $18$ ;

B $18$ =B $14$ ;

B $14$ =sw $2$ ;

sw $1$ =B $31$ ;

B $31$ =B $37$ ;

B $37$ =B $39$ ;

B $39$ =B $33$ ;

B $33$ =sw $1$ ;

sw $2$ =B $32$ ;

B $32$ =B $34$ ;

B $34$ =B $38$ ;

B $38$ =B $36$ ;

B $36$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="Tf";

print "do> Turn Up ";

}//Turnup ()

Turnright (){ //右旋转

sw $1$ =B $21$ ;

sw $2$ =B $22$ ;

sw $3$ =B $23$ ;

sw $4$ =B $24$ ;

sw $5$ =B $25$ ;

sw $6$ =B $26$ ;

sw $7$ =B $27$ ;

sw $8$ =B $28$ ;

sw $9$ =B $29$ ;

B $21$ =B $11$ ;

B $22$ =B $12$ ;

B $23$ =B $13$ ;

B $24$ =B $14$ ;

B $25$ =B $15$ ;

B $26$ =B $16$ ;

B $27$ =B $17$ ;

B $28$ =B $18$ ;

B $29$ =B $19$ ;

B $11$ =B $51$ ;

B $12$ =B $52$ ;

B $13$ =B $53$ ;

B $14$ =B $54$ ;

B $15$ =B $55$ ;

B $16$ =B $56$ ;

B $17$ =B $57$ ;

B $18$ =B $58$ ;

B $19$ =B $59$ ;

B $51$ =B $31$ ;

B $52$ =B $32$ ;

B $53$ =B $33$ ;

B $54$ =B $34$ ;

B $55$ =B $35$ ;

B $56$ =B $36$ ;

B $57$ =B $37$ ;

B $58$ =B $38$ ;

B $59$ =B $39$ ;

B $31$ =sw $1$ ;

B $32$ =sw $2$ ;

B $33$ =sw $3$ ;

B $34$ =sw $4$ ;

B $35$ =sw $5$ ;

B $36$ =sw $6$ ;

B $37$ =sw $7$ ;

B $38$ =sw $8$ ;

B $39$ =sw $9$ ;

sw $1$ =B $41$ ;

B $41$ =B $43$ ;

B $43$ =B $49$ ;

B $49$ =B $47$ ;

B $47$ =sw $1$ ;

sw $2$ =B $42$ ;

B $42$ =B $46$ ;

B $46$ =B $48$ ;

B $48$ =B $44$ ;

B $44$ =sw $2$ ;

sw $1$ =B $61$ ;

B $61$ =B $67$ ;

B $67$ =B $69$ ;

B $69$ =B $63$ ;

B $63$ =sw $1$ ;

sw $2$ =B $62$ ;

B $62$ =B $64$ ;

B $64$ =B $68$ ;

B $68$ =B $66$ ;

B $66$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="TR";

print "do> Turn right ";

}//Turnright ()

Turnleft (){ //左旋转

sw $1$ =B $21$ ;

sw $2$ =B $22$ ;

sw $3$ =B $23$ ;

sw $4$ =B $24$ ;

sw $5$ =B $25$ ;

sw $6$ =B $26$ ;

sw $7$ =B $27$ ;

sw $8$ =B $28$ ;

sw $9$ =B $29$ ;

B $21$ =B $31$ ;

B $22$ =B $32$ ;

B $23$ =B $33$ ;

B $24$ =B $34$ ;

B $25$ =B $35$ ;

B $26$ =B $36$ ;

B $27$ =B $37$ ;

B $28$ =B $38$ ;

B $29$ =B $39$ ;

B $31$ =B $51$ ;

B $32$ =B $52$ ;

B $33$ =B $53$ ;

B $34$ =B $54$ ;

B $35$ =B $55$ ;

B $36$ =B $56$ ;

B $37$ =B $57$ ;

B $38$ =B $58$ ;

B $39$ =B $59$ ;

B $51$ =B $11$ ;

B $52$ =B $12$ ;

B $53$ =B $13$ ;

B $54$ =B $14$ ;

B $55$ =B $15$ ;

B $56$ =B $16$ ;

B $57$ =B $17$ ;

B $58$ =B $18$ ;

B $59$ =B $19$ ;

B $11$ =sw $1$ ;

B $12$ =sw $2$ ;

B $13$ =sw $3$ ;

B $14$ =sw $4$ ;

B $15$ =sw $5$ ;

B $16$ =sw $6$ ;

B $17$ =sw $7$ ;

B $18$ =sw $8$ ;

B $19$ =sw $9$ ;

sw $1$ =B $41$ ;

B $41$ =B $47$ ;

B $47$ =B $49$ ;

B $49$ =B $43$ ;

B $43$ =sw $1$ ;

sw $2$ =B $42$ ;

B $42$ =B $44$ ;

B $44$ =B $48$ ;

B $48$ =B $46$ ;

B $46$ =sw $2$ ;

sw $1$ =B $61$ ;

B $61$ =B $63$ ;

B $63$ =B $69$ ;

B $69$ =B $67$ ;

B $67$ =sw $1$ ;

sw $2$ =B $62$ ;

B $62$ =B $66$ ;

B $66$ =B $68$ ;

B $68$ =B $64$ ;

B $64$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="TL";

print "do> Turn left ";

}//Turnleft ()

Downleft (){ //下左 D1

sw $1$ =B $27$ ;

sw $2$ =B $28$ ;

sw $3$ =B $29$ ;

B $27$ =B $37$ ;

B $28$ =B $38$ ;

B $29$ =B $39$ ;

B $37$ =B $57$ ;

B $38$ =B $58$ ;

B $39$ =B $59$ ;

B $57$ =B $17$ ;

B $58$ =B $18$ ;

B $59$ =B $19$ ;

B $17$ =sw $1$ ;

B $18$ =sw $2$ ;

B $19$ =sw $3$ ;

sw $1$ =B $61$ ;

B $61$ =B $63$ ;

B $63$ =B $69$ ;

B $69$ =B $67$ ;

B $67$ =sw $1$ ;

sw $2$ =B $62$ ;

B $62$ =B $66$ ;

B $66$ =B $68$ ;

B $68$ =B $64$ ;

B $64$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="D1";

print "do> D' Down left ";

}//Downleft()

Downright (){ //下右 D

sw $1$ =B $27$ ;

sw $2$ =B $28$ ;

sw $3$ =B $29$ ;

B $27$ =B $17$ ;

B $28$ =B $18$ ;

B $29$ =B $19$ ;

B $17$ =B $57$ ;

B $18$ =B $58$ ;

B $19$ =B $59$ ;

B $57$ =B $37$ ;

B $58$ =B $38$ ;

B $59$ =B $39$ ;

B $37$ =sw $1$ ;

B $38$ =sw $2$ ;

B $39$ =sw $3$ ;

sw $1$ =B $61$ ;

B $61$ =B $67$ ;

B $67$ =B $69$ ;

B $69$ =B $63$ ;

B $63$ =sw $1$ ;

sw $2$ =B $62$ ;

B $62$ =B $64$ ;

B $64$ =B $68$ ;

B $68$ =B $66$ ;

B $66$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="D0";

print "do> D Down right ";

}//Downright()

Backleft (){ //后左 B1

sw $1$ =B $41$ ;

sw $2$ =B $42$ ;

sw $3$ =B $43$ ;

B $41$ =B $17$ ;

B $42$ =B $14$ ;

B $43$ =B $11$ ;

B $17$ =B $69$ ;

B $14$ =B $68$ ;

B $11$ =B $67$ ;

B $69$ =B $33$ ;

B $68$ =B $36$ ;

B $67$ =B $39$ ;

B $33$ =sw $1$ ;

B $36$ =sw $2$ ;

B $39$ =sw $3$ ;

sw $1$ =B $51$ ;

B $51$ =B $53$ ;

B $53$ =B $59$ ;

B $59$ =B $57$ ;

B $57$ =sw $1$ ;

sw $2$ =B $52$ ;

B $52$ =B $56$ ;

B $56$ =B $58$ ;

B $58$ =B $54$ ;

B $54$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="B1";

print "do> B' Back left ";

}//Backleft()

Backright (){ //后右 B

sw $1$ =B $41$ ;

sw $2$ =B $42$ ;

sw $3$ =B $43$ ;

B $41$ =B $33$ ;

B $42$ =B $36$ ;

B $43$ =B $39$ ;

B $33$ =B $69$ ;

B $36$ =B $68$ ;

B $39$ =B $67$ ;

B $69$ =B $17$ ;

B $68$ =B $14$ ;

B $67$ =B $11$ ;

B $17$ =sw $1$ ;

B $14$ =sw $2$ ;

B $11$ =sw $3$ ;

sw $1$ =B $51$ ;

B $51$ =B $57$ ;

B $57$ =B $59$ ;

B $59$ =B $53$ ;

B $53$ =sw $1$ ;

sw $2$ =B $52$ ;

B $52$ =B $54$ ;

B $54$ =B $58$ ;

B $58$ =B $56$ ;

B $56$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="B0";

print "do> B Back right ";

}//Backright()

Frontleft (){ //前左 F1

sw $1$ =B $47$ ;

sw $2$ =B $48$ ;

sw $3$ =B $49$ ;

B $47$ =B $31$ ;

B $48$ =B $34$ ;

B $49$ =B $37$ ;

B $31$ =B $63$ ;

B $34$ =B $62$ ;

B $37$ =B $61$ ;

B $63$ =B $19$ ;

B $62$ =B $16$ ;

B $61$ =B $13$ ;

B $19$ =sw $1$ ;

B $16$ =sw $2$ ;

B $13$ =sw $3$ ;

sw $1$ =B $21$ ;

B $21$ =B $23$ ;

B $23$ =B $29$ ;

B $29$ =B $27$ ;

B $27$ =sw $1$ ;

sw $2$ =B $22$ ;

B $22$ =B $26$ ;

B $26$ =B $28$ ;

B $28$ =B $24$ ;

B $24$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="F1";

print "do> F' Front left ";

}//Frontleft()

Frontright (){ //前右 F

sw $1$ =B $47$ ;

sw $2$ =B $48$ ;

sw $3$ =B $49$ ;

B $47$ =B $19$ ;

B $48$ =B $16$ ;

B $49$ =B $13$ ;

B $19$ =B $63$ ;

B $16$ =B $62$ ;

B $13$ =B $61$ ;

B $63$ =B $31$ ;

B $62$ =B $34$ ;

B $61$ =B $37$ ;

B $31$ =sw $1$ ;

B $34$ =sw $2$ ;

B $37$ =sw $3$ ;

sw $1$ =B $21$ ;

B $21$ =B $27$ ;

B $27$ =B $29$ ;

B $29$ =B $23$ ;

B $23$ =sw $1$ ;

sw $2$ =B $22$ ;

B $22$ =B $24$ ;

B $24$ =B $28$ ;

B $28$ =B $26$ ;

B $26$ =sw $2$ ;

ts=ts+1;

// if (St==1)

// drawbox ();

dat $ts$ ="F0";

print "do> F Front right ";

}//Frontright()

Upleft (){ //上左 U

sw $1$ =B $21$ ;

sw $2$ =B $22$ ;

sw $3$ =B $23$ ;

B $21$ =B $31$ ;

B $22$ =B $32$ ;

B $23$ =B $33$ ;

B $31$ =B $51$ ;

B $32$ =B $52$ ;

B $33$ =B $53$ ;

B $51$ =B $11$ ;

B $52$ =B $12$ ;

B $53$ =B $13$ ;

B $11$ =sw $1$ ;

B $12$ =sw $2$ ;

B $13$ =sw $3$ ;

sw $1$ =B $41$ ;

B $41$ =B $47$ ;

B $47$ =B $49$ ;

B $49$ =B $43$ ;

B $43$ =sw $1$ ;

sw $2$ =B $42$ ;

B $42$ =B $44$ ;

B $44$ =B $48$ ;

B $48$ =B $46$ ;

B $46$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="U0";

print "do> U Up left ";

}//Upleft()

Upright (){ //上右 U1

sw $1$ =B $21$ ;

sw $2$ =B $22$ ;

sw $3$ =B $23$ ;

B $21$ =B $11$ ;

B $22$ =B $12$ ;

B $23$ =B $13$ ;

B $11$ =B $51$ ;

B $12$ =B $52$ ;

B $13$ =B $53$ ;

B $51$ =B $31$ ;

B $52$ =B $32$ ;

B $53$ =B $33$ ;

B $31$ =sw $1$ ;

B $32$ =sw $2$ ;

B $33$ =sw $3$ ;

sw $1$ =B $41$ ;

B $41$ =B $43$ ;

B $43$ =B $49$ ;

B $49$ =B $47$ ;

B $47$ =sw $1$ ;

sw $2$ =B $42$ ;

B $42$ =B $46$ ;

B $46$ =B $48$ ;

B $48$ =B $44$ ;

B $44$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="U1";

print "do> U' Up right ";

}//Upright ()

Rightdown (){ //右下 R1

sw $1$ =B $23$ ;

sw $2$ =B $26$ ;

sw $3$ =B $29$ ;

B $23$ =B $43$ ;

B $26$ =B $46$ ;

B $29$ =B $49$ ;

B $43$ =B $57$ ;

B $46$ =B $54$ ;

B $49$ =B $51$ ;

B $57$ =B $63$ ;

B $54$ =B $66$ ;

B $51$ =B $69$ ;

B $63$ =sw $1$ ;

B $66$ =sw $2$ ;

B $69$ =sw $3$ ;

sw $1$ =B $31$ ;

B $31$ =B $33$ ;

B $33$ =B $39$ ;

B $39$ =B $37$ ;

B $37$ =sw $1$ ;

sw $2$ =B $32$ ;

B $32$ =B $36$ ;

B $36$ =B $38$ ;

B $38$ =B $34$ ;

B $34$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="R1";

print "do> R' Right down ";

}//Rightdown()

Rightup (){ //右上 R

sw $1$ =B $23$ ;

sw $2$ =B $26$ ;

sw $3$ =B $29$ ;

B $23$ =B $63$ ;

B $26$ =B $66$ ;

B $29$ =B $69$ ;

B $63$ =B $57$ ;

B $66$ =B $54$ ;

B $69$ =B $51$ ;

B $57$ =B $43$ ;

B $54$ =B $46$ ;

B $51$ =B $49$ ;

B $43$ =sw $1$ ;

B $46$ =sw $2$ ;

B $49$ =sw $3$ ;

sw $1$ =B $31$ ;

B $31$ =B $37$ ;

B $37$ =B $39$ ;

B $39$ =B $33$ ;

B $33$ =sw $1$ ;

sw $2$ =B $32$ ;

B $32$ =B $34$ ;

B $34$ =B $38$ ;

B $38$ =B $36$ ;

B $36$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="R0";

print "do> R Right up ";

}//Rightup()

Leftdown (){ //左下 L

sw $1$ =B $21$ ;

sw $2$ =B $24$ ;

sw $3$ =B $27$ ;

B $21$ =B $41$ ;

B $24$ =B $44$ ;

B $27$ =B $47$ ;

B $41$ =B $59$ ;

B $44$ =B $56$ ;

B $47$ =B $53$ ;

B $59$ =B $61$ ;

B $56$ =B $64$ ;

B $53$ =B $67$ ;

B $61$ =sw $1$ ;

B $64$ =sw $2$ ;

B $67$ =sw $3$ ;

sw $1$ =B $11$ ;

B $11$ =B $17$ ;

B $17$ =B $19$ ;

B $19$ =B $13$ ;

B $13$ =sw $1$ ;

sw $2$ =B $12$ ;

B $12$ =B $14$ ;

B $14$ =B $18$ ;

B $18$ =B $16$ ;

B $16$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="L0";

print "do> L Left down ";

}//Leftdown()

Leftup (){ //左上 L1

sw $1$ =B $21$ ;

sw $2$ =B $24$ ;

sw $3$ =B $27$ ;

B $21$ =B $61$ ;

B $24$ =B $64$ ;

B $27$ =B $67$ ;

B $61$ =B $59$ ;

B $64$ =B $56$ ;

B $67$ =B $53$ ;

B $59$ =B $41$ ;

B $56$ =B $44$ ;

B $53$ =B $47$ ;

B $41$ =sw $1$ ;

B $44$ =sw $2$ ;

B $47$ =sw $3$ ;

sw $1$ =B $11$ ;

B $11$ =B $13$ ;

B $13$ =B $19$ ;

B $19$ =B $17$ ;

B $17$ =sw $1$ ;

sw $2$ =B $12$ ;

B $12$ =B $16$ ;

B $16$ =B $18$ ;

B $18$ =B $14$ ;

B $14$ =sw $2$ ;

ts=ts+1;

if (St==1) drawbox ();

dat $ts$ ="L1";

print "do> L' Left up ";

}//Leftup()

newgame (){

//打乱魔方，可依机器速度增加次数

restore(); //restore cube & draw button

Rn=(int)(random ()*5+1) ;

for (t=0; t<Rn+8; t++){

for (i=0; i<4; i++){

Rn=(int)(random()*11+1); //打乱 random bn

if (Rn==1){Leftup (); }

if (Rn==2){Leftdown (); }

if (Rn==3){Rightup (); }

if (Rn==4){Rightdown (); }

if (Rn==5){Upleft (); }

if (Rn==6){Upright (); }

if (Rn==7){Frontleft (); }

if (Rn==8){Frontright (); }

if (Rn==9){Backleft (); }

if (Rn==10){Backright (); }

if (Rn==11){Downleft (); }

if (Rn==12){Downright (); }

} }

Turnup (); //起首白色置上

Turnup ();

drawbox (); //draw out user cube

clearOutput (); //去除打乱魔方的走步记录

//********

s3="开始游戏 ";

getTime (tim);

newhh=tim $0$ ;

newmm=tim $1$ ;

newss=tim $2$ ;

oldhh=newhh;

oldmm=newmm;

oldss=newss;

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;

ss2=hhts+" : "+mmts+" : "+ssts;

print "开始时间："+ss2;

tim$=ss2; //界面打印开始时间

kn=2; //set canvasProc

ts=-1 ; //init step number 记录数据0起

}//newgame ()

restore (){ ///还原为初始状态

//initlize cube color

for (i=1;i<10;i++){

B $10+i$ =1;

B $20+i$ =2;

B $30+i$ =3;

B $40+i$ =4;

B $50+i$ =5;

B $60+i$ =6; }

drawButton (); //draw button pad

ts=0 ; //init step number

drawbox ();

for (i=0; i<300; i++){ dat $i$ =" "; } //init data

}//restore ()

drawcover (){

restore (); //initlize cube

cs.SetTextStyle (1); //正常粗体斜体字

cs.SetStrokeWidth (2);

cs.SetTextSize (78);

s="魔方 Magic Cube ";

cs.SetColor (255,250,20,20);

cs.DrawText (s,74,454);

cs.SetTextSize (76);

cs.SetColor (255,160,30,240);

cs.DrawText (s,80,450);

cs.SetFillMode (0);//0不填色，1填色

cs.SetColor (255,250,250,0);

cs.DrawText (s,80,450);

cs.SetTextSize (26);

cs.SetFillMode (1);//0不填色，1填色

cs.SetTextStyle (0); //正常粗体斜体字

s="@Copyright version 3.6.1 ";

cs.SetColor (255,250,50,50);

cs.DrawText (s,212,490);

cs.SetTextStyle (0);

cs.Update ();

}//drawcover()

myMenuProc(int nMen,int nContext){

if(nMen==200){

print "开始游戏";

clearOutput ();

newgame(); }

if(nMen==201){

print "上层四棱";

Astep1 (); }

if(nMen==202){

print "上层四角";

Astep2 (); }

if (nMen==203){//

print "二层四棱";

Astep3 (); }

if (nMen==204){//选项

print "顶层十字";

Astep4 (); }

if(nMen==205){//close canvas

print "顶面同色";

Astep5 (); }

if(nMen==206){//show canvas

print "六面同色";

Astep6 (); }

if (nMen==207){//

clearOutput ();

//print "自动演示";

Autoplay (); }

if (nMen==208){//show step data

setDisplay (0); }

if (nMen==209){//show canvas

setDisplay (1); }

if (nMen==210){//exit

clearOutput();

cs.ClearDraw (0,src);

setDisplay (0);

exit (0); }

}//myMenu()

myToolBarProc(int nBtn,int nContext){

if(nBtn==100){//Newgame

clearOutput ();

newgame (); }

if(nBtn==101){//restore cube box

clearOutput ();

restore (); }

if(nBtn==102){//AutoPlay

clearOutput ();

//print "自动演示";

Autoplay (); }

if(nBtn==103){ //显示图板

status=status+1;

if (status>1 ) status=0 ;

if (status==0 ) drawbox () ;

if (status==1 ) seekpad () ;

setDisplay (1); }

if(nBtn==104){//退出程序

clearOutput();

cs.ClearDraw (0,src);

setDisplay (0);

exit (0); }

if(nBtn==105){//版本信息> 切换

mode=mode+1 ;

if (mode>2) mode=0 ;

if (mode==0) drawcover () ; //version

if (mode==1) {status=1; seekpad () ; } // seek

if (mode==2) setDisplay (0) ; } //查看走步

}//my toolbar()

savepic (){ //** 保存图片

filebox.SetTitle("保存图片(*.bmp;*.jpg;*.png)");

filebox.SetFilter(".bmp;.jpg;.png");

filebox.SetMode(1);

filebox.Show();

if(filebox.GetCount()==1){

fname=filebox.GetFileName(0);

cs.SaveBitmap(fname); }

} //savepic ( )

//****