📄 main.pas
字号:
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
630:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
635:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
640:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
645:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
BuildArt:=DiamondA;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
650:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
655:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 10;
Y:=DXDraw.Height - Image.Height;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALV1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
//------------------------------------------------------------------------------
700:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 100;
Y:=50;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
710:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 50;
Y:=100;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
720:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 350;
Y:=150;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
730:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 300;
Y:=200;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
740:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 260;
Y:=DXDraw.Height - 280;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
750:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy2');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 200;
Y:=DXDraw.Height - Image.PatternHeight - 150;
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=9;
AnimSpeed:=300 / 1000;
DeadTimes:=50;
LineType:=TALSLine;
// Bullet:= 'EnemyBullet';
Bulletspeed:=2;
TransmitType:=TTRand;
end;
end;
900:
begin
for i:=0 to 5 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy1');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 50;
Y:=10 + i * Image.PatternHeight;
AnimCount:=Image.PatternCount - 1;
Speed:=4;
DeadTimes:=150;
LineType:=TALJLine;
Bulletspeed:=6;
end;
end;
1000:
begin
for i:=0 to 99 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy1');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * Image.PatternWidth;
Y:=Random(FMain.DXDraw.Height - Image.PatternHeight);
AnimCount:=Image.PatternCount - 1;
Z:=0;
Hp:=1;
Speed:=4;
DeadTimes:=150;
if i = 79 then
BuildArt:=ArtWave;
Bulletspeed:=4;
end;
end;
1800:
begin
for i:=0 to 10 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy3');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width + i * Image.PatternWidth + 10;
Y:=Random(DXDraw.Height - Image.PatternHeight);
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
if i = 5 then
BuildArt:=DiamondC;
Bulletspeed:=6;
LineType:=TALULine;
TransmitType:=TTCircle;
end;
end;
2000:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Hp:=1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=4;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2010:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Hp:=1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=4;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2020:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=4;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2030:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=4;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2040:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=4;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2050:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=5;
LineType:=TALCLine;
TransmitType:=TTRadian;
end;
end;
2060:
begin
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy11');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.Width - 20;
Y:=0;
AnimCount:=Image.PatternCount - 1;
Speed:=9;
DeadTimes:=150;
Bulletspeed:=5;
LineType:=TALCLine;
TransmitType:=TTRadian;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -