Neue Variable -> CPU-Fenster kommt

[Die Muhkuh]

Moin Chris,

Delphi-Quellcode:

procedure Tfmain.FormCreate(Sender: TObject);
begin
  Randomize;
  SetVariables;

{$IFDEF debug}
{$ELSE}
  FMusik[0] := ExtractFilePath(Application.ExeName) + 'Musik1.mid';
  FMusik[1] := ExtractFilePath(Application.ExeName) + 'Musik2.mid';

  mpPlayer1.FileName := FMusik[0];
  mpPlayer1.Open;

  mpPlayer2.FileName := FMusik[1];
  mpPlayer2.Open;
  mpPlayer2.Play;
  FPlayer1 := false;
{$ENDIF}
end;

Delphi-Quellcode:

procedure Tfmain.SetVariables;
begin
  ExePath := ExtractFilePath(Application.ExeName);

  Engine := SpriteEngine.Engine;
  Draw := DXDraw;
  Images := ImageList;
  InputStates := Input.States;

  FEnemyAdventPos := 0;
  FFrame := 0;
  FAnzahl := 0;
  FCounter := 0;
  FOldCounter := 0;
  FScore := 0;
  FGoodieCounter := 0;
  FOldGoodieCounter := 0;
  FPointCounter := 0;
  FOldPointCounter := 0;
  FBaustelleCounter := 0;
  FOldBaustelleCounter := 0;

  if Debug = 2 then
    DebugSL := TStringList.Create;
end;