Subversion Repositories spacemission

Rev

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