flash游戲之俄羅斯方塊源代碼

《flash游戲之俄羅斯方塊源代碼》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫(kù)。

1、N=20;//行數(shù)WIDTH=20;//方塊邊長(zhǎng)level=0;//開(kāi)始等級(jí)（下落速度）ret=newArray();//當(dāng)前出現(xiàn)的方塊nextret=newArray();//下一個(gè)出現(xiàn)的方塊bg=newArray();//背景數(shù)組createEmptyMovieClip("panel",1048575);//所有方塊都在此mc里for(i=0;i<5;i++){//初始化方塊數(shù)組，2*5格式，前四行代表每個(gè)方塊的4個(gè)小塊的位置坐標(biāo)，最后一行第一列是方塊形狀，第二列是方塊旋轉(zhuǎn)方向ret.push(newArray

2、(2));nextret.push(newArray(2));}for(i=0;i<20;i++){//初始化背景數(shù)組，10*20格式bg.push(newArray(10));}X=Y=panel._x=panel._y=0;//換為X、Y表示functionreach(x:Number,y:Number,ret:Object){//x、y為方塊位置，ret為方塊形狀，若方塊ret下落一格碰到邊界或者方塊返回1vari:Number,j:Number,k:Number;for(i=0;i

3、=0;j<10;j++){if(bg[i][j]==1){for(k=0;k<4;k++){if(x+ret[k][0]==j&&y+ret[k][1]+1==i){return1;}}}}}return0;}functionlrnotout(lorr:Number,a:Object){//lorr==-1代表a往左邊一格可行性的判斷，lorr==1代表右邊一格可行性的判斷，lorr==0代表a的位置合理性的判斷，出現(xiàn)不合理則返回0vari:Number;if(lorr==-1){for(i=0;i<4;i++){

4、if(x+a[i][0]-1<0

5、

6、reach(x-1,y-1,a)){return0;}}}if(lorr==1){for(i=0;i<4;i++){if(x+a[i][0]+1>9

7、

8、reach(x-1,y+1,a)){return0;}}}if(lorr==0){for(i=0;i<4;i++){if(x+a[i][0]<0

9、

10、x+a[i][0]>9){return0;}}}return1;}functionrv(a:Object,ret:Object){//方塊賦值，將a方塊賦值到ret方塊vari:Num

11、ber;for(i=0;i<5;i++){ret[i][0]=a[i][0],ret[i][1]=a[i][1];}}functionrotate(ret:Object){//根據(jù)方塊ret最后一行（分別是形狀指示變量和旋轉(zhuǎn)方向變量）為ret的前四行賦以具體形狀值switch(ret[4][0]){case0://方形a=[[1,0],[2,0],[1,1],[2,1],[0,0]];rv(a,ret);return;case1://長(zhǎng)形switch(ret[4][1]){case1:a=[[0,0],[1,0],

12、[2,0],[3,0],[1,0]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;case0:a=[[1,0],[1,1],[1,2],[1,3],[1,1]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;}case2://Z形switch(ret[4][1]){case1:a=[[0,1],[1,1],[1,2],[2,2],[2,0]];if(lrnotout(0,a)&&!reach(x

13、,y-1,a)){rv(a,ret);}return;case0:a=[[2,0],[1,1],[2,1],[1,2],[2,1]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;}case3://反Z形switch(ret[4][1]){case1:a=[[1,1],[2,1],[0,2],[1,2],[3,0]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;case0:a=[[1,0],[1

14、,1],[2,1],[2,2],[3,1]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;}case4://T形switch(ret[4][1]){case3:a=[[1,0],[0,1],[1,1],[2,1],[4,0]];if(lrnotout(0,a)&&!reach(x,y-1,a)){