Subversion Repositories spacemission

Rev

Rev 3 | Rev 6 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 4
Line 3... Line 3...
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem,
 6 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem,
7 
  Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws,
 7 
  Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws,
8 
  DXSounds, Spin, ComCtrls;
 8 
  DXSounds, Spin, ComCtrls, System.UITypes, WinAPI.DirectDraw;
9 
 
 9 
 
10 
type
 10 
type
11 
  TMainForm = class(TDXForm)
 11 
  TMainForm = class(TDXForm)
12 
    MainMenu: TMainMenu;
 12 
    MainMenu: TMainMenu;
13 
    Spiel: TMenuItem;
 13 
    Spiel: TMenuItem;
14 
    Beenden: TMenuItem;
 14 
    Beenden: TMenuItem;
15 
    Hilfe: TMenuItem;
 15 
    Hilfe: TMenuItem;
16 
    Mitarbeiter: TMenuItem;
 - 
 
17 
    Leer1: TMenuItem;
 16 
    Leer1: TMenuItem;
18 
    Level: TMenuItem;
 17 
    Level: TMenuItem;
19 
    Informationen: TMenuItem;
 18 
    Informationen: TMenuItem;
20 
    Leer2: TMenuItem;
 - 
 
21 
    Enemy1: TRadioButton;
 19 
    Enemy1: TRadioButton;
22 
    Enemy2: TRadioButton;
 20 
    Enemy2: TRadioButton;
23 
    Enemy3: TRadioButton;
 21 
    Enemy3: TRadioButton;
24 
    Enemy4: TRadioButton;
 22 
    Enemy4: TRadioButton;
25 
    Enemy5: TRadioButton;
 23 
    Enemy5: TRadioButton;
Line 53... Line 51...
53 
    procedure DXDrawInitialize(Sender: TObject);
 51 
    procedure DXDrawInitialize(Sender: TObject);
54 
    procedure FormCreate(Sender: TObject);
 52 
    procedure FormCreate(Sender: TObject);
55 
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
 53 
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
56 
    procedure BeendenClick(Sender: TObject);
 54 
    procedure BeendenClick(Sender: TObject);
57 
    procedure FormDestroy(Sender: TObject);
 55 
    procedure FormDestroy(Sender: TObject);
58 
    procedure MitarbeiterClick(Sender: TObject);
 - 
 
59 
    procedure LevelClick(Sender: TObject);
 56 
    procedure LevelClick(Sender: TObject);
60 
    procedure FormShow(Sender: TObject);
 57 
    procedure FormShow(Sender: TObject);
61 
    procedure InformationenClick(Sender: TObject);
 58 
    procedure InformationenClick(Sender: TObject);
62 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 59 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
63 
    procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton;
 60 
    procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton;
Line 109... Line 106...
109 
  MainForm: TMainForm;
 106 
  MainForm: TMainForm;
110 
 
 107 
 
111 
implementation
 108 
implementation
112 
 
 109 
 
113 
uses
 110 
uses
114 
  Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions;
 111 
  Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions;
115 
 
 112 
 
116 
const
 113 
const
117 
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 114 
  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
118 
  status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...';
 115 
  status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...';
119 
  status_lives = ' Leben: ';
 116 
  status_lives = ' Leben: ';
Line 121... Line 118...
121 
  RasterW = 48;
 118 
  RasterW = 48;
122 
  RasterH = 32;
 119 
  RasterH = 32;
123 
 
 120 
 
124 
{$R *.DFM}
 121 
{$R *.DFM}
125 
 
 122 
 
126 
{$R WindowsXP.res}
 - 
 
127 
 
 - 
 
128 
type
 123 
type
129 
  TBackground = class(TBackgroundSprite)
 124 
  TBackground = class(TBackgroundSprite)
130 
  protected
 125 
  protected
131 
    procedure DoMove(MoveCount: Integer); override;
 126 
    procedure DoMove(MoveCount: Integer); override;
132 
  end;
 127 
  end;
Line 213... Line 208...
213 
  dxdraw.Display.FixedBitCount := False;
 208 
  dxdraw.Display.FixedBitCount := False;
214 
  dxdraw.Display.FixedRatio := False;
 209 
  dxdraw.Display.FixedRatio := False;
215 
  dxdraw.Display.FixedSize := False;
 210 
  dxdraw.Display.FixedSize := False;
216 
  dxdraw.Display.Height := 600;
 211 
  dxdraw.Display.Height := 600;
217 
  dxdraw.Display.Width := 800;
 212 
  dxdraw.Display.Width := 800;
218 
  dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver];
 213 
  dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver];
219 
  dxdraw.OnFinalize := DXDrawFinalize;
 214 
  dxdraw.OnFinalize := DXDrawFinalize;
220 
  dxdraw.OnInitialize := DXDrawInitialize;
 215 
  dxdraw.OnInitialize := DXDrawInitialize;
221 
  dxdraw.ParentShowHint := False;
 216 
  dxdraw.ParentShowHint := False;
222 
  dxdraw.ShowHint := False;
 217 
  dxdraw.ShowHint := False;
223 
  dxdraw.TabOrder := 0;
 218 
  dxdraw.TabOrder := 0;
Line 440... Line 435...
440 
  end;}
 435 
  end;}
441 
  PalleteAnim(RGBQuad(0, 0, 0), 300);
 436 
  PalleteAnim(RGBQuad(0, 0, 0), 300);
442 
  mainform.Visible := true;
 437 
  mainform.Visible := true;
443 
end;
 438 
end;
444 
 
 439 
 
445 
procedure TMainForm.MitarbeiterClick(Sender: TObject);
 - 
 
446 
begin
 - 
 
447 
  if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then
 - 
 
448 
  begin
 - 
 
449 
    MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
 - 
 
450 
      mtWarning, [mbOK], 0);
 - 
 
451 
    exit;
 - 
 
452 
  end;
 - 
 
453 
 
 - 
 
454 
  TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt');
 - 
 
455 
  mainform.dxtimer.enabled := false;
 - 
 
456 
  TextForm.showmodal;
 - 
 
457 
  mainform.dxtimer.enabled := true;
 - 
 
458 
end;
 - 
 
459 
 
 - 
 
460 
procedure TMainForm.LevelClick(Sender: TObject);
 440 
procedure TMainForm.LevelClick(Sender: TObject);
461 
begin
 441 
begin
462 
  speicherungform.showmodal;
 442 
  speicherungform.showmodal;
463 
end;
 443 
end;
464 
 
 444