WebSVN – spacemission – Diff – /SplMain.pas


unit SplMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,
  StdCtrls, ExtCtrls, Menus, SplInfo, DIB, DXClass, DXSprite, DXDraws, DXInput,
  DXSounds, INIFiles, ShellAPI, wininet;
 
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;
    Mitarbeiter: 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 MitarbeiterClick(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
  conleicht = 650 div 60; // 10
  conmittel = 1000 div 60; // 16
  conschwer = 1350 div 60; // 22
  conmaster = 2000 div 60; // 33
  lives = 6;
 
implementation
 
uses
  SplSplash, SplSpeicherung, SplText, SplCheat, Global;
 
resourcestring
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
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;
 
// 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 := 15/1000;
  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 := 15/1000;
        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;
      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 := 15/1000;
  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 := 15/1000;
  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 := 15/1000;
  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 := 15/1000;
  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 := 15/1000;
    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 := 15/1000;
    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 := 15/1000;
  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 := 15/1000;
  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 := 15/1000;
    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 := 15/1000;
  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 := 15/1000;
  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 := 15/1000;
    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 := 15/1000;
    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 := 15/1000;
  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 TMainForm.MitarbeiterClick(Sender: TObject);
resourcestring
  LNG_NOTFOUND = 'Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!';
const
  MitwirkendeTxt = 'Texte\Mitwirkende.txt';
begin
  if not fileexists(fdirectory+MitwirkendeTxt) then
 
 
 
  begin
    MessageDLG(Format(LNG_NOTFOUND, [MitwirkendeTxt]), mtWarning, [mbOK], 0);
    Exit;
  end;
 
  TextForm.memo1.lines.loadfromfile(FDirectory+MitwirkendeTxt);
  TextForm.ShowModal;
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 := 15/1000;
  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 1	Rev 2
1	unit SplMain;	1	unit SplMain;
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, SplInfo, DIB, DXClass, DXSprite, DXDraws, DXInput,	7	StdCtrls, ExtCtrls, Menus, SplInfo, DIB, DXClass, DXSprite, DXDraws, DXInput,
8	DXSounds, PJVersionInfo, INIFiles, shellapi, wininet;	8	DXSounds, INIFiles, ShellAPI, wininet;
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	);	25	);
25		26
26	TMusicTrack = (	27	TMusicTrack = (
27	mtNone,	28	mtNone,
28	mtGame,	29	mtGame,
29	mtBoss,	30	mtBoss,
30	mtScene,	31	mtScene,
31	mtTitle	32	mtTitle
32	);	33	);
33		34
34	{TSoundFile = (	35	{TSoundFile = (
35	sfNone,	36	sfNone,
36	sfSceneMov,	37	sfSceneMov,
37	sfExplosion,	38	sfExplosion,
38	sfHit,	39	sfHit,
39	sfShoot,	40	sfShoot,
40	sfDanger,	41	sfDanger,
41	sfEnde,	42	sfEnde,
42	sfFrage,	43	sfFrage,
43	sfLevIntro	44	sfLevIntro
44	);}	45	);}
45		46
46	TMainForm = class(TDXForm)	-
47	MainMenu: TMainMenu;	-
48	Spiel: TMenuItem;	-
49	GameStart: TMenuItem;	-
50	GamePause: TMenuItem;	-
51	Beenden: TMenuItem;	-
52	Einstellungen: TMenuItem;	-
53	OptionFullScreen: TMenuItem;	-
54	OptionMusic: TMenuItem;	-
55	Leer2: TMenuItem;	-
56	Leer4: TMenuItem;	-
57	Hilfe: TMenuItem;	-
58	OptionSound: TMenuItem;	-
59	Mitarbeiter: TMenuItem;	-
60	Leer3: TMenuItem;	-
61	Spielstand: TMenuItem;	-
62	Leer5: TMenuItem;	-
63	Neustart: TMenuItem;	-
64	OptionBreitbild: TMenuItem;	-
65	Spielgeschwindigkeit: TMenuItem;	-
66	Leicht: TMenuItem;	-
67	Mittel: TMenuItem;	-
68	Schwer: TMenuItem;	-
69	Informationen: TMenuItem;	-
70	Leer6: TMenuItem;	-
71	Leer1: TMenuItem;	-
72	Cheat: TMenuItem;	-
73	AufUpdatesprfen1: TMenuItem;	-
74	procedure DXDrawFinalize(Sender: TObject);	-
75	procedure DXDrawInitialize(Sender: TObject);	-
76	procedure FormCreate(Sender: TObject);	-
77	procedure DXTimerTimer(Sender: TObject; LagCount: Integer);	-
78	procedure DXTimerActivate(Sender: TObject);	-
79	procedure DXTimerDeactivate(Sender: TObject);	-
80	procedure OptionFullScreenClick(Sender: TObject);	-
81	procedure DXDrawInitializing(Sender: TObject);	-
82	procedure GameStartClick(Sender: TObject);	-
83	procedure GamePauseClick(Sender: TObject);	-
84	procedure BeendenClick(Sender: TObject);	-
85	procedure OptionSoundClick(Sender: TObject);	-
86	procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);	-
87	procedure OptionMusicClick(Sender: TObject);	-
88	procedure MitarbeiterClick(Sender: TObject);	-
89	procedure SpielstandClick(Sender: TObject);	-
90	procedure NeustartClick(Sender: TObject);	-
91	procedure OptionBreitbildClick(Sender: TObject);	-
92	procedure LeichtClick(Sender: TObject);	-
93	procedure MittelClick(Sender: TObject);	-
94	procedure SchwerClick(Sender: TObject);	-
95	procedure FormShow(Sender: TObject);	-
96	procedure InformationenClick(Sender: TObject);	-
97	procedure CheatClick(Sender: TObject);	-
98	procedure FormClose(Sender: TObject; var Action: TCloseAction);	-
99	procedure FormDestroy(Sender: TObject);	-
100	procedure AufUpdatesprfen1Click(Sender: TObject);	-
101	private	-
102	FInterval: TGameInterval;	-
103	FScene: TGameScene;	-
104	FMusic: TMusicTrack;	-
105	FBlink: DWORD;	-
106	FBlinkTime: DWORD;	-
107	FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;	-
108	procedure StartScene(Scene: TGameScene);	-
109	procedure EndScene;	-
110	procedure BlinkStart;	-
111	procedure BlinkUpdate;	-
112	procedure StartSceneTitle;	-
113	procedure SceneTitle;	-
114	procedure EndSceneTitle;	-
115	procedure StartSceneMain;	-
116	procedure SceneMain;	-
117	procedure EndSceneMain;	-
118	procedure StartSceneGameOver;	-
119	procedure SceneGameOver;	-
120	procedure EndSceneGameOver;	-
121	procedure StartSceneWin;	-
122	procedure SceneWin;	-
123	procedure EndSceneWin;	-
124	procedure StartSceneNewLevel;	-
125	procedure SceneNewLevel;	-
126	procedure EndSceneNewLevel;	-
127	public	-
128	FDirectory: string;	-
129	FEngineVersion: string;	-
130	FNextScene: TGameScene;	-
131	FScore: Integer;	-
132	FNotSave: boolean;	-
133	FLife: integer;	-
134	FLevel: integer;	-
135	FMenuItem: integer;	-
136	FBossLife: integer;	-
137	FRestEnemys: integer;	-
138	FCheat: boolean;	-
139	{ VCL-Ersatz }	-
140	dxdraw: TDxDraw;	-
141	imagelist: TDxImageList;	-
142	spriteengine: tdxspriteengine;	-
143	dxsound: tdxsound;	-
144	wavelist: tdxwavelist;	-
145	dxinput: tdxinput;	-
146	dxtimer: tdxtimer;	-
147	versioninfo: tpjversioninfo;	-
148	{ Level-Routinen }	-
149	procedure NewLevel(lev: integer);	-
150	procedure DeleteArray;	-
151	{ MCI-Routinen }	-
152	function StatusMusic(Name: TMusicTrack): string;	-
153	procedure PlayMusic(Name: TMusicTrack);	-
154	//procedure StopMusic(Name: TMusicTrack);	-
155	procedure PauseMusic(Name: TMusicTrack);	-
156	procedure ResumeMusic(Name: TMusicTrack);	-
157	procedure DestroyMusic(Name: TMusicTrack);	-
158	procedure OpenMusic(Name: TMusicTrack);	-
159	{ Sound-Routinen }	-
160	function SoundKarte: boolean;	-
161	procedure PlaySound(Name: string; Wait: Boolean);	-
162	{ Initialisiations-Routinen }	-
163	procedure DXInit;	-
164	procedure SoundInit;	-
165	procedure MusicInit;	-
166	{ Einstellungs-Routinen }	-
167	procedure LoadOptions;	-
168	procedure WriteOptions;	-
169	{ Farb-Routinen }	-
170	function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;	-
171	procedure PalleteAnim(Col: TRGBQuad; Time: Integer);	-
172	end;	-
173		-
174	var	-
175	MainForm: TMainForm;	-
176		-
177	const	-
178	conleicht = 650 div 60;	-
179	conmittel = 1000 div 60;	-
180	conschwer = 1350 div 60;	-
181	lives = 6;	-
182	FCompVersion = '1.0';	-
183		-
184	implementation	-
185		-
186	uses	-
187	SplSplash, SplSpeicherung, SplText, SplCheat;	-
188		-
189	const	-
190	FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';	-
191		-
192	{$R *.DFM}	-
193		-
194	{$R WindowsXP.res}	-
195		-
196	type	-
197		-
198	TBackground = class(TBackgroundSprite)	47	TBackground = class(TBackgroundSprite)
199	private	48	private
200	FSpeed: Double;	49	FSpeed: Double;
201	protected	50	protected
202	procedure DoMove(MoveCount: Integer); override;	51	procedure DoMove(MoveCount: Integer); override;
203	end;	52	end;
204		53
205	TBackgroundSpecial = class(TBackgroundSprite)	54	TBackgroundSpecial = class(TBackgroundSprite)
206	private	55	private
207	FSpeed: Double;	56	FSpeed: Double;
208	protected	57	protected
209	procedure DoMove(MoveCount: Integer); override;	58	procedure DoMove(MoveCount: Integer); override;
210	end;	59	end;
211		60
212	TExplosion = class(TImageSprite)	61	TExplosion = class(TImageSprite)
213	private	62	private
214	FCounter: Integer;	63	FCounter: Integer;
215	protected	64	protected
216	procedure DoMove(MoveCount: Integer); override;	65	procedure DoMove(MoveCount: Integer); override;
217	public	66	public
218	constructor Create(AParent: TSprite); override;	67	constructor Create(AParent: TSprite); override;
219	end;	68	end;
220		69
221	TPlayerSprite = class(TImageSprite)	70	TPlayerSprite = class(TImageSprite)
222	private	71	private
223	FCounter: Integer;	72	FCounter: Integer;
224	FMode: Integer;	73	FMode: Integer;
225	FTamaCount: Integer;	74	FTamaCount: Integer;
226	FOldTamaTime: Integer;	75	FOldTamaTime: Integer;
227	protected	76	protected
228	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;	77	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
229	procedure DoMove(MoveCount: Integer); override;	78	procedure DoMove(MoveCount: Integer); override;
230	public	79	public
231	constructor Create(AParent: TSprite); override;	80	constructor Create(AParent: TSprite); override;
-		81	procedure FlyAway;
232	end;	82	end;
233		83
234	TTamaSprite = class(TImageSprite)	84	TTamaSprite = class(TImageSprite)
235	private	85	private
236	FPlayerSprite: TPlayerSprite;	86	FPlayerSprite: TPlayerSprite;
237	protected	87	protected
238	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;	88	procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
239	procedure DoMove(MoveCount: Integer); override;	89	procedure DoMove(MoveCount: Integer); override;
240	public	90	public
241	constructor Create(AParent: TSprite); override;	91	constructor Create(AParent: TSprite); override;
242	destructor Destroy; override;	92	destructor Destroy; override;
243	end;	93	end;
244		94
245	TEnemy = class(TImageSprite)	95	TEnemy = class(TImageSprite)
246	private	96	private
247	FCounter: Integer;	97	FCounter: Integer;
248	FLife: integer;	98	FLife: integer;
249	FMode: Integer;	99	FMode: Integer;
250	procedure Hit; virtual;	100	procedure Hit; virtual;
251	protected	101	protected
252	procedure HitEnemy(Deaded: Boolean); virtual;	102	procedure HitEnemy(ADead: Boolean); virtual;
253	public	103	public
254	constructor Create(AParent: TSprite); override;	104	constructor Create(AParent: TSprite); override;
255	destructor Destroy; override;	105	destructor Destroy; override;
256	end;	106	end;
257		107
258	TEnemyTama = class(TImageSprite)	108	TEnemyTama = class(TImageSprite)
259	private	109	private
260	FPlayerSprite: TSprite;	110	FPlayerSprite: TSprite;
261	protected	111	protected
262	procedure DoMove(MoveCount: Integer); override;	112	procedure DoMove(MoveCount: Integer); override;
263	public	113	public
264	constructor Create(AParent: TSprite); override;	114	constructor Create(AParent: TSprite); override;
265	end;	115	end;
266		116
267	TEnemyMeteor= class(TEnemy)	117	TEnemyMeteor = class(TEnemy)
268	protected	118	protected
269	procedure DoMove(MoveCount: Integer); override;	119	procedure DoMove(MoveCount: Integer); override;
270	procedure HitEnemy(Deaded: Boolean); override;	120	procedure HitEnemy(ADead: Boolean); override;
271	public	121	public
272	constructor Create(AParent: TSprite); override;	122	constructor Create(AParent: TSprite); override;
273	end;	123	end;
274		124
275	TEnemyUFO = class(TEnemy)	125	TEnemyUFO = class(TEnemy)
276	protected	126	protected
277	procedure DoMove(MoveCount: Integer); override;	127	procedure DoMove(MoveCount: Integer); override;
278	procedure HitEnemy(Deaded: Boolean); override;	128	procedure HitEnemy(ADead: Boolean); override;
279	public	129	public
280	constructor Create(AParent: TSprite); override;	130	constructor Create(AParent: TSprite); override;
281	end;	131	end;
282		132
283	TEnemyUFO2 = class(TEnemy)	133	TEnemyUFO2 = class(TEnemy)
284	private	134	private
285	FCounter: Integer;	135	FCounter: Integer;
286	FTamaCount: Integer;	136	FTamaCount: Integer;
287	FOldTamaTime: Integer;	137	FOldTamaTime: Integer;
288	protected	138	protected
289	procedure DoMove(MoveCount: Integer); override;	139	procedure DoMove(MoveCount: Integer); override;
290	procedure HitEnemy(Deaded: Boolean); override;	140	procedure HitEnemy(ADead: Boolean); override;
291	public	141	public
292	constructor Create(AParent: TSprite); override;	142	constructor Create(AParent: TSprite); override;
293	end;	143	end;
294		144
295	TEnemyAttacker = class(TEnemy)	145	TEnemyAttacker = class(TEnemy)
296	protected	146	protected
297	procedure DoMove(MoveCount: Integer); override;	147	procedure DoMove(MoveCount: Integer); override;
298	procedure HitEnemy(Deaded: Boolean); override;	148	procedure HitEnemy(ADead: Boolean); override;
299	public	149	public
300	constructor Create(AParent: TSprite); override;	150	constructor Create(AParent: TSprite); override;
301	end;	151	end;
302		152
303	TEnemyAttacker2 = class(TEnemy)	153	TEnemyAttacker2 = class(TEnemy)
304	private	154	private
305	FCounter: Integer;	155	FCounter: Integer;
306	FTamaF: Integer;	156	FTamaF: Integer;
307	FTamaT: Integer;	157	FTamaT: Integer;
308	FPutTama: Boolean;	158	FPutTama: Boolean;
309	protected	159	protected
310	procedure DoMove(MoveCount: Integer); override;	160	procedure DoMove(MoveCount: Integer); override;
311	procedure HitEnemy(Deaded: Boolean); override;	161	procedure HitEnemy(ADead: Boolean); override;
312	public	162	public
313	constructor Create(AParent: TSprite); override;	163	constructor Create(AParent: TSprite); override;
314	end;	164	end;
315		165
316	TEnemyAttacker3 = class(TEnemy)	166	TEnemyAttacker3 = class(TEnemy)
317	private	167	private
318	FCounter: Integer;	168	FCounter: Integer;
319	FTamaCount: Integer;	169	FTamaCount: Integer;
320	FOldTamaTime: Integer;	170	FOldTamaTime: Integer;
321	protected	171	protected
322	procedure DoMove(MoveCount: Integer); override;	172	procedure DoMove(MoveCount: Integer); override;
323	procedure HitEnemy(Deaded: Boolean); override;	173	procedure HitEnemy(ADead: Boolean); override;
324	public	174	public
325	constructor Create(AParent: TSprite); override;	175	constructor Create(AParent: TSprite); override;
326	end;	176	end;
327		177
328	TEnemyBoss = class(TEnemy)	178	TEnemyBoss = class(TEnemy)
329	private	179	private
330	FCounter: Integer;	180	FCounter: Integer;
331	FTamaF: Integer;	181	FTamaF: Integer;
332	FTamaT: Integer;	182	FTamaT: Integer;
333	FPutTama: Boolean;	183	FPutTama: Boolean;
334	waiter1, waiter2: integer;	184	waiter1, waiter2: integer;
335	protected	185	protected
336	procedure DoMove(MoveCount: Integer); override;	186	procedure DoMove(MoveCount: Integer); override;
337	procedure HitEnemy(Deaded: Boolean); override;	187	procedure HitEnemy(ADead: Boolean); override;
338	public	188	public
339	constructor Create(AParent: TSprite); override;	189	constructor Create(AParent: TSprite); override;
340	end;	190	end;
341		191
342	TNoting = class(TImageSprite);	192	TNothing = class(TImageSprite);
343		193
344	TSpriteClass = class of TSprite;	194	TSpriteClass = class of TSprite;
345		195
346	TEnemyAdvent = record	196	TEnemyAdvent = record
347	c: TSpriteClass;	197	spriteClass: TSpriteClass;
348	x: extended;	198	x: extended;
349	y: extended;	199	y: extended;
350	l: integer;	200	lifes: integer;
-		201	end;
-		202
-		203	TMainForm = class(TDXForm)
-		204	MainMenu: TMainMenu;
-		205	Spiel: TMenuItem;
-		206	GameStart: TMenuItem;
-		207	GamePause: TMenuItem;
-		208	Beenden: TMenuItem;
-		209	Einstellungen: TMenuItem;
-		210	OptionFullScreen: TMenuItem;
-		211	OptionMusic: TMenuItem;
-		212	Leer2: TMenuItem;
-		213	Leer4: TMenuItem;
-		214	Hilfe: TMenuItem;
-		215	OptionSound: TMenuItem;
-		216	Mitarbeiter: TMenuItem;
-		217	Leer3: TMenuItem;
-		218	Spielstand: TMenuItem;
-		219	Leer5: TMenuItem;
-		220	Neustart: TMenuItem;
-		221	OptionBreitbild: TMenuItem;
-		222	Spielgeschwindigkeit: TMenuItem;
-		223	Leicht: TMenuItem;
-		224	Mittel: TMenuItem;
-		225	Schwer: TMenuItem;
-		226	Informationen: TMenuItem;
-		227	Leer6: TMenuItem;
-		228	Leer1: TMenuItem;
-		229	Cheat: TMenuItem;
-		230	CheckUpdates: TMenuItem;
-		231	Master: TMenuItem;
-		232	procedure DXDrawFinalize(Sender: TObject);
-		233	procedure DXDrawInitialize(Sender: TObject);
-		234	procedure FormCreate(Sender: TObject);
-		235	procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
-		236	procedure DXTimerActivate(Sender: TObject);
-		237	procedure DXTimerDeactivate(Sender: TObject);
-		238	procedure OptionFullScreenClick(Sender: TObject);
-		239	procedure DXDrawInitializing(Sender: TObject);
-		240	procedure GameStartClick(Sender: TObject);
-		241	procedure GamePauseClick(Sender: TObject);
-		242	procedure BeendenClick(Sender: TObject);
-		243	procedure OptionSoundClick(Sender: TObject);
-		244	procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-		245	procedure OptionMusicClick(Sender: TObject);
-		246	procedure MitarbeiterClick(Sender: TObject);
-		247	procedure SpielstandClick(Sender: TObject);
-		248	procedure NeustartClick(Sender: TObject);
-		249	procedure OptionBreitbildClick(Sender: TObject);
-		250	procedure LeichtClick(Sender: TObject);
-		251	procedure MittelClick(Sender: TObject);
-		252	procedure SchwerClick(Sender: TObject);
-		253	procedure FormShow(Sender: TObject);
-		254	procedure InformationenClick(Sender: TObject);
-		255	procedure CheatClick(Sender: TObject);
-		256	procedure FormClose(Sender: TObject; var Action: TCloseAction);
-		257	procedure FormDestroy(Sender: TObject);
-		258	procedure CheckUpdatesClick(Sender: TObject);
-		259	procedure MasterClick(Sender: TObject);
-		260	private
-		261	ProgrammGestartet: boolean;
-		262	FInterval: TGameInterval;
-		263	FScene: TGameScene;
-		264	FMusic: TMusicTrack;
-		265	FBlink: DWORD;
-		266	FBlinkTime: DWORD;
-		267	FFrame, FAngle, FCounter, FEnemyAdventPos: Integer;
-		268	PlayerSprite: TPlayerSprite;
-		269	procedure StartScene(Scene: TGameScene);
-		270	procedure EndScene;
-		271	procedure BlinkStart;
-		272	procedure BlinkUpdate;
-		273	procedure StartSceneTitle;
-		274	procedure SceneTitle;
-		275	procedure EndSceneTitle;
-		276	procedure StartSceneMain;
-		277	procedure SceneMain;
-		278	procedure EndSceneMain;
-		279	procedure StartSceneGameOver;
-		280	procedure SceneGameOver;
-		281	procedure EndSceneGameOver;
-		282	procedure StartSceneWin;
-		283	procedure SceneWin;
-		284	procedure EndSceneWin;
-		285	procedure StartSceneNewLevel;
-		286	procedure SceneNewLevel;
-		287	procedure EndSceneNewLevel;
-		288	public
-		289	FNextScene: TGameScene;
-		290	FScore: Integer;
-		291	FNotSave: boolean;
-		292	FLife: integer;
-		293	FLevel: integer;
-		294	FMenuItem: integer;
-		295	FBossLife: integer;
-		296	FRestEnemys: integer;
-		297	FCheat: boolean;
-		298	{ VCL-Ersatz }
-		299	dxdraw: TDxDraw;
-		300	imagelist: TDxImageList;
-		301	spriteengine: tdxspriteengine;
-		302	dxsound: tdxsound;
-		303	wavelist: tdxwavelist;
-		304	dxinput: tdxinput;
-		305	dxtimer: tdxtimer;
-		306	{ Level-Routinen }
-		307	procedure NewLevel(lev: integer);
-		308	procedure DeleteArray;
-		309	{ MCI-Routinen }
-		310	function StatusMusic(Name: TMusicTrack): string;
-		311	procedure PlayMusic(Name: TMusicTrack);
-		312	//procedure StopMusic(Name: TMusicTrack);
-		313	procedure PauseMusic(Name: TMusicTrack);
-		314	procedure ResumeMusic(Name: TMusicTrack);
-		315	procedure DestroyMusic(Name: TMusicTrack);
-		316	procedure OpenMusic(Name: TMusicTrack);
-		317	{ Sound-Routinen }
-		318	function SoundKarte: boolean;
-		319	procedure PlaySound(Name: string; Wait: Boolean);
-		320	{ Initialisiations-Routinen }
-		321	procedure DXInit;
-		322	procedure SoundInit;
-		323	procedure MusicInit;
-		324	{ Einstellungs-Routinen }
-		325	procedure LoadOptions;
-		326	procedure WriteOptions;
-		327	{ Farb-Routinen }
-		328	function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad;
-		329	procedure PalleteAnim(Col: TRGBQuad; Time: Integer);
351	end;	330	end;
352		331
353	var	332	var
-		333	MainForm: TMainForm;
-		334
-		335	const
-		336	conleicht = 650 div 60; // 10
-		337	conmittel = 1000 div 60; // 16
-		338	conschwer = 1350 div 60; // 22
-		339	conmaster = 2000 div 60; // 33
-		340	lives = 6;
-		341
-		342	implementation
-		343
-		344	uses
-		345	SplSplash, SplSpeicherung, SplText, SplCheat, Global;
-		346
-		347	resourcestring
-		348	FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';

Subversion Repositories spacemission

spacemission/SplMain.pas – Rev 1 → 2