main.pas

很好玩的一个DELPHI游戏

        end;
      end;
    2070:
      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;
    2080:
      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:=6;
          LineType:=TALCLine;
          TransmitType:=TTRadian;
        end;
      end;
    2090:
      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:=7;
          LineType:=TALCLine;
          TransmitType:=TTRadian;
        end;
      end;
    2100:
      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:=8;
          LineType:=TALCLine;
          TransmitType:=TTRadian;
        end;
      end;
    2200:
      begin
        for i:=0 to 19 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy4');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=DXDraw.SurfaceWidth + 100 + i * Image.PatternWidth;
            Y:=Random(FMain.DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            Speed:=9;
            TransmitProbability:=102;
            DeadTimes:=50;
          end;
      end;
    2300:
      begin
        for i:=0 to 39 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy8');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=DXDraw.SurfaceWidth + 100 + i * Image.PatternWidth;
            Y:=Random(FMain.DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            Speed:=15;
            TransmitProbability:=102;
            DeadTimes:=50;
            BuildArt:=DiamondA;
            Score:=150;
          end;
      end;
    3000:
      begin
        for i:=0 to 9 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy9');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=Random(DXDraw.SurfaceWidth - Image.PatternWidth);
            Y:=Random(FMain.DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            Speed:=3;
            TransmitProbability:=0;
            DeadTimes:=50;
            BuildArt:=DiamondA;
            LineType:=TALSLine;
            Score:=200;
          end;
      end;
    3100:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('Enemy6');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 100;
          Y:=0;
          Hp:=1000;
          AnimCount:=Image.PatternCount - 1;
          Speed:=25;
          TransmitProbability:=100;
          DeadTimes:=50;
          BuildArt:=DiamondA;
          LineType:=TALLine;
        end;
      end;
    3300:
      begin
        for i:=0 to 19 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy3');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=DXDraw.SurfaceWidth + 100 + i * Image.PatternWidth;
            Y:=Random(DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            Hp:=5;
            Speed:=4;
            TransmitProbability:=20;
            DeadTimes:=150;
            DeadImage:= 'BombEnemy1';
            if i = 13 then BuildArt:=ArtCircle;
            BuildArt:=DiamondA;
            LineType:=TALULine;
            TransmitType:=TTCircle;
            Bullet:= 'EnemyBullet';
            Bulletspeed:=3;
            Score:=300;
          end;
      end;
    3350:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondA;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3400:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondA;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3450:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondC;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=5;
          Score:=150;
        end;
      end;
    3500:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondA;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3550:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondA;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3600:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=DiamondA;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3650:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('WavePoPo');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.SurfaceWidth + 50;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          Hp:=2;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=20;
          DeadTimes:=150;
          DeadImage:= 'BombEnemy2';
          BuildArt:=ArtMoon;
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=4;
          Score:=150;
        end;
      end;
    3700:
      begin
        for i:=0 to 9 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy12');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=Random(DXDraw.Width) + DXDraw.Width shr 2 + i * Image.PatternWidth;
            Y:=Random(DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            Hp:=2;
            AnimSpeed:=150 / 1000;
            Speed:=4;
            TransmitProbability:=20;
            DeadTimes:=50;
            DeadImage:= 'BombEnemy3';
            if i = 8 then BuildArt:=ArtFire;
            LineType:=TALLine;
            TransmitType:=TTCircle;
            Bulletspeed:=4;
            Score:=250;
          end;
      end;
    3800:
      begin
        for i:=0 to 49 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy5');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=DXDraw.Width + i * Image.PatternWidth;
            Y:=Random(DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            AnimSpeed:=150 / 1000;
            Speed:=4;
            TransmitProbability:=20;
            DeadTimes:=50;
            DeadImage:= 'BombEnemy3';
            if i = 8 then BuildArt:=ArtFire;
            LineType:=TALLine;
            TransmitType:=TTRadian;
            Bulletspeed:=2;
            Score:=250;
          end;
      end;
    3900:
      begin
        for i:=0 to 49 do
          with TEnemy.Create(SpriteEngine.Engine) do
          begin
            Image:=FMain.Image.Items.Find('Enemy7');
            Width:=Image.Width;
            Height:=Image.Height;
            X:=DXDraw.Width + i * Image.PatternWidth;
            Y:=Random(DXDraw.Height - Image.PatternHeight);
            AnimCount:=Image.PatternCount - 1;
            AnimSpeed:=150 / 1000;
            Speed:=6;
            TransmitProbability:=40;
            DeadTimes:=50;
            DeadImage:= 'BombEnemy3';
            if i = 8 then BuildArt:=ArtCircle;
            LineType:=TALLine;
            TransmitType:=TTLine;
            Bulletspeed:=4;
            Score:=350;
          end;
      end;
    4200:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('Enemy10');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.Width - 20;
          Y:=0;
          AnimCount:=Image.PatternCount - 1;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=30;
          DeadTimes:=50;
          DeadImage:= 'BombEnemy3';
          LineType:=TALCLine;
          TransmitType:=TTRadian;
          Bulletspeed:=2;
          Score:=300;
        end;
        with TEnemy.Create(SpriteEngine.Engine) do
        begin
          Image:=FMain.Image.Items.Find('Enemy10');
          Width:=Image.Width;
          Height:=Image.Height;
          X:=DXDraw.Width - 20;
          Y:=DXDraw.Height - Image.PatternHeight;
          AnimCount:=Image.PatternCount - 1;
          AnimSpeed:=150 / 1000;
          Speed:=4;
          TransmitProbability:=30;
          DeadTimes:=50;
          DeadImage:= 'BombEnemy3';
          LineType:=TALC1Line;
          TransmitType:=TTCircle;
          Bulletspeed:=2;
          Score:=300;
        end;
      end;
    4250:
      begin
        with TEnemy.Create(SpriteEngine.Engine) do
        begin