WEB开发网
开发学院软件开发Delphi 扫雷外挂的设计与实现(五) 阅读

扫雷外挂的设计与实现(五)

 2006-02-04 14:13:53 来源:WEB开发网   
核心提示:如前所述,算法层的实现,扫雷外挂的设计与实现(五),不外乎两种操作:1,如果一个方块的数值等于周围未挖开的方块数目,几天时间终于写完了这堆文章,希望能给适当的人带来适当的收益,则把周围所有方块标记为雷;2,如果一个方块的数值等于周围已经标记为雷的方块个数

如前所述,算法层的实现,不外乎两种操作:1。如果一个方块的数值等于周围未挖开的方块数目,则把周围所有方块标记为雷;2。如果一个方块的数值等于周围已经标记为雷的方块个数,则在该块上同时单击左右键。实际上,这只是最简单的两种判断(简单到甚至不该称之为“判断”,而只是例行公事而已),而比这更复杂的分析判断还可以有很多,但现在我们追求的是程序的简单易懂,而且,就这两种最简单的判断,已经可以达到很好的效果了,在实际中它们绝对占到了扫雷所用时间的一大多半。更高级的判断,在扫雷外挂的0.2版本里也已经实现了,但在此处若要加以叙述,不免还要大幅增加篇幅。

就来看这个最简单的算法:

=================================================================

//根据Cells中的数据进行判断,把适当的操作填入Operations中
PRocedure AnalyzeCells;
var
  i, j: Integer;
  neighborCount: Integer;    //保存一个方块周围未挖开的方块的数目
begin
  //首先清空输出缓冲区
  for i:=0 to AreaWidth-1 do
  for j:=0 to AreaHeight-1 do
   Operations[i, j] := opNone;
  //扫描输入缓冲区,执行两种最简单的判断
  for i:=0 to AreaWidth-1 do
  for j:=0 to AreaHeight-1 do
  begin
   //取得一个方块周围未挖开的方块的数目
   neighborCount := CountNeighbors(i, j, [csUnknown, csPossible]);
   //只有1~8的数字,并且周围存在未挖开的方块,这样的方块才有分析价值
   if (Cells[i, j]>cs0) and (Cells[i, j]<=cs8) and (neighborCount > 0) then
    //第一种情况
    if neighborCount = Ord(Cells[i, j])-CountNeighbors(i, j, [csMarked]) then
     MarkAllNeighbors(i, j)
    //第二种情况
    else if Ord(Cells[i, j]) = CountNeighbors(i, j, [csMarked]) then
     Operations[i, j] := opBothClick;
  end;
end;


//将指定方块周围8个方块中,未挖开的,包括已标记问号的,都标记为雷。
procedure MarkAllNeighbors(const x, y: Integer);
var
  i,j: Integer;
begin
  //扫描以某个坐标为中心的9个方块
  for i:=x-1 to x+1 do
  for j:=y-1 to y+1 do
  begin
   //去除中心块,并避免数组越界
   if ((i=x) and (j=y)) or (i<0) or (i>=AreaWidth) or (j<0) or (j>=AreaHeight) then
    Continue;
   //未挖开的空白则单击右键,未挖开的标问号的,则双击右键
   if Cells[i, j] = csUnknown then
     Operations[i, j] := opRightClick
   else if Cells[i, j] = csPossible then
     Operations[i, j] := opRightDoubleClick;
  end;
end;


//取得指定方块周围8个方块中等于任一个指定状态的方块的个数。
function CountNeighbors(const x, y: Integer; const targetStates: TCellStates): Integer;
var
  i,j: Integer;
begin
  result := 0;
  //扫描以某个坐标为中心的9个方块
  for i:=x-1 to x+1 do
  for j:=y-1 to y+1 do
  begin
   //去除中心块,并避免数组越界
   if ((i=x) and (j=y)) or (i<0) or (i>=AreaWidth) or (j<0) or (j>=AreaHeight) then
    Continue;
   //计数指定状态的方块
   if Cells[i, j] in targetStates then
    Inc(result);
  end;
end;
=================================================================

其中,由于枚举TCellState的常量位置的安排,Ord函数对cs0~cs8所取得的值正是0~8,即等于该方块的数值。这个算法可以算是中规中矩,没什么取巧的地方,因此应该不那么难懂。不错,至此扫雷外挂已经完全实现完毕。把上述所有函数和全局内容放在一个单元(可以是一个窗体)里,设好TTimer控件的间隔,就可以很理想的工作了。在外挂类程序的开发中,本例用到的也许是最“笨”的一种方法,但对于平面方格类游戏,其原理具有通用性。它不需对游戏底层数据、协议之类有什么了解,只需要了解游戏的屏幕图形就可以了。本例对于Windows窗口相关的某些API,也是一个较好的熟悉机会,对于初学者会有其意义。这个例子本身并不是最完善的,了解了思想,每个人自可以做出更加完善的程序。比如,应用钩子,这会大幅度减少该程序占用的系统资源。

几天时间终于写完了这堆文章,希望能给适当的人带来适当的收益。欢迎交流,信箱:euth@163.com


Tags:扫雷 外挂 设计

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接