实验五 扫雷游戏的实现.doc

闽江学院教案课程名称Flash游戏编程 任课老师： 肖刚上机实验须知实验名称：扫雷游戏的实现实验目的：利用二维编码方式编码地雷地图，然后基于二维地图实现扫雷游戏的各个部分的算法，最终实现扫雷游戏。实验环境：1） 高档微机2） Windows操作系统中文版3） Flash CS3 Professional中文版实验原理：地图是许多游戏的重要组成。小游戏例如俄罗斯方块、各种棋类游戏、搬运工游戏等，大型游戏例如英雄无敌、魔兽争霸，无不与地图紧密关联。一般来说，游戏中的地图是由地图元件、编码数据和基于编码的算法三个部分组成。例如下图是已经完成的扫雷游戏的截图： 其地图（即游戏中的地板方块组合）的三个部分分为为：地图元件、编码数据以及基于编码的算法地图元件就是游戏中的每个方块，它记录着是否有雷，位置所引，是否已经被打开，是否被插上旗帜以及是否爆炸等属性，状态和效果。可以采用角色设计思想设计。地图编码的作用其实是在地图元件与算法之间建立一个最简的沟通桥梁。我们可以基于编码方式设计算法，然后通过编码找到对应的元件，也可以从元件出发获取其编码值，然后用这个编码值参与算法过程。这里我们可以建立一个二维数组，每个数据项存储的是一个方块的引用。这样二维数组就是游戏的编码方式。一方面，我们可以基于二维数组的下标（即索引）找到每个方块，另一方面，我们还要在每个方块中定义变量indexX和indexY，用来记录其索引值，当方块触发了某个事件（如鼠标点击），就可以通过读取这个方块的索引值从而确定它在二维数组中的位置。好的地图编码方式应该是即满足记录数据的需要，又是最简的。经验证明，二维数组是行之有效又简单的地图编码方式。基于二维编码上的扫雷算法包括：l 编码与索引 l 布置雷区 l 随机分布地雷 l 计算单元格周围雷数 l 无雷区自动扩张的设计 l 判断地雷是否已经全部扫除 l 人机交互部分的设计 l 设置难度级别l 显示所有地雷详细介绍请看本章（第六章地图布置与地图相关算法）的PPT文档。实验内容：模拟实现类似于Windows自带的小游戏“扫雷”。可以手动地设置难度级别，或者干脆直接设置地图的尺寸，和地雷的数量，然后开始游戏。实验步骤：1） 制作方块角色很明显，扫雷游戏中的每一个方格，都是一个雷区单元角色的实例。这个雷区单元应该包含如下的成员：成员成员描述discovered是否被打开了haveMine是否有地雷haveFlag是否有旗帜i、j雷区单元所在的位置各个界面如未打开、显示地雷、爆炸、显示周围雷数等界面showMine()显示地雷界面showExplode()显示地雷爆炸界面showInit()显示初始化时的界面showAround(num)显示地雷被排除的界面flag()显示/隐藏旗帜设计这样的一个雷区方格角色，对我们来说，已经是轻车熟路，为了节省篇幅，这里忽略具体的实现。已完成的方块角色的每一帧的内容如下图所示：这些画面简单明了。第一帧有初始化代码：var discovered:Boolean=false;var haveMine:Boolean=false;var haveFlag:Boolean=false;var line:int,row:int;function showMine() discovered=true;gotoAndStop(4);function showExplode() discovered=true;gotoAndStop(5);function showInit() gotoAndStop(2);discovered=false;function showAround(num) discovered=true;gotoAndStop(num+6);function flag():Boolean if (haveFlag=true) gotoAndStop(2); else gotoAndStop(3);haveFlag=!haveFlag;return haveFlag;第二帧为默认的状态，时间轴应该停止在这一帧。代码：stop();至此我们已经完成这个角色的设计，在库中选中这个方块剪辑，点击右键，选择“链接”，将其链接为Cell输出。如下图所示：2） 布置场景扫雷游戏只有一帧。时间轴如图所示：界面内容如下图所示：其中各个文本框的实例名称分别为：txtLineCount、txtRowCount、txtMineCount、txtMineLeft。开始按钮的实例名称为：bt_start，预设下拉框的实例名称为：mode。预设下拉框内的数据选项为：自此完成了整个界面的设计。3） 编写代码本游戏的所有代码都集中在第一帧上。其中的基本部分为：stop();var startx:Number=85;var starty:Number=62;var startTime:Date,endTime:Date;var len=360;var cellLength:Number;var lineCount:int;var rowCount:int;var mineCount:int;var mineLeft:int;var cells:Array;var result:String;var cellContainer:Sprite=new Sprite();mode.addEventListener(Event.CHANGE,setMode);bt_start.addEventListener(MouseEvent.MOUSE_DOWN,startGame);其中各种变量都是程序中要使用到的，通过setMode方法可以选择预设的游戏参数。通过startGame进行游戏的初始化。startGame是游戏的一个关键部分。其函数的定义如下：function startGame(e:MouseEvent) if (!init() return false;fillCells();/平铺方块setMines();/设置地雷activeCells();/激活地图自上而下，逐步细化程序，直到完成为止。完整的代码参考见附录。4） 测试程序，直到达到要求为止。附录：本游戏的完整代码stop();var startx:Number=85;var starty:Number=62;var startTime:Date,endTime:Date;var len=360;var cellLength:Number;var lineCount:int;var rowCount:int;var mineCount:int;var mineLeft:int;var cells:Array;var result:String;var cellContainer:Sprite=new Sprite();mode.addEventListener(Event.CHANGE,setMode);bt_start.addEventListener(MouseEvent.MOUSE_DOWN,startGame);function setMode(evt:Event) switch (evt.target.value) case 1 :txtLineCount.text=String(8);txtRowCount.text=String(8);txtMineCount.text=String(10);break;case 2 :txtLineCount.text=String(14);txtRowCount.text=String(14);txtMineCount.text=String(35);break;case 3 :txtLineCount.text=String(20);txtRowCount.text=String(20);txtMineCount.text=String(70);break;function startGame(e:MouseEvent) if (!init() return false;fillCells();/平铺方块setMines();/设置地雷activeCells();/激活地图function init():Boolean lineCount=int(txtLineCount.text);rowCount=int(txtRowCount.text);mineCount=int(txtMineCount.text);startTime=new Date();mineLeft=mineCount;txtMineLeft.text=String(mineLeft);if (lineCount40) return false;if (rowCount40) return false;if (mineCountlineCount*rowCount) return false;cellLength=len/(lineCountrowCount?lineCount:rowCount);if (contains(cellContainer) removeChild(cellContainer);result=playing;return true;function fillCells() cells=new Array();cellContainer=new Sprite();for (var i=0; ilineCount; i+) var cellList:Array=new Array();for (var j=0; jlineCount*rowCount) return;var mineSet:int = 0;var i,j,k;while (mineSetmineCount) k = int(Math.random()*lineCount*rowCount);i = int(k/rowCount);j = k%rowCount;if (cellsij.haveMine!=true) cellsij.haveMine=true;mineSet+;function activeCells() for (var i=0; icells.length; i+) for (var j=0; jcellsi.length; j+) MovieClip(cellsij).addEventListener(MouseEvent.MOUSE_UP,adjustClick);MovieClip(cellsij).addEventListener(MouseEvent.MOUSE_WHEEL,flagCell);function adjustClick(evt:MouseEvent) var i:int=evt.target.i;var j:int=evt.target.j;if (evt.ctrlKey=false) if (cellsij.haveMine=true) showAllMine();cellsij.showExplode(); else expand(i,j); else if (cellsij.flag() mineLeft-; else mineLeft+;if (mineLeft=0&checkVictory() unactionCells();txtMineLeft.text=String(mineLeft);function flagCell(evt:MouseEvent) var i:int=evt.target.i;var j:int=evt.target.j;/trace(cellsij.haveMine);if (cellsij.flag() mineLeft-; else mineLeft+;if (mineLeft=0&checkVictory() unactionCells();txtMineLeft.text=String(mineLeft);function showAllMine() for (var i=0; icells.length; i+) for (var j=0; jcellsi.length; j+) unaction(i,j);if (cellsij.haveMine=true) cellsij.showMine();function around(i:int,j:int) /统计i，j位置周围的类数var count:Number = 0;for (var int_i=i-1; int_i=i+1; int_i+) for (var int_j=j-1; int_j=j+1; int_j+) if (int_i=lineCount) /超出上下边界continue;if (int_j=rowCount) /超出左右边界continue;if (cellsint_iint_j.haveMine =true) count+;if (cellsij.haveMine=true) /减去自身被统计进入的雷数count-;return count;function expand(i,j) /扩张无雷区var count=around(i,j);unaction(i,j);cellsij.discovered=true;if (cellsij.haveFlag=true) mineLeft+;cellsij.showAround(count);if (count!=0) /非无雷区return;for (var int_i=i-1; int_i=i+1; int_i+) /遍历周围的单元for (var int_j=j-1; int_j=j+1; int_j+) if (int_i=lineCount) /超出上下边界continue;if (int_j=rowCount) /超出左右边界continue;if (int_i=i & int_j=j) /自身，不递归continue;if (cellsint_iint_j.discovered=false) /未打开过，进入递归expand(int_i,int_j);function checkVictory():Boolean if (mi