flash游戏之俄罗斯方块源代码

《flash游戏之俄罗斯方块源代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、N=20;//行数WIDTH=20;//方块边长level=0;//开始等级（下落速度）ret=newArray();//当前出现的方块nextret=newArray();//下一个出现的方块bg=newArray();//背景数组createEmptyMovieClip("panel",1048575);//所有方块都在此mc里for(i=0;i<5;i++){//初始化方块数组，2*5格式，前四行代表每个方块的4个小块的位置坐标，最后一行第一列是方块形状，第二列是方块旋转方向ret.push(newArray

2、(2));nextret.push(newArray(2));}for(i=0;i<20;i++){//初始化背景数组，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的位置合理性的判断，出现不合理则返回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){//根据方块ret最后一行（分别是形状指示变量和旋转方向变量）为ret的前四行赋以具体形状值switch(ret[4][0]){case0://方形a=[[1,0],[2,0],[1,1],[2,1],[0,0]];rv(a,ret);return;case1://长形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)){