【开源】Delphi游戏FXPlane

二楼上图：

人工置顶（大于十五个字了啊！）置顶！

吧主，我觉得，这个应该精华。

接下来，我们讲一下这个游戏的构架：
首先有两个类，一个是子弹列表，另外一个是敌机列表：
(常量Max表示子弹数和敌机数目的上限，等于500)
TMyPlane=class
public
{Public Declarations}
x,y:single;
procedure moveto;
end;
TBulletList=class //Class of bullets
public
bullets:array[1..Max] of TCircle;
bulletable:array[1..Max] of boolean;
addedid:longint;
procedure make;
Procedure add;
Procedure remove(ID:longint);
Procedure moveall;
end;
TEnemyList=class //Class of Enemies
public
Enemies:array[1..Max] of TImage;
Enemyable:array[1..Max] of boolean;
Speeds:array[1..Max] of longint;
addedid:longint;
IsBoss:array[1..Max] of Boolean;
rects:array[1..Max] of longint;
hp:array[1..max] of longint;
procedure make;
Procedure add;
Procedure remove(ID:longint);
Procedure moveall;
Procedure CollitionDetect;
end;

然后，我们来看一下每个类的方法各有什么作用：
（L：子弹列表的方法；E：敌机列表的方法；B：都拥有的方法）
（B）make：这个方法初始化了列表中的图形（或者图片）
（B）add：在列表中自动寻找被Remove（见下）方法删除的空白，然后添加一颗子弹（或一架敌机）。（其实就是把数组中的这个控件标记为可见，然后在bulletable或者enemyable的数组中标记）
（B）remove(id:longint)：删除列表中的第id个元素（标记为不可见，然后在bulletable或者enemyable的数组中标记）
（B）MoveAll：让所有的子弹（敌机）动起来。在抵达边缘的时候执行remove方法。
（E）CollitionDetect：翻成中文是”碰撞检测“。顾名思义，检查子弹和敌机、敌机和我方战机的碰撞。如果敌机碰到我方战机，则游戏结束。如果子弹碰到敌机，敌机的hp-1，子弹被Rmove，判断敌机的hp是否为0，如果为零则remove敌机。

再来讲一讲游戏性：
1.敌机的速度是随机的（speeds数组里的数据由random函数提供）
2.每10秒钟会有一波敌机，但是速度会减慢。代码见下：
procedure TMainForm.WaveTimer(Sender: TObject);
begin
if wave.Interval=10000 then begin
wave.Interval:=5000;
EnemyProducer.Interval:=200;
EnemyMover.Interval:=60;
end
Else begin
wave.Interval:=10000;
EnemyProducer.Interval:=400;
EnemyMover.Interval:=50;
end;
end;
可见一波攻势持续5秒钟。

以上内容均为FXPlane Beta 0.1所有。
这里透露一下FXPlane Beta 0.5的新功能：
1.速度改为2维的，这样可以从旁边飞出斜飞的敌机。
2.冷冻装置：在打落敌机时有几率掉落
3.Boss：这里有一行不成功的代码，会继续研究
{if random(10)=0 then begin
IsBoss[i]:=true;
enemies[i].Height:=60;
enemies[i].Width:=60;
rects[i]:=70;
speeds[i]:=3;
hp[i]:=100;
end;}
（被我注掉了）

顶

ding !

努力过后，Beta 0.5 正式版发布了！
谢谢大家两天来的支持：
加入寒冰炸弹。（击杀BOSS有几率掉落，F键使用，5秒内敌机减速）
修复死亡后BOSS仍会出现的BUG。
下面是下载地址：http://pan.baidu.com/s/1bn9ziXp

上一张图：
（BOSS和寒冰炸弹）

寒冰炸弹的原理很简单。
就是将控制敌机移动的EnemyMover（Timer控件）的interval增大。

好的，我会的。
现在在做0.8 Beta