Subversion Repositories spacemission

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit SplMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,
  7.   StdCtrls, ExtCtrls, Menus, SplInfo, DIB, DXClass, DXSprite, DXDraws, DXInput,
  8.   DXSounds, PJVersionInfo, INIFiles, shellapi, wininet;
  9.  
  10. type
  11.   TGameScene = (
  12.     gsNone,
  13.     gsTitle,
  14.     gsMain,
  15.     gsGameOver,
  16.     gsNewLevel,
  17.     gsWin
  18.   );
  19.  
  20.   TGameInterval = (
  21.     giMittel,
  22.     giLeicht,
  23.     giSchwer
  24.   );
  25.  
  26.   TMusicTrack = (
  27.     mtNone,
  28.     mtGame,
  29.     mtBoss,
  30.     mtScene,
  31.     mtTitle
  32.   );
  33.  
  34.   {TSoundFile = (
  35.     sfNone,
  36.     sfSceneMov,
  37.     sfExplosion,
  38.     sfHit,
  39.     sfShoot,
  40.     sfDanger,
  41.     sfEnde,
  42.     sfFrage,
  43.     sfLevIntro
  44.   );}
  45.  
  46.   TMainForm = class(TDXForm)
  47.     MainMenu: TMainMenu;
  48.     Spiel: TMenuItem;
  49.     GameStart: TMenuItem;
  50.     GamePause: TMenuItem;
  51.     Beenden: TMenuItem;
  52.     Einstellungen: TMenuItem;
  53.     OptionFullScreen: TMenuItem;
  54.     OptionMusic: TMenuItem;
  55.     Leer2: TMenuItem;
  56.     Leer4: TMenuItem;
  57.     Hilfe: TMenuItem;
  58.     OptionSound: TMenuItem;
  59.     Mitarbeiter: TMenuItem;
  60.     Leer3: TMenuItem;
  61.     Spielstand: TMenuItem;
  62.     Leer5: TMenuItem;
  63.     Neustart: TMenuItem;
  64.     OptionBreitbild: TMenuItem;
  65.     Spielgeschwindigkeit: TMenuItem;
  66.     Leicht: TMenuItem;
  67.     Mittel: TMenuItem;
  68.     Schwer: TMenuItem;
  69.     Informationen: TMenuItem;
  70.     Leer6: TMenuItem;
  71.     Leer1: TMenuItem;
  72.     Cheat: TMenuItem;
  73.     AufUpdatesprfen1: TMenuItem;
  74.     procedure DXDrawFinalize(Sender: TObject);
  75.     procedure DXDrawInitialize(Sender: TObject);
  76.     procedure FormCreate(Sender: TObject);
  77.     procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
  78.     procedure DXTimerActivate(Sender: TObject);
  79.     procedure DXTimerDeactivate(Sender: TObject);
  80.     procedure OptionFullScreenClick(Sender: TObject);
  81.     procedure DXDrawInitializing(Sender: TObject);
  82.     procedure GameStartClick(Sender: TObject);
  83.     procedure GamePauseClick(Sender: TObject);
  84.     procedure BeendenClick(Sender: TObject);
  85.     procedure OptionSoundClick(Sender: TObject);
  86.     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  87.     procedure OptionMusicClick(Sender: TObject);
  88.     procedure MitarbeiterClick(Sender: TObject);
  89.     procedure SpielstandClick(Sender: TObject);
  90.     procedure NeustartClick(Sender: TObject);
  91.     procedure OptionBreitbildClick(Sender: TObject);
  92.     procedure LeichtClick(Sender: TObject);
  93.     procedure MittelClick(Sender: TObject);
  94.     procedure SchwerClick(Sender: TObject);
  95.     procedure FormShow(Sender: TObject);
  96.     procedure InformationenClick(Sender: TObject);
  97.     procedure CheatClick(Sender: TObject);
  98.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  99.     procedure FormDestroy(Sender: TObject);
  100.     procedure AufUpdatesprfen1Click(Sender: TObject);
  101.   private
  102.     FInterval: TGameInterval;
  103.     FScene: TGameScene;
  104.     FMusic: TMusicTrack;
  105.     FBlink: DWORD;
  106.     FBlinkTime: DWORD;
  107.     FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;
  108.     procedure StartScene(Scene: TGameScene);
  109.     procedure EndScene;
  110.     procedure BlinkStart;
  111.     procedure BlinkUpdate;
  112.     procedure StartSceneTitle;
  113.     procedure SceneTitle;
  114.     procedure EndSceneTitle;
  115.     procedure StartSceneMain;
  116.     procedure SceneMain;
  117.     procedure EndSceneMain;
  118.     procedure StartSceneGameOver;
  119.     procedure SceneGameOver;
  120.     procedure EndSceneGameOver;
  121.     procedure StartSceneWin;
  122.     procedure SceneWin;
  123.     procedure EndSceneWin;
  124.     procedure StartSceneNewLevel;
  125.     procedure SceneNewLevel;
  126.     procedure EndSceneNewLevel;
  127.   public
  128.     FDirectory: string;
  129.     FEngineVersion: string;
  130.     FNextScene: TGameScene;
  131.     FScore: Integer;
  132.     FNotSave: boolean;
  133.     FLife: integer;
  134.     FLevel: integer;
  135.     FMenuItem: integer;
  136.     FBossLife: integer;
  137.     FRestEnemys: integer;
  138.     FCheat: boolean;
  139.     { VCL-Ersatz }
  140.     dxdraw: TDxDraw;
  141.     imagelist: TDxImageList;
  142.     spriteengine: tdxspriteengine;
  143.     dxsound: tdxsound;
  144.     wavelist: tdxwavelist;
  145.     dxinput: tdxinput;
  146.     dxtimer: tdxtimer;
  147.     versioninfo: tpjversioninfo;
  148.     { Level-Routinen }
  149.     procedure NewLevel(lev: integer);
  150.     procedure DeleteArray;
  151.     { MCI-Routinen }
  152.     function StatusMusic(Name: TMusicTrack): string;
  153.     procedure PlayMusic(Name: TMusicTrack);
  154.     //procedure StopMusic(Name: TMusicTrack);
  155.     procedure PauseMusic(Name: TMusicTrack);
  156.     procedure ResumeMusic(Name: TMusicTrack);
  157.     procedure DestroyMusic(Name: TMusicTrack);
  158.     procedure OpenMusic(Name: TMusicTrack);
  159.     { Sound-Routinen }
  160.     function SoundKarte: boolean;
  161.     procedure PlaySound(Name: string; Wait: Boolean);
  162.     { Initialisiations-Routinen }
  163.     procedure DXInit;
  164.     procedure SoundInit;
  165.     procedure MusicInit;
  166.     { Einstellungs-Routinen }
  167.     procedure LoadOptions;
  168.     procedure WriteOptions;
  169.     { Farb-Routinen }
  170.     function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
  171.     procedure PalleteAnim(Col: TRGBQuad; Time: Integer);
  172.   end;
  173.  
  174. var
  175.   MainForm: TMainForm;
  176.  
  177. const
  178.   conleicht = 650 div 60;
  179.   conmittel = 1000 div 60;
  180.   conschwer = 1350 div 60;
  181.   lives = 6;
  182.   FCompVersion = '1.0';
  183.  
  184. implementation
  185.  
  186. uses
  187.   SplSplash, SplSpeicherung, SplText, SplCheat;
  188.  
  189. const
  190.   FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
  191.  
  192. {$R *.DFM}
  193.  
  194. {$R WindowsXP.res}
  195.  
  196. type
  197.  
  198.   TBackground = class(TBackgroundSprite)
  199.   private
  200.     FSpeed: Double;
  201.   protected
  202.     procedure DoMove(MoveCount: Integer); override;
  203.   end;
  204.  
  205.   TBackgroundSpecial = class(TBackgroundSprite)
  206.   private
  207.     FSpeed: Double;
  208.   protected
  209.     procedure DoMove(MoveCount: Integer); override;
  210.   end;
  211.  
  212.   TExplosion = class(TImageSprite)
  213.   private
  214.     FCounter: Integer;
  215.   protected
  216.     procedure DoMove(MoveCount: Integer); override;
  217.   public
  218.     constructor Create(AParent: TSprite); override;
  219.   end;
  220.  
  221.   TPlayerSprite = class(TImageSprite)
  222.   private
  223.     FCounter: Integer;
  224.     FMode: Integer;
  225.     FTamaCount: Integer;
  226.     FOldTamaTime: Integer;
  227.   protected
  228.     procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
  229.     procedure DoMove(MoveCount: Integer); override;
  230.   public
  231.     constructor Create(AParent: TSprite); override;
  232.   end;
  233.  
  234.   TTamaSprite = class(TImageSprite)
  235.   private
  236.     FPlayerSprite: TPlayerSprite;
  237.   protected
  238.     procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
  239.     procedure DoMove(MoveCount: Integer); override;
  240.   public
  241.     constructor Create(AParent: TSprite); override;
  242.     destructor Destroy; override;
  243.   end;
  244.  
  245.   TEnemy = class(TImageSprite)
  246.   private
  247.     FCounter: Integer;
  248.     FLife: integer;
  249.     FMode: Integer;
  250.     procedure Hit; virtual;
  251.   protected
  252.     procedure HitEnemy(Deaded: Boolean); virtual;
  253.   public
  254.     constructor Create(AParent: TSprite); override;
  255.     destructor Destroy; override;
  256.   end;
  257.  
  258.   TEnemyTama = class(TImageSprite)
  259.   private
  260.     FPlayerSprite: TSprite;
  261.   protected
  262.     procedure DoMove(MoveCount: Integer); override;
  263.   public
  264.     constructor Create(AParent: TSprite); override;
  265.   end;
  266.  
  267.   TEnemyMeteor= class(TEnemy)
  268.   protected
  269.     procedure DoMove(MoveCount: Integer); override;
  270.     procedure HitEnemy(Deaded: Boolean); override;
  271.   public
  272.     constructor Create(AParent: TSprite); override;
  273.   end;
  274.  
  275.   TEnemyUFO = class(TEnemy)
  276.   protected
  277.     procedure DoMove(MoveCount: Integer); override;
  278.     procedure HitEnemy(Deaded: Boolean); override;
  279.   public
  280.     constructor Create(AParent: TSprite); override;
  281.   end;
  282.  
  283.   TEnemyUFO2 = class(TEnemy)
  284.   private
  285.     FCounter: Integer;
  286.     FTamaCount: Integer;
  287.     FOldTamaTime: Integer;
  288.   protected
  289.     procedure DoMove(MoveCount: Integer); override;
  290.     procedure HitEnemy(Deaded: Boolean); override;
  291.   public
  292.     constructor Create(AParent: TSprite); override;
  293.   end;
  294.  
  295.   TEnemyAttacker = class(TEnemy)
  296.   protected
  297.     procedure DoMove(MoveCount: Integer); override;
  298.     procedure HitEnemy(Deaded: Boolean); override;
  299.   public
  300.     constructor Create(AParent: TSprite); override;
  301.   end;
  302.  
  303.   TEnemyAttacker2 = class(TEnemy)
  304.   private
  305.     FCounter: Integer;
  306.     FTamaF: Integer;
  307.     FTamaT: Integer;
  308.     FPutTama: Boolean;
  309.   protected
  310.     procedure DoMove(MoveCount: Integer); override;
  311.     procedure HitEnemy(Deaded: Boolean); override;
  312.   public
  313.     constructor Create(AParent: TSprite); override;
  314.   end;
  315.  
  316.   TEnemyAttacker3 = class(TEnemy)
  317.   private
  318.     FCounter: Integer;
  319.     FTamaCount: Integer;
  320.     FOldTamaTime: Integer;
  321.   protected
  322.     procedure DoMove(MoveCount: Integer); override;
  323.     procedure HitEnemy(Deaded: Boolean); override;
  324.   public
  325.     constructor Create(AParent: TSprite); override;
  326.   end;
  327.  
  328.   TEnemyBoss = class(TEnemy)
  329.   private
  330.     FCounter: Integer;
  331.     FTamaF: Integer;
  332.     FTamaT: Integer;
  333.     FPutTama: Boolean;
  334.     waiter1, waiter2: integer;
  335.   protected
  336.     procedure DoMove(MoveCount: Integer); override;
  337.     procedure HitEnemy(Deaded: Boolean); override;
  338.   public
  339.     constructor Create(AParent: TSprite); override;
  340.   end;
  341.  
  342.   TNoting = class(TImageSprite);
  343.  
  344.   TSpriteClass = class of TSprite;
  345.  
  346.   TEnemyAdvent = record
  347.     c: TSpriteClass;
  348.     x: extended;
  349.     y: extended;
  350.     l: integer;
  351.   end;
  352.  
  353. var
  354.   EnemyAdventTable: array[0..9999] of TEnemyAdvent;
  355.   Crash2, ec: integer;
  356.   BossExists, Crash, crashsound, SpielerFliegtFort: boolean;
  357.   pos: array[1..4] of integer;
  358.   enemys: array[1..27] of TSpriteClass;
  359.  
  360. const
  361.   DXInputButton = [isButton1, isButton2, isButton3,
  362.     isButton4, isButton5, isButton6, isButton7, isButton8, isButton9, isButton10, isButton11,
  363.     isButton12, isButton13, isButton14, isButton15, isButton16, isButton17, isButton18,
  364.     isButton19, isButton20, isButton21, isButton22, isButton23, isButton24, isButton25,
  365.     isButton26, isButton27, isButton28, isButton29, isButton30, isButton31, isButton32];
  366.  
  367. constructor TPlayerSprite.Create(AParent: TSprite);
  368. begin
  369.   inherited Create(AParent);
  370.   Image := MainForm.ImageList.Items.Find('Machine');
  371.   Width := Image.Width;
  372.   Height := Image.Height;
  373.   X := -70{20};
  374.   Y := mainform.dxdraw.surfaceHeight / 2 - (height / 2);
  375.   Z := 2;
  376.   AnimCount := Image.PatternCount;
  377.   AnimLooped := True;
  378.   AnimSpeed := 15/1000;
  379.   FMode := 4;
  380. end;
  381.  
  382. procedure TPlayerSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
  383. begin
  384.   if mainform.FCheat then exit;
  385.   if (Sprite is TEnemy) or (Sprite is TEnemyTama) then
  386.   begin
  387.     if not crash then
  388.     begin
  389.       dec(MainForm.FLife);
  390.       Crash := true;
  391.       if MainForm.Flife=0 then
  392.       begin
  393.         MainForm.PlaySound('Explosion', false);
  394.         Collisioned := false;
  395.         FCounter := 0;
  396.         FMode := 1;
  397.         Done := false;
  398.         Image := MainForm.ImageList.Items.Find('Explosion');
  399.         Width := Image.Width;
  400.         Height := Image.Height;
  401.         AnimCount := Image.PatternCount;
  402.         AnimLooped := False;
  403.         AnimSpeed := 15/1000;
  404.         AnimPos := 0;
  405.       end;
  406.     end
  407.     else
  408.     begin
  409.       if not crashsound then
  410.       begin
  411.         MainForm.PlaySound('Hit', False);
  412.         crashsound := true;
  413.       end;
  414.     end;
  415.   end;
  416. end;
  417.  
  418. procedure TPlayerSprite.DoMove(MoveCount: Integer);
  419. begin
  420.   inherited DoMove(MoveCount);
  421.   if SpielerFliegtFort then FMode := 3;
  422.   if FMode=0 then
  423.   begin
  424.     if isUp in MainForm.DXInput.States then Y := Y - (250/1000)*MoveCount;
  425.     if isDown in MainForm.DXInput.States then Y := Y + (250/1000)*MoveCount;
  426.     if isLeft in MainForm.DXInput.States then X := X - (250/1000)*MoveCount;
  427.     if isRight in MainForm.DXInput.States then X := X + (250/1000)*MoveCount;
  428.     if X<0 then X := 0;
  429.     if X>mainform.dxdraw.surfacewidth-Width then X := mainform.dxdraw.surfacewidth-Width;
  430.     if Y<0 then Y := 0;
  431.     if Y>mainform.dxdraw.surfaceheight-Height then Y := mainform.dxdraw.surfaceheight-Height;
  432.     if isButton1 in MainForm.DXInput.States then
  433.     begin
  434.       if (FTamaCount<8) and (FCounter-FOldTamaTime>=100) then
  435.       begin
  436.         Inc(FTamaCount);
  437.         with TTamaSprite.Create(Engine) do
  438.         begin
  439.           FPlayerSprite := Self;
  440.           X := Self.X+Self.Width;
  441.           Y := Self.Y+Self.Height div 2-Height div 2;
  442.           Z := 10;
  443.         end;
  444.         FOldTamaTime := FCounter;
  445.       end;
  446.     end;
  447.     Collision;
  448.   end else if FMode=1 then
  449.   begin
  450.     if FCounter>200 then
  451.     begin
  452.       FCounter := 0;
  453.       FMode := 2;
  454.       Visible := false;
  455.     end;
  456.   end else if FMode=2 then
  457.   begin
  458.     if FCounter>1500 then
  459.     begin
  460.       MainForm.FNextScene := gsGameOver;
  461.       MainForm.PlaySound('SceneMov', false);
  462.       MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
  463.       Sleep(200);
  464.     end;
  465.   end else if FMode=3 then
  466.   begin
  467.     X := X + MoveCount*(300/1000);
  468.     if X > MainForm.DXDraw.Width+Width then
  469.     begin
  470.       Dead;
  471.       inc(mainform.FLevel);
  472.       MainForm.FNextScene := gsNewLevel;
  473.       MainForm.PlaySound('SceneMov', false);
  474.       MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
  475.     end;
  476.   end else if FMode=4 then
  477.   begin
  478.     X := X + MoveCount*(300/1000);
  479.     if X > 19 then FMode := 0;
  480.   end;
  481.   inc(FCounter, MoveCount);
  482. end;
  483.  
  484. procedure TMainForm.DXInit;
  485. begin
  486.   try
  487.     Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg');
  488.     ImageList.Items.MakeColorTable;
  489.     DXDraw.ColorTable := ImageList.Items.ColorTable;
  490.     DXDraw.DefColorTable := ImageList.Items.ColorTable;
  491.     DXDraw.UpdatePalette;
  492.     OptionBreitBild.enabled := OptionFullScreen.checked;
  493.     DXDraw.Finalize;
  494.     if OptionFullScreen.Checked then
  495.     begin
  496.       if not (doFullScreen in DXDraw.Options) then StoreWindow;
  497.       DXDraw.Options := DXDraw.Options + [doFullScreen];
  498.     end else
  499.     begin
  500.       if doFullScreen in DXDraw.Options then RestoreWindow;
  501.       DXDraw.Options := DXDraw.Options - [doFullScreen];
  502.     end;
  503.     if not OptionBreitBild.checked then
  504.     begin
  505.       dxdraw.autosize := false;
  506.       dxdraw.Top := 0;
  507.       dxdraw.Left := 0;
  508.       dxdraw.width := 640;
  509.       dxdraw.height := 480;
  510.       dxdraw.surfacewidth := 640;
  511.       dxdraw.surfaceheight := 480;
  512.     end
  513.     else dxdraw.autosize := true;
  514.     DXDraw.Initialize;
  515.   except
  516.     //Imagelist.Items.clear;
  517.     //application.terminate;
  518.   end;
  519. end;
  520.  
  521. constructor TTamaSprite.Create(AParent: TSprite);
  522. begin
  523.   inherited Create(AParent);
  524.   Image := MainForm.ImageList.Items.Find('Bounce');
  525.   Z := 2;
  526.   Width := Image.Width;
  527.   Height := Image.Height;
  528.   AnimCount := Image.PatternCount;
  529.   AnimLooped := True;
  530.   AnimSpeed := 15/1000;
  531.   MainForm.PlaySound('Shoot', False);
  532. end;
  533.  
  534. destructor TTamaSprite.Destroy;
  535. begin
  536.   inherited Destroy;
  537.   Dec(FPlayerSprite.FTamaCount);
  538. end;
  539.  
  540. procedure TTamaSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
  541. begin
  542.   if (Sprite is TEnemy) and (not (Sprite is TEnemyTama)) then
  543.   begin
  544.     TEnemy(Sprite).Hit;
  545.     Dead;
  546.   end;
  547.   Done := False;
  548. end;
  549.  
  550. procedure TTamaSprite.DoMove(MoveCount: Integer);
  551. begin
  552.   inherited DoMove(MoveCount);
  553.   X := X+(800/1000)*MoveCount;
  554.   if X>=mainform.dxdraw.surfacewidth then Dead;
  555.   Collision;
  556. end;
  557.  
  558. procedure TBackground.DoMove(MoveCount: Integer);
  559. var
  560.   ran: integer;
  561. begin
  562.   inherited DoMove(MoveCount);
  563.   X := X - MoveCount*(60/1000)*FSpeed;
  564.   randomize;
  565.   ran := Random(1500);
  566.   if ran = 150 then
  567.   begin
  568.     with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
  569.     begin
  570.       SetMapSize(1, 1);
  571.       Image := mainform.ImageList.Items.Find('Background-Planet1');
  572.       Width := Image.Width;
  573.       Height := Image.Height;
  574.  
  575.       Y := random(mainform.dxdraw.height);
  576.       X := mainform.dxdraw.width;
  577.  
  578.       ran := Random(2);
  579.       if ran = 0 then
  580.       begin
  581.         Z := -20;
  582.         FSpeed := 1.8;
  583.       end
  584.       else if ran = 1 then
  585.       begin
  586.         Z := -40;
  587.         FSpeed := 0.8;
  588.       end
  589.       else if ran = 2 then
  590.       begin
  591.         Z := -60;
  592.         FSpeed := 0.3;
  593.       end;
  594.     end;
  595.   end
  596.   else if ran = 500 then
  597.   begin
  598.     with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
  599.     begin
  600.       SetMapSize(1, 1);
  601.       ran := Random(4);
  602.       if ran = 0 then
  603.         Image := mainform.ImageList.Items.Find('Background-Red')
  604.       else if ran = 1 then
  605.         Image := mainform.ImageList.Items.Find('Background-Blue')
  606.       else if ran = 2 then
  607.         Image := mainform.ImageList.Items.Find('Background-Yellow')
  608.       else if ran = 3 then
  609.         Image := mainform.ImageList.Items.Find('Hintergrund-Rot');
  610.       Width := Image.Width;
  611.       Height := Image.Height;
  612.  
  613.       Y := random(mainform.dxdraw.height);
  614.       X := mainform.dxdraw.width;
  615.  
  616.       { ran := Random(2);
  617.       if ran = 0 then
  618.       begin
  619.         Z := -20;
  620.         FSpeed := 1.8;
  621.       end
  622.       else if ran = 1 then
  623.       begin
  624.         Z := -40;
  625.         FSpeed := 0.8;
  626.       end
  627.       else if ran = 2 then
  628.       begin }
  629.         Z := -60;
  630.         FSpeed := 0.3;
  631.       { end; }
  632.     end;
  633.   end;
  634. end;
  635.  
  636. procedure TBackgroundSpecial.DoMove(MoveCount: Integer);
  637. begin
  638.   inherited DoMove(MoveCount);
  639.   X := X - MoveCount*(60/1000)*FSpeed;
  640.   if X<-Width then Dead;
  641. end;
  642.  
  643. constructor TExplosion.Create(AParent: TSprite);
  644. begin
  645.   inherited Create(AParent);
  646.   mainform.PlaySound('Explosion', false);
  647.   Image := MainForm.ImageList.Items.Find('Explosion');
  648.   Width := Image.Width;
  649.   Height := Image.Height;
  650.   AnimCount := Image.PatternCount;
  651.   AnimLooped := True;
  652.   AnimSpeed := 15/1000;
  653.   AnimPos := Random(AnimCount);
  654. end;
  655.  
  656. procedure TExplosion.DoMove(MoveCount: Integer);
  657. begin
  658.   inherited DoMove(MoveCount);
  659.   inc(FCounter, MoveCount);
  660.   if FCounter > 2999 then dead;
  661. end;
  662.  
  663. constructor TEnemyTama.Create(AParent: TSprite);
  664. begin
  665.   inherited Create(AParent);
  666.   Image := MainForm.ImageList.Items.Find('Bounce2');
  667.   Width := Image.Width;
  668.   Height := Image.Height;
  669.   AnimCount := Image.PatternCount;
  670.   AnimLooped := True;
  671.   AnimSpeed := 15/1000;
  672.   MainForm.PlaySound('Shoot', False);
  673. end;
  674.  
  675. procedure TEnemyTama.DoMove(MoveCount: Integer);
  676. begin
  677.   inherited DoMove(MoveCount);
  678.   X := X - MoveCount*(600/1000);
  679.   if X<-Width then Dead;
  680. end;
  681.  
  682. procedure TEnemy.Hit;
  683. begin
  684.   Dec(FLife);
  685.   if FLife<=0 then
  686.   begin
  687.     Collisioned := False;
  688.     HitEnemy(True);
  689.   end
  690.   else
  691.     HitEnemy(False);
  692. end;
  693.  
  694. procedure TEnemy.HitEnemy(Deaded: Boolean);
  695. begin
  696.   if Deaded then MainForm.PlaySound('Explosion', False);
  697. end;
  698.  
  699. constructor TEnemyUFO.Create(AParent: TSprite);
  700. begin
  701.   inherited Create(AParent);
  702.   Image := MainForm.ImageList.Items.Find('Enemy-disk');
  703.   Width := Image.Width;
  704.   Height := Image.Height;
  705.   AnimCount := Image.PatternCount;
  706.   AnimLooped := True;
  707.   AnimSpeed := 15/1000;
  708.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  709. end;
  710.  
  711. constructor TEnemy.Create(AParent: TSprite);
  712. begin
  713.   inherited Create(AParent);
  714.   dec(mainform.FRestEnemys);
  715.   inc(ec);
  716. end;
  717.  
  718. destructor TEnemy.Destroy;
  719. begin
  720.   inherited Destroy;
  721.   dec(ec);
  722. end;
  723.  
  724. procedure TEnemyUFO.HitEnemy(Deaded: Boolean);
  725. begin
  726.   if Deaded then
  727.   begin
  728.     MainForm.PlaySound('Explosion', False);
  729.     FMode := 2;
  730.     FCounter := 0;
  731.     Inc(MainForm.FScore, 1000);
  732.     Image := MainForm.ImageList.Items.Find('Explosion');
  733.     Width := Image.Width;
  734.     Height := Image.Height;
  735.     AnimCount := Image.PatternCount;
  736.     AnimLooped := False;
  737.     AnimSpeed := 15/1000;
  738.     AnimPos := 0;
  739.   end else
  740.   begin
  741.     MainForm.PlaySound('Hit', False);
  742.     Inc(MainForm.FScore, 100);
  743.   end;
  744. end;
  745.  
  746. procedure TEnemyUFO2.DoMove(MoveCount: Integer);
  747. begin
  748.   inherited DoMove(MoveCount);
  749.   if FMode=0 then
  750.   begin
  751.     X := X - MoveCount*(300/1000);
  752.     Y := Y + Cos256(FCounter div 15)*2;
  753.     if X<-Width then Dead;
  754.     if FCounter-FOldTamaTime>=100 then
  755.     begin
  756.       Inc(FTamaCount);
  757.       with TEnemyTama.Create(Engine) do
  758.       begin
  759.         FPlayerSprite := Self;
  760.         X := Self.X;
  761.         Y := Self.Y+Self.Height div 2-Height div 2;
  762.         Z := 10;
  763.       end;
  764.       FOldTamaTime := FCounter;
  765.     end;
  766.   end else if FMode=2 then
  767.   begin
  768.     X := X - MoveCount*(300/1000);
  769.     if FCounter>200 then Dead;
  770.   end;
  771.   inc(FCounter, MoveCount);
  772. end;
  773.  
  774. procedure TEnemyUFO2.HitEnemy(Deaded: Boolean);
  775. begin
  776.   if Deaded then
  777.   begin
  778.     MainForm.PlaySound('Explosion', False);
  779.     FMode := 2;
  780.     FCounter := 0;
  781.     Inc(MainForm.FScore, 1000);
  782.     Image := MainForm.ImageList.Items.Find('Explosion');
  783.     Width := Image.Width;
  784.     Height := Image.Height;
  785.     AnimCount := Image.PatternCount;
  786.     AnimLooped := False;
  787.     AnimSpeed := 15/1000;
  788.     AnimPos := 0;
  789.   end else
  790.   begin
  791.     MainForm.PlaySound('Hit', False);
  792.     Inc(MainForm.FScore, 100);
  793.   end;
  794. end;
  795.  
  796. constructor TEnemyUFO2.Create(AParent: TSprite);
  797. begin
  798.   inherited Create(AParent);
  799.   Image := MainForm.ImageList.Items.Find('Enemy-disk2');
  800.   Width := Image.Width;
  801.   Height := Image.Height;
  802.   AnimCount := Image.PatternCount;
  803.   AnimLooped := True;
  804.   AnimSpeed := 15/1000;
  805.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  806. end;
  807.  
  808. procedure TEnemyUFO.DoMove(MoveCount: Integer);
  809. begin
  810.   inherited DoMove(MoveCount);
  811.   if FMode=0 then
  812.   begin
  813.     X := X - MoveCount*(300/1000);
  814.     Y := Y + Cos256(FCounter div 15)*2;
  815.     if X<-Width then Dead;
  816.   end else if FMode=2 then
  817.   begin
  818.     X := X - MoveCount*(300/1000);
  819.     if FCounter>200 then Dead;
  820.   end;
  821.   inc(FCounter, MoveCount);
  822. end;
  823.  
  824. constructor TEnemyAttacker.Create(AParent: TSprite);
  825. begin
  826.   inherited Create(AParent);
  827.   Image := MainForm.ImageList.Items.Find('Enemy-Attacker');
  828.   Width := Image.Width;
  829.   Height := Image.Height;
  830.   AnimCount := Image.PatternCount;
  831.   AnimLooped := True;
  832.   AnimSpeed := 15/1000;
  833.   PixelCheck := True;
  834.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  835. end;
  836.  
  837. procedure TEnemyAttacker.HitEnemy(Deaded: Boolean);
  838. begin
  839.   if Deaded then
  840.   begin
  841.     MainForm.PlaySound('Explosion', False);
  842.     FMode := 2;
  843.     FCounter := 0;
  844.     Inc(MainForm.FScore, 1000);
  845.     Image := MainForm.ImageList.Items.Find('Explosion');
  846.     Width := Image.Width;
  847.     Height := Image.Height;
  848.     AnimCount := Image.PatternCount;
  849.     AnimLooped := False;
  850.     AnimSpeed := 15/1000;
  851.     AnimPos := 0;
  852.   end else
  853.   begin
  854.     MainForm.PlaySound('Hit', False);
  855.     Inc(MainForm.FScore, 100);
  856.   end;
  857. end;
  858.  
  859. procedure TEnemyAttacker.DoMove(MoveCount: Integer);
  860. begin
  861.   inherited DoMove(MoveCount);
  862.   if FMode=0 then
  863.   begin
  864.     X := X - MoveCount*(300/1000)-FCounter div 128;
  865.     if X < -Width then Dead;
  866.   end else if FMode=2 then
  867.   begin
  868.     X := X - MoveCount*(300/1000);
  869.     if FCounter>200 then Dead;
  870.   end;
  871.   inc(FCounter, MoveCount);
  872. end;
  873.  
  874. constructor TEnemyBoss.Create(AParent: TSprite);
  875. begin
  876.   inherited Create(AParent);
  877.   Image := MainForm.ImageList.Items.Find('Enemy-boss');
  878.   Width := Image.Width;
  879.   Height := Image.Height;
  880.   BossExists := true;
  881.   MainForm.PlayMusic(mtBoss);
  882.   AnimCount := Image.PatternCount;
  883.   AnimLooped := True;
  884.   AnimSpeed := 15/1000;
  885.   PixelCheck := True;
  886.   Collisioned := False;
  887.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  888.   MainForm.FBossLife := FLife;
  889.   waiter1 := 0;
  890.   waiter2 := 0;
  891. end;
  892.  
  893. procedure TEnemyBoss.HitEnemy(Deaded: Boolean);
  894. begin
  895.   if Deaded then
  896.   begin
  897.     MainForm.PlaySound('Explosion', False);
  898.     FMode := 2;
  899.     FCounter := 0;
  900.     Inc(MainForm.FScore, 100000);
  901.     BossExists := false;
  902.     dec(MainForm.FBossLife);
  903.   end else
  904.   begin
  905.     MainForm.PlaySound('Hit', False);
  906.     Inc(MainForm.FScore, 100);
  907.     dec(MainForm.FBossLife);
  908.   end;
  909. end;
  910.  
  911. procedure TEnemyBoss.DoMove(MoveCount: Integer);
  912. begin
  913.   inherited DoMove(MoveCount);
  914.   if FMode=0 then
  915.   begin
  916.     if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/4)){450} then
  917.       X := X - MoveCount*(300/1000)
  918.     else
  919.     begin
  920.       Collisioned := True;
  921.       FMode := 1;
  922.       FPutTama := True;
  923.     end;
  924.     Y := Y + Cos256(FCounter div 15)*5;
  925.   end else if FMode=1 then
  926.   begin
  927.     Y := Y + Cos256(FCounter div 15)*5;
  928.     if FPutTama then
  929.     begin
  930.       if FTamaT>100 then
  931.       begin
  932.         with TEnemyTama.Create(Engine) do
  933.         begin
  934.           FPlayerSprite := Self;
  935.           Z := 1;
  936.           X := Self.X-Width;
  937.           Y := Self.Y+Self.Height div 2-Height div 2;
  938.         end;
  939.         Inc(FTamaF);
  940.         if FTamaF>Random(30) then FPutTama := False;
  941.         FTamaT := 0;
  942.       end;
  943.       FTamaT := FTamaT + MoveCount;
  944.     end else
  945.     begin
  946.       FTamaT := FTamaT + MoveCount;
  947.       if FTamaT>2000+Random(500) then
  948.       begin
  949.         FPutTama := True;
  950.         FTamaF := 0;
  951.         FTamaT := 0;
  952.       end;
  953.     end;
  954.   end else if FMode=2 then
  955.   begin
  956.     inc(waiter1);
  957.     if waiter1 = 3 then
  958.     begin
  959.       waiter1 := 0;
  960.       inc(waiter2);
  961.       if waiter2 <= 20 then
  962.       begin
  963.         with TExplosion.Create(Engine) do
  964.         begin
  965.           Z := 10;
  966.           X := Self.X+Random(Self.Width)-16;
  967.           Y := Self.Y+Random(Self.Height)-16;
  968.         end;
  969.       end
  970.       else
  971.       begin
  972.         Inc(MainForm.FScore, 1000);
  973.         FMode := 3;
  974.       end;
  975.     end;
  976.   end else if FMode=3 then
  977.   begin
  978.     if FCounter>4000 then dead;
  979.   end;
  980.   inc(FCounter, MoveCount);
  981. end;
  982.  
  983. constructor TEnemyAttacker2.Create(AParent: TSprite);
  984. begin
  985.   inherited Create(AParent);
  986.   Image := MainForm.ImageList.Items.Find('Enemy-Attacker2');
  987.   Width := Image.Width;
  988.   Height := Image.Height;
  989.   AnimCount := Image.PatternCount;
  990.   AnimLooped := True;
  991.   AnimSpeed := 15/1000;
  992.   PixelCheck := True;
  993.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  994. end;
  995.  
  996. procedure TEnemyAttacker2.HitEnemy(Deaded: Boolean);
  997. begin
  998.   if Deaded then
  999.   begin
  1000.     MainForm.PlaySound('Explosion', False);
  1001.     FMode := 2;
  1002.     FCounter := 0;
  1003.     Inc(MainForm.FScore, 5000);
  1004.     Image := MainForm.ImageList.Items.Find('Explosion');
  1005.     Width := Image.Width;
  1006.     Height := Image.Height;
  1007.     AnimCount := Image.PatternCount;
  1008.     AnimLooped := False;
  1009.     AnimSpeed := 15/1000;
  1010.     AnimPos := 0;
  1011.   end else
  1012.   begin
  1013.     MainForm.PlaySound('Hit', False);
  1014.     Inc(MainForm.FScore, 100);
  1015.   end;
  1016. end;
  1017.  
  1018. procedure TEnemyAttacker2.DoMove(MoveCount: Integer);
  1019. begin
  1020.   inherited DoMove(MoveCount);
  1021.   if FMode=0 then
  1022.   begin
  1023.     if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/2)){450} then
  1024.       X := X - MoveCount*(300/1000)
  1025.     else
  1026.     begin
  1027.       Collisioned := True;
  1028.       FMode := 1;
  1029.       FPutTama := True;
  1030.     end;
  1031.     Y := Y + Cos256(FCounter div 15)*5;
  1032.   end else if FMode=1 then
  1033.   begin
  1034.     Y := Y + Cos256(FCounter div 15)*5;
  1035.     if FPutTama then
  1036.     begin
  1037.       if FTamaT>100 then
  1038.       begin
  1039.         with TEnemyTama.Create(Engine) do
  1040.         begin
  1041.           FPlayerSprite := Self;
  1042.           Z := 1;
  1043.           X := Self.X-Width;
  1044.           Y := Self.Y+Self.Height div 2-Height div 2;
  1045.         end;
  1046.         Inc(FTamaF);
  1047.         if FTamaF>Random(30) then FPutTama := False;
  1048.         FTamaT := 0;
  1049.       end;
  1050.       FTamaT := FTamaT + MoveCount;
  1051.     end else
  1052.     begin
  1053.       FTamaT := FTamaT + MoveCount;
  1054.       if FTamaT>2000+Random(500) then
  1055.       begin
  1056.         FPutTama := True;
  1057.         FTamaF := 0;
  1058.         FTamaT := 0;
  1059.       end;
  1060.     end;
  1061.   end else if FMode=2 then
  1062.   begin
  1063.     if FCounter>200 then Dead;
  1064.   end;
  1065.   inc(FCounter, MoveCount);
  1066. end;
  1067.  
  1068. procedure TEnemyAttacker3.HitEnemy(Deaded: Boolean);
  1069. begin
  1070.   if Deaded then
  1071.   begin
  1072.     MainForm.PlaySound('Explosion', False);
  1073.     FMode := 1;
  1074.     FCounter := 0;
  1075.     Inc(MainForm.FScore, 5000);
  1076.     Image := MainForm.ImageList.Items.Find('Explosion');
  1077.     Width := Image.Width;
  1078.     Height := Image.Height;
  1079.     AnimCount := Image.PatternCount;
  1080.     AnimLooped := False;
  1081.     AnimSpeed := 15/1000;
  1082.     AnimPos := 0;
  1083.   end else
  1084.   begin
  1085.     MainForm.PlaySound('Hit', False);
  1086.     Inc(MainForm.FScore, 100);
  1087.   end;
  1088. end;
  1089.  
  1090. procedure TEnemyAttacker3.DoMove(MoveCount: Integer);
  1091. begin
  1092.   inherited DoMove(MoveCount);
  1093.   if FMode=0 then
  1094.   begin
  1095.     X := X - (250/1000)*MoveCount;
  1096.     if X<-Width then Dead;
  1097.     if FCounter-FOldTamaTime>=100 then
  1098.     begin
  1099.       Inc(FTamaCount);
  1100.       with TEnemyTama.Create(Engine) do
  1101.       begin
  1102.         FPlayerSprite := Self;
  1103.         X := Self.X;
  1104.         Y := Self.Y+Self.Height div 2-Height div 2;
  1105.         Z := 10;
  1106.       end;
  1107.       FOldTamaTime := FCounter;
  1108.      end;
  1109.   end else if FMode=1 then
  1110.   begin
  1111.     if FCounter>200 then Dead;
  1112.   end;
  1113.   inc(FCounter, MoveCount);
  1114. end;
  1115.  
  1116. constructor TEnemyAttacker3.Create(AParent: TSprite);
  1117. begin
  1118.   inherited Create(AParent);
  1119.   Image := MainForm.ImageList.Items.Find('Enemy-Attacker3');
  1120.   Width := Image.Width;
  1121.   Height := Image.Height;
  1122.   AnimCount := Image.PatternCount;
  1123.   AnimLooped := True;
  1124.   AnimSpeed := 15/1000;
  1125.   PixelCheck := True;
  1126.   FLife := EnemyAdventTable[mainform.FEnemyAdventPos].l;
  1127. end;
  1128.  
  1129. function TMainForm.SoundKarte: boolean;
  1130. begin
  1131.   result := WaveOutGetNumDevs > 0;
  1132. end;
  1133.  
  1134. procedure TMainForm.FormCreate(Sender: TObject);
  1135. var
  1136.   Ergebnis: string;
  1137.   daten: textfile;
  1138.   i: integer;
  1139.   punkt: integer;
  1140.   ok: boolean;
  1141. begin
  1142.   { Beginne VCL-Ersatz }
  1143.   versioninfo := tpjversioninfo.Create(self);
  1144.  
  1145.   dxtimer := tdxtimer.Create(self);
  1146.   dxtimer.Interval := 33;
  1147.   dxtimer.OnActivate := DXTimerActivate;
  1148.   dxtimer.OnDeactivate := DXTimerDeactivate;
  1149.   dxtimer.OnTimer := DXTimerTimer;
  1150.   dxtimer.ActiveOnly := false;
  1151.   dxtimer.Enabled := false;
  1152.  
  1153.   dxdraw := tdxdraw.Create(self);
  1154.   dxdraw.Parent := self;
  1155.   dxdraw.Align := alClient;
  1156.   dxdraw.Left := 0;
  1157.   dxdraw.Top := 0;
  1158.   dxdraw.Width := 640;
  1159.   dxdraw.Height := 480;
  1160.   dxdraw.AutoInitialize := False;
  1161.   dxdraw.AutoSize := False;
  1162.   dxdraw.Color := clBlack;
  1163.   dxdraw.Display.BitCount := 24;
  1164.   dxdraw.Display.FixedBitCount := False;
  1165.   dxdraw.Display.FixedRatio := False;
  1166.   dxdraw.Display.FixedSize := False;
  1167.   dxdraw.Display.Height := 600;
  1168.   dxdraw.Display.Width := 800;
  1169.   dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver];
  1170.   dxdraw.TabOrder := 0;
  1171.   dxdraw.Visible := true;
  1172.   dxdraw.OnFinalize := DXDrawFinalize;
  1173.   dxdraw.OnInitialize := DXDrawInitialize;
  1174.   dxdraw.OnInitializing := DXDrawInitializing;
  1175.  
  1176.   dxsound := tdxsound.Create(self);
  1177.   dxsound.AutoInitialize := false;
  1178.  
  1179.   dxinput := tdxinput.Create(self);
  1180.   dxinput.Joystick.ForceFeedback := true;
  1181.   dxinput.Keyboard.ForceFeedback := true;
  1182.  
  1183.   wavelist := tdxwavelist.Create(self);
  1184.   wavelist.DXSound := dxsound;
  1185.  
  1186.   imagelist := tdximagelist.create(self);
  1187.   imagelist.DXDraw := dxdraw;
  1188.  
  1189.   spriteengine := tdxspriteengine.create(self);
  1190.   spriteengine.DXDraw := dxdraw;
  1191.  
  1192.   { Ende VCL-Ersatz }
  1193.  
  1194.   punkt := 0;
  1195.   FDirectory := extractfilepath(paramstr(0));
  1196.   versioninfo.filename := paramstr(0);
  1197.   for i := 1 to length(versioninfo.ProductVersion) do
  1198.   begin
  1199.     if copy(versioninfo.ProductVersion, i, 1) = '.' then inc(punkt);
  1200.     if punkt < 2 then fengineversion := fengineversion+copy(versioninfo.ProductVersion, i, 1);
  1201.   end;
  1202.   Application.Title := 'SpaceMission '+FEngineVersion;
  1203.   LoadOptions;
  1204.   DXInit;
  1205.   SoundInit;
  1206.   MusicInit;
  1207.   DeleteArray;
  1208.   if (paramcount = 0) and (fileexists(paramstr(1))) then // (paramcount > 0)
  1209.   begin
  1210.     AssignFile(daten, paramstr(1));
  1211.     Reset(daten);
  1212.     ok := true;
  1213.     ReadLN(daten, Ergebnis);
  1214.     if Ergebnis <> '; SpaceMission '+mainform.FEngineVersion then ok := false;
  1215.     ReadLN(daten, Ergebnis);
  1216.     if ergebnis <> '; SAV-File' then ok := false;
  1217.     if not ok then
  1218.     begin
  1219.       showmessage(FileError);
  1220.       CloseFile(daten);
  1221.       GameStartClick(GameStart);
  1222.       exit;
  1223.     end;
  1224.     ReadLN(daten, mainform.FScore);
  1225.     ReadLN(daten, mainform.FLife);
  1226.     ReadLN(daten, mainform.Flevel);
  1227.     ReadLN(daten, mainform.FMenuItem);
  1228.     CloseFile(daten);
  1229.     mainform.FNextScene := gsNewLevel;
  1230.     exit;
  1231.   end;
  1232.   GameStartClick(GameStart);
  1233. end;
  1234.  
  1235. procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  1236.   Shift: TShiftState);
  1237. begin
  1238.   if (ssAlt in Shift) and (Key=VK_RETURN) then
  1239.     OptionFullScreenClick(OptionFullScreen);
  1240. end;
  1241.  
  1242. procedure TMainForm.GameStartClick(Sender: TObject);
  1243. begin
  1244.   StartScene(gsTitle);
  1245. end;
  1246.  
  1247. procedure TMainForm.GamePauseClick(Sender: TObject);
  1248. begin
  1249.   GamePause.Checked := not GamePause.Checked;
  1250.   DXTimer.Enabled := not GamePause.Checked;
  1251.   if GamePause.Checked then PauseMusic(FMusic) else
  1252.     ResumeMusic(FMusic);
  1253. end;
  1254.  
  1255. // http://www.delphipraxis.net/post43515.html
  1256. Function GetHTML(AUrl: string): string;
  1257. var
  1258.   databuffer : array[0..4095] of char;
  1259.   ResStr : string;
  1260.   hSession, hfile: hInternet;
  1261.   dwindex,dwcodelen,dwread,dwNumber: cardinal;
  1262.   dwcode : array[1..20] of char;
  1263.   res    : pchar;
  1264.   Str    : pchar;
  1265. begin
  1266.   ResStr:='';
  1267.   if system.pos('http://',lowercase(AUrl))=0 then
  1268.      AUrl:='http://'+AUrl;
  1269.  
  1270.   // Hinzugefügt
  1271.   application.ProcessMessages;
  1272.  
  1273.   hSession:=InternetOpen('InetURL:/1.0',
  1274.                          INTERNET_OPEN_TYPE_PRECONFIG,
  1275.                          nil,
  1276.                          nil,
  1277.                          0);
  1278.   if assigned(hsession) then
  1279.   begin
  1280.     // Hinzugefügt
  1281.     application.ProcessMessages;
  1282.  
  1283.     hfile:=InternetOpenUrl(
  1284.            hsession,
  1285.            pchar(AUrl),
  1286.            nil,
  1287.            0,
  1288.            INTERNET_FLAG_RELOAD,
  1289.            0);
  1290.     dwIndex  := 0;
  1291.     dwCodeLen := 10;
  1292.  
  1293.     // Hinzugefügt
  1294.     application.ProcessMessages;
  1295.  
  1296.     HttpQueryInfo(hfile,
  1297.                   HTTP_QUERY_STATUS_CODE,
  1298.                   @dwcode,
  1299.                   dwcodeLen,
  1300.                   dwIndex);
  1301.     res := pchar(@dwcode);
  1302.     dwNumber := sizeof(databuffer)-1;
  1303.     if (res ='200') or (res ='302') then
  1304.     begin
  1305.       while (InternetReadfile(hfile,
  1306.                               @databuffer,
  1307.                               dwNumber,
  1308.                               DwRead)) do
  1309.       begin
  1310.  
  1311.         // Hinzugefügt
  1312.         application.ProcessMessages;
  1313.  
  1314.         if dwRead =0 then
  1315.           break;
  1316.         databuffer[dwread]:=#0;
  1317.         Str := pchar(@databuffer);
  1318.         resStr := resStr + Str;
  1319.       end;
  1320.     end
  1321.     else
  1322.       ResStr := 'Status:'+res;
  1323.     if assigned(hfile) then
  1324.       InternetCloseHandle(hfile);
  1325.   end;
  1326.  
  1327.   // Hinzugefügt
  1328.   application.ProcessMessages;
  1329.  
  1330.   InternetCloseHandle(hsession);
  1331.   Result := resStr;
  1332. end;
  1333.  
  1334. procedure TMainForm.AufUpdatesprfen1Click(Sender: TObject);
  1335. var
  1336.   temp: string;
  1337. begin
  1338.   temp := GetHTML('http://www.viathinksoft.de/update/?id=spacemission');
  1339.   if copy(temp, 0, 7) = 'Status:' then
  1340.   begin
  1341.     Application.MessageBox('Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.', 'Fehler', MB_OK + MB_ICONERROR)
  1342.   end
  1343.   else
  1344.   begin
  1345.     if GetHTML('http://www.viathinksoft.de/update/?id=spacemission') <> '1.1d' then
  1346.     begin
  1347.       if Application.MessageBox('Eine neue Programmversion ist vorhanden. Möchten Sie diese jetzt herunterladen?', 'Information', MB_YESNO + MB_ICONASTERISK) = ID_YES then
  1348.         shellexecute(application.handle, 'open', pchar('http://www.viathinksoft.de/update/?id=@spacemission'), '', '', sw_normal);
  1349.     end
  1350.     else
  1351.     begin
  1352.       Application.MessageBox('Es ist keine neue Programmversion vorhanden.', 'Information', MB_OK + MB_ICONASTERISK);
  1353.     end;
  1354.   end;
  1355. end;
  1356.  
  1357. procedure TMainForm.BeendenClick(Sender: TObject);
  1358. begin
  1359.   close;
  1360. end;
  1361.  
  1362. procedure TMainForm.OptionFullScreenClick(Sender: TObject);
  1363. begin
  1364.   OptionFullScreen.Checked := not OptionFullScreen.Checked;
  1365.   DXInit;
  1366.   writeoptions;
  1367. end;
  1368.  
  1369. procedure TMainForm.OptionSoundClick(Sender: TObject);
  1370. begin
  1371.   OptionSound.Checked := not OptionSound.Checked;
  1372.   SoundInit;
  1373.   WriteOptions;
  1374. end;
  1375.  
  1376. procedure TMainForm.SoundInit;
  1377. begin
  1378.   if OptionSound.Checked then
  1379.   begin
  1380.     if not DXSound.Initialized then
  1381.     begin
  1382.       try
  1383.         DXSound.Initialize;
  1384.         WaveList.Items.LoadFromFile(FDirectory+'DirectX\Sound.dxw');
  1385.       except
  1386.         OptionSound.enabled := False;
  1387.         WaveList.items.clear;
  1388.       end;
  1389.     end;
  1390.   end
  1391.   else DXSound.Finalize;
  1392. end;
  1393.  
  1394. procedure TMainForm.MusicInit;
  1395. begin
  1396.   optionmusic.enabled := SoundKarte;
  1397. end;
  1398.  
  1399. procedure TMainForm.DestroyMusic(Name: TMusicTrack);
  1400. begin
  1401.   if Name = mtBoss then
  1402.   begin
  1403.     MCISendString(pchar('stop "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  1404.     MCISendString(pchar('close "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  1405.   end;
  1406.   if Name = mtGame then
  1407.   begin
  1408.     MCISendString(pchar('stop "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  1409.     MCISendString(pchar('close "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  1410.   end;
  1411.   if Name = mtScene then
  1412.   begin
  1413.     MCISendString(pchar('stop "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  1414.     MCISendString(pchar('close "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  1415.   end;
  1416.   if Name = mtTitle then
  1417.   begin
  1418.     MCISendString(pchar('stop "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  1419.     MCISendString(pchar('close "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  1420.   end;
  1421. end;
  1422.  
  1423. procedure TMainForm.OpenMusic(Name: TMusicTrack);
  1424. begin
  1425.   if Name = mtBoss then
  1426.     MCISendString(pchar('open "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  1427.   if Name = mtGame then
  1428.     MCISendString(pchar('open "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  1429.   if Name = mtScene then
  1430.     MCISendString(pchar('open "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  1431.   if Name = mtTitle then
  1432.     MCISendString(pchar('open "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  1433. end;
  1434.  
  1435. procedure TMainForm.PauseMusic(Name: TMusicTrack);
  1436. begin
  1437.   if not OptionMusic.checked then exit;
  1438.   if Name = mtBoss then
  1439.     MCISendString(pchar('stop "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  1440.   if Name = mtGame then
  1441.     MCISendString(pchar('stop "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  1442.   if Name = mtScene then
  1443.     MCISendString(pchar('stop "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  1444.   if Name = mtTitle then
  1445.     MCISendString(pchar('stop "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  1446. end;
  1447.  
  1448. procedure TMainForm.DXDrawInitializing(Sender: TObject);
  1449. begin
  1450.   if doFullScreen in DXDraw.Options then
  1451.   begin
  1452.     BorderStyle := bsNone;
  1453.     DXDraw.Cursor := crNone;
  1454.   end else
  1455.   begin
  1456.     BorderStyle := bsSingle;
  1457.     DXDraw.Cursor := crDefault;
  1458.   end;
  1459. end;
  1460.  
  1461. procedure TMainForm.DXDrawInitialize(Sender: TObject);
  1462. begin
  1463.   DXTimer.Enabled := True;
  1464. end;
  1465.  
  1466. procedure TMainForm.DXDrawFinalize(Sender: TObject);
  1467. begin
  1468.   DXTimer.Enabled := False;
  1469. end;
  1470.  
  1471. var
  1472.   ProgrammGestartet: boolean;
  1473.  
  1474. procedure TMainForm.DXTimerActivate(Sender: TObject);
  1475. begin
  1476.   Caption := Application.Title;
  1477.   if not ProgrammGestartet then
  1478.   begin
  1479.     Programmgestartet := true;
  1480.     exit;
  1481.   end;
  1482.   ResumeMusic(FMusic);
  1483. end;
  1484.  
  1485. procedure TMainForm.DXTimerDeactivate(Sender: TObject);
  1486. begin
  1487.   Caption := Application.Title + ' [Pause]';
  1488.   PauseMusic(FMusic);
  1489. end;
  1490.  
  1491. function TMainForm.StatusMusic(Name: TMusicTrack): string;
  1492. var
  1493.   MCIStatus: array[0..255] of char;
  1494. begin
  1495.   if not OptionMusic.checked then exit;
  1496.   if FMusic = mtGame then
  1497.     MCISendString(pchar('status "'+FDirectory+'Musik\Game.mid" mode'), MCIStatus, 255, 0);
  1498.   if FMusic = mtBoss then
  1499.     MCISendString(pchar('status "'+FDirectory+'Musik\Boss.mid" mode'), MCIStatus, 255, 0);
  1500.   if FMusic = mtScene then
  1501.     MCISendString(pchar('status "'+FDirectory+'Musik\Scene.mid" mode'), MCIStatus, 255, 0);
  1502.   if FMusic = mtTitle then
  1503.     MCISendString(pchar('status "'+FDirectory+'Musik\Title.mid" mode'), MCIStatus, 255, 0);
  1504.   result := MCIStatus;
  1505. end;
  1506.  
  1507. procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
  1508. begin
  1509.   if StatusMusic(FMusic) = 'stopped' then
  1510.     PlayMusic(FMusic); {...}
  1511.   if crash then
  1512.   begin
  1513.     inc(Crash2);
  1514.     if crash2=30 then
  1515.     begin
  1516.       Crash2 := 0;
  1517.       crash := false;
  1518.       crashsound := false;
  1519.     end;
  1520.   end;
  1521.   if not DXDraw.CanDraw then exit;
  1522.   DXInput.Update;
  1523.   case FScene of
  1524.     gsTitle   : SceneTitle;
  1525.     gsMain    : SceneMain;
  1526.     gsGameOver: SceneGameOver;
  1527.     gsWin     : SceneWin;
  1528.     gsNewLevel: SceneNewLevel;
  1529.   end;
  1530.   if FNextScene<>gsNone then
  1531.   begin
  1532.     StartScene(FNextScene);
  1533.     FNextScene := gsNone;
  1534.   end;
  1535.   DXDraw.Flip;
  1536. end;
  1537.  
  1538. procedure TMainForm.BlinkStart;
  1539. begin
  1540.   FBlink := 0;
  1541.   FBlinkTime := GetTickCount;
  1542. end;
  1543.  
  1544. procedure TMainForm.WriteOptions;
  1545. var
  1546.   INIDatei: TIniFile;
  1547. begin
  1548.   INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  1549.   if OptionMusic.checked then INIDatei.WriteBool('Settings', 'Music', true)
  1550.     else INIDatei.WriteBool('Settings', 'Music', false);
  1551.   if OptionSound.checked then INIDatei.WriteBool('Settings', 'Sound', true)
  1552.     else INIDatei.WriteBool('Settings', 'Sound', false);
  1553.   if OptionFullScreen.checked then INIDatei.WriteBool('Settings', 'FullScreen', true)
  1554.     else INIDatei.WriteBool('Settings', 'FullScreen', false);
  1555.   if OptionBreitbild.checked then INIDatei.WriteBool('Settings', 'ScreenAutoSize', true)
  1556.     else INIDatei.WriteBool('Settings', 'ScreenAutoSize', false);
  1557.   if FInterval = giLeicht then INIDatei.WriteInteger('Settings', 'Speed', 1);
  1558.   if FInterval = giMittel then INIDatei.WriteInteger('Settings', 'Speed', 2);
  1559.   if FInterval = giSchwer then INIDatei.WriteInteger('Settings', 'Speed', 3);
  1560.   INIDatei.Free;
  1561. end;
  1562.  
  1563. procedure TMainForm.LoadOptions;
  1564. var
  1565.   INIDatei: TIniFile;
  1566. begin
  1567.   INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  1568.   optionmusic.checked := INIDatei.ReadBool('Settings', 'Music', true);
  1569.   optionsound.checked := INIDatei.ReadBool('Settings', 'Sound', true);
  1570.   optionfullscreen.checked := INIDatei.ReadBool('Settings', 'fullscreen', false);
  1571.   OptionBreitBild.checked := INIDatei.ReadBool('Settings', 'ScreenAutoSize', true);
  1572.   if INIDatei.ReadInteger('Settings', 'Speed', 2) = 1 then
  1573.   begin
  1574.     FInterval := giLeicht;
  1575.     Leicht.checked := true;
  1576.   end;
  1577.   if INIDatei.ReadInteger('Settings', 'Speed', 2) = 2 then
  1578.   begin
  1579.     FInterval := giMittel;
  1580.     Mittel.checked := true;
  1581.   end;
  1582.   if INIDatei.ReadInteger('Settings', 'Speed', 2) = 3 then
  1583.   begin
  1584.     FInterval := giSchwer;
  1585.     Schwer.checked := true;
  1586.   end;
  1587.   INIDatei.Free;
  1588.   WriteOptions;
  1589. end;
  1590.  
  1591. procedure TMainForm.BlinkUpdate;
  1592. begin
  1593.   if GetTickCount<>FBlinkTime then
  1594.   begin
  1595.     FBlink := FBlink + (GetTickCount-FBlinkTime);
  1596.     FBlinkTime := GetTickCount;
  1597.   end;
  1598. end;
  1599.  
  1600. procedure TMainForm.PlaySound(Name: string; Wait: Boolean);
  1601. begin
  1602.   if (OptionSound.Checked) and (OptionSound.Enabled) then
  1603.     WaveList.Items.Find(Name).Play(Wait);
  1604. end;
  1605.  
  1606. procedure TMainForm.PlayMusic(Name: TMusicTrack);
  1607. begin
  1608.   if (not mainform.active) and (mainform.visible) then //1st Programmstart
  1609.     exit;
  1610.   if (OptionMusic.checked) and (OptionMusic.enabled) then
  1611.   begin
  1612.     DestroyMusic(FMusic);
  1613.     OpenMusic(Name);
  1614.     ResumeMusic(Name);
  1615.   end;
  1616.   FMusic := Name;
  1617. end;
  1618.  
  1619. function TMainForm.ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
  1620. begin
  1621.   with Result do
  1622.   begin
  1623.     rgbRed := Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div 256);
  1624.     rgbGreen := Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div 256);
  1625.     rgbBlue := Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div 256);
  1626.     rgbReserved := 0;
  1627.   end;
  1628. end;
  1629.  
  1630. procedure TMainForm.PalleteAnim(Col: TRGBQuad; Time: Integer);
  1631. var
  1632.   i: Integer;
  1633.   t, t2: DWORD;
  1634.   ChangePalette: Boolean;
  1635.   c: Integer;
  1636. begin
  1637.   if DXDraw.Initialized then
  1638.   begin
  1639.     c := DXDraw.Surface.ColorMatch(RGB(Col.rgbRed, Col.rgbGreen, Col.rgbBlue));
  1640.     ChangePalette := False;
  1641.     if DXDraw.CanPaletteAnimation then
  1642.     begin
  1643.       t := GetTickCount;
  1644.       while Abs(GetTickCount-t)<Time do
  1645.       begin
  1646.         t2 := Trunc(Abs(GetTickCount-t)/Time*255);
  1647.         for i := 0 to 255 do
  1648.           DXDraw.ColorTable[i] := ComposeColor(Col, DXDraw.DefColorTable[i], t2);
  1649.         DXDraw.UpdatePalette;
  1650.         ChangePalette := True;
  1651.       end;
  1652.     end else
  1653.       Sleep(Time);
  1654.     for i := 0 to 4 do
  1655.     begin
  1656.       DXDraw.Surface.Fill(c);
  1657.       DXDraw.Flip;
  1658.     end;
  1659.     if ChangePalette then
  1660.     begin
  1661.       DXDraw.ColorTable := DXDraw.DefColorTable;
  1662.       DXDraw.UpdatePalette;
  1663.     end;
  1664.     DXDraw.Surface.Fill(c);
  1665.     DXDraw.Flip;
  1666.   end;
  1667. end;
  1668.  
  1669. procedure TMainForm.StartScene(Scene: TGameScene);
  1670. begin
  1671.   EndScene;
  1672.   DXInput.States := DXInput.States - DXInputButton;
  1673.   FScene := Scene;
  1674.   BlinkStart;
  1675.   case FScene of
  1676.     gsTitle   : StartSceneTitle;
  1677.     gsMain    : StartSceneMain;
  1678.     gsGameOver: StartSceneGameOver;
  1679.     gsWin     : StartSceneWin;
  1680.     gsNewLevel: StartSceneNewLevel;
  1681.   end;
  1682. end;
  1683.  
  1684. procedure TMainForm.StartSceneTitle;
  1685. begin
  1686.   sleep(500);
  1687.   FCheat := false;
  1688.   BossExists := false;
  1689.   FLife := Lives;
  1690.   FLevel := 0;
  1691.   FScore := 0;
  1692.   FNotSave := true;
  1693.   Cheat.enabled := false;
  1694.   Neustart.enabled := false;
  1695.   GamePause.enabled := false;
  1696.   GameStart.enabled := false;
  1697.   Spielgeschwindigkeit.enabled := false;
  1698.   mainform.Visible := true;
  1699.   PlayMusic(mtTitle);
  1700. end;
  1701.  
  1702. procedure TMainForm.StartSceneMain;
  1703. {var
  1704.   i, j: Integer;}
  1705. begin
  1706.   sleep(500);
  1707.   SpielerFliegtFort := false;
  1708.   FCounter := 0;
  1709.   NewLevel(FLevel);
  1710.   BossExists := false;
  1711.   PlayMusic(mtGame);
  1712.   FEnemyAdventPos := 1;
  1713.   FFrame := -4;
  1714.   TPlayerSprite.Create(SpriteEngine.Engine);
  1715.   with TBackground.Create(SpriteEngine.Engine) do
  1716.   begin
  1717.     SetMapSize(1, 1);
  1718.     Image := mainform.ImageList.Items.Find('Star3');
  1719.     Z := -13;
  1720.     Y := 40;
  1721.     FSpeed := 1 / 2;
  1722.     Tile := True;
  1723.   end;
  1724.   with TBackground.Create(SpriteEngine.Engine) do
  1725.   begin
  1726.     SetMapSize(1, 1);
  1727.     Image := mainform.ImageList.Items.Find('Star2');
  1728.     Z := -12;
  1729.     Y := 30;
  1730.     FSpeed := 1;
  1731.     Tile := True;
  1732.   end;
  1733.   with TBackground.Create(SpriteEngine.Engine) do
  1734.   begin
  1735.     SetMapSize(1, 1);
  1736.     Image := mainform.ImageList.Items.Find('Star1');
  1737.     Z := -11;
  1738.     Y := 10;
  1739.     FSpeed := 2;
  1740.     Tile := True;
  1741.   end;
  1742.   {with TBackground.Create(SpriteEngine.Engine) do
  1743.   begin
  1744.     SetMapSize(200, 10);
  1745.     Y := 10;
  1746.     Z := -13;
  1747.     FSpeed := 1 / 2;
  1748.     Tile := True;
  1749.     for i := 0 to MapHeight-1 do
  1750.     begin
  1751.       for j := 0 to MapWidth-1 do
  1752.       begin
  1753.         Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 8);
  1754.         if Random(100)<95 then Chips[j, i] := -1;
  1755.       end;
  1756.     end;
  1757.   end;
  1758.   with TBackground.Create(SpriteEngine.Engine) do
  1759.   begin
  1760.     SetMapSize(200, 10);
  1761.     Y := 30;
  1762.     Z := -12;
  1763.     FSpeed := 1;
  1764.     Tile := True;
  1765.     for i := 0 to MapHeight-1 do
  1766.     begin
  1767.       for j := 0 to MapWidth-1 do
  1768.       begin
  1769.         Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 4);
  1770.         if Random(100)<95 then Chips[j, i] := -1;
  1771.       end;
  1772.     end;
  1773.   end;
  1774.   with TBackground.Create(SpriteEngine.Engine) do
  1775.   begin
  1776.     SetMapSize(200, 10);
  1777.     Y := 40;
  1778.     Z := -11;
  1779.     FSpeed := 2;
  1780.     Tile := True;
  1781.     for i := 0 to MapHeight-1 do
  1782.     begin
  1783.       for j := 0 to MapWidth-1 do
  1784.       begin
  1785.         Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 2);
  1786.         if Random(100)<95 then Chips[j, i] := -1;
  1787.       end;
  1788.     end;
  1789.   end;}
  1790.   FNotSave := false;
  1791.   Cheat.enabled := true;
  1792.   Neustart.enabled := true;
  1793.   GamePause.enabled := true;
  1794.   GameStart.enabled := true;
  1795.   Spielgeschwindigkeit.enabled := true;
  1796. end;
  1797.  
  1798. procedure TMainForm.StartSceneGameOver;
  1799. begin
  1800.   sleep(500);
  1801.   FNotSave := true;
  1802.   Cheat.enabled := false;
  1803.   Spielgeschwindigkeit.enabled := false;
  1804.   Neustart.enabled := false;
  1805.   GamePause.enabled := false;
  1806.   PlayMusic(mtScene);
  1807.   BossExists := false;
  1808. end;
  1809.  
  1810. procedure TMainForm.StartSceneWin;
  1811. begin
  1812.   sleep(500);
  1813.   FNotSave := true;
  1814.   Cheat.enabled := false;
  1815.   Spielgeschwindigkeit.enabled := false;
  1816.   Neustart.enabled := false;
  1817.   GamePause.enabled := false;
  1818.   PlayMusic(mtScene);
  1819.   BossExists := false;
  1820. end;
  1821.  
  1822. procedure TMainForm.EndScene;
  1823. begin
  1824.   case FScene of
  1825.     gsTitle   : EndSceneTitle;
  1826.     gsMain    : EndSceneMain;
  1827.     gsGameOver: EndSceneGameOver;
  1828.     gsWin     : EndSceneWin;
  1829.     gsNewLevel: EndSceneNewLevel;
  1830.   end;
  1831. end;
  1832.  
  1833. procedure TMainForm.EndSceneTitle;
  1834. begin
  1835.   {  Ende Title  }
  1836. end;
  1837.  
  1838. procedure TMainForm.EndSceneMain;
  1839. begin
  1840.   SpriteEngine.Engine.Clear;
  1841. end;
  1842.  
  1843. procedure TMainForm.EndSceneGameOver;
  1844. begin
  1845.   {  Ende GameOver  }
  1846. end;
  1847.  
  1848. procedure TMainForm.EndSceneWin;
  1849. begin
  1850.   {  Ende Win  }
  1851. end;
  1852.  
  1853. procedure TMainForm.DeleteArray();
  1854. var
  1855.   i: integer;
  1856. begin
  1857.   for i := 1 to 9999 do
  1858.   begin
  1859.     EnemyAdventTable[i].c := tnoting;
  1860.     EnemyAdventTable[i].x := 0;
  1861.     EnemyAdventTable[i].y := 0;
  1862.     EnemyAdventTable[i].l := 0;
  1863.   end;
  1864.   FRestEnemys := 0;
  1865. end;
  1866.  
  1867. var
  1868.   levact: integer;
  1869.  
  1870. procedure TMainForm.NewLevel(lev: integer);
  1871. var
  1872.   act: integer;
  1873.   filex: textfile;
  1874.   ergebniss: string;
  1875. begin
  1876.   DeleteArray;
  1877.   if FMenuItem = 2 then
  1878.   begin
  1879.     enemys[1] := TEnemyAttacker;
  1880.     enemys[2] := TEnemyMeteor;
  1881.     enemys[3] := TEnemyUFO;
  1882.     enemys[4] := TEnemyAttacker;
  1883.     enemys[5] := TEnemyMeteor;
  1884.     enemys[6] := TEnemyUFO;
  1885.     enemys[7] := TEnemyAttacker;
  1886.     enemys[8] := TEnemyMeteor;
  1887.     enemys[9] := TEnemyUFO;
  1888.     enemys[10] := TEnemyAttacker;
  1889.     enemys[11] := TEnemyMeteor;
  1890.     enemys[12] := TEnemyUFO;
  1891.     enemys[13] := TEnemyAttacker;
  1892.     enemys[14] := TEnemyMeteor;
  1893.     enemys[15] := TEnemyUFO;
  1894.     enemys[16] := TEnemyAttacker3;
  1895.     enemys[17] := TEnemyAttacker;
  1896.     enemys[18] := TEnemyMeteor;
  1897.     enemys[19] := TEnemyUFO;
  1898.     enemys[20] := TEnemyUFO2;
  1899.     enemys[21] := TEnemyAttacker;
  1900.     enemys[22] := TEnemyMeteor;
  1901.     enemys[23] := TEnemyUFO;
  1902.     enemys[24] := TEnemyAttacker2;
  1903.     enemys[25] := TEnemyMeteor;
  1904.     enemys[26] := TEnemyUFO;
  1905.     enemys[27] := TEnemyAttacker;
  1906.     randomize;
  1907.     for act := 1 to lev*75-1 do
  1908.     begin
  1909.       inc(FRestEnemys);
  1910.       EnemyAdventTable[act].c := enemys[random(lev+2)+1];
  1911.       if EnemyAdventTable[act].c = TEnemyAttacker2 then EnemyAdventTable[act].c := enemys[random(lev+2)+1]; {O_o}
  1912.       EnemyAdventTable[act].x := act*30 + random(85-(lev+(random(lev))*2)){O_o};
  1913.       EnemyAdventTable[act].y := random(dxdraw.surfaceheight);
  1914.       if (EnemyAdventTable[act].c <> TEnemyMeteor) and (EnemyAdventTable[act].c <> TEnemyAttacker2) then EnemyAdventTable[act].l := random(lev)+1;
  1915.       if EnemyAdventTable[act].c = TEnemyAttacker2 then EnemyAdventTable[act].l := random(6)+1{O_o};
  1916.     end;
  1917.     EnemyAdventTable[lev*75].c := TEnemyBoss;
  1918.     EnemyAdventTable[lev*75].x := lev*75*30{O_o} div lev;
  1919.     EnemyAdventTable[lev*75].y := (dxdraw.surfaceheight div 2) - (MainForm.ImageList.Items.Find('Enemy-boss').height div 2);
  1920.     EnemyAdventTable[lev*75].l := lev*5;
  1921.     inc(FRestEnemys);
  1922.   end
  1923.   else
  1924.   begin
  1925.     enemys[1] := TEnemyAttacker;
  1926.     enemys[2] := TEnemyAttacker2;
  1927.     enemys[3] := TEnemyAttacker3;
  1928.     enemys[4] := TEnemyMeteor;
  1929.     enemys[5] := TEnemyUFO;
  1930.     enemys[6] := TEnemyUFO2;
  1931.     enemys[7] := TEnemyBoss;
  1932.     if fileexists(FDirectory+'Levels\Level '+inttostr(lev)+'.lev') then
  1933.     begin
  1934.       levact := 0;
  1935.       assignfile(filex, FDirectory+'Levels\Level '+inttostr(lev)+'.lev');
  1936.       reset(filex);
  1937.       while not seekEoF(filex) do
  1938.       begin
  1939.         if levact = 0 then
  1940.         begin
  1941.           readln(filex, ergebniss);
  1942.           if ergebniss <> '; SpaceMission '+FCompVersion then
  1943.           begin
  1944.             showmessage('Das Level '+inttostr(lev)+' ist ungültig!'+#13#10+'Das Programm wird beendet.');
  1945.             application.terminate;
  1946.             exit;
  1947.           end;
  1948.           readln(filex, ergebniss);
  1949.           if ergebniss <> '; LEV-File' then
  1950.           begin
  1951.             showmessage('Das Level '+inttostr(lev)+' ist ungültig!'+#13#10+'Das Programm wird beendet.');
  1952.             application.terminate;
  1953.             exit;
  1954.           end;
  1955.           readln(filex);
  1956.         end;
  1957.         inc(levact);
  1958.         readln(filex, ergebniss);
  1959.         if levact = 5 then levact := 1;
  1960.         if levact = 1 then
  1961.         begin
  1962.           inc(pos[levact]);
  1963.           inc(FRestEnemys);
  1964.           EnemyAdventTable[pos[levact]].c := enemys[strtoint(ergebniss)];
  1965.         end;
  1966.         if levact = 2 then
  1967.         begin
  1968.           inc(pos[levact]);
  1969.           EnemyAdventTable[pos[levact]].x := strtoint(ergebniss);
  1970.         end;
  1971.         if levact = 3 then
  1972.         begin
  1973.           inc(pos[levact]);
  1974.           EnemyAdventTable[pos[levact]].y := strtoint(ergebniss);
  1975.         end;
  1976.         if levact = 4 then
  1977.         begin
  1978.           inc(pos[levact]);
  1979.           EnemyAdventTable[pos[levact]].l := strtoint(ergebniss);
  1980.         end;
  1981.       end;
  1982.       closefile(filex);
  1983.     end;
  1984.   end;
  1985. end;
  1986.  
  1987. procedure TMainForm.SceneTitle;
  1988. var
  1989.   Logo: TPictureCollectionItem;
  1990. begin
  1991.   DXDraw.Surface.Fill(0);
  1992.   Logo := ImageList.Items.Find('Logo');
  1993.   {Logo.DrawWaveX(DXDraw.Surface, (dxdraw.surfaceWidth div 2) - 181, 65, Logo.Width, Logo.Height, 0,
  1994.     Trunc(16 - Cos256(FBlink div 60) * 16), 32, -FBlink div 5);}
  1995.   Logo.DrawWaveX(DXDraw.Surface, trunc((dxdraw.surfaceWidth / 2) - (Logo.Width / 2)), 65, Logo.Width, Logo.Height, 0,
  1996.     2, 80, Fangle * 4);
  1997.   inc(Fangle);
  1998.   with DXDraw.Surface.Canvas do
  1999.   begin
  2000.     if (isDown in MainForm.DXInput.States) and (FMenuItem=1) then FMenuItem := 2;
  2001.     if ((isUp in MainForm.DXInput.States) and (FMenuItem=2)) or (FMenuItem=0) then FMenuItem := 1;
  2002.     Brush.Style := bsClear;
  2003.     Font.Size := 30;
  2004.     if FMenuItem = 1 then
  2005.     begin
  2006.       Font.Color := clMaroon;
  2007.       Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-52, 'Normales Spiel');
  2008.       Textout((dxdraw.surfaceWidth div 2)-187, (dxdraw.surfaceheight div 2)-52, '>');
  2009.       Font.Color := clRed;
  2010.       Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2)-50, 'Normales Spiel');
  2011.       Textout((dxdraw.surfaceWidth div 2)-185, (dxdraw.surfaceheight div 2)-50, '>');
  2012.       Font.Color := clOlive;
  2013.       Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-2, 'Zufallslevel');
  2014.       Font.Color := clYellow;
  2015.       Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2), 'Zufallslevel');
  2016.     end
  2017.     else
  2018.     begin
  2019.       Font.Color := clOlive;
  2020.       Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-52, 'Normales Spiel');
  2021.       Font.Color := clYellow;
  2022.       Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2)-50, 'Normales Spiel');
  2023.       Font.Color := clMaroon;
  2024.       Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-2, 'Zufallslevel');
  2025.       Textout((dxdraw.surfaceWidth div 2)-187, (dxdraw.surfaceheight div 2)-2, '>');
  2026.       Font.Color := clRed;
  2027.       Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2), 'Zufallslevel');
  2028.       Textout((dxdraw.surfaceWidth div 2)-185, (dxdraw.surfaceheight div 2), '>');
  2029.     end;
  2030.     if (FBlink div 300) mod 2=0 then
  2031.     begin
  2032.       Font.Color := clGreen;
  2033.       Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
  2034.       Font.Color := clLime;
  2035.       Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
  2036.     end;
  2037.     BlinkUpdate;
  2038.     Release;
  2039.   end;
  2040.   if isButton1 in DXInput.States then
  2041.   begin
  2042.     FLevel := 1;
  2043.     if ((FMenuItem=1) and (fileexists(FDirectory+'Levels\Level '+inttostr(FLevel)+'.lev')=false)) or ((FMenuItem=2) and (FLevel > 20)) then
  2044.     begin
  2045.       //PlaySound('Frage', False);
  2046.       exit;
  2047.     end;
  2048.     NewLevel(FLevel);
  2049.     PlaySound('SceneMov', False);
  2050.     PalleteAnim(RGBQuad(0, 0, 0), 300);
  2051.     Sleep(200);
  2052.     StartScene(gsMain);
  2053.   end;
  2054. end;
  2055.  
  2056. procedure TMainForm.SceneMain;
  2057. var
  2058.   Enemy: TSprite;
  2059. begin
  2060.   if FInterval = giLeicht then SpriteEngine.Move(conleicht);
  2061.   if FInterval = giMittel then SpriteEngine.Move(conmittel);
  2062.   if FInterval = giSchwer then SpriteEngine.Move(conschwer);
  2063.   SpriteEngine.Dead;
  2064.   while (Low(EnemyAdventTable)<=FEnemyAdventPos) and
  2065.     (FEnemyAdventPos<=High(EnemyAdventTable)) and
  2066.     ((EnemyAdventTable[FEnemyAdventPos].x / 4)<=FFrame) and
  2067.     (FRestEnemys>0) do
  2068.   begin
  2069.     if EnemyAdventTable[FEnemyAdventPos].c <> TNoting then
  2070.     begin
  2071.       with EnemyAdventTable[FEnemyAdventPos] do
  2072.       begin
  2073.         Enemy := c.Create(SpriteEngine.Engine);
  2074.         Enemy.x := dxdraw.surfacewidth;
  2075.         //Enemy.y := y;
  2076.         if y <> 0 then Enemy.y := dxdraw.surfaceheight / (480{maximale Bandbreite im alten Format} / y)
  2077.           else Enemy.y := 0;
  2078.       end;
  2079.     end;
  2080.     Inc(FEnemyAdventPos);
  2081.   end;
  2082.   Inc(FFrame);
  2083.   DXDraw.Surface.Fill(0);
  2084.   if FNextScene=gsNone then
  2085.   begin
  2086.     SpriteEngine.Draw;
  2087.     if MainForm.flife > 0 then
  2088.     begin
  2089.       with DXDraw.Surface.Canvas do
  2090.       begin
  2091.         Brush.Style := bsClear;
  2092.         Font.Size := 20;
  2093.         Font.Color := clOlive;
  2094.         Textout(9, 9, 'Punkte: ' + FloatToStrF(FScore,ffNumber,14,0));
  2095.         Font.Color := clYellow;
  2096.         Textout(10, 10, 'Punkte: ' + FloatToStrF(FScore,ffNumber,14,0));
  2097.         Font.Color := clMaroon;
  2098.         Textout(dxdraw.surfacewidth-141, 9, 'Level: ' + IntToStr(MainForm.flevel));
  2099.         Font.Color := clRed;
  2100.         Textout(dxdraw.surfacewidth-140, 10, 'Level: ' + IntToStr(MainForm.flevel));
  2101.         if FLife<0 then mainform.FLife := 0;
  2102.         if FCheat then
  2103.         begin
  2104.           Font.Color := clPurple;
  2105.           Textout(9, dxdraw.surfaceheight-41, 'Leben: ?');
  2106.           Font.Color := clFuchsia;
  2107.           Textout(10, dxdraw.surfaceheight-40, 'Leben: ?');
  2108.         end
  2109.         else
  2110.         begin
  2111.           if ((Flife = 1) and ((FBlink div 300) mod 2=0)) or (Flife <> 1) then
  2112.           begin
  2113.             Font.Color := clPurple;
  2114.             Textout(9, dxdraw.surfaceheight-41, 'Leben: ' + IntToStr(MainForm.flife));
  2115.             Font.Color := clFuchsia;
  2116.             Textout(10, dxdraw.surfaceheight-40, 'Leben: ' + IntToStr(MainForm.flife));
  2117.           end;
  2118.           if Flife = 1 then BlinkUpdate;
  2119.         end;
  2120.         {if BossExists and (FBossLife>0) then
  2121.         begin
  2122.           Font.Color := clPurple;
  2123.           Textout(449, 439, 'Boss: ' + IntToStr(FBossLife));
  2124.           Font.Color := clFuchsia;
  2125.           Textout(450, 440, 'Boss: ' + IntToStr(FBossLife));
  2126.         end
  2127.         else
  2128.           if RestlicheEinheiten>0 then
  2129.           begin
  2130.             Font.Color := clPurple;
  2131.             Textout(449, 439, 'Einheiten: ' + IntToStr(RestlicheEinheiten));
  2132.             Font.Color := clFuchsia;
  2133.             Textout(450, 440, 'Einheiten: ' + IntToStr(RestlicheEinheiten));
  2134.           end;}
  2135.         if BossExists and (FBossLife>0) and (FRestEnemys>0) then
  2136.         begin
  2137.           Font.Color := clGreen;
  2138.           Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-81, 'Boss: ' + IntToStr(FBossLife));
  2139.           Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Einheiten: ' + IntToStr(FRestEnemys));
  2140.           Font.Color := clLime;
  2141.           Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-80, 'Boss: ' + IntToStr(FBossLife));
  2142.           Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemys));
  2143.         end;
  2144.         if BossExists and (FBossLife>0) and (FRestEnemys<1) then
  2145.         begin
  2146.           Font.Color := clGreen;
  2147.           Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Boss: ' + IntToStr(FBossLife));
  2148.           Font.Color := clLime;
  2149.           Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Boss: ' + IntToStr(FBossLife));
  2150.         end;
  2151.         if (FRestEnemys>0) and (Bossexists=false) then
  2152.         begin
  2153.           Font.Color := clGreen;
  2154.           Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Einheiten: ' + IntToStr(FRestEnemys));
  2155.           Font.Color := clLime;
  2156.           Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemys));
  2157.         end;
  2158.         Release;
  2159.       end;
  2160.     end
  2161.     else
  2162.     begin
  2163.       DXDraw.Surface.Canvas.Font.Color := clGreen;
  2164.       DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-251, dxdraw.surfaceheight-41, 'Mission gescheitert!');
  2165.       DXDraw.Surface.Canvas.Font.Color := clLime;
  2166.       DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-250, dxdraw.surfaceheight-40, 'Mission gescheitert!');
  2167.       DXDraw.Surface.Canvas.Release;
  2168.     end;
  2169.     if FRestEnemys<0 then FRestEnemys := 0; //Muss das sein?
  2170.     if (Ec=0) and (FRestEnemys=0){ and (SpielerFliegtFort = false)} then
  2171.     begin
  2172.       DXDraw.Surface.Canvas.Font.Color := clGreen;
  2173.       DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-251, dxdraw.surfaceheight-41, 'Mission erfolgreich!');
  2174.       DXDraw.Surface.Canvas.Font.Color := clLime;
  2175.       DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-250, dxdraw.surfaceheight-40, 'Mission erfolgreich!');
  2176.       DXDraw.Surface.Canvas.Release;
  2177.       Sleep(1);
  2178.       inc(FCounter);
  2179.       if FCounter>150{200} then SpielerFliegtFort := true;
  2180.     end;
  2181.   end;
  2182. end;
  2183.  
  2184. procedure TMainForm.SceneGameOver;
  2185. begin
  2186.   DXDraw.Surface.Fill(0);
  2187.   with DXDraw.Surface.Canvas do
  2188.   begin
  2189.     FNotSave := true;
  2190.     Cheat.enabled := false;
  2191.     GamePause.enabled := false;
  2192.     Neustart.enabled := false;
  2193.     Brush.Style := bsClear;
  2194.     Font.Size := 35;
  2195.     Font.Color := clMaroon;
  2196.     Textout((dxdraw.surfacewidth div 2)-127, 98, 'Verloren!');
  2197.     Font.Color := clRed;
  2198.     Textout((dxdraw.surfacewidth div 2)-125, 100, 'Verloren!');
  2199.     if (FBlink div 300) mod 2=0 then
  2200.     begin
  2201.       Font.Size := 30;
  2202.       Font.Color := clOlive;
  2203.       Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
  2204.       Font.Color := clYellow;
  2205.       Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
  2206.     end;
  2207.     BlinkUpdate;
  2208.     Release;
  2209.   end;
  2210.   if isButton1 in DXInput.States then
  2211.   begin
  2212.     PlaySound('SceneMov', False);
  2213.     PalleteAnim(RGBQuad(0, 0, 0), 300);
  2214.     Sleep(200);
  2215.     StartScene(gsTitle);
  2216.   end;
  2217. end;
  2218.  
  2219. procedure TMainForm.SceneWin;
  2220. begin
  2221.   DXDraw.Surface.Fill(0);
  2222.   with DXDraw.Surface.Canvas do
  2223.   begin
  2224.     FNotSave := true;
  2225.     Cheat.enabled := false;
  2226.     GamePause.enabled := false;
  2227.     Neustart.enabled := false;
  2228.     Brush.Style := bsClear;
  2229.     Font.Size := 35;
  2230.     Font.Color := clMaroon;
  2231.     Textout((dxdraw.surfaceWidth div 2)-127, 98, 'Gewonnen!');
  2232.     Font.Color := clRed;
  2233.     Textout((dxdraw.surfaceWidth div 2)-125, 100, 'Gewonnen!');
  2234.     if (FBlink div 300) mod 2=0 then
  2235.     begin
  2236.       Font.Size := 30;
  2237.       Font.Color := clOlive;
  2238.       Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
  2239.       Font.Color := clYellow;
  2240.       Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
  2241.     end;
  2242.     BlinkUpdate;
  2243.     Release;
  2244.   end;
  2245.   if isButton1 in DXInput.States then
  2246.   begin
  2247.     PlaySound('SceneMov', False);
  2248.     PalleteAnim(RGBQuad(0, 0, 0), 300);
  2249.     Sleep(200);
  2250.     StartScene(gsTitle);
  2251.   end;
  2252. end;
  2253.  
  2254. procedure TMainForm.StartSceneNewLevel;
  2255. begin
  2256.   sleep(500);
  2257.   FNotSave := false;
  2258.   Cheat.enabled := false;
  2259.   Neustart.enabled := false;
  2260.   GamePause.enabled := false;
  2261.   GameStart.enabled := true;
  2262.   Spielgeschwindigkeit.enabled := false;
  2263.   BossExists := false;
  2264.   Spielgeschwindigkeit.enabled := false;
  2265.   if ((FMenuItem=1) and (not fileexists(FDirectory+'Levels\Level '+inttostr(FLevel)+'.lev'))) or ((FMenuItem=2) and (FLevel > 25)) then
  2266.   begin
  2267.     //PlaySound('SceneMov', False);
  2268.     PalleteAnim(RGBQuad(0, 0, 0), 300);
  2269.     Sleep(200);
  2270.     StartScene(gsWin);
  2271.     exit;
  2272.   end;
  2273.   PlayMusic(mtScene);
  2274. end;
  2275.  
  2276. procedure TMainForm.EndSceneNewLevel;
  2277. begin
  2278.   {  Ende NewLevel  }
  2279. end;
  2280.  
  2281. procedure TMainForm.SceneNewLevel;
  2282. begin
  2283.   DXDraw.Surface.Fill(0);
  2284.   with DXDraw.Surface.Canvas do
  2285.   begin
  2286.     Brush.Style := bsClear;
  2287.     Font.Size := 40;
  2288.     Font.Color := clMaroon;
  2289.     Textout((dxdraw.surfaceWidth div 2)-(83+(length(inttostr(flevel))*22)), 98, 'Level '+inttostr(flevel));
  2290.     Font.Color := clRed;
  2291.     Textout((dxdraw.surfaceWidth div 2)-(81+(length(inttostr(flevel))*22)), 100, 'Level '+inttostr(flevel));
  2292.     if (FBlink div 300) mod 2=0 then
  2293.     begin
  2294.       Font.Size := 30;
  2295.       Font.Color := clOlive;
  2296.       Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
  2297.       Font.Color := clYellow;
  2298.       Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
  2299.     end;
  2300.     BlinkUpdate;
  2301.     Release;
  2302.   end;
  2303.   if isButton1 in DXInput.States then
  2304.   begin
  2305.     PlaySound('SceneMov', False);
  2306.     PalleteAnim(RGBQuad(0, 0, 0), 300);
  2307.     Sleep(200);
  2308.     StartScene(gsMain);
  2309.   end;
  2310. end;
  2311.  
  2312. procedure TMainForm.OptionMusicClick(Sender: TObject);
  2313. begin
  2314.   OptionMusic.Checked := not OptionMusic.Checked;
  2315.   if OptionMusic.Checked then PlayMusic(FMusic)
  2316.     else DestroyMusic(FMusic);
  2317.   WriteOptions;
  2318. end;
  2319.  
  2320. procedure TMainForm.MitarbeiterClick(Sender: TObject);
  2321. begin
  2322.   if not fileexists(mainform.fdirectory+'Texte\Mitwirkende.txt') then
  2323.   begin
  2324.     MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
  2325.       mtWarning, [mbOK], 0);
  2326.   end
  2327.   else
  2328.   begin
  2329.     TextForm.memo1.lines.loadfromfile(mainform.FDirectory+'Texte\Mitwirkende.txt');
  2330.     TextForm.showmodal;
  2331.   end;
  2332. end;
  2333.  
  2334. procedure TEnemyMeteor.DoMove(MoveCount: Integer);
  2335. begin
  2336.   X := X - MoveCount*(250/1000);
  2337.   if X < -Width then Dead;
  2338. end;
  2339.  
  2340. procedure TEnemyMeteor.HitEnemy(Deaded: Boolean);
  2341. begin
  2342.   if deaded then Collisioned := True;
  2343.   MainForm.PlaySound('Hit', False);
  2344. end;
  2345.  
  2346. {procedure TMainForm.StopMusic;
  2347. begin
  2348.   PauseMusic(FMusic);
  2349.   MCISendString(pchar('seek "'+FDirectory+'Musik\Boss.mid" to start'), nil, 255, 0);
  2350.   MCISendString(pchar('seek "'+FDirectory+'Musik\Game.mid" to start'), nil, 255, 0);
  2351.   MCISendString(pchar('seek "'+FDirectory+'Musik\Title.mid" to start'), nil, 255, 0);
  2352.   MCISendString(pchar('seek "'+FDirectory+'Musik\Scene.mid" to start'), nil, 255, 0);
  2353. end;}
  2354.  
  2355. procedure TMainForm.ResumeMusic(Name: TMusicTrack);
  2356. begin
  2357.   if not OptionMusic.checked then exit;
  2358.   if Name = mtBoss then
  2359.     MCISendString(pchar('play "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  2360.   if Name = mtGame then
  2361.     MCISendString(pchar('play "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  2362.   if Name = mtScene then
  2363.     MCISendString(pchar('play "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  2364.   if Name = mtTitle then
  2365.     MCISendString(pchar('play "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  2366. end;
  2367.  
  2368. constructor TEnemyMeteor.Create(AParent: TSprite);
  2369. begin
  2370.   inherited Create(AParent);
  2371.   Image := MainForm.ImageList.Items.Find('Enemy-Meteor');
  2372.   Width := Image.Width;
  2373.   Height := Image.Height;
  2374.   AnimCount := Image.PatternCount;
  2375.   AnimLooped := True;
  2376.   AnimSpeed := 15/1000;
  2377.   PixelCheck := True;
  2378. end;
  2379.  
  2380. procedure TMainForm.SpielstandClick(Sender: TObject);
  2381. begin
  2382.   speicherungform.showmodal;
  2383. end;
  2384.  
  2385. procedure TMainForm.NeustartClick(Sender: TObject);
  2386. begin
  2387.   FLife := Lives;
  2388.   FLevel := 1; // ???
  2389.   FScore := 0;
  2390.   ec := 0;
  2391.   StartScene(gsMain);
  2392.   PlayMusic(mtGame);
  2393. end;
  2394.  
  2395. procedure TMainForm.OptionBreitbildClick(Sender: TObject);
  2396. begin
  2397.   OptionBreitbild.Checked := not OptionBreitbild.Checked;
  2398.   DXInit;
  2399.   writeoptions;
  2400. end;
  2401.  
  2402. procedure TMainForm.LeichtClick(Sender: TObject);
  2403. begin
  2404.   leicht.checked := true;
  2405.   FInterval := giLeicht;
  2406.   writeoptions;
  2407. end;
  2408.  
  2409. procedure TMainForm.MittelClick(Sender: TObject);
  2410. begin
  2411.   mittel.checked := true;
  2412.   FInterval := giMittel;
  2413.   writeoptions;
  2414. end;
  2415.  
  2416. procedure TMainForm.SchwerClick(Sender: TObject);
  2417. begin
  2418.   schwer.checked := true;
  2419.   FInterval := giSchwer;
  2420.   writeoptions;
  2421. end;
  2422.  
  2423. procedure TMainForm.FormShow(Sender: TObject);
  2424. begin
  2425.   SplashForm.Hide;
  2426.   SplashForm.Free;
  2427.  
  2428.   dxtimer.Enabled := true;
  2429.   dxtimer.ActiveOnly := true;
  2430. end;
  2431.  
  2432. procedure TMainForm.InformationenClick(Sender: TObject);
  2433. begin
  2434.   InfoForm.showmodal;
  2435. end;
  2436.  
  2437. procedure TMainForm.CheatClick(Sender: TObject);
  2438. begin
  2439.   CheatForm.showmodal;
  2440. end;
  2441.  
  2442. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  2443. begin
  2444.   if optionMusic.checked then DestroyMusic(FMusic);
  2445.   SpriteEngine.Engine.Clear;
  2446.   dxsound.Finalize;
  2447.   dxinput.Destroy;
  2448.   DXTimer.Enabled := False;
  2449. end;
  2450.  
  2451. procedure TMainForm.FormDestroy(Sender: TObject);
  2452. begin
  2453.   versioninfo.free;
  2454.   imagelist.free;
  2455.   spriteengine.free;
  2456.   dxdraw.Free;
  2457.   wavelist.free;
  2458.   dxsound.free;
  2459.   //dxinput.free;
  2460.   dxtimer.Free;
  2461. end;
  2462.  
  2463. end.
  2464.  
  2465.