Subversion Repositories spacemission

Rev

Rev 37 | Rev 39 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

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