📄 main.pas
字号:
case FCount of
100:
begin
for i:=0 to 7 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * 32;
Y:=Image.Height + 10;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALZLine;
TransmitProbability:=20;
if i = 7 then BuildArt:=ARTLaser;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
for i:=0 to 7 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * 32;
Y:=DXDraw.Height - Image.Height - 10;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALZ1Line;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTLine;
Score:=100;
Speed:=6;
end;
end;
350:
begin
for i:=0 to 9 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * 32;
Y:=100;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
400:
begin
for i:=0 to 9 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * 32;
Y:=225;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
450:
begin
for i:=0 to 9 do
with TEnemy.Create(SpriteEngine.Engine) do
begin
Image:=FMain.Image.Items.Find('Enemy');
Width:=Image.Width;
Height:=Image.Height;
X:=DXDraw.SurfaceWidth + 100 + i * 32;
Y:=DXDraw.Height - Image.Height - 40;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
if i = 8 then
BuildArt:=DiamondA;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
550:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
555:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
560:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
565:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
570:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
575:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
580:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
585:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
590:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
595:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
600:
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:=0;
AnimCount:=Image.PatternCount - 1;
AnimSpeed:=0.3;
DeadTimes:=150;
LineType:=TALVLine;
TransmitProbability:=20;
Bulletspeed:=2;
Probability:=100;
TransmitType:=TTRand;
Score:=100;
Speed:=6;
end;
end;
//-----------
605:
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;
610:
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;
615:
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;
620:
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;
625:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -