【编程思路】.doc

【编程思路】
在实例五中，已经比较详细地说明了界面的实现过程。在本例中，则主要介绍程序的具体实现过程。在程序的实现过程中，主要可以分为下面几个部分：
用定时器实现老鼠的出现和隐没
在本例中，首先构造一些函数用于实现存放老鼠出现和隐没位置，然后通过定时器来加载这些数据。
锤子不同状态的变化
在本例中，锤子有三种不同的状态：松开、敲击和击中。这三种状态与鼠标的OnMouseDown事件和OnMouseDown事件对应着。
菜单以及相应图标事件的处理
主要用于实现游戏的重新开始、暂停、恢复或退出等事件，而图标对应的事件则除了实现一定的游戏功能外，还要对图标自身的更换处理。
游戏的主体部分详细代码和说明见【编程步骤】部分。由于篇幅有限，完整的代码可以参考光中的内容。这里只给出代码的主要部分。
【编程步骤】.
1．用定时器实现老鼠的出现和隐没
在实现这个功能时，首先要构造一些函数LoadRatSpr、LoadRat、InitData、DrawRats、PopupRats和UpdateRats等，用于存放鼠标位置和绘制鼠标。
procedure LoadRatSpr(i, ox, oy, x, y, w, h : integer);
begin
{老鼠变换的坐标值}
RatSpr[i].ox :=ox;
RatSpr[i].oy :=oy;
RatSpr[i].x :=x;
RatSpr[i].y :=y;
RatSpr[i].w :=w;
RatSpr[i].h :=h;
end;
procedure LoadRat(row, col, x, y : integer);
begin
{老鼠出现的坐标值}
Rat[row, col].x := x;
Rat[row, col].y := y;
Rat[row, col].pos := 0;
Rat[row, col].speed := 0;
end;
procedure InitData;
begin
{老鼠出现的位置}
LoadRat(0, 0, 187, 48);
LoadRat(1, 0, 127, 79);
LoadRat(2, 0, 75, 116);
LoadRat(0, 1, 247, 58);
LoadRat(1, 1, 189, 90);
LoadRat(2, 1, 146, 126);
LoadRat(0, 2, 304, 66);
LoadRat(1, 2, 262, 98);
LoadRat(2, 2, 222, 134);
LoadRatSpr(1, $00, $00, $5E, $36, $3C, $39);
LoadRatSpr(2, $01, $02, $61, $02, $38, $36);
LoadRatSpr(3, $01, $0a, $D8, $4E, $38, $2E);
LoadRatSpr(4, $02, $0E, $D7, $24, $38, $2A);
LoadRatSpr(5, $02, $16, $D8, $00, $38, $22);
LoadRatSpr(6,