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;
 
  TEnemy = class(TImageSprite)
  private
    FCounter: Integer;
    FLife: integer;
    FMode: Integer;
    procedure Hit; virtual;
  protected
    procedure HitEnemy(ADead: Boolean); virtual;
  public
    constructor Create(AParent: TSprite); override;
    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); override;
  end;
 
  TEnemyUFO = class(TEnemy)
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite); 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); override;
  end;
 
  TEnemyAttacker = class(TEnemy)
  protected
    procedure DoMove(MoveCount: Integer); override;
    procedure HitEnemy(ADead: Boolean); override;
  public
    constructor Create(AParent: TSprite); 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); 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); 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); override;
  end;
 
  TNothing = class(TImageSprite);
 
  TSpriteClass = class of TSprite;
 
  TEnemyAdvent = record
    spriteClass: TSpriteClass;
    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;
    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;
    FRestEnemys: 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;
 
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;
 
implementation
 
uses
  GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;
 
resourcestring
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 
{$R *.DFM}
 
var // TODO: irgendwo hinpacken. irgendwo!!!
  EnemyAdventTable: array[0..9999] of TEnemyAdvent; // TODO: dyn
  Crash2, ec: integer;
  BossExists, Crash, crashsound: boolean;
  pos: array[1..4] of integer;
  enemys: array[1..27] of TSpriteClass;
  levact: integer;
 
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];
 
const // 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;
 
// 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;
begin
  Dec(FLife);
  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);
end;
 
constructor TEnemyUFO.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Enemy-disk');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
 
constructor TEnemy.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  dec(mainform.FRestEnemys);
  inc(ec);
end;
 
destructor TEnemy.Destroy;
begin
  inherited Destroy;
  dec(ec);
end;
 
procedure TEnemyUFO.HitEnemy(ADead: Boolean);
begin
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    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
    MainForm.PlaySound('Hit', False);
    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
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    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
    MainForm.PlaySound('Hit', False);
    Inc(MainForm.FScore, 100);
  end;
end;
 
constructor TEnemyUFO2.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Enemy-disk2');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
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);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
 
procedure TEnemyAttacker.HitEnemy(ADead: Boolean);
begin
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    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
    MainForm.PlaySound('Hit', False);
    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);
begin
  inherited Create(AParent);
  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;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
  MainForm.FBossLife := FLife;
  waiter1 := 0;
  waiter2 := 0;
end;
 
procedure TEnemyBoss.HitEnemy(ADead: Boolean);
begin
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    FMode := 2;
    FCounter := 0;
    Inc(MainForm.FScore, 100000);
    BossExists := false;
    dec(MainForm.FBossLife);
  end else
  begin
    MainForm.PlaySound('Hit', False);
    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);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker2');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
 
procedure TEnemyAttacker2.HitEnemy(ADead: Boolean);
begin
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    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
    MainForm.PlaySound('Hit', False);
    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
  if ADead then
  begin
    MainForm.PlaySound('Explosion', False);
    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
    MainForm.PlaySound('Hit', False);
    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);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Enemy-Attacker3');
  Width := Image.Width;
  Height := Image.Height;
  AnimCount := Image.PatternCount;
  AnimLooped := True;
  AnimSpeed := DEFAULT_ANIMSPEED;
  PixelCheck := True;
  FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
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;
 
  { 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
  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;
end;
 
procedure TMainForm.BlinkStart;
begin
  FBlink := 0;
  FBlinkTime := GetTickCount;
end;
 
procedure TMainForm.WriteOptions;
var
  INIDatei: TIniFile;
begin
  INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  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);
  INIDatei.Free;
end;
 
procedure TMainForm.LoadOptions;
var
  INIDatei: TIniFile;
begin
  INIDatei := TIniFile.Create(FDirectory+'Einstellungen\SpaceMission.ini');
  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;
  INIDatei.Free;
  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
      Sleep(Time);
    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 := 1;
  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();
var
  i: integer;
begin
  for i := Low(EnemyAdventTable) to High(EnemyAdventTable) do
  begin
    EnemyAdventTable[i].spriteClass := TNothing;
    EnemyAdventTable[i].x := 0;
    EnemyAdventTable[i].y := 0;
    EnemyAdventTable[i].lifes := 0;
  end;
  FRestEnemys := 0;
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;
begin
  DeleteArray;
  if FMenuItem = 2 then
  begin
    enemys[1] := TEnemyAttacker;
    enemys[2] := TEnemyMeteor;
    enemys[3] := TEnemyUFO;
    enemys[4] := TEnemyAttacker;
    enemys[5] := TEnemyMeteor;
    enemys[6] := TEnemyUFO;
    enemys[7] := TEnemyAttacker;
    enemys[8] := TEnemyMeteor;
    enemys[9] := TEnemyUFO;
    enemys[10] := TEnemyAttacker;
    enemys[11] := TEnemyMeteor;
    enemys[12] := TEnemyUFO;
    enemys[13] := TEnemyAttacker;
    enemys[14] := TEnemyMeteor;
    enemys[15] := TEnemyUFO;
    enemys[16] := TEnemyAttacker3;
    enemys[17] := TEnemyAttacker;
    enemys[18] := TEnemyMeteor;
    enemys[19] := TEnemyUFO;
    enemys[20] := TEnemyUFO2;
    enemys[21] := TEnemyAttacker;
    enemys[22] := TEnemyMeteor;
    enemys[23] := TEnemyUFO;
    enemys[24] := TEnemyAttacker2;
    enemys[25] := TEnemyMeteor;
    enemys[26] := TEnemyUFO;
    enemys[27] := TEnemyAttacker;
    randomize;
    for act := 1 to lev*75-1 do
    begin
      inc(FRestEnemys);
      EnemyAdventTable[act].spriteClass := enemys[random(lev+2)+1];
      if EnemyAdventTable[act].spriteClass = TEnemyAttacker2 then EnemyAdventTable[act].spriteClass := enemys[random(lev+2)+1]; {O_o}
      EnemyAdventTable[act].x := act*30 + random(85-(lev+(random(lev))*2)){O_o};
      EnemyAdventTable[act].y := random(dxdraw.surfaceheight);
      if (EnemyAdventTable[act].spriteClass <> TEnemyMeteor) and (EnemyAdventTable[act].spriteClass <> TEnemyAttacker2) then EnemyAdventTable[act].lifes := random(lev)+1;
      if EnemyAdventTable[act].spriteClass = TEnemyAttacker2 then EnemyAdventTable[act].lifes := random(6)+1{O_o};
    end;
    EnemyAdventTable[lev*75].spriteClass := TEnemyBoss;
    EnemyAdventTable[lev*75].x := lev*75*30{O_o} div lev;
    EnemyAdventTable[lev*75].y := (dxdraw.surfaceheight div 2) - (MainForm.ImageList.Items.Find('Enemy-boss').height div 2);
    EnemyAdventTable[lev*75].lifes := lev*5;
    inc(FRestEnemys);
  end
  else
  begin
    enemys[1] := TEnemyAttacker;
    enemys[2] := TEnemyAttacker2;
    enemys[3] := TEnemyAttacker3;
    enemys[4] := TEnemyMeteor;
    enemys[5] := TEnemyUFO;
    enemys[6] := TEnemyUFO2;
    enemys[7] := TEnemyBoss;
    if fileexists(FDirectory+'Levels\Level '+inttostr(lev)+'.lev') then
    begin
      levact := 0;
      assignfile(filex, FDirectory+'Levels\Level '+inttostr(lev)+'.lev');
      reset(filex);
      while not seekEoF(filex) do
      begin
        if levact = 0 then
        begin
          readln(filex, ergebniss);
          if ergebniss <> '; SpaceMission '+FCompVersion then
          begin
            showmessage(Format(LNG_LEVEL_INVALID, [lev]));
            application.terminate;
            exit;
          end;
          readln(filex, ergebniss);
          if ergebniss <> '; LEV-File' then
          begin
            showmessage(Format(LNG_LEVEL_INVALID, [lev]));
            application.terminate;
            exit;
          end;
          readln(filex);
        end;
        inc(levact);
        readln(filex, ergebniss);
        if levact = 5 then levact := 1;
        if levact = 1 then
        begin
          inc(pos[levact]);
          inc(FRestEnemys);
          EnemyAdventTable[pos[levact]].spriteClass := enemys[strtoint(ergebniss)];
        end;
        if levact = 2 then
        begin
          inc(pos[levact]);
          EnemyAdventTable[pos[levact]].x := strtoint(ergebniss);
        end;
        if levact = 3 then
        begin
          inc(pos[levact]);
          EnemyAdventTable[pos[levact]].y := strtoint(ergebniss);
        end;
        if levact = 4 then
        begin
          inc(pos[levact]);
          EnemyAdventTable[pos[levact]].lifes := strtoint(ergebniss);
        end;
      end;
      closefile(filex);
    end;
  end;
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 (fileexists(FDirectory+'Levels\Level '+inttostr(FLevel)+'.lev')=false)) 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
  if FInterval = giLeicht then SpriteEngine.Move(conleicht);
  if FInterval = giMittel then SpriteEngine.Move(conmittel);
  if FInterval = giSchwer then SpriteEngine.Move(conschwer);
  if FInterval = giMaster then SpriteEngine.Move(conmaster);
  SpriteEngine.Dead;
  while (Low(EnemyAdventTable)<=FEnemyAdventPos) and
    (FEnemyAdventPos<=High(EnemyAdventTable)) and
    ((EnemyAdventTable[FEnemyAdventPos].x / 4)<=FFrame) and
    (FRestEnemys>0) do
  begin
    if EnemyAdventTable[FEnemyAdventPos].spriteClass <> TNothing then
    begin
      with EnemyAdventTable[FEnemyAdventPos] do
      begin
        Enemy := spriteClass.Create(SpriteEngine.Engine);
        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;
    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 (FRestEnemys>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(FRestEnemys));
            Font.Color := clLime;
            Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-80, 'Boss: ' + IntToStr(FBossLife));
            Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemys));
          end;
          if (FRestEnemys<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 (FRestEnemys>0) and not Bossexists then
        begin
          Font.Color := clGreen;
          Textout(dxdraw.surfacewidth-191, dxdraw.surfaceheight-41, 'Einheiten: ' + IntToStr(FRestEnemys));
          Font.Color := clLime;
          Textout(dxdraw.surfacewidth-190, dxdraw.surfaceheight-40, 'Einheiten: ' + IntToStr(FRestEnemys));
        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 FRestEnemys<0 then FRestEnemys := 0; //Muss das sein?
    if (Ec=0) and (FRestEnemys=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
  if ADead then Collisioned := True;
  MainForm.PlaySound('Hit', False);
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);
begin
  inherited Create(AParent);
  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;
  ec := 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
  SplashForm.Hide;
  SplashForm.Free;
 
  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;
end;
 
end.
 
 

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

Subversion Repositories spacemission

spacemission/GamMain.pas – Rev 4 → 6