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

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

ID:1247946

大小:108.57 KB

页数:11页

时间:2017-11-09

flash游戏之俄罗斯方块源代码_第1页
flash游戏之俄罗斯方块源代码_第2页
flash游戏之俄罗斯方块源代码_第3页
flash游戏之俄罗斯方块源代码_第4页
flash游戏之俄罗斯方块源代码_第5页
资源描述:

《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));nextret.push(

2、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、;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++){if(x+a[i][0]-1<0

4、

5、reach(x-1,y-1,a)){return0;}}}if(lorr

6、==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:Number;for(i=0;i<5;i++){ret[i][0]=a[i][0],ret[i][1]=a[i][1];}}functionrotat

11、e(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],[2,0],[3,0],[1,0]];if(lrnotout(0,a)&&!reach(x,y-1,a)){rv(a,ret);}return;case0:a=[[1,0],[1,

12、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,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,r

13、et);}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,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],

14、[1,1],[2,1],[4,0]];if(lrnotout(0,a)&&!reach(x,y-1,a)){

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。