WebSVN – spacemission – Diff – /GamMain.pas


unit GamMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,
  StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, DXInput, DXSounds,
  INIFiles, ShellAPI, wininet{$IF CompilerVersion >= 23.0}, Winapi.DirectDraw,
  System.UITypes{$ELSE}, DirectX{$IFEND};
 
type
  TGameScene = (
    gsNone,
    gsTitle,
    gsMain,
    gsGameOver,
    gsNewLevel,
    gsWin
  );
 
  TGameInterval = (
    giMittel,
    giLeicht,
    giSchwer,
    giMaster
  );
 
  TMusicTrack = (
    mtNone,
    mtGame,
    mtBoss,
    mtScene,
    mtTitle
  );
 
  {TSoundFile = (
    sfNone,
    sfSceneMov,
    sfExplosion,
    sfHit,
    sfShoot,
    sfDanger,
    sfEnde,
    sfFrage,
    sfLevIntro
  );}
 
  TBackground = class(TBackgroundSprite)
  private
    FSpeed: Double;
  protected
    procedure DoMove(MoveCount: Integer); override;
  end;
 
  TBackgroundSpecial = class(TBackgroundSprite)
  private
    FSpeed: Double;
  protected
    procedure DoMove(MoveCount: Integer); override;
  end;
 
  TExplosion = class(TImageSprite)
  private
    FCounter: Integer;
  protected
    procedure DoMove(MoveCount: Integer); override;
  public
    constructor Create(AParent: TSprite); override;
  end;
 
  TPlayerSprite = class(TImageSprite)
  private
    FCounter: Integer;
    FMode: Integer;
    FTamaCount: Integer;
    FOldTamaTime: Integer;
  protected
    procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
    procedure DoMove(MoveCount: Integer); override;
  public
    constructor Create(AParent: TSprite); override;
    procedure FlyAway;
  end;
 
  TTamaSprite = class(TImageSprite)
  private
    FPlayerSprite: TPlayerSprite;
  protected
    procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
    procedure DoMove(MoveCount: Integer); override;
  public
    constructor Create(AParent: TSprite); override;
    destructor Destroy; override;
  end;
 
  TEnemyClass = class of TEnemy;
  TEnemy = class(TImageSprite)
  private
    FCounter: Integer;
    FLife: integer;
    FMode: Integer;
 
  protected
    procedure HitEnemy(ADead: Boolean); virtual;
  public
    procedure Hit(AHitStrength: integer = 1);
    constructor Create(AParent: TSprite; ALifes: integer); virtual;
    destructor Destroy; override;
  end;
 
  TEnemyTama = class(TImageSprite)
  private
    FPlayerSprite: TSprite;
  protected
    procedure DoMove(MoveCount: Integer); override;
  public
    constructor Create(AParent: TSprite); override;
  end;
 
  TEnemyMeteor = class(TEnemy)
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyUFO = class(TEnemy)
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyUFO2 = class(TEnemy)
  private
    FCounter: Integer;
    FTamaCount: Integer;
    FOldTamaTime: Integer;
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyAttacker = class(TEnemy)
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyAttacker2 = class(TEnemy)
  private
    FCounter: Integer;
    FTamaF: Integer;
    FTamaT: Integer;
    FPutTama: Boolean;
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyAttacker3 = class(TEnemy)
  private
    FCounter: Integer;
    FTamaCount: Integer;
    FOldTamaTime: Integer;
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
  TEnemyBoss = class(TEnemy)
  private
    FCounter: Integer;
    FTamaF: Integer;
    FTamaT: Integer;
    FPutTama: Boolean;
    waiter1, waiter2: integer;
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite; ALifes: integer); override;
  end;
 
 
 
 
 
  TEnemyAdvent = record
    spriteClass: TEnemyClass;
    x: extended;
    y: extended;
    lifes: integer;
  end;
 
  TMainForm = class(TDXForm)
    MainMenu: TMainMenu;
    Spiel: TMenuItem;
    GameStart: TMenuItem;
    GamePause: TMenuItem;
    Beenden: TMenuItem;
    Einstellungen: TMenuItem;
    OptionFullScreen: TMenuItem;
    OptionMusic: TMenuItem;
    Leer2: TMenuItem;
    Leer4: TMenuItem;
    Hilfe: TMenuItem;
    OptionSound: TMenuItem;
    Leer3: TMenuItem;
    Spielstand: TMenuItem;
    Leer5: TMenuItem;
    Neustart: TMenuItem;
    OptionBreitbild: TMenuItem;
    Spielgeschwindigkeit: TMenuItem;
    Leicht: TMenuItem;
    Mittel: TMenuItem;
    Schwer: TMenuItem;
    Informationen: TMenuItem;
    Leer6: TMenuItem;
    Leer1: TMenuItem;
    Cheat: TMenuItem;
    CheckUpdates: TMenuItem;
    Master: TMenuItem;
    procedure DXDrawFinalize(Sender: TObject);
    procedure DXDrawInitialize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
    procedure DXTimerActivate(Sender: TObject);
    procedure DXTimerDeactivate(Sender: TObject);
    procedure OptionFullScreenClick(Sender: TObject);
    procedure DXDrawInitializing(Sender: TObject);
    procedure GameStartClick(Sender: TObject);
    procedure GamePauseClick(Sender: TObject);
    procedure BeendenClick(Sender: TObject);
    procedure OptionSoundClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure OptionMusicClick(Sender: TObject);
    procedure SpielstandClick(Sender: TObject);
    procedure NeustartClick(Sender: TObject);
    procedure OptionBreitbildClick(Sender: TObject);
    procedure LeichtClick(Sender: TObject);
    procedure MittelClick(Sender: TObject);
    procedure SchwerClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure InformationenClick(Sender: TObject);
    procedure CheatClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure CheckUpdatesClick(Sender: TObject);
    procedure MasterClick(Sender: TObject);
  private
    ProgrammGestartet: boolean;
    FInterval: TGameInterval;
    FScene: TGameScene;
    FMusic: TMusicTrack;
    FBlink: DWORD;
    FBlinkTime: DWORD;
    FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;
    PlayerSprite: TPlayerSprite;
    TimerCS: TRTLCriticalSection;
    procedure StartScene(Scene: TGameScene);
    procedure EndScene;
    procedure BlinkStart;
    procedure BlinkUpdate;
    procedure StartSceneTitle;
    procedure SceneTitle;
    procedure EndSceneTitle;
    procedure StartSceneMain;
    procedure SceneMain;
    procedure EndSceneMain;
    procedure StartSceneGameOver;
    procedure SceneGameOver;
    procedure EndSceneGameOver;
    procedure StartSceneWin;
    procedure SceneWin;
    procedure EndSceneWin;
    procedure StartSceneNewLevel;
    procedure SceneNewLevel;
    procedure EndSceneNewLevel;
  public
    FNextScene: TGameScene;
    FScore: Integer;
    FNotSave: boolean;
    FLife: integer;
    FLevel: integer;
    FMenuItem: integer;
    FBossLife: integer;
    FRestEnemies: integer;
    FCheat: boolean;
    { VCL-Ersatz }
    dxdraw: TDxDraw;
    imagelist: TDxImageList;
    spriteengine: tdxspriteengine;
    dxsound: tdxsound;
    wavelist: tdxwavelist;
    dxinput: tdxinput;
    dxtimer: tdxtimer;
    { Level-Routinen }
    procedure NewLevel(lev: integer);
    procedure DeleteArray;
    { MCI-Routinen }
    function StatusMusic(Name: TMusicTrack): string;
    procedure PlayMusic(Name: TMusicTrack);
    //procedure StopMusic(Name: TMusicTrack);
    procedure PauseMusic(Name: TMusicTrack);
    procedure ResumeMusic(Name: TMusicTrack);
    procedure DestroyMusic(Name: TMusicTrack);
    procedure OpenMusic(Name: TMusicTrack);
    { Sound-Routinen }
    function SoundKarte: boolean;
    procedure PlaySound(Name: string; Wait: Boolean);
    { Initialisiations-Routinen }
    procedure DXInit;
    procedure SoundInit;
    procedure MusicInit;
    { Einstellungs-Routinen }
    procedure LoadOptions;
    procedure WriteOptions;
    { Farb-Routinen }
    function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
    procedure PalleteAnim(Col: TRGBQuad; Time: Integer);
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
uses
  GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;
 
const
  // TODO: ini file
  conleicht = 650 div 60; // 10
  conmittel = 1000 div 60; // 16
  conschwer = 1350 div 60; // 22
  conmaster = 2000 div 60; // 33
  lives = 6;
 
  // TODO: Auch für Enemies
  PLAYER_MODE_NORMAL = 0;
  PLAYER_MODE_DEAD = 1;
  PLAYER_MODE_DEAD_VANISHED = 2;
  PLAYER_MODE_FLYAWAY = 3;
  PLAYER_MODE_ENTER = 4;
 
 
  DEFAULT_ANIMSPEED = 15/1000;
 
resourcestring
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 
{$R *.DFM}
 
var // TODO: irgendwo hinpacken. irgendwo!!!
  EnemyAdventTable: array of TEnemyAdvent;
  Crash2, EnemyCounter: integer;
  BossExists, Crash, crashsound: boolean;
 
 
 
 
const
  DXInputButton = [isButton1, isButton2, isButton3,
    isButton4, isButton5, isButton6, isButton7, isButton8, isButton9, isButton10, isButton11,
    isButton12, isButton13, isButton14, isButton15, isButton16, isButton17, isButton18,
    isButton19, isButton20, isButton21, isButton22, isButton23, isButton24, isButton25,
    isButton26, isButton27, isButton28, isButton29, isButton30, isButton31, isButton32];
 
 
 
 
 
 
 
 
 
 
// TODO: Code komplett überarbeiten. Bessere Ableitungen machen
 
constructor TPlayerSprite.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Machine');
  Width := Image.Width;
  Height := Image.Height;
  X := -70{20};
  Y := mainform.dxdraw.surfaceHeight / 2 - (height / 2);
  Z := 2;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  FMode := PLAYER_MODE_ENTER;
end;
 
procedure TPlayerSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  if mainform.FCheat then exit;
  if (Sprite is TEnemy) or (Sprite is TEnemyTama) then
  begin
    if not crash then
    begin
      dec(MainForm.FLife);
      Crash := true;
      if MainForm.Flife=0 then
      begin
        MainForm.PlaySound('Explosion', false);
        Collisioned := false;
        FCounter := 0;
        FMode := PLAYER_MODE_DEAD;
        Done := false;
        Image := MainForm.ImageList.Items.Find('Explosion');
        Width := Image.Width;
        Height := Image.Height;
        AnimCount := Image.PatternCount;
        AnimLooped := False;
        AnimSpeed := DEFAULT_ANIMSPEED;
        AnimPos := 0;
      end;
    end
    else
    begin
      if not crashsound then
      begin
        MainForm.PlaySound('Hit', False);
        crashsound := true;
      end;
    end;
  end;
end;
 
procedure TPlayerSprite.DoMove(MoveCount: Integer);
const
  WegduesKonstante = 1.75;
begin
  inherited DoMove(MoveCount);
  if FMode=PLAYER_MODE_NORMAL then
  begin
    if isUp in MainForm.DXInput.States then Y := Y - (250/1000)*MoveCount;
    if isDown in MainForm.DXInput.States then Y := Y + (250/1000)*MoveCount;
    if isLeft in MainForm.DXInput.States then X := X - (250/1000)*MoveCount;
    if isRight in MainForm.DXInput.States then X := X + (250/1000)*MoveCount;
    if X<0 then X := 0;
    if X>mainform.dxdraw.surfacewidth-Width then X := mainform.dxdraw.surfacewidth-Width;
    if Y<0 then Y := 0;
    if Y>mainform.dxdraw.surfaceheight-Height then Y := mainform.dxdraw.surfaceheight-Height;
    if isButton1 in MainForm.DXInput.States then
    begin
      if (FTamaCount<8) and (FCounter-FOldTamaTime>=100) then
      begin
        Inc(FTamaCount);
        with TTamaSprite.Create(Engine) do
        begin
          FPlayerSprite := Self;
          X := Self.X+Self.Width;
          Y := Self.Y+Self.Height div 2-Height div 2;
          Z := 10;
        end;
        FOldTamaTime := FCounter;
      end;
    end;
    Collision;
  end
  else if FMode=PLAYER_MODE_DEAD then
  begin
    if FCounter>200 then
    begin
      FCounter := 0;
      FMode := PLAYER_MODE_DEAD_VANISHED;
      Visible := false;
    end;
  end
  else if FMode=PLAYER_MODE_DEAD_VANISHED then
  begin
    if FCounter>1500 then
    begin
      MainForm.FNextScene := gsGameOver;
      MainForm.PlaySound('SceneMov', false);
      MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
      Sleep(200);
    end;
  end
  else if FMode=PLAYER_MODE_FLYAWAY then
  begin
    // FUT: "Wusch" sound?
    X := X + MoveCount*(300/1000) * (X/MainForm.DXDraw.Width + WegduesKonstante);
    if X > MainForm.DXDraw.Width+Width then
    begin
      Dead;
      inc(mainform.FLevel);
      MainForm.FNextScene := gsNewLevel;
      MainForm.PlaySound('SceneMov', false);
      MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
    end;
  end
  else if FMode = PLAYER_MODE_ENTER then
  begin
    X := X + MoveCount*(300/1000);
    if X > 19 then FMode := PLAYER_MODE_NORMAL;
  end;
  inc(FCounter, MoveCount);
end;
 
procedure TPlayerSprite.FlyAway;
begin
  FMode := PLAYER_MODE_FLYAWAY;
end;
 
procedure TMainForm.DXInit;
begin
  try
    Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg');
    ImageList.Items.MakeColorTable;
    DXDraw.ColorTable := ImageList.Items.ColorTable;
    DXDraw.DefColorTable := ImageList.Items.ColorTable;
    DXDraw.UpdatePalette;
    OptionBreitBild.enabled := OptionFullScreen.checked;
    DXDraw.Finalize;
    if OptionFullScreen.Checked then
    begin
      if not (doFullScreen in DXDraw.Options) then StoreWindow;
      DXDraw.Options := DXDraw.Options + [doFullScreen];
    end
    else
    begin
      if doFullScreen in DXDraw.Options then RestoreWindow;
      DXDraw.Options := DXDraw.Options - [doFullScreen];
    end;
    if not OptionBreitBild.checked then
    begin
      dxdraw.autosize := false;
      dxdraw.Top := 0;
      dxdraw.Left := 0;
      dxdraw.width := 640;    // TODO: besser die dimensionen des fensters
      dxdraw.height := 480;
      dxdraw.surfacewidth := 640;
      dxdraw.surfaceheight := 480;
    end
    else dxdraw.autosize := true;
    DXDraw.Initialize;
  except
    //Imagelist.Items.clear;
    //application.terminate;
  end;
end;
 
constructor TTamaSprite.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Bounce');
  Z := 2;
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  MainForm.PlaySound('Shoot', False);
end;
 
destructor TTamaSprite.Destroy;
begin
  inherited Destroy;
  Dec(FPlayerSprite.FTamaCount);
end;
 
procedure TTamaSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  if (Sprite is TEnemy) and not (Sprite is TEnemyTama) then
  begin
    TEnemy(Sprite).Hit;
    Dead;
  end;
  Done := False;
end;
 
procedure TTamaSprite.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  X := X+(800/1000)*MoveCount;
  if X>=mainform.dxdraw.surfacewidth then Dead;
  Collision;
end;
 
procedure TBackground.DoMove(MoveCount: Integer);
var
  ran: integer;
begin
  inherited DoMove(MoveCount);
  X := X - MoveCount*(60/1000)*FSpeed;
  randomize;
  ran := Random(1500);
  if ran = 150 then
  begin
    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
    begin
      SetMapSize(1, 1);
      Image := mainform.ImageList.Items.Find('Background-Planet1');
      Width := Image.Width;
      Height := Image.Height;
 
      Y := random(mainform.dxdraw.height);
      X := mainform.dxdraw.width;
 
      ran := Random(2);
      if ran = 0 then
      begin
        Z := -20;
        FSpeed := 1.8;
      end
      else if ran = 1 then
      begin
        Z := -40;
        FSpeed := 0.8;
      end
      else if ran = 2 then
      begin
        Z := -60;
        FSpeed := 0.3;
      end;
    end;
  end
  else if ran = 500 then
  begin
    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
    begin
      SetMapSize(1, 1);
      ran := Random(4);
      if ran = 0 then
        Image := mainform.ImageList.Items.Find('Background-Red')
      else if ran = 1 then
        Image := mainform.ImageList.Items.Find('Background-Blue')
      else if ran = 2 then
        Image := mainform.ImageList.Items.Find('Background-Yellow')
      else if ran = 3 then
        Image := mainform.ImageList.Items.Find('Hintergrund-Rot');
      Width := Image.Width;
      Height := Image.Height;
 
      Y := random(mainform.dxdraw.height);
      X := mainform.dxdraw.width;
 
      { ran := Random(2);
      if ran = 0 then
      begin
        Z := -20;
        FSpeed := 1.8;
      end
      else if ran = 1 then
      begin
        Z := -40;
        FSpeed := 0.8;
      end
      else if ran = 2 then
      begin }
        Z := -60;
        FSpeed := 0.3;
      { end; }
    end;
  end;
end;
 
procedure TBackgroundSpecial.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  X := X - MoveCount*(60/1000)*FSpeed;
  if X<-Width then Dead;
end;
 
constructor TExplosion.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  mainform.PlaySound('Explosion', false);
  Image := MainForm.ImageList.Items.Find('Explosion');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  AnimPos := Random(AnimCount);
end;
 
procedure TExplosion.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  inc(FCounter, MoveCount);
  if FCounter > 2999 then dead;
end;
 
constructor TEnemyTama.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Bounce2');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  MainForm.PlaySound('Shoot', False);
end;
 
procedure TEnemyTama.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  X := X - MoveCount*(600/1000);
  if X<-Width then Dead;
end;
 
procedure TEnemy.Hit(AHitStrength: integer = 1);
begin
  Dec(FLife, AHitStrength);
  if FLife<=0 then
  begin
    Collisioned := False;
    HitEnemy(True);
  end
  else
    HitEnemy(False);
end;
 
procedure TEnemy.HitEnemy(ADead: Boolean);
begin
  if ADead then
    MainForm.PlaySound('Explosion', False)
  else
    MainForm.PlaySound('Hit', False);
end;
 
constructor TEnemyUFO.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-disk');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
 
end;
 
constructor TEnemy.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent);
  FLife := ALifes;
  inc(EnemyCounter);
end;
 
destructor TEnemy.Destroy;
begin
  inherited Destroy;
  dec(EnemyCounter);
end;
 
procedure TEnemyUFO.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 1000);
    Image := MainForm.ImageList.Items.Find('Explosion');
    Width := Image.Width;
    Height := Image.Height;
    AnimCount := Image.PatternCount;
    AnimLooped := False;
    AnimSpeed := DEFAULT_ANIMSPEED;
    AnimPos := 0;
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
  end;
end;
 
procedure TEnemyUFO2.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    X := X - MoveCount*(300/1000);
    Y := Y + Cos256(FCounter div 15)*2;
    if X<-Width then Dead;
    if FCounter-FOldTamaTime>=100 then
    begin
      Inc(FTamaCount);
      with TEnemyTama.Create(Engine) do
      begin
        FPlayerSprite := Self;
        X := Self.X;
        Y := Self.Y+Self.Height div 2-Height div 2;
        Z := 10;
      end;
      FOldTamaTime := FCounter;
    end;
  end
  else if FMode=2 then
  begin
    X := X - MoveCount*(300/1000);
    if FCounter>200 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
procedure TEnemyUFO2.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 1000);
    Image := MainForm.ImageList.Items.Find('Explosion');
    Width := Image.Width;
    Height := Image.Height;
    AnimCount := Image.PatternCount;
    AnimLooped := False;
    AnimSpeed := DEFAULT_ANIMSPEED;
    AnimPos := 0;
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
  end;
end;
 
constructor TEnemyUFO2.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-disk2');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
 
end;
 
procedure TEnemyUFO.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    X := X - MoveCount*(300/1000);
    Y := Y + Cos256(FCounter div 15)*2;
    if X<-Width then Dead;
  end
  else if FMode=2 then
  begin
    X := X - MoveCount*(300/1000);
    if FCounter>200 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
constructor TEnemyAttacker.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
 
end;
 
procedure TEnemyAttacker.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 1000);
    Image := MainForm.ImageList.Items.Find('Explosion');
    Width := Image.Width;
    Height := Image.Height;
    AnimCount := Image.PatternCount;
    AnimLooped := False;
    AnimSpeed := DEFAULT_ANIMSPEED;
    AnimPos := 0;
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
  end;
end;
 
procedure TEnemyAttacker.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    X := X - MoveCount*(300/1000)-FCounter div 128;
    if X < -Width then Dead;
  end
  else if FMode=2 then
  begin
    X := X - MoveCount*(300/1000);
    if FCounter>200 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
constructor TEnemyBoss.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-boss');
  Width := Image.Width;
  Height := Image.Height;
  BossExists := true;
  MainForm.PlayMusic(mtBoss);
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
  Collisioned := False;
 
  MainForm.FBossLife := FLife;
  waiter1 := 0;
  waiter2 := 0;
end;
 
procedure TEnemyBoss.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 100000);
    BossExists := false;
    dec(MainForm.FBossLife);
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
    dec(MainForm.FBossLife);
  end;
end;
 
procedure TEnemyBoss.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/4)){450} then
      X := X - MoveCount*(300/1000)
    else
    begin
      Collisioned := True;
      FMode := 1;
      FPutTama := True;
    end;
    Y := Y + Cos256(FCounter div 15)*5;
  end
  else if FMode=1 then
  begin
    Y := Y + Cos256(FCounter div 15)*5;
    if FPutTama then
    begin
      if FTamaT>100 then
      begin
        with TEnemyTama.Create(Engine) do
        begin
          FPlayerSprite := Self;
          Z := 1;
          X := Self.X-Width;
          Y := Self.Y+Self.Height div 2-Height div 2;
        end;
        Inc(FTamaF);
        if FTamaF>Random(30) then FPutTama := False;
        FTamaT := 0;
      end;
      FTamaT := FTamaT + MoveCount;
    end
    else
    begin
      FTamaT := FTamaT + MoveCount;
      if FTamaT>2000+Random(500) then
      begin
        FPutTama := True;
        FTamaF := 0;
        FTamaT := 0;
      end;
    end;
  end
  else if FMode=2 then
  begin
    inc(waiter1);
    if waiter1 = 3 then
    begin
      waiter1 := 0;
      inc(waiter2);
      if waiter2 <= 20 then
      begin
        with TExplosion.Create(Engine) do
        begin
          Z := 10;
          X := Self.X+Random(Self.Width)-16;
          Y := Self.Y+Random(Self.Height)-16;
        end;
      end
      else
      begin
        Inc(MainForm.FScore, 1000);
        FMode := 3;
      end;
    end;
  end
  else if FMode=3 then
  begin
    if FCounter>4000 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
constructor TEnemyAttacker2.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker2');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
 
end;
 
procedure TEnemyAttacker2.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 5000);
    Image := MainForm.ImageList.Items.Find('Explosion');
    Width := Image.Width;
    Height := Image.Height;
    AnimCount := Image.PatternCount;
    AnimLooped := False;
    AnimSpeed := DEFAULT_ANIMSPEED;
    AnimPos := 0;
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
  end;
end;
 
procedure TEnemyAttacker2.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/2)){450} then
      X := X - MoveCount*(300/1000)
    else
    begin
      Collisioned := True;
      FMode := 1;
      FPutTama := True;
    end;
    Y := Y + Cos256(FCounter div 15)*5;
  end
  else if FMode=1 then
  begin
    Y := Y + Cos256(FCounter div 15)*5;
    if FPutTama then
    begin
      if FTamaT>100 then
      begin
        with TEnemyTama.Create(Engine) do
        begin
          FPlayerSprite := Self;
          Z := 1;
          X := Self.X-Width;
          Y := Self.Y+Self.Height div 2-Height div 2;
        end;
        Inc(FTamaF);
        if FTamaF>Random(30) then FPutTama := False;
        FTamaT := 0;
      end;
      FTamaT := FTamaT + MoveCount;
    end
    else
    begin
      FTamaT := FTamaT + MoveCount;
      if FTamaT>2000+Random(500) then
      begin
        FPutTama := True;
        FTamaF := 0;
        FTamaT := 0;
      end;
    end;
  end
  else if FMode=2 then
  begin
    if FCounter>200 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
procedure TEnemyAttacker3.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(ADead);
 
  if ADead then
  begin
 
    FMode := 1;
    FCounter := 0;
    Inc(MainForm.FScore, 5000);
    Image := MainForm.ImageList.Items.Find('Explosion');
    Width := Image.Width;
    Height := Image.Height;
    AnimCount := Image.PatternCount;
    AnimLooped := False;
    AnimSpeed := DEFAULT_ANIMSPEED;
    AnimPos := 0;
  end
  else
  begin
 
    Inc(MainForm.FScore, 100);
  end;
end;
 
procedure TEnemyAttacker3.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);
  if FMode=0 then
  begin
    X := X - (250/1000)*MoveCount;
    if X<-Width then Dead;
    if FCounter-FOldTamaTime>=100 then
    begin
      Inc(FTamaCount);
      with TEnemyTama.Create(Engine) do
      begin
        FPlayerSprite := Self;
        X := Self.X;
        Y := Self.Y+Self.Height div 2-Height div 2;
        Z := 10;
      end;
      FOldTamaTime := FCounter;
     end;
  end
  else if FMode=1 then
  begin
    if FCounter>200 then Dead;
  end;
  inc(FCounter, MoveCount);
end;
 
constructor TEnemyAttacker3.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker3');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
 
end;
 
function TMainForm.SoundKarte: boolean;
begin
  result := WaveOutGetNumDevs > 0;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  Ergebnis: string;
  daten: textfile;
  ok: boolean;
begin
  { Beginne VCL-Ersatz }
  dxtimer := tdxtimer.Create(self);
  dxtimer.Interval := 33;
  dxtimer.OnActivate := DXTimerActivate;
  dxtimer.OnDeactivate := DXTimerDeactivate;
  dxtimer.OnTimer := DXTimerTimer;
  dxtimer.ActiveOnly := false;
  dxtimer.Enabled := false;
 
  dxdraw := tdxdraw.Create(self);
  dxdraw.Parent := self;
  dxdraw.Align := alClient;
  dxdraw.Left := 0;
  dxdraw.Top := 0;
  dxdraw.Width := 640;
  dxdraw.Height := 480;
  dxdraw.AutoInitialize := False;
  dxdraw.AutoSize := False;
  dxdraw.Color := clBlack;
  dxdraw.Display.BitCount := 24;
  dxdraw.Display.FixedBitCount := False;
  dxdraw.Display.FixedRatio := False;
  dxdraw.Display.FixedSize := False;
  dxdraw.Display.Height := 600;
  dxdraw.Display.Width := 800;
  dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver];
  dxdraw.TabOrder := 0;
  dxdraw.Visible := true;
  dxdraw.OnFinalize := DXDrawFinalize;
  dxdraw.OnInitialize := DXDrawInitialize;
  dxdraw.OnInitializing := DXDrawInitializing;
 
  dxsound := tdxsound.Create(self);
  dxsound.AutoInitialize := false;
 
  dxinput := tdxinput.Create(self);
  dxinput.Joystick.ForceFeedback := true;
  dxinput.Keyboard.ForceFeedback := true;
 
  wavelist := tdxwavelist.Create(self);
  wavelist.DXSound := dxsound;
 
  imagelist := tdximagelist.create(self);
  imagelist.DXDraw := dxdraw;
 
  spriteengine := tdxspriteengine.create(self);
  spriteengine.DXDraw := dxdraw;
 
  InitializeCriticalSection(TimerCS);
 
  { Ende VCL-Ersatz }
 
  Application.Title := 'SpaceMission '+ProgramVersion;
  LoadOptions;
  DXInit;
  SoundInit;
  MusicInit;
  DeleteArray;
  if (paramcount = 0) and (fileexists(paramstr(1))) then // (paramcount > 0)
  begin
    AssignFile(daten, paramstr(1));
    Reset(daten);
    ok := true;
    ReadLN(daten, Ergebnis);
    if Ergebnis <> '; SpaceMission '+ProgramVersion then ok := false;
    ReadLN(daten, Ergebnis);
    if ergebnis <> '; SAV-File' then ok := false;
    if not ok then
    begin
      showmessage(FileError);
      CloseFile(daten);
      GameStartClick(GameStart);
      exit;
    end;
    ReadLN(daten, mainform.FScore);
    ReadLN(daten, mainform.FLife);
    ReadLN(daten, mainform.Flevel);
    ReadLN(daten, mainform.FMenuItem);
    CloseFile(daten);
    mainform.FNextScene := gsNewLevel;
    exit;
  end;
  GameStartClick(GameStart);
end;
 
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssAlt in Shift) and (Key=VK_RETURN) then
    OptionFullScreenClick(OptionFullScreen);
end;
 
procedure TMainForm.GameStartClick(Sender: TObject);
begin
  StartScene(gsTitle);
end;
 
procedure TMainForm.GamePauseClick(Sender: TObject);
begin
  GamePause.Checked := not GamePause.Checked;
  DXTimer.Enabled := not GamePause.Checked;
  if GamePause.Checked then
    PauseMusic(FMusic)
  else
    ResumeMusic(FMusic);
end;
 
// http://www.delphipraxis.net/post43515.html
Function GetHTML(AUrl: string): string;
var
  databuffer : array[0..4095] of char;
  ResStr : string;
  hSession, hfile: hInternet;
  dwindex,dwcodelen,dwread,dwNumber: cardinal;
  dwcode : array[1..20] of char;
  res    : pchar;
  Str    : pchar;
begin
  ResStr:='';
  if system.pos('http://',lowercase(AUrl))=0 then
     AUrl:='http://'+AUrl;
 
  // Hinzugefügt
  application.ProcessMessages;
 
  hSession:=InternetOpen('InetURL:/1.0',
                         INTERNET_OPEN_TYPE_PRECONFIG,
                         nil,
                         nil,
                         0);
  if assigned(hsession) then
  begin
    // Hinzugefügt
    application.ProcessMessages;
 
    hfile:=InternetOpenUrl(
           hsession,
           pchar(AUrl),
           nil,
           0,
           INTERNET_FLAG_RELOAD,
           0);
    dwIndex  := 0;
    dwCodeLen := 10;
 
    // Hinzugefügt
    application.ProcessMessages;
 
    HttpQueryInfo(hfile,
                  HTTP_QUERY_STATUS_CODE,
                  @dwcode,
                  dwcodeLen,
                  dwIndex);
    res := pchar(@dwcode);
    dwNumber := sizeof(databuffer)-1;
    if (res ='200') or (res ='302') then
    begin
      while (InternetReadfile(hfile,
                              @databuffer,
                              dwNumber,
                              DwRead)) do
      begin
 
        // Hinzugefügt
        application.ProcessMessages;
 
        if dwRead =0 then
          break;
        databuffer[dwread]:=#0;
        Str := pchar(@databuffer);
        resStr := resStr + Str;
      end;
    end
    else
      ResStr := 'Status:'+res;
    if assigned(hfile) then
      InternetCloseHandle(hfile);
  end;
 
  // Hinzugefügt
  application.ProcessMessages;
 
  InternetCloseHandle(hsession);
  Result := resStr;
end;
 
procedure TMainForm.CheckUpdatesClick(Sender: TObject);
var
  temp: string;
begin
  temp := GetHTML('http://www.viathinksoft.de/update/?id=spacemission');
  if copy(temp, 0, 7) = 'Status:' then
  begin
    Application.MessageBox('Ein Fehler ist aufgetreten. Wahrscheinlich ist keine Internetverbindung aufgebaut, oder der der ViaThinkSoft-Server temporär offline.', 'Fehler', MB_OK + MB_ICONERROR)
  end
  else
  begin
    if GetHTML('http://www.viathinksoft.de/update/?id=spacemission') <> ProgramVersion then
    begin
      if Application.MessageBox('Eine neue Programmversion ist vorhanden. Möchten Sie diese jetzt herunterladen?', 'Information', MB_YESNO + MB_ICONASTERISK) = ID_YES then
        shellexecute(application.handle, 'open', pchar('http://www.viathinksoft.de/update/?id=@spacemission'), '', '', sw_normal);
    end
    else
    begin
      Application.MessageBox('Es ist keine neue Programmversion vorhanden.', 'Information', MB_OK + MB_ICONASTERISK);
    end;
  end;
end;
 
procedure TMainForm.BeendenClick(Sender: TObject);
begin
  close;
end;
 
procedure TMainForm.OptionFullScreenClick(Sender: TObject);
begin
  OptionFullScreen.Checked := not OptionFullScreen.Checked;
  DXInit;
  writeoptions;
end;
 
procedure TMainForm.OptionSoundClick(Sender: TObject);
begin
  OptionSound.Checked := not OptionSound.Checked;
  SoundInit;
  WriteOptions;
end;
 
procedure TMainForm.SoundInit;
begin
  if OptionSound.Checked then
  begin
    if not DXSound.Initialized then
    begin
      try
        DXSound.Initialize;
        WaveList.Items.LoadFromFile(FDirectory+'DirectX\Sound.dxw');
      except
        OptionSound.enabled := False;
        WaveList.items.clear;
      end;
    end;
  end
  else DXSound.Finalize;
end;
 
procedure TMainForm.MusicInit;
begin
  optionmusic.enabled := SoundKarte;
end;
 
procedure TMainForm.DestroyMusic(Name: TMusicTrack);
begin
  if Name = mtBoss then
  begin
    MCISendString(pchar('stop "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
    MCISendString(pchar('close "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  end;
  if Name = mtGame then
  begin
    MCISendString(pchar('stop "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
    MCISendString(pchar('close "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  end;
  if Name = mtScene then
  begin
    MCISendString(pchar('stop "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
    MCISendString(pchar('close "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  end;
  if Name = mtTitle then
  begin
    MCISendString(pchar('stop "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
    MCISendString(pchar('close "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
  end;
end;
 
procedure TMainForm.OpenMusic(Name: TMusicTrack);
begin
  if Name = mtBoss then
    MCISendString(pchar('open "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  if Name = mtGame then
    MCISendString(pchar('open "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  if Name = mtScene then
    MCISendString(pchar('open "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  if Name = mtTitle then
    MCISendString(pchar('open "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
end;
 
procedure TMainForm.PauseMusic(Name: TMusicTrack);
begin
  if not OptionMusic.checked then exit;
  if Name = mtBoss then
    MCISendString(pchar('stop "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  if Name = mtGame then
    MCISendString(pchar('stop "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  if Name = mtScene then
    MCISendString(pchar('stop "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  if Name = mtTitle then
    MCISendString(pchar('stop "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
end;
 
procedure TMainForm.DXDrawInitializing(Sender: TObject);
begin
  if doFullScreen in DXDraw.Options then
  begin
    BorderStyle := bsNone;
    DXDraw.Cursor := crNone;
  end
  else
  begin
    BorderStyle := bsSingle;
    DXDraw.Cursor := crDefault;
  end;
end;
 
procedure TMainForm.DXDrawInitialize(Sender: TObject);
begin
  DXTimer.Enabled := True;
end;
 
procedure TMainForm.DXDrawFinalize(Sender: TObject);
begin
  DXTimer.Enabled := False;
end;
 
procedure TMainForm.DXTimerActivate(Sender: TObject);
begin
  Caption := Application.Title;
  if not ProgrammGestartet then
  begin
    Programmgestartet := true;
    exit;
  end;
  ResumeMusic(FMusic);
end;
 
procedure TMainForm.DXTimerDeactivate(Sender: TObject);
begin
  Caption := Application.Title + ' [Pause]';
  PauseMusic(FMusic);
end;
 
function TMainForm.StatusMusic(Name: TMusicTrack): string;
var
  MCIStatus: array[0..255] of char;
begin
  if not OptionMusic.checked then exit;
  if FMusic = mtGame then
    MCISendString(pchar('status "'+FDirectory+'Musik\Game.mid" mode'), MCIStatus, 255, 0);
  if FMusic = mtBoss then
    MCISendString(pchar('status "'+FDirectory+'Musik\Boss.mid" mode'), MCIStatus, 255, 0);
  if FMusic = mtScene then
    MCISendString(pchar('status "'+FDirectory+'Musik\Scene.mid" mode'), MCIStatus, 255, 0);
  if FMusic = mtTitle then
    MCISendString(pchar('status "'+FDirectory+'Musik\Title.mid" mode'), MCIStatus, 255, 0);
  result := MCIStatus;
end;
 
procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
begin
  EnterCriticalSection(TimerCS);
  try
    if StatusMusic(FMusic) = 'stopped' then
      PlayMusic(FMusic); {...}
    if crash then
    begin
      inc(Crash2);
      if crash2 = 30 then
      begin
        Crash2 := 0;
        crash := false;
        crashsound := false;
      end;
    end;
    if not DXDraw.CanDraw then exit;
    DXInput.Update;
    case FScene of
      gsTitle   : SceneTitle;
      gsMain    : SceneMain;
      gsGameOver: SceneGameOver;
      gsWin     : SceneWin;
      gsNewLevel: SceneNewLevel;
    end;
    if FNextScene<>gsNone then
    begin
      StartScene(FNextScene);
      FNextScene := gsNone;
    end;
    DXDraw.Flip;
  finally
    LeaveCriticalSection(TimerCS);
  end;
end;
 
procedure TMainForm.BlinkStart;
begin
  FBlink := 0;
  FBlinkTime := GetTickCount;
end;
 
procedure TMainForm.WriteOptions;
var
  INIDatei: TIniFile;
begin
  INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  try
    if OptionMusic.checked then INIDatei.WriteBool('Settings', 'Music', true)
      else INIDatei.WriteBool('Settings', 'Music', false);
    if OptionSound.checked then INIDatei.WriteBool('Settings', 'Sound', true)
      else INIDatei.WriteBool('Settings', 'Sound', false);
    if OptionFullScreen.checked then INIDatei.WriteBool('Settings', 'FullScreen', true)
      else INIDatei.WriteBool('Settings', 'FullScreen', false);
    if OptionBreitbild.checked then INIDatei.WriteBool('Settings', 'ScreenAutoSize', true)
      else INIDatei.WriteBool('Settings', 'ScreenAutoSize', false);
    if FInterval = giLeicht then INIDatei.WriteInteger('Settings', 'Speed', 1);
    if FInterval = giMittel then INIDatei.WriteInteger('Settings', 'Speed', 2);
    if FInterval = giSchwer then INIDatei.WriteInteger('Settings', 'Speed', 3);
    if FInterval = giMaster then INIDatei.WriteInteger('Settings', 'Speed', 4);
  finally
    INIDatei.Free;
  end;
end;
 
procedure TMainForm.LoadOptions;
var
  INIDatei: TIniFile;
begin
  INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  try
    optionmusic.checked := INIDatei.ReadBool('Settings', 'Music', true);
    optionsound.checked := INIDatei.ReadBool('Settings', 'Sound', true);
    optionfullscreen.checked := INIDatei.ReadBool('Settings', 'fullscreen', false);
    OptionBreitBild.checked := INIDatei.ReadBool('Settings', 'ScreenAutoSize', true);
    if INIDatei.ReadInteger('Settings', 'Speed', 2) = 1 then
    begin
      FInterval := giLeicht;
      Leicht.checked := true;
    end;
    if INIDatei.ReadInteger('Settings', 'Speed', 2) = 2 then
    begin
      FInterval := giMittel;
      Mittel.checked := true;
    end;
    if INIDatei.ReadInteger('Settings', 'Speed', 2) = 3 then
    begin
      FInterval := giSchwer;
      Schwer.checked := true;
    end;
    if INIDatei.ReadInteger('Settings', 'Speed', 2) = 4 then
    begin
      FInterval := giMaster;
      Master.checked := true;
    end;
  finally
    INIDatei.Free;
  end;
  WriteOptions;
end;
 
procedure TMainForm.BlinkUpdate;
begin
  if GetTickCount<>FBlinkTime then
  begin
    FBlink := FBlink + (GetTickCount-FBlinkTime);
    FBlinkTime := GetTickCount;
  end;
end;
 
procedure TMainForm.PlaySound(Name: string; Wait: Boolean);
begin
  if (OptionSound.Checked) and (OptionSound.Enabled) then
    WaveList.Items.Find(Name).Play(Wait);
end;
 
procedure TMainForm.PlayMusic(Name: TMusicTrack);
begin
  if (not mainform.active) and (mainform.visible) then //1st Programmstart
    exit;
  if (OptionMusic.checked) and (OptionMusic.enabled) then
  begin
    DestroyMusic(FMusic);
    OpenMusic(Name);
    ResumeMusic(Name);
  end;
  FMusic := Name;
end;
 
function TMainForm.ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
begin
  with Result do
  begin
    rgbRed := Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div 256);
    rgbGreen := Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div 256);
    rgbBlue := Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div 256);
    rgbReserved := 0;
  end;
end;
 
procedure TMainForm.PalleteAnim(Col: TRGBQuad; Time: Integer);
var
  i: Integer;
  t, t2: DWORD;
  ChangePalette: Boolean;
  c: Integer;
begin
  if DXDraw.Initialized then
  begin
    c := DXDraw.Surface.ColorMatch(RGB(Col.rgbRed, Col.rgbGreen, Col.rgbBlue));
    ChangePalette := False;
    if DXDraw.CanPaletteAnimation then
    begin
      t := GetTickCount;
      while Abs(GetTickCount-t)<Time do
      begin
        t2 := Trunc(Abs(GetTickCount-t)/Time*255);
        for i := 0 to 255 do
          DXDraw.ColorTable[i] := ComposeColor(Col, DXDraw.DefColorTable[i], t2);
        DXDraw.UpdatePalette;
        ChangePalette := True;
      end;
    end
    else
    begin
      Sleep(Time);
    end;
    for i := 0 to 4 do
    begin
      DXDraw.Surface.Fill(c);
      DXDraw.Flip;
    end;
    if ChangePalette then
    begin
      DXDraw.ColorTable := DXDraw.DefColorTable;
      DXDraw.UpdatePalette;
    end;
    DXDraw.Surface.Fill(c);
    DXDraw.Flip;
  end;
end;
 
procedure TMainForm.StartScene(Scene: TGameScene);
begin
  EndScene;
  DXInput.States := DXInput.States - DXInputButton;
  FScene := Scene;
  BlinkStart;
  case FScene of
    gsTitle   : StartSceneTitle;
    gsMain    : StartSceneMain;
    gsGameOver: StartSceneGameOver;
    gsWin     : StartSceneWin;
    gsNewLevel: StartSceneNewLevel;
  end;
end;
 
procedure TMainForm.StartSceneTitle;
begin
  sleep(500);
  FCheat := false;
  BossExists := false;
  FLife := Lives;
  FLevel := 0;
  FScore := 0;
  FNotSave := true;
  Cheat.enabled := false;
  Neustart.enabled := false;
  GamePause.enabled := false;
  GameStart.enabled := false;
  Spielgeschwindigkeit.enabled := false;
  mainform.Visible := true;
  PlayMusic(mtTitle);
end;
 
procedure TMainForm.StartSceneMain;
{var
  i, j: Integer;}
begin
  sleep(500);
  FCounter := 0;
  NewLevel(FLevel);
  BossExists := false;
  PlayMusic(mtGame);
  FEnemyAdventPos := 0;
  FFrame := -4;
  PlayerSprite := TPlayerSprite.Create(SpriteEngine.Engine);
  with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(1, 1);
    Image := mainform.ImageList.Items.Find('Star3');
    Z := -13;
    Y := 40;
    FSpeed := 1 / 2;
    Tile := True;
  end;
  with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(1, 1);
    Image := mainform.ImageList.Items.Find('Star2');
    Z := -12;
    Y := 30;
    FSpeed := 1;
    Tile := True;
  end;
  with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(1, 1);
    Image := mainform.ImageList.Items.Find('Star1');
    Z := -11;
    Y := 10;
    FSpeed := 2;
    Tile := True;
  end;
  {with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(200, 10);
    Y := 10;
    Z := -13;
    FSpeed := 1 / 2;
    Tile := True;
    for i := 0 to MapHeight-1 do
    begin
      for j := 0 to MapWidth-1 do
      begin
        Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 8);
        if Random(100)<95 then Chips[j, i] := -1;
      end;
    end;
  end;
  with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(200, 10);
    Y := 30;
    Z := -12;
    FSpeed := 1;
    Tile := True;
    for i := 0 to MapHeight-1 do
    begin
      for j := 0 to MapWidth-1 do
      begin
        Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 4);
        if Random(100)<95 then Chips[j, i] := -1;
      end;
    end;
  end;
  with TBackground.Create(SpriteEngine.Engine) do
  begin
    SetMapSize(200, 10);
    Y := 40;
    Z := -11;
    FSpeed := 2;
    Tile := True;
    for i := 0 to MapHeight-1 do
    begin
      for j := 0 to MapWidth-1 do
      begin
        Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 2);
        if Random(100)<95 then Chips[j, i] := -1;
      end;
    end;
  end;}
  FNotSave := false;
  Cheat.enabled := true;
  Neustart.enabled := true;
  GamePause.enabled := true;
  GameStart.enabled := true;
  Spielgeschwindigkeit.enabled := true;
end;
 
procedure TMainForm.StartSceneGameOver;
begin
  sleep(500);
  FNotSave := true;
  Cheat.enabled := false;
  Spielgeschwindigkeit.enabled := false;
  Neustart.enabled := false;
  GamePause.enabled := false;
  PlayMusic(mtScene);
  BossExists := false;
end;
 
procedure TMainForm.StartSceneWin;
begin
  sleep(500);
  FNotSave := true;
  Cheat.enabled := false;
  Spielgeschwindigkeit.enabled := false;
  Neustart.enabled := false;
  GamePause.enabled := false;
  PlayMusic(mtScene);
  BossExists := false;
end;
 
procedure TMainForm.EndScene;
begin
  case FScene of
    gsTitle   : EndSceneTitle;
    gsMain    : EndSceneMain;
    gsGameOver: EndSceneGameOver;
    gsWin     : EndSceneWin;
    gsNewLevel: EndSceneNewLevel;
  end;
end;
 
procedure TMainForm.EndSceneTitle;
begin
  {  Ende Title  }
end;
 
procedure TMainForm.EndSceneMain;
begin
  SpriteEngine.Engine.Clear;
end;
 
procedure TMainForm.EndSceneGameOver;
begin
  {  Ende GameOver  }
end;
 
procedure TMainForm.EndSceneWin;
begin
  {  Ende Win  }
end;
 
procedure TMainForm.DeleteArray();
 
 
begin
 
 
 
  SetLength(EnemyAdventTable, 0);
  FRestEnemies := 0;
 
end;
 
const
  ADDITIONAL_ENEMIES_PER_LEVEL = 75;
 
function GetLevelFileName(lev: integer): string;
begin
  result := FDirectory+'Levels\Level '+inttostr(lev)+'.lev';
end;
 
procedure TMainForm.NewLevel(lev: integer);
resourcestring
  LNG_LEVEL_INVALID = 'Das Level Nr. %d ist ungültig!'+#13#10+'Das Programm wird beendet.';
var
  act: integer;
  filex: textfile;
  ergebniss: string;
  Enemies: array[1..27] of TEnemyClass;
  e: TEnemyAdvent;
begin
  DeleteArray;
  if FMenuItem = 2 then
  begin
    Enemies[1] := TEnemyAttacker;
    Enemies[2] := TEnemyMeteor;
    Enemies[3] := TEnemyUFO;
    Enemies[4] := TEnemyAttacker;
    Enemies[5] := TEnemyMeteor;
    Enemies[6] := TEnemyUFO;
    Enemies[7] := TEnemyAttacker;
    Enemies[8] := TEnemyMeteor;
    Enemies[9] := TEnemyUFO;
    Enemies[10] := TEnemyAttacker;
    Enemies[11] := TEnemyMeteor;
    Enemies[12] := TEnemyUFO;
    Enemies[13] := TEnemyAttacker;
    Enemies[14] := TEnemyMeteor;
    Enemies[15] := TEnemyUFO;
    Enemies[16] := TEnemyAttacker3;
    Enemies[17] := TEnemyAttacker;
    Enemies[18] := TEnemyMeteor;
    Enemies[19] := TEnemyUFO;
    Enemies[20] := TEnemyUFO2;
    Enemies[21] := TEnemyAttacker;
    Enemies[22] := TEnemyMeteor;
    Enemies[23] := TEnemyUFO;
    Enemies[24] := TEnemyAttacker2;
    Enemies[25] := TEnemyMeteor;
    Enemies[26] := TEnemyUFO;
    Enemies[27] := TEnemyAttacker;
    randomize;
    FRestEnemies := lev*ADDITIONAL_ENEMIES_PER_LEVEL+1;
    SetLength(EnemyAdventTable, FRestEnemies);
    for act := 0 to lev*ADDITIONAL_ENEMIES_PER_LEVEL-1 do
    begin
      e.spriteClass := Enemies[min(random(lev+2)+1, High(Enemies))];
      if e.spriteClass = TEnemyAttacker2 then
      begin
 
        e.spriteClass := Enemies[min(random(lev+2)+1, High(Enemies))]; {O_o}
 
      end;
      e.x := act*30 + random(85-(lev+(random(lev))*2)){O_o};
      e.y := random(dxdraw.surfaceheight);
      if e.spriteClass = TEnemyAttacker2 then
      begin
        e.lifes := random(6)+1{O_o};
      end
      else
      begin
        e.lifes := random(lev)+1;
      end;
 
      EnemyAdventTable[act] := e;
    end;
    e.spriteClass := TEnemyBoss;
    e.x := lev*75*30{O_o} div lev;
    e.y := (dxdraw.surfaceheight div 2) - (MainForm.ImageList.Items.Find('Enemy-boss').height div 2);
    e.lifes := lev*5;
    EnemyAdventTable[lev*ADDITIONAL_ENEMIES_PER_LEVEL] := e;
  end
  else
  begin
    Enemies[1] := TEnemyAttacker;
    Enemies[2] := TEnemyAttacker2;
    Enemies[3] := TEnemyAttacker3;
    Enemies[4] := TEnemyMeteor;
    Enemies[5] := TEnemyUFO;
    Enemies[6] := TEnemyUFO2;
    Enemies[7] := TEnemyBoss;
    if fileexists(GetLevelFileName(lev)) then
    begin
 
      assignfile(filex, GetLevelFileName(lev));
      reset(filex);
      try
        readln(filex, ergebniss);
        Assert(ergebniss = '; SpaceMission '+FCompVersion);
        readln(filex, ergebniss);
        Assert(ergebniss = '; LEV-File');
 
        readln(filex); // Länge der Karte
 
        while not seekEoF(filex) do
        begin
 
 
          readln(filex, ergebniss);
          e.spriteClass := Enemies[strtoint(ergebniss)];
 
 
 
 
 
          readln(filex, ergebniss);
 
 
 
          e.x := strtoint(ergebniss);
 
 
 
 
 
          readln(filex, ergebniss);
          e.y := strtoint(ergebniss);
 
 
 
          readln(filex, ergebniss);
 
 
 
 
 
          e.lifes := strtoint(ergebniss);
 
 
 
          inc(FRestEnemies);
          SetLength(EnemyAdventTable, FRestEnemies);
 
 
 
 
          EnemyAdventTable[FRestEnemies-1] := e;
        end;
      except
        showmessage(Format(LNG_LEVEL_INVALID, [lev]));
        DeleteArray;
      end;
      closefile(filex);
    end;
  end;
  Assert(FRestEnemies = Length(EnemyAdventTable));
end;
 
procedure TMainForm.SceneTitle;
var
  Logo: TPictureCollectionItem;
begin
  DXDraw.Surface.Fill(0);
  Logo := ImageList.Items.Find('Logo');
  {Logo.DrawWaveX(DXDraw.Surface, (dxdraw.surfaceWidth div 2) - 181, 65, Logo.Width, Logo.Height, 0,
    Trunc(16 - Cos256(FBlink div 60) * 16), 32, -FBlink div 5);}
  Logo.DrawWaveX(DXDraw.Surface, trunc((dxdraw.surfaceWidth / 2) - (Logo.Width / 2)), 65, Logo.Width, Logo.Height, 0,
    2, 80, Fangle * 4);
  inc(Fangle);
  with DXDraw.Surface.Canvas do
  begin
    if (isDown in MainForm.DXInput.States) and (FMenuItem=1) then FMenuItem := 2;
    if ((isUp in MainForm.DXInput.States) and (FMenuItem=2)) or (FMenuItem=0) then FMenuItem := 1;
    Brush.Style := bsClear;
    Font.Size := 30;
    if FMenuItem = 1 then
    begin
      Font.Color := clMaroon;
      Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-52, 'Normales Spiel');
      Textout((dxdraw.surfaceWidth div 2)-187, (dxdraw.surfaceheight div 2)-52, '>');
      Font.Color := clRed;
      Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2)-50, 'Normales Spiel');
      Textout((dxdraw.surfaceWidth div 2)-185, (dxdraw.surfaceheight div 2)-50, '>');
      Font.Color := clOlive;
      Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-2, 'Zufallslevel');
      Font.Color := clYellow;
      Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2), 'Zufallslevel');
    end
    else
    begin
      Font.Color := clOlive;
      Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-52, 'Normales Spiel');
      Font.Color := clYellow;
      Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2)-50, 'Normales Spiel');
      Font.Color := clMaroon;
      Textout((dxdraw.surfaceWidth div 2)-152, (dxdraw.surfaceheight div 2)-2, 'Zufallslevel');
      Textout((dxdraw.surfaceWidth div 2)-187, (dxdraw.surfaceheight div 2)-2, '>');
      Font.Color := clRed;
      Textout((dxdraw.surfaceWidth div 2)-150, (dxdraw.surfaceheight div 2), 'Zufallslevel');
      Textout((dxdraw.surfaceWidth div 2)-185, (dxdraw.surfaceheight div 2), '>');
    end;
    { if (FBlink div 300) mod 2=0 then
    begin
      Font.Color := clGreen;
      Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
      Font.Color := clLime;
      Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
    end; }
    BlinkUpdate;
    Release;
  end;
  // Weiter mit Leertaste oder Enter
  if (isButton1 in DXInput.States) or (isButton2 in DXInput.States) then
  begin
    FLevel := 1;
    if ((FMenuItem=1) and not fileexists(GetLevelFileName(FLevel))) or ((FMenuItem=2) and (FLevel > 20)) then
    begin
      //PlaySound('Frage', False);
      exit;
    end;
    NewLevel(FLevel);
    PlaySound('SceneMov', False);
    PalleteAnim(RGBQuad(0, 0, 0), 300);
    Sleep(200);
    StartScene(gsMain);
  end;
end;
 
procedure TMainForm.SceneMain;
var
  Enemy: TSprite;
begin
  case FInterval of
    giMittel: SpriteEngine.Move(conleicht);
    giLeicht: SpriteEngine.Move(conmittel);
    giSchwer: SpriteEngine.Move(conschwer);
    giMaster: SpriteEngine.Move(conmaster);
  end;
  SpriteEngine.Dead;
  while (FEnemyAdventPos >= Low(EnemyAdventTable)) and
    (FEnemyAdventPos <= High(EnemyAdventTable)) and
    ((EnemyAdventTable[FEnemyAdventPos].x / 4) <= FFrame) and
    (FRestEnemies > 0) do
 
 
  begin
    Dec(FRestEnemies);
    with EnemyAdventTable[FEnemyAdventPos] do
    begin
      Enemy := spriteClass.Create(SpriteEngine.Engine, lifes);
      Enemy.x := dxdraw.surfacewidth;
      //Enemy.y := y;
      if y <> 0 then
        Enemy.y := dxdraw.surfaceheight / (480{maximale Bandbreite im alten Format} / y)
      else
        Enemy.y := 0;
    end;
    Inc(FEnemyAdventPos);
  end;
  Inc(FFrame);
  DXDraw.Surface.Fill(0);
  if FNextScene=gsNone then
  begin
    SpriteEngine.Draw;
    if MainForm.flife > 0 then
    begin
      with DXDraw.Surface.Canvas do
      begin
        Brush.Style := bsClear;
        Font.Size := 20;
        Font.Color := clOlive;
        Textout(9, 9, 'Punkte: ' + FloatToStrF(FScore,ffNumber,14,0));
        Font.Color := clYellow;
        Textout(10, 10, 'Punkte: ' + FloatToStrF(FScore,ffNumber,14,0));
        Font.Color := clMaroon;
        Textout(dxdraw.surfacewidth-141, 9, 'Level: ' + IntToStr(MainForm.flevel));
        Font.Color := clRed;
        Textout(dxdraw.surfacewidth-140, 10, 'Level: ' + IntToStr(MainForm.flevel));
        if FLife<0 then mainform.FLife := 0;
        if FCheat then
        begin
          Font.Color := clPurple;
          Textout(9, dxdraw.surfaceheight-41, 'Leben: ?');
          Font.Color := clFuchsia;
          Textout(10, dxdraw.surfaceheight-40, 'Leben: ?');
        end
        else
        begin
          if ((Flife = 1) and ((FBlink div 300) mod 2=0)) or (Flife <> 1) then
          begin
            Font.Color := clPurple;
            Textout(9, dxdraw.surfaceheight-41, 'Leben: ' + IntToStr(MainForm.flife));
            Font.Color := clFuchsia;
            Textout(10, dxdraw.surfaceheight-40, 'Leben: ' + IntToStr(MainForm.flife));
          end;
          if Flife = 1 then BlinkUpdate;
        end;
        {if BossExists and (FBossLife>0) then
        begin
          Font.Color := clPurple;
          Textout(449, 439, 'Boss: ' + IntToStr(FBossLife));
          Font.Color := clFuchsia;
          Textout(450, 440, 'Boss: ' + IntToStr(FBossLife));
        end
        else
          if RestlicheEinheiten>0 then
          begin
            Font.Color := clPurple;
            Textout(449, 439, 'Einheiten: ' + IntToStr(RestlicheEinheiten));
            Font.Color := clFuchsia;
            Textout(450, 440, 'Einheiten: ' + IntToStr(RestlicheEinheiten));
          end;}
        if BossExists and (FBossLife>0) then
        begin
          if (FRestEnemies>0) then
          begin
            Font.Color := clGreen;
            Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-81, 'Boss: ' + IntToStr(FBossLife));
            Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Einheiten: ' + IntToStr(FRestEnemies));
            Font.Color := clLime;
            Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-80, 'Boss: ' + IntToStr(FBossLife));
            Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemies));
          end;
          if (FRestEnemies<1) then
          begin
            Font.Color := clGreen;
            Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Boss: ' + IntToStr(FBossLife));
            Font.Color := clLime;
            Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Boss: ' + IntToStr(FBossLife));
          end;
        end;
        if (FRestEnemies>0) and not Bossexists then
        begin
          Font.Color := clGreen;
          Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Einheiten: ' + IntToStr(FRestEnemies));
          Font.Color := clLime;
          Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemies));
        end;
        Release;
      end;
    end
    else
    begin
      DXDraw.Surface.Canvas.Font.Color := clGreen; // Grüne schrift bei gescheitert? FIXME
      DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-251, dxdraw.surfaceheight-41, 'Mission gescheitert!');
      DXDraw.Surface.Canvas.Font.Color := clLime;
      DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-250, dxdraw.surfaceheight-40, 'Mission gescheitert!');
      DXDraw.Surface.Canvas.Release;
    end;
 
    if (EnemyCounter=0) and (FRestEnemies=0){ and (SpielerFliegtFort = false)}
    and ((BossExists and (FBossLife=0)) or not BossExists) then
    begin
      DXDraw.Surface.Canvas.Font.Color := clGreen;
      DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-251, dxdraw.surfaceheight-41, 'Mission erfolgreich!');
      DXDraw.Surface.Canvas.Font.Color := clLime;
      DXDraw.Surface.Canvas.Textout(dxdraw.surfacewidth-250, dxdraw.surfaceheight-40, 'Mission erfolgreich!');
      DXDraw.Surface.Canvas.Release;
      Sleep(1);
      inc(FCounter);
      if FCounter>150{200} then PlayerSprite.FlyAway;
    end;
  end;
end;
 
procedure TMainForm.SceneGameOver;
begin
  DXDraw.Surface.Fill(0);
  with DXDraw.Surface.Canvas do
  begin
    FNotSave := true;
    Cheat.enabled := false;
    GamePause.enabled := false;
    Neustart.enabled := false;
    Brush.Style := bsClear;
    Font.Size := 35;
    Font.Color := clMaroon;
    Textout((dxdraw.surfacewidth div 2)-127, 98, 'Verloren!');
    Font.Color := clRed;
    Textout((dxdraw.surfacewidth div 2)-125, 100, 'Verloren!');
    if (FBlink div 300) mod 2=0 then
    begin
      Font.Size := 30;
      Font.Color := clOlive;
      Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
      Font.Color := clYellow;
      Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
    end;
    BlinkUpdate;
    Release;
  end;
  if isButton1 in DXInput.States then
  begin
    PlaySound('SceneMov', False);
    PalleteAnim(RGBQuad(0, 0, 0), 300);
    Sleep(200);
    StartScene(gsTitle);
  end;
end;
 
procedure TMainForm.SceneWin;
begin
  DXDraw.Surface.Fill(0);
  with DXDraw.Surface.Canvas do
  begin
    FNotSave := true;
    Cheat.enabled := false;
    GamePause.enabled := false;
    Neustart.enabled := false;
    Brush.Style := bsClear;
    Font.Size := 35;
    Font.Color := clMaroon;
    Textout((dxdraw.surfaceWidth div 2)-127, 98, 'Gewonnen!');
    Font.Color := clRed;
    Textout((dxdraw.surfaceWidth div 2)-125, 100, 'Gewonnen!');
    if (FBlink div 300) mod 2=0 then
    begin
      Font.Size := 30;
      Font.Color := clOlive;
      Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
      Font.Color := clYellow;
      Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
    end;
    BlinkUpdate;
    Release;
  end;
  if isButton1 in DXInput.States then
  begin
    PlaySound('SceneMov', False);
    PalleteAnim(RGBQuad(0, 0, 0), 300);
    Sleep(200);
    StartScene(gsTitle);
  end;
end;
 
procedure TMainForm.StartSceneNewLevel;
begin
  sleep(500);
  FNotSave := false;
  Cheat.enabled := false;
  Neustart.enabled := false;
  GamePause.enabled := false;
  GameStart.enabled := true;
  Spielgeschwindigkeit.enabled := false;
  BossExists := false;
  Spielgeschwindigkeit.enabled := false;
  if ((FMenuItem=1) and (not fileexists(FDirectory+'Levels\Level '+inttostr(FLevel)+'.lev'))) or ((FMenuItem=2) and (FLevel > 25)) then
  begin
    //PlaySound('SceneMov', False);
    PalleteAnim(RGBQuad(0, 0, 0), 300);
    Sleep(200);
    StartScene(gsWin);
    exit;
  end;
  PlayMusic(mtScene);
end;
 
procedure TMainForm.EndSceneNewLevel;
begin
  {  Ende NewLevel  }
end;
 
procedure TMainForm.SceneNewLevel;
begin
  DXDraw.Surface.Fill(0);
  with DXDraw.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Font.Size := 40;
    Font.Color := clMaroon;
    Textout((dxdraw.surfaceWidth div 2)-(83+(length(inttostr(flevel))*22)), 98, 'Level '+inttostr(flevel));
    Font.Color := clRed;
    Textout((dxdraw.surfaceWidth div 2)-(81+(length(inttostr(flevel))*22)), 100, 'Level '+inttostr(flevel));
    if (FBlink div 300) mod 2=0 then
    begin
      Font.Size := 30;
      Font.Color := clOlive;
      Textout((dxdraw.surfaceWidth div 2)-187, dxdraw.surfaceheight-117, 'Weiter mit Leertaste');
      Font.Color := clYellow;
      Textout((dxdraw.surfaceWidth div 2)-185, dxdraw.surfaceheight-115, 'Weiter mit Leertaste');
    end;
    BlinkUpdate;
    Release;
  end;
  if isButton1 in DXInput.States then
  begin
    PlaySound('SceneMov', False);
    PalleteAnim(RGBQuad(0, 0, 0), 300);
    Sleep(200);
    StartScene(gsMain);
  end;
end;
 
procedure TMainForm.OptionMusicClick(Sender: TObject);
begin
  OptionMusic.Checked := not OptionMusic.Checked;
  if OptionMusic.Checked then
  begin
    PlayMusic(FMusic)
  end
  else
  begin
    DestroyMusic(FMusic);
  end;
  WriteOptions;
end;
 
procedure TMainForm.MasterClick(Sender: TObject);
begin
  master.checked := true;
  FInterval := giMaster;
  writeoptions;
end;
 
procedure TEnemyMeteor.DoMove(MoveCount: Integer);
begin
  X := X - MoveCount*(250/1000);
  if X < -Width then Dead;
end;
 
procedure TEnemyMeteor.HitEnemy(ADead: Boolean);
begin
  inherited HitEnemy(False);
 
  if ADead then Collisioned := True;
 
end;
 
{procedure TMainForm.StopMusic;
begin
  PauseMusic(FMusic);
  MCISendString(pchar('seek "'+FDirectory+'Musik\Boss.mid" to start'), nil, 255, 0);
  MCISendString(pchar('seek "'+FDirectory+'Musik\Game.mid" to start'), nil, 255, 0);
  MCISendString(pchar('seek "'+FDirectory+'Musik\Title.mid" to start'), nil, 255, 0);
  MCISendString(pchar('seek "'+FDirectory+'Musik\Scene.mid" to start'), nil, 255, 0);
end;}
 
procedure TMainForm.ResumeMusic(Name: TMusicTrack);
begin
  if not OptionMusic.checked then exit;
  if Name = mtBoss then
    MCISendString(pchar('play "'+FDirectory+'Musik\Boss.mid"'), nil, 255, 0);
  if Name = mtGame then
    MCISendString(pchar('play "'+FDirectory+'Musik\Game.mid"'), nil, 255, 0);
  if Name = mtScene then
    MCISendString(pchar('play "'+FDirectory+'Musik\Scene.mid"'), nil, 255, 0);
  if Name = mtTitle then
    MCISendString(pchar('play "'+FDirectory+'Musik\Title.mid"'), nil, 255, 0);
end;
 
constructor TEnemyMeteor.Create(AParent: TSprite; ALifes: integer);
begin
  inherited Create(AParent, ALifes);
  Image := MainForm.ImageList.Items.Find('Enemy-Meteor');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
end;
 
procedure TMainForm.SpielstandClick(Sender: TObject);
begin
  speicherungform.showmodal;
end;
 
procedure TMainForm.NeustartClick(Sender: TObject);
begin
  FLife := Lives;
  FLevel := 1; // ???
  FScore := 0;
  EnemyCounter := 0;
  StartScene(gsMain);
  PlayMusic(mtGame);
end;
 
procedure TMainForm.OptionBreitbildClick(Sender: TObject);
begin
  OptionBreitbild.Checked := not OptionBreitbild.Checked;
  DXInit;
  writeoptions;
end;
 
procedure TMainForm.LeichtClick(Sender: TObject);
begin
  leicht.checked := true;
  FInterval := giLeicht;
  writeoptions;
end;
 
procedure TMainForm.MittelClick(Sender: TObject);
begin
  mittel.checked := true;
  FInterval := giMittel;
  writeoptions;
end;
 
procedure TMainForm.SchwerClick(Sender: TObject);
begin
  schwer.checked := true;
  FInterval := giSchwer;
  writeoptions;
end;
 
procedure TMainForm.FormShow(Sender: TObject);
begin
  if Assigned(SplashForm) then
  begin
    SplashForm.Hide;
    FreeAndNil(SplashForm);
  end;
 
  dxtimer.Enabled := true;
  dxtimer.ActiveOnly := true;
end;
 
procedure TMainForm.InformationenClick(Sender: TObject);
begin
  dxtimer.enabled := false;
  InfoForm.showmodal;
  if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
end;
 
procedure TMainForm.CheatClick(Sender: TObject);
begin
  CheatForm.showmodal;
end;
 
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if optionMusic.checked then DestroyMusic(FMusic);
  SpriteEngine.Engine.Clear;
  dxsound.Finalize;
  dxinput.Destroy;
  DXTimer.Enabled := False;
end;
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  imagelist.Free;
  spriteengine.Free;
  dxdraw.Free;
  wavelist.Free;
  dxsound.Free;
  //dxinput.Free;
  dxtimer.Free;
  DeleteCriticalSection(TimerCS);
end;
 
end.
 
 

Rev 6	Rev 7
1	unit GamMain;	1	unit GamMain;
2		2
3	interface	3	interface
4		4
5	uses	5	uses
6	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,	6	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,
7	StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, DXInput, DXSounds,	7	StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, DXInput, DXSounds,
8	INIFiles, ShellAPI, wininet{$IF CompilerVersion >= 23.0}, Winapi.DirectDraw,	8	INIFiles, ShellAPI, wininet{$IF CompilerVersion >= 23.0}, Winapi.DirectDraw,
9	System.UITypes{$ELSE}, DirectX{$IFEND};	9	System.UITypes{$ELSE}, DirectX{$IFEND};
10		10
11	type	11	type
12	TGameScene = (	12	TGameScene = (
13	gsNone,	13	gsNone,
14	gsTitle,	14	gsTitle,
15	gsMain,	15	gsMain,
16	gsGameOver,	16	gsGameOver,
17	gsNewLevel,	17	gsNewLevel,
18	gsWin	18	gsWin
19	);	19	);
20		20
21	TGameInterval = (	21	TGameInterval = (
22	giMittel,	22	giMittel,
23	giLeicht,	23	giLeicht,
24	giSchwer,	24	giSchwer,
25	giMaster	25	giMaster
26	);	26	);
27		27
28	TMusicTrack = (	28	TMusicTrack = (
29	mtNone,	29	mtNone,
30	mtGame,	30	mtGame,
31	mtBoss,	31	mtBoss,
32	mtScene,	32	mtScene,
33	mtTitle	33	mtTitle
34	);	34	);
35		35
36	{TSoundFile = (	36	{TSoundFile = (
37	sfNone,	37	sfNone,
38	sfSceneMov,	38	sfSceneMov,
39	sfExplosion,	39	sfExplosion,
40	sfHit,	40	sfHit,
41	sfShoot,	41	sfShoot,
42	sfDanger,	42	sfDanger,
43	sfEnde,	43	sfEnde,
44	sfFrage,	44	sfFrage,
45	sfLevIntro	45	sfLevIntro
46	);}	46	);}
47		47
48	TBackground = class(TBackgroundSprite)	48	TBackground = class(TBackgroundSprite)
49	private	49	private
50	FSpeed: Double;	50	FSpeed: Double;
51	protected	51	protected
52	procedure DoMove(MoveCount: Integer); override;	52	procedure DoMove(MoveCount: Integer); override;
53	end;	53	end;
54		54
55	TBackgroundSpecial = class(TBackgroundSprite)	55	TBackgroundSpecial = class(TBackgroundSprite)
56	private	56	private
57	FSpeed: Double;	57	FSpeed: Double;
58	protected	58	protected
59	procedure DoMove(MoveCount: Integer); override;	59	procedure DoMove(MoveCount: Integer); override;
60	end;	60	end;
61		61
62	TExplosion = class(TImageSprite)	62	TExplosion = class(TImageSprite)
63	private	63	private
64	FCounter: Integer;	64	FCounter: Integer;
65	protected	65	protected
66	procedure DoMove(MoveCount: Integer); override;	66	procedure DoMove(MoveCount: Integer); override;
67	public	67	public
68	constructor Create(AParent: TSprite); override;	68	constructor Create(AParent: TSprite); override;
69	end;	69	end;
70		70
71	TPlayerSprite = class(TImageSprite)	71	TPlayerSprite = class(TImageSprite)
72	private	72	private
73	FCounter: Integer;	73	FCounter: Integer;
74	FMode: Integer;	74	FMode: Integer;
75	FTamaCount: Integer;	75	FTamaCount: Integer;
76	FOldTamaTime: Integer;	76	FOldTamaTime: Integer;
77	protected	77	protected
78	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;	78	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
79	procedure DoMove(MoveCount: Integer); override;	79	procedure DoMove(MoveCount: Integer); override;
80	public	80	public
81	constructor Create(AParent: TSprite); override;	81	constructor Create(AParent: TSprite); override;
82	procedure FlyAway;	82	procedure FlyAway;
83	end;	83	end;
84		84
85	TTamaSprite = class(TImageSprite)	85	TTamaSprite = class(TImageSprite)
86	private	86	private
87	FPlayerSprite: TPlayerSprite;	87	FPlayerSprite: TPlayerSprite;
88	protected	88	protected
89	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;	89	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
90	procedure DoMove(MoveCount: Integer); override;	90	procedure DoMove(MoveCount: Integer); override;
91	public	91	public
92	constructor Create(AParent: TSprite); override;	92	constructor Create(AParent: TSprite); override;
93	destructor Destroy; override;	93	destructor Destroy; override;
94	end;	94	end;
95		95
-		96	TEnemyClass = class of TEnemy;
96	TEnemy = class(TImageSprite)	97	TEnemy = class(TImageSprite)
97	private	98	private
98	FCounter: Integer;	99	FCounter: Integer;
99	FLife: integer;	100	FLife: integer;
100	FMode: Integer;	101	FMode: Integer;
101	procedure Hit; virtual;	-
102	protected	102	protected
103	procedure HitEnemy(ADead: Boolean); virtual;	103	procedure HitEnemy(ADead: Boolean); virtual;
104	public	104	public
-		105	procedure Hit(AHitStrength: integer = 1);
105	constructor Create(AParent: TSprite); override;	106	constructor Create(AParent: TSprite; ALifes: integer); virtual;
106	destructor Destroy; override;	107	destructor Destroy; override;
107	end;	108	end;
108		109
109	TEnemyTama = class(TImageSprite)	110	TEnemyTama = class(TImageSprite)
110	private	111	private
111	FPlayerSprite: TSprite;	112	FPlayerSprite: TSprite;
112	protected	113	protected
113	procedure DoMove(MoveCount: Integer); override;	114	procedure DoMove(MoveCount: Integer); override;
114	public	115	public
115	constructor Create(AParent: TSprite); override;	116	constructor Create(AParent: TSprite); override;
116	end;	117	end;
117		118
118	TEnemyMeteor = class(TEnemy)	119	TEnemyMeteor = class(TEnemy)
119	protected	120	protected
120	procedure DoMove(MoveCount: Integer); override;	121	procedure DoMove(MoveCount: Integer); override;
121	procedure HitEnemy(ADead: Boolean); override;	122	procedure HitEnemy(ADead: Boolean); override;
122	public	123	public
123	constructor Create(AParent: TSprite); override;	124	constructor Create(AParent: TSprite; ALifes: integer); override;
124	end;	125	end;
125		126
126	TEnemyUFO = class(TEnemy)	127	TEnemyUFO = class(TEnemy)
127	protected	128	protected
128	procedure DoMove(MoveCount: Integer); override;	129	procedure DoMove(MoveCount: Integer); override;
129	procedure HitEnemy(ADead: Boolean); override;	130	procedure HitEnemy(ADead: Boolean); override;
130	public	131	public
131	constructor Create(AParent: TSprite); override;	132	constructor Create(AParent: TSprite; ALifes: integer); override;
132	end;	133	end;
133		134
134	TEnemyUFO2 = class(TEnemy)	135	TEnemyUFO2 = class(TEnemy)
135	private	136	private
136	FCounter: Integer;	137	FCounter: Integer;
137	FTamaCount: Integer;	138	FTamaCount: Integer;
138	FOldTamaTime: Integer;	139	FOldTamaTime: Integer;
139	protected	140	protected
140	procedure DoMove(MoveCount: Integer); override;	141	procedure DoMove(MoveCount: Integer); override;
141	procedure HitEnemy(ADead: Boolean); override;	142	procedure HitEnemy(ADead: Boolean); override;
142	public	143	public
143	constructor Create(AParent: TSprite); override;	144	constructor Create(AParent: TSprite; ALifes: integer); override;
144	end;	145	end;
145		146
146	TEnemyAttacker = class(TEnemy)	147	TEnemyAttacker = class(TEnemy)
147	protected	148	protected
148	procedure DoMove(MoveCount: Integer); override;	149	procedure DoMove(MoveCount: Integer); override;
149	procedure HitEnemy(ADead: Boolean); override;	150	procedure HitEnemy(ADead: Boolean); override;
150	public	151	public
151	constructor Create(AParent: TSprite); override;	152	constructor Create(AParent: TSprite; ALifes: integer); override;
152	end;	153	end;
153		154
154	TEnemyAttacker2 = class(TEnemy)	155	TEnemyAttacker2 = class(TEnemy)
155	private	156	private
156	FCounter: Integer;	157	FCounter: Integer;
157	FTamaF: Integer;	158	FTamaF: Integer;
158	FTamaT: Integer;	159	FTamaT: Integer;
159	FPutTama: Boolean;	160	FPutTama: Boolean;
160	protected	161	protected
161	procedure DoMove(MoveCount: Integer); override;	162	procedure DoMove(MoveCount: Integer); override;
162	procedure HitEnemy(ADead: Boolean); override;	163	procedure HitEnemy(ADead: Boolean); override;
163	public	164	public
164	constructor Create(AParent: TSprite); override;	165	constructor Create(AParent: TSprite; ALifes: integer); override;
165	end;	166	end;
166		167
167	TEnemyAttacker3 = class(TEnemy)	168	TEnemyAttacker3 = class(TEnemy)
168	private	169	private
169	FCounter: Integer;	170	FCounter: Integer;
170	FTamaCount: Integer;	171	FTamaCount: Integer;
171	FOldTamaTime: Integer;	172	FOldTamaTime: Integer;
172	protected	173	protected
173	procedure DoMove(MoveCount: Integer); override;	174	procedure DoMove(MoveCount: Integer); override;
174	procedure HitEnemy(ADead: Boolean); override;	175	procedure HitEnemy(ADead: Boolean); override;
175	public	176	public
176	constructor Create(AParent: TSprite); override;	177	constructor Create(AParent: TSprite; ALifes: integer); override;
177	end;	178	end;
178		179
179	TEnemyBoss = class(TEnemy)	180	TEnemyBoss = class(TEnemy)
180	private	181	private
181	FCounter: Integer;	182	FCounter: Integer;
182	FTamaF: Integer;	183	FTamaF: Integer;
183	FTamaT: Integer;	184	FTamaT: Integer;
184	FPutTama: Boolean;	185	FPutTama: Boolean;
185	waiter1, waiter2: integer;	186	waiter1, waiter2: integer;
186	protected	187	protected
187	procedure DoMove(MoveCount: Integer); override;	188	procedure DoMove(MoveCount: Integer); override;
188	procedure HitEnemy(ADead: Boolean); override;	189	procedure HitEnemy(ADead: Boolean); override;
189	public	190	public
190	constructor Create(AParent: TSprite); override;	191	constructor Create(AParent: TSprite; ALifes: integer); override;
191	end;	192	end;
192		193
193	TNothing = class(TImageSprite);	-
194		-
195	TSpriteClass = class of TSprite;	-
196		-
197	TEnemyAdvent = record	194	TEnemyAdvent = record
198	spriteClass: TSpriteClass;	195	spriteClass: TEnemyClass;
199	x: extended;	196	x: extended;
200	y: extended;	197	y: extended;
201	lifes: integer;	198	lifes: integer;
202	end;	199	end;
203		200
204	TMainForm = class(TDXForm)	201	TMainForm = class(TDXForm)
205	MainMenu: TMainMenu;	202	MainMenu: TMainMenu;
206	Spiel: TMenuItem;	203	Spiel: TMenuItem;
207	GameStart: TMenuItem;	204	GameStart: TMenuItem;
208	GamePause: TMenuItem;	205	GamePause: TMenuItem;
209	Beenden: TMenuItem;	206	Beenden: TMenuItem;
210	Einstellungen: TMenuItem;	207	Einstellungen: TMenuItem;
211	OptionFullScreen: TMenuItem;	208	OptionFullScreen: TMenuItem;
212	OptionMusic: TMenuItem;	209	OptionMusic: TMenuItem;
213	Leer2: TMenuItem;	210	Leer2: TMenuItem;
214	Leer4: TMenuItem;	211	Leer4: TMenuItem;
215	Hilfe: TMenuItem;	212	Hilfe: TMenuItem;
216	OptionSound: TMenuItem;	213	OptionSound: TMenuItem;
217	Leer3: TMenuItem;	214	Leer3: TMenuItem;
218	Spielstand: TMenuItem;	215	Spielstand: TMenuItem;
219	Leer5: TMenuItem;	216	Leer5: TMenuItem;
220	Neustart: TMenuItem;	217	Neustart: TMenuItem;
221	OptionBreitbild: TMenuItem;	218	OptionBreitbild: TMenuItem;
222	Spielgeschwindigkeit: TMenuItem;	219	Spielgeschwindigkeit: TMenuItem;
223	Leicht: TMenuItem;	220	Leicht: TMenuItem;
224	Mittel: TMenuItem;	221	Mittel: TMenuItem;
225	Schwer: TMenuItem;	222	Schwer: TMenuItem;
226	Informationen: TMenuItem;	223	Informationen: TMenuItem;
227	Leer6: TMenuItem;	224	Leer6: TMenuItem;
228	Leer1: TMenuItem;	225	Leer1: TMenuItem;
229	Cheat: TMenuItem;	226	Cheat: TMenuItem;
230	CheckUpdates: TMenuItem;	227	CheckUpdates: TMenuItem;
231	Master: TMenuItem;	228	Master: TMenuItem;
232	procedure DXDrawFinalize(Sender: TObject);	229	procedure DXDrawFinalize(Sender: TObject);
233	procedure DXDrawInitialize(Sender: TObject);	230	procedure DXDrawInitialize(Sender: TObject);
234	procedure FormCreate(Sender: TObject);	231	procedure FormCreate(Sender: TObject);
235	procedure DXTimerTimer(Sender: TObject; LagCount: Integer);	232	procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
236	procedure DXTimerActivate(Sender: TObject);	233	procedure DXTimerActivate(Sender: TObject);
237	procedure DXTimerDeactivate(Sender: TObject);	234	procedure DXTimerDeactivate(Sender: TObject);
238	procedure OptionFullScreenClick(Sender: TObject);	235	procedure OptionFullScreenClick(Sender: TObject);
239	procedure DXDrawInitializing(Sender: TObject);	236	procedure DXDrawInitializing(Sender: TObject);
240	procedure GameStartClick(Sender: TObject);	237	procedure GameStartClick(Sender: TObject);
241	procedure GamePauseClick(Sender: TObject);	238	procedure GamePauseClick(Sender: TObject);
242	procedure BeendenClick(Sender: TObject);	239	procedure BeendenClick(Sender: TObject);
243	procedure OptionSoundClick(Sender: TObject);	240	procedure OptionSoundClick(Sender: TObject);
244	procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);	241	procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
245	procedure OptionMusicClick(Sender: TObject);	242	procedure OptionMusicClick(Sender: TObject);
246	procedure SpielstandClick(Sender: TObject);	243	procedure SpielstandClick(Sender: TObject);
247	procedure NeustartClick(Sender: TObject);	244	procedure NeustartClick(Sender: TObject);
248	procedure OptionBreitbildClick(Sender: TObject);	245	procedure OptionBreitbildClick(Sender: TObject);
249	procedure LeichtClick(Sender: TObject);	246	procedure LeichtClick(Sender: TObject);
250	procedure MittelClick(Sender: TObject);	247	procedure MittelClick(Sender: TObject);
251	procedure SchwerClick(Sender: TObject);	248	procedure SchwerClick(Sender: TObject);
252	procedure FormShow(Sender: TObject);	249	procedure FormShow(Sender: TObject);
253	procedure InformationenClick(Sender: TObject);	250	procedure InformationenClick(Sender: TObject);
254	procedure CheatClick(Sender: TObject);	251	procedure CheatClick(Sender: TObject);
255	procedure FormClose(Sender: TObject; var Action: TCloseAction);	252	procedure FormClose(Sender: TObject; var Action: TCloseAction);
256	procedure FormDestroy(Sender: TObject);	253	procedure FormDestroy(Sender: TObject);
257	procedure CheckUpdatesClick(Sender: TObject);	254	procedure CheckUpdatesClick(Sender: TObject);
258	procedure MasterClick(Sender: TObject);	255	procedure MasterClick(Sender: TObject);
259	private	256	private
260	ProgrammGestartet: boolean;	257	ProgrammGestartet: boolean;
261	FInterval: TGameInterval;	258	FInterval: TGameInterval;
262	FScene: TGameScene;	259	FScene: TGameScene;
263	FMusic: TMusicTrack;	260	FMusic: TMusicTrack;
264	FBlink: DWORD;	261	FBlink: DWORD;
265	FBlinkTime: DWORD;	262	FBlinkTime: DWORD;
266	FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;	263	FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;
267	PlayerSprite: TPlayerSprite;	264	PlayerSprite: TPlayerSprite;
-		265	TimerCS: TRTLCriticalSection;
268	procedure StartScene(Scene: TGameScene);	266	procedure StartScene(Scene: TGameScene);
269	procedure EndScene;	267	procedure EndScene;
270	procedure BlinkStart;	268	procedure BlinkStart;
271	procedure BlinkUpdate;	269	procedure BlinkUpdate;
272	procedure StartSceneTitle;	270	procedure StartSceneTitle;
273	procedure SceneTitle;	271	procedure SceneTitle;
274	procedure EndSceneTitle;	272	procedure EndSceneTitle;
275	procedure StartSceneMain;	273	procedure StartSceneMain;
276	procedure SceneMain;	274	procedure SceneMain;
277	procedure EndSceneMain;	275	procedure EndSceneMain;
278	procedure StartSceneGameOver;	276	procedure StartSceneGameOver;
279	procedure SceneGameOver;	277	procedure SceneGameOver;
280	procedure EndSceneGameOver;	278	procedure EndSceneGameOver;
281	procedure StartSceneWin;	279	procedure StartSceneWin;
282	procedure SceneWin;	280	procedure SceneWin;
283	procedure EndSceneWin;	281	procedure EndSceneWin;
284	procedure StartSceneNewLevel;	282	procedure StartSceneNewLevel;
285	procedure SceneNewLevel;	283	procedure SceneNewLevel;
286	procedure EndSceneNewLevel;	284	procedure EndSceneNewLevel;
287	public	285	public
288	FNextScene: TGameScene;	286	FNextScene: TGameScene;
289	FScore: Integer;	287	FScore: Integer;
290	FNotSave: boolean;	288	FNotSave: boolean;
291	FLife: integer;	289	FLife: integer;
292	FLevel: integer;	290	FLevel: integer;
293	FMenuItem: integer;	291	FMenuItem: integer;
294	FBossLife: integer;	292	FBossLife: integer;
295	FRestEnemys: integer;	293	FRestEnemies: integer;
296	FCheat: boolean;	294	FCheat: boolean;
297	{ VCL-Ersatz }	295	{ VCL-Ersatz }
298	dxdraw: TDxDraw;	296	dxdraw: TDxDraw;
299	imagelist: TDxImageList;	297	imagelist: TDxImageList;
300	spriteengine: tdxspriteengine;	298	spriteengine: tdxspriteengine;
301	dxsound: tdxsound;	299	dxsound: tdxsound;
302	wavelist: tdxwavelist;	300	wavelist: tdxwavelist;
303	dxinput: tdxinput;	301	dxinput: tdxinput;
304	dxtimer: tdxtimer;	302	dxtimer: tdxtimer;
305	{ Level-Routinen }	303	{ Level-Routinen }
306	procedure NewLevel(lev: integer);	304	procedure NewLevel(lev: integer);
307	procedure DeleteArray;	305	procedure DeleteArray;
308	{ MCI-Routinen }	306	{ MCI-Routinen }
309	function StatusMusic(Name: TMusicTrack): string;	307	function StatusMusic(Name: TMusicTrack): string;
310	procedure PlayMusic(Name: TMusicTrack);	308	procedure PlayMusic(Name: TMusicTrack);
311	//procedure StopMusic(Name: TMusicTrack);	309	//procedure StopMusic(Name: TMusicTrack);
312	procedure PauseMusic(Name: TMusicTrack);	310	procedure PauseMusic(Name: TMusicTrack);
313	procedure ResumeMusic(Name: TMusicTrack);	311	procedure ResumeMusic(Name: TMusicTrack);
314	procedure DestroyMusic(Name: TMusicTrack);	312	procedure DestroyMusic(Name: TMusicTrack);
315	procedure OpenMusic(Name: TMusicTrack);	313	procedure OpenMusic(Name: TMusicTrack);
316	{ Sound-Routinen }	314	{ Sound-Routinen }
317	function SoundKarte: boolean;	315	function SoundKarte: boolean;
318	procedure PlaySound(Name: string; Wait: Boolean);	316	procedure PlaySound(Name: string; Wait: Boolean);
319	{ Initialisiations-Routinen }	317	{ Initialisiations-Routinen }
320	procedure DXInit;	318	procedure DXInit;
321	procedure SoundInit;	319	procedure SoundInit;
322	procedure MusicInit;	320	procedure MusicInit;
323	{ Einstellungs-Routinen }	321	{ Einstellungs-Routinen }
324	procedure LoadOptions;	322	procedure LoadOptions;
325	procedure WriteOptions;	323	procedure WriteOptions;
326	{ Farb-Routinen }	324	{ Farb-Routinen }
327	function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;	325	function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
328	procedure PalleteAnim(Col: TRGBQuad; Time: Integer);	326	procedure PalleteAnim(Col: TRGBQuad; Time: Integer);
329	end;	327	end;
330		328
331	var	329	var
332	MainForm: TMainForm;	330	MainForm: TMainForm;
333		331
-		332	implementation
-		333
-		334	uses
-		335	GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;
-		336
334	const	337	const
335	// TODO: ini file	338	// TODO: ini file
336	conleicht = 650 div 60; // 10	339	conleicht = 650 div 60; // 10
337	conmittel = 1000 div 60; // 16	340	conmittel = 1000 div 60; // 16
338	conschwer = 1350 div 60; // 22	341	conschwer = 1350 div 60; // 22
339	conmaster = 2000 div 60; // 33	342	conmaster = 2000 div 60; // 33
340	lives = 6;	343	lives = 6;
341		344
-		345	// TODO: Auch für Enemies
-		346	PLAYER_MODE_NORMAL = 0;
342	implementation	347	PLAYER_MODE_DEAD = 1;
-		348	PLAYER_MODE_DEAD_VANISHED = 2;
-		349	PLAYER_MODE_FLYAWAY = 3;
-		350	PLAYER_MODE_ENTER = 4;
343		351
344	uses	-
345	GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;	352	DEFAULT_ANIMSPEED = 15/1000;
346		353
347	resourcestring	354	resourcestring
348	FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';	355	FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
349		356
350	{$R *.DFM}	357	{$R *.DFM}
351		358
352	var // TODO: irgendwo hinpacken. irgendwo!!!	359	var // TODO: irgendwo hinpacken. irgendwo!!!
353	EnemyAdventTable: array[0..9999] of TEnemyAdvent; // TODO: dyn	360	EnemyAdventTable: array of TEnemyAdvent;
354	Crash2, ec: integer;	361	Crash2, EnemyCounter: integer;
355	BossExists, Crash, crashsound: boolean;	362	BossExists, Crash, crashsound: boolean;
356	pos: array[1..4] of integer;	-
357	enemys: array[1..27] of TSpriteClass;	-
358	levact: integer;	-
359		363
360	const	364	const
361	DXInputButton = [isButton1, isButton2, isButton3,	365	DXInputButton = [isButton1, isButton2, isButton3,
362	isButton4, isButton5, isButton6, isButton7, isButton8, isButton9, isButton10, isButton11,	366	isButton4, isButton5, isButton6, isButton7, isButton8, isButton9, isButton10, isButton11,
363	isButton12, isButton13, isButton14, isButton15, isButton16, isButton17, isButton18,	367	isButton12, isButton13, isButton14, isButton15, isButton16, isButton17, isButton18,
364	isButton19, isButton20, isButton21, isButton22, isButton23, isButton24, isButton25,	368	isButton19, isButton20, isButton21, isButton22, isButton23, isButton24, isButton25,
365	isButton26, isButton27, isButton28, isButton29, isButton30, isButton31, isButton32];	369	isButton26, isButton27, isButton28, isButton29, isButton30, isButton31, isButton32];
366		370
367	const // TODO: Auch für Enemies	-
368	PLAYER_MODE_NORMAL = 0;	-
369	PLAYER_MODE_DEAD = 1;	-
370	PLAYER_MODE_DEAD_VANISHED = 2;	-
371	PLAYER_MODE_FLYAWAY = 3;	-
372	PLAYER_MODE_ENTER = 4;	-
373		-
374	DEFAULT_ANIMSPEED = 15/1000;	-
375		-
376	// TODO: Code komplett überarbeiten. Bessere Ableitungen machen	371	// TODO: Code komplett überarbeiten. Bessere Ableitungen machen
377		372
378	constructor TPlayerSprite.Create(AParent: TSprite);	373	constructor TPlayerSprite.Create(AParent: TSprite);
379	begin	374	begin
380	inherited Create(AParent);	375	inherited Create(AParent);
381	Image := MainForm.ImageList.Items.Find('Machine');	376	Image := MainForm.ImageList.Items.Find('Machine');
382	Width := Image.Width;	377	Width := Image.Width;
383	Height := Image.Height;	378	Height := Image.Height;
384	X := -70{20};	379	X := -70{20};
385	Y := mainform.dxdraw.surfaceHeight / 2 - (height / 2);	380	Y := mainform.dxdraw.surfaceHeight / 2 - (height / 2);
386	Z := 2;	381	Z := 2;
387	AnimCount := Image.PatternCount;	382	AnimCount := Image.PatternCount;
388	AnimLooped := True;	383	AnimLooped := True;
389	AnimSpeed := DEFAULT_ANIMSPEED;	384	AnimSpeed := DEFAULT_ANIMSPEED;
390	FMode := PLAYER_MODE_ENTER;	385	FMode := PLAYER_MODE_ENTER;
391	end;	386	end;
392		387
393	procedure TPlayerSprite.DoCollision(Sprite: TSprite; var Done: Boolean);	388	procedure TPlayerSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
394	begin	389	begin
395	if mainform.FCheat then exit;	390	if mainform.FCheat then exit;
396	if (Sprite is TEnemy) or (Sprite is TEnemyTama) then	391	if (Sprite is TEnemy) or (Sprite is TEnemyTama) then
397	begin	392	begin
398	if not crash then	393	if not crash then
399	begin	394	begin
400	dec(MainForm.FLife);	395	dec(MainForm.FLife);
401	Crash := true;	396	Crash := true;
402	if MainForm.Flife=0 then	397	if MainForm.Flife=0 then
403	begin	398	begin
404	MainForm.PlaySound('Explosion', false);	399	MainForm.PlaySound('Explosion', false);
405	Collisioned := false;	400	Collisioned := false;
406	FCounter := 0;	401	FCounter := 0;
407	FMode := PLAYER_MODE_DEAD;	402	FMode := PLAYER_MODE_DEAD;
408	Done := false;	403	Done := false;
409	Image := MainForm.ImageList.Items.Find('Explosion');	404	Image := MainForm.ImageList.Items.Find('Explosion');
410	Width := Image.Width;	405	Width := Image.Width;
411	Height := Image.Height;	406	Height := Image.Height;
412	AnimCount := Image.PatternCount;	407	AnimCount := Image.PatternCount;
413	AnimLooped := False;	408	AnimLooped := False;
414	AnimSpeed := DEFAULT_ANIMSPEED;	409	AnimSpeed := DEFAULT_ANIMSPEED;
415	AnimPos := 0;	410	AnimPos := 0;
416	end;	411	end;
417	end	412	end
418	else	413	else
419	begin	414	begin
420	if not crashsound then	415	if not crashsound then
421	begin	416	begin
422	MainForm.PlaySound('Hit', False);	417	MainForm.PlaySound('Hit', False);
423	crashsound := true;	418	crashsound := true;
424	end;	419	end;
425	end;	420	end;
426	end;	421	end;
427	end;	422	end;
428		423
429	procedure TPlayerSprite.DoMove(MoveCount: Integer);	424	procedure TPlayerSprite.DoMove(MoveCount: Integer);
430	const	425	const
431	WegduesKonstante = 1.75;	426	WegduesKonstante = 1.75;
432	begin	427	begin
433	inherited DoMove(MoveCount);	428	inherited DoMove(MoveCount);
434	if FMode=PLAYER_MODE_NORMAL then	429	if FMode=PLAYER_MODE_NORMAL then
435	begin	430	begin
436	if isUp in MainForm.DXInput.States then Y := Y - (250/1000)*MoveCount;	431	if isUp in MainForm.DXInput.States then Y := Y - (250/1000)*MoveCount;
437	if isDown in MainForm.DXInput.States then Y := Y + (250/1000)*MoveCount;	432	if isDown in MainForm.DXInput.States then Y := Y + (250/1000)*MoveCount;
438	if isLeft in MainForm.DXInput.States then X := X - (250/1000)*MoveCount;	433	if isLeft in MainForm.DXInput.States then X := X - (250/1000)*MoveCount;
439	if isRight in MainForm.DXInput.States then X := X + (250/1000)*MoveCount;	434	if isRight in MainForm.DXInput.States then X := X + (250/1000)*MoveCount;
440	if X<0 then X := 0;	435	if X<0 then X := 0;
441	if X>mainform.dxdraw.surfacewidth-Width then X := mainform.dxdraw.surfacewidth-Width;	436	if X>mainform.dxdraw.surfacewidth-Width then X := mainform.dxdraw.surfacewidth-Width;
442	if Y<0 then Y := 0;	437	if Y<0 then Y := 0;
443	if Y>mainform.dxdraw.surfaceheight-Height then Y := mainform.dxdraw.surfaceheight-Height;	438	if Y>mainform.dxdraw.surfaceheight-Height then Y := mainform.dxdraw.surfaceheight-Height;
444	if isButton1 in MainForm.DXInput.States then	439	if isButton1 in MainForm.DXInput.States then
445	begin	440	begin
446	if (FTamaCount<8) and (FCounter-FOldTamaTime>=100) then	441	if (FTamaCount<8) and (FCounter-FOldTamaTime>=100) then
447	begin	442	begin
448	Inc(FTamaCount);	443	Inc(FTamaCount);
449	with TTamaSprite.Create(Engine) do	444	with TTamaSprite.Create(Engine) do
450	begin	445	begin
451	FPlayerSprite := Self;	446	FPlayerSprite := Self;
452	X := Self.X+Self.Width;	447	X := Self.X+Self.Width;
453	Y := Self.Y+Self.Height div 2-Height div 2;	448	Y := Self.Y+Self.Height div 2-Height div 2;
454	Z := 10;	449	Z := 10;
455	end;	450	end;
456	FOldTamaTime := FCounter;	451	FOldTamaTime := FCounter;
457	end;	452	end;
458	end;	453	end;
459	Collision;	454	Collision;
-		455	end
460	end else if FMode=PLAYER_MODE_DEAD then	456	else if FMode=PLAYER_MODE_DEAD then
461	begin	457	begin
462	if FCounter>200 then	458	if FCounter>200 then
463	begin	459	begin
464	FCounter := 0;	460	FCounter := 0;
465	FMode := PLAYER_MODE_DEAD_VANISHED;	461	FMode := PLAYER_MODE_DEAD_VANISHED;
466	Visible := false;	462	Visible := false;
467	end;	463	end;
-		464	end
468	end else if FMode=PLAYER_MODE_DEAD_VANISHED then	465	else if FMode=PLAYER_MODE_DEAD_VANISHED then
469	begin	466	begin
470	if FCounter>1500 then	467	if FCounter>1500 then
471	begin	468	begin
472	MainForm.FNextScene := gsGameOver;	469	MainForm.FNextScene := gsGameOver;
473	MainForm.PlaySound('SceneMov', false);	470	MainForm.PlaySound('SceneMov', false);
474	MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);	471	MainForm.PalleteAnim(RGBQuad(0, 0, 0), 300);
475	Sleep(200);	472	Sleep(200);
476	end;	473	end;
-		474	end
477	end else if FMode=PLAYER_MODE_FLYAWAY then	475	else if FMode=PLAYER_MODE_FLYAWAY then
478	begin	476	begin
479	// FUT: "Wusch" sound?	477	// FUT: "Wusch" sound?
480	X := X + MoveCount(300/1000) (X/MainForm.DXDraw.Width + WegduesKonstante);	478	X := X + MoveCount(300/1000) (X/MainForm.DXDraw.Width + WegduesKonstante);
481	if X > MainForm.DXDraw.Width+Width then	479	if X > MainForm.DXDraw.Width+Width then
482	begin	480	begin
483	Dead;	481	Dead;
484	inc(mainform.FLevel);	482	inc(mainform.FLevel);

Subversion Repositories spacemission

spacemission/GamMain.pas – Rev 6 → 7