【开源】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;}
（被我注掉了）

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

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

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

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

接下来讲一下0.8 Beta有什么更新
1.加入了移动堡垒（我的矢量画图不好，请谅解，只好去网上找素材）
2.修复了子弹击中敌机后会继续飞的BUG
3.我方飞机血量系统（你有5滴血）
4.加入了导弹（移动堡垒出现时来袭，共五颗。如果都命中了那么就要命了。导弹是不会被击落的。）
5.减少了内存耗用（max=100）
放出下载地址：
http://pan.baidu.com/s/1nM26q
接着上图（导弹和移动堡垒）

呵呵，犯了个低级错误，程序标题没改
1.0一定改。

1.0中预计加入高能爆弹！
杀死移动堡垒后有几率掉落。
将修复一些BUG

好像游戏难度有点高
作者本人也玩到3000多就挂了

好了，bug解决了，错误代码在TEnemyList.Add里。参考上一版本，这个方法将所有敌人hp设成1。
好了，1.0正式版完工了。
更新如下：
1.加入陨石（幸得好陨石不造成伤害，否则死翘翘了。陨石这个东西有待研究）
2.背景音乐加入（想要爽的打开音量）
3.背景再也不是黑的了。加入了一张图片。
4.移动堡垒出现几率降低一点
5.移动堡垒出现时导弹减少到4颗
6.修复刚刚那个BETA版本没有弄懂的bug
7.暂停（按p）
8.修复了窗口名称。改为“FXPlane 1.0”
下载地址：
http://pan.baidu.com/s/1pJBc967
欢迎下载！1.0最大更新！