Subversion Repositories spacemission

Rev

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