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

Subversion Repositories spacemission

spacemission/GamMain.pas – Rev 3 → 4