扫雷外挂的设计与实现(五)
2006-02-04 14:13:53 来源:WEB开发网如前所述,算法层的实现,不外乎两种操作: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
更多精彩
赞助商链接