Subversion Repositories spacemission

Compare Revisions

No changes between revisions

Regard whitespace Rev 3 → Rev 4

/ComText.dfm
File deleted
/Texte/Mitwirkende.txt
File deleted
/ComText.pas
File deleted
/Ausgabe
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/Bilder
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/CnvMain.dfm
93,7 → 93,6
Width = 161
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
Items.Strings = (
'Version 0.2 --> Version 0.3'
/CnvMain.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls;
StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls, System.UITypes;
 
type
TMainForm = class(TForm)
38,8 → 38,6
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
procedure TMainForm.RunClick(Sender: TObject);
var
i: integer;
/ComInfo.dfm
4,8 → 4,8
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Informationen'
ClientHeight = 193
ClientWidth = 321
ClientHeight = 337
ClientWidth = 385
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
74,9 → 74,9
object CopyrightLbl: TLabel
Left = 8
Top = 80
Width = 137
Width = 264
Height = 13
Caption = '(C) 2001 - 2011 ViaThinkSoft'
Caption = #169' Copyright 2001 - 2015 Daniel Marschall, ViaThinkSoft'
Transparent = True
end
object Copyright2Lbl: TLabel
101,15 → 101,15
Font.Style = [fsUnderline]
ParentFont = False
Transparent = True
OnClick = URL2Click
OnClick = WebsiteClick
end
object URL1: TLabel
Left = 152
Top = 120
Width = 155
Width = 118
Height = 13
Cursor = crHandPoint
Caption = 'daniel-marschall@viathinksoft.de'
Caption = 'info@daniel-marschall.de'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
117,15 → 117,43
Font.Style = [fsUnderline]
ParentFont = False
Transparent = True
OnClick = URL1Click
OnClick = EMailClick
end
object OkBtn: TButton
Left = 208
Top = 160
Left = 270
Top = 303
Width = 107
Height = 25
Cancel = True
Caption = 'OK'
Default = True
TabOrder = 0
OnClick = OkBtnClick
end
object MemoMitwirkende: TMemo
Left = 8
Top = 168
Width = 369
Height = 121
Lines.Strings = (
'SpaceMission wurde von Daniel Marschall aus einer Codevorlage vo' +
'n '
'Hiroyuki Hori heraus erstellt. Das Original ist ein Codebeispiel' +
' f'#252'r DelphiX '
'2000.'
''
'Musik von Savage Peachers Software, Grafikquellen unbekannt.'
''
'Levels von Daniel Marschall, Patrick B'#252'ssecker und Andreas '
'K'#252'belsbeck.'
''
'Entwickelt mit Borland Turbo Delphi.'
''
'Verwendete Komponenten: DelphiX 2000.')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
end
end
/ComInfo.pas
19,10 → 19,11
Copyright2Lbl: TLabel;
URL2: TLabel;
URL1: TLabel;
MemoMitwirkende: TMemo;
procedure OkBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure URL2Click(Sender: TObject);
procedure URL1Click(Sender: TObject);
procedure WebsiteClick(Sender: TObject);
procedure EMailClick(Sender: TObject);
end;
 
var
46,14 → 47,14
image.picture.loadfromfile(FDirectory + 'Bilder\Delphi.bmp');
end;
 
procedure TInfoForm.URL2Click(Sender: TObject);
procedure TInfoForm.WebsiteClick(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
ShellExecute(application.Handle, 'open', pchar('http://'+url2.caption+'/'), nil, nil, SW_SHOW);
end;
 
procedure TInfoForm.URL1Click(Sender: TObject);
procedure TInfoForm.EMailClick(Sender: TObject);
begin
shellexecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
ShellExecute(application.Handle, 'open', pchar('mailto:'+url1.Caption+'?subject=SpaceMission ' + ProgramVersion), nil, nil, SW_SHOW);
end;
 
end.
/Converter.dpr
5,7 → 5,8
Windows,
Forms,
Dialogs,
CnvMain in 'CnvMain.pas' {MainForm};
CnvMain in 'CnvMain.pas' {MainForm},
System.UITypes;
 
{$Description 'SpaceMission 1.1 Converter'}
 
/Converter.dproj
0,0 → 1,140
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{99DF80C5-B3F5-4637-8685-0C3B4D0CA5B6}</ProjectGuid>
<MainSource>Converter.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>14.6</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DCC_N>true</DCC_N>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_Locale>1031</VerInfo_Locale>
<DCC_WriteableConstants>true</DCC_WriteableConstants>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
<DCC_F>false</DCC_F>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Umwandlungssoftware...;FileVersion=1.1.0.0;InternalName=SpaceMission Compiler;LegalCopyright=© Copyright 2001 - 2007 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=Compiler.exe;ProductName=SpaceMission 1.1;ProductVersion=1.1.0.0;Homepage=www.viathinksoft.de;Projektleiter=Daniel Marschall - www.daniel-marschall.de</VerInfo_Keys>
<DCC_UsePackage>Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;NMFast50;webmid50;dclocx50;dclaxserver50;DelphiX_for5;pielib;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Description>Levelcompiler 1.1</DCC_Description>
<DCC_E>false</DCC_E>
<DCC_K>false</DCC_K>
<DCC_S>false</DCC_S>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>Converter_Icon.ico</Icon_MainIcon>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>Converter_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="CnvMain.pas">
<Form>MainForm</Form>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Converter.dpr</Source>
</Source>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Umwandlungssoftware...</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">SpaceMission Compiler</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">© Copyright 2001 - 2007 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">Compiler.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">SpaceMission 1.1</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Homepage">www.viathinksoft.de</VersionInfoKeys>
<VersionInfoKeys Name="Projektleiter">Daniel Marschall - www.daniel-marschall.de</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
/Converter.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/Converter_Icon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/DirectX
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/Eingabe
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/Einstellungen/SpaceMission.ini
3,4 → 3,4
Sound=0
FullScreen=0
ScreenAutoSize=1
Speed=4
Speed=2
/Einstellungen
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/GamCheat.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ShellAPI;
StdCtrls, ExtCtrls, ShellAPI, System.UITypes;
 
type
TCheatForm = class(TForm)
/GamMain.dfm
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/GamMain.pas
5,7 → 5,7
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, Dialogs,
StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, DXInput,
DXSounds, INIFiles, ShellAPI, wininet;
DXSounds, INIFiles, ShellAPI, wininet, Winapi.DirectDraw, System.UITypes;
 
type
TGameScene = (
213,7 → 213,6
Leer4: TMenuItem;
Hilfe: TMenuItem;
OptionSound: TMenuItem;
Mitarbeiter: TMenuItem;
Leer3: TMenuItem;
Spielstand: TMenuItem;
Leer5: TMenuItem;
243,7 → 242,6
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);
333,6 → 331,7
MainForm: TMainForm;
 
const
// TODO: ini file
conleicht = 650 div 60; // 10
conmittel = 1000 div 60; // 16
conschwer = 1350 div 60; // 22
342,7 → 341,7
implementation
 
uses
GamSplash, GamSpeicherung, ComInfo, ComText, GamCheat, Global;
GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;
 
resourcestring
FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
349,8 → 348,6
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
var // TODO: irgendwo hinpacken. irgendwo!!!
EnemyAdventTable: array[0..9999] of TEnemyAdvent; // TODO: dyn
Crash2, ec: integer;
373,6 → 370,8
PLAYER_MODE_FLYAWAY = 3;
PLAYER_MODE_ENTER = 4;
 
DEFAULT_ANIMSPEED = 15/1000;
 
// TODO: Code komplett überarbeiten. Bessere Ableitungen machen
 
constructor TPlayerSprite.Create(AParent: TSprite);
386,7 → 385,7
Z := 2;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
FMode := PLAYER_MODE_ENTER;
end;
 
411,7 → 410,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end;
end
523,7 → 522,7
dxdraw.autosize := false;
dxdraw.Top := 0;
dxdraw.Left := 0;
dxdraw.width := 640;
dxdraw.width := 640; // TODO: besser die dimensionen des fensters
dxdraw.height := 480;
dxdraw.surfacewidth := 640;
dxdraw.surfaceheight := 480;
545,7 → 544,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
MainForm.PlaySound('Shoot', False);
end;
 
667,7 → 666,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := Random(AnimCount);
end;
 
686,7 → 685,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
MainForm.PlaySound('Shoot', False);
end;
 
722,7 → 721,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
 
752,7 → 751,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end else
begin
802,7 → 801,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end else
begin
819,7 → 818,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
 
847,7 → 846,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
PixelCheck := True;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
865,7 → 864,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end else
begin
899,7 → 898,7
MainForm.PlayMusic(mtBoss);
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
PixelCheck := True;
Collisioned := False;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
1006,7 → 1005,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
PixelCheck := True;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
1024,7 → 1023,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end else
begin
1096,7 → 1095,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := False;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
AnimPos := 0;
end else
begin
1139,7 → 1138,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
PixelCheck := True;
FLife := EnemyAdventTable[mainform.FEnemyAdventPos].lifes;
end;
1180,7 → 1179,7
dxdraw.Display.FixedSize := False;
dxdraw.Display.Height := 600;
dxdraw.Display.Width := 800;
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver];
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver];
dxdraw.TabOrder := 0;
dxdraw.Visible := true;
dxdraw.OnFinalize := DXDrawFinalize;
2343,25 → 2342,6
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);
 
dxtimer.enabled := false;
TextForm.ShowModal;
if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
end;
 
procedure TEnemyMeteor.DoMove(MoveCount: Integer);
begin
X := X - MoveCount*(250/1000);
2404,7 → 2384,7
Height := Image.Height;
AnimCount := Image.PatternCount;
AnimLooped := True;
AnimSpeed := 15/1000;
AnimSpeed := DEFAULT_ANIMSPEED;
PixelCheck := True;
end;
 
/GamMain.vlb
0,0 → 1,0

/GamSpeicherung.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Spin;
StdCtrls, ExtCtrls, Spin, System.UITypes;
 
type
TSpeicherungForm = class(TForm)
/LevEdit.dpr
2,8 → 2,8
 
{$Description 'SpaceMission Leveleditor 1.1'}
 
{%ToDo 'LevEdit.todo'}
 
 
uses
Windows,
Forms,
11,13 → 11,13
SysUtils,
MMSystem,
LevMain in 'LevMain.pas' {MainForm},
ComText in 'ComText.pas' {TextForm},
LevSplash in 'LevSplash.pas' {SplashForm},
LevSpeicherung in 'LevSpeicherung.pas' {SpeicherungForm},
ComInfo in 'ComInfo.pas' {InfoForm},
LevSource in 'LevSource.pas' {SourceForm},
LevOptions in 'LevOptions.pas' {LevelForm},
Global in 'Global.pas';
Global in 'Global.pas',
System.UITypes;
 
{$R *.RES}
 
55,7 → 55,6
exit;
end;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTextForm, TextForm);
Application.CreateForm(TSpeicherungForm, SpeicherungForm);
Application.CreateForm(TInfoForm, InfoForm);
Application.CreateForm(TSourceForm, SourceForm);
/LevEdit.dproj
0,0 → 1,159
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{599685DA-212E-4FDE-99E7-BC84B6909E31}</ProjectGuid>
<MainSource>LevEdit.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>14.6</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_UnitSearchPath>VCL_DELPHIX_D6;VCL_PJVERSIONINFO;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<VerInfo_Locale>1031</VerInfo_Locale>
<DCC_N>true</DCC_N>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DCC_HIDDEN_VIRTUAL>false</DCC_HIDDEN_VIRTUAL>
<DCC_WriteableConstants>true</DCC_WriteableConstants>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
<DCC_ImageBase>00400000</DCC_ImageBase>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Der Leveleditor zu SpaceMission...;FileVersion=1.1.0.0;InternalName=SpaceMisson 1.1 - Leveleditor;LegalCopyright=© Copyright 2001 - 2007 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=LevEdit.exe;ProductName=SpaceMission 1.1;ProductVersion=1.1.0.0;Webseite=www.viathinksoft.de;Projektleiter=Daniel Marschall - www.daniel-marschall.de</VerInfo_Keys>
<DCC_E>false</DCC_E>
<DCC_Description>SpaceMission 1.1 - Leveleditor</DCC_Description>
<DCC_UsePackage>Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;TeeUI50;TeeDB50;Tee50;Dss50;TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;Inet50;NMFast50;webmid50;dclocx50;dclaxserver50;DelphiX_for5;pielib;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_K>false</DCC_K>
<DCC_F>false</DCC_F>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_S>false</DCC_S>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>LevEdit_Icon.ico</Icon_MainIcon>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>LevEdit_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="LevMain.pas">
<Form>MainForm</Form>
</DCCReference>
<DCCReference Include="LevSplash.pas">
<Form>SplashForm</Form>
</DCCReference>
<DCCReference Include="LevSpeicherung.pas">
<Form>SpeicherungForm</Form>
</DCCReference>
<DCCReference Include="ComInfo.pas">
<Form>InfoForm</Form>
</DCCReference>
<DCCReference Include="LevSource.pas">
<Form>SourceForm</Form>
</DCCReference>
<DCCReference Include="LevOptions.pas">
<Form>LevelForm</Form>
</DCCReference>
<DCCReference Include="Global.pas"/>
<None Include="LevEdit.todo"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">LevEdit.dpr</Source>
</Source>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Der Leveleditor zu SpaceMission...</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">SpaceMisson 1.1 - Leveleditor</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">© Copyright 2001 - 2007 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">LevEdit.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">SpaceMission 1.1</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Webseite">www.viathinksoft.de</VersionInfoKeys>
<VersionInfoKeys Name="Projektleiter">Daniel Marschall - www.daniel-marschall.de</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
/LevEdit.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/LevEdit_Icon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property
/LevMain.dfm
167,9 → 167,9
object Enemy1: TRadioButton
Left = 652
Top = 24
Width = 73
Width = 93
Height = 17
Caption = 'Attackierer'
Caption = 'Angreifer Typ 1'
Checked = True
TabOrder = 0
TabStop = True
179,9 → 179,9
object Enemy2: TRadioButton
Left = 652
Top = 48
Width = 82
Width = 93
Height = 17
Caption = 'Attackierer 2'
Caption = 'Angreifer Typ 2'
TabOrder = 1
OnClick = EnemyClick
OnMouseMove = DXDrawMouseMove
189,9 → 189,9
object Enemy3: TRadioButton
Left = 652
Top = 72
Width = 82
Width = 93
Height = 17
Caption = 'Attackierer 3'
Caption = 'Angreifer Typ 3'
TabOrder = 2
OnClick = EnemyClick
OnMouseMove = DXDrawMouseMove
298,8 → 298,8
OnMouseMove = DXDrawMouseMove
end
object MainMenu: TMainMenu
Left = 8
Top = 8
Left = 32
Top = 16
object Spiel: TMenuItem
Caption = '&Datei'
object Level: TMenuItem
336,19 → 336,9
end
object Hilfe: TMenuItem
Caption = '&Hilfe'
object Mitarbeiter: TMenuItem
Caption = '&Mitwirkende...'
ShortCut = 120
OnClick = MitarbeiterClick
end
object Leer2: TMenuItem
Caption = '-'
GroupIndex = 1
end
object Informationen: TMenuItem
Caption = '&Informationen...'
GroupIndex = 1
ShortCut = 121
OnClick = InformationenClick
end
end
/LevMain.pas
5,7 → 5,7
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem,
Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws,
DXSounds, Spin, ComCtrls;
DXSounds, Spin, ComCtrls, System.UITypes, WinAPI.DirectDraw;
 
type
TMainForm = class(TDXForm)
13,11 → 13,9
Spiel: TMenuItem;
Beenden: TMenuItem;
Hilfe: TMenuItem;
Mitarbeiter: TMenuItem;
Leer1: TMenuItem;
Level: TMenuItem;
Informationen: TMenuItem;
Leer2: TMenuItem;
Enemy1: TRadioButton;
Enemy2: TRadioButton;
Enemy3: TRadioButton;
55,7 → 53,6
procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
procedure BeendenClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MitarbeiterClick(Sender: TObject);
procedure LevelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure InformationenClick(Sender: TObject);
111,7 → 108,7
implementation
 
uses
Global, LevSplash, LevSpeicherung, ComText, ComInfo, LevSource, LevOptions;
Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions;
 
const
FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
123,8 → 120,6
 
{$R *.DFM}
 
{$R WindowsXP.res}
 
type
TBackground = class(TBackgroundSprite)
protected
215,7 → 210,7
dxdraw.Display.FixedSize := False;
dxdraw.Display.Height := 600;
dxdraw.Display.Width := 800;
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, doRetainedMode, doHardware, doSelectDriver];
dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver];
dxdraw.OnFinalize := DXDrawFinalize;
dxdraw.OnInitialize := DXDrawInitialize;
dxdraw.ParentShowHint := False;
442,21 → 437,6
mainform.Visible := true;
end;
 
procedure TMainForm.MitarbeiterClick(Sender: TObject);
begin
if not fileexists(fdirectory+'Texte\Mitwirkende.txt') then
begin
MessageDLG('Die Datei "Texte\Mitwirkende.txt" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!',
mtWarning, [mbOK], 0);
exit;
end;
 
TextForm.memo1.lines.loadfromfile(FDirectory+'Texte\Mitwirkende.txt');
mainform.dxtimer.enabled := false;
TextForm.showmodal;
mainform.dxtimer.enabled := true;
end;
 
procedure TMainForm.LevelClick(Sender: TObject);
begin
speicherungform.showmodal;
/LevMain.vlb
0,0 → 1,0

/LevSource.dfm
21,9 → 21,9
object ElLabel1: TLabel
Left = 8
Top = 8
Width = 82
Width = 85
Height = 13
Caption = 'Tempo'#228'rer Code:'
Caption = 'Tempor'#228'rer Code:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
/LevSource.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI;
StdCtrls, ShellAPI, System.UITypes;
 
type
TSourceForm = class(TForm)
/LevSpeicherung.pas
4,7 → 4,7
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Spin, ComCtrls;
StdCtrls, ExtCtrls, Spin, ComCtrls, System.UITypes;
 
type
TSpeicherungForm = class(TForm)
/Levels
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/Musik
Property changes:
Added: svn:ignore
+*.local
+*.dcu
+*.~*
+*.identcache
+*.tvsconfig
+__history
+*.exe
/SpaceMission.dpr
9,19 → 9,17
SysUtils,
MMSystem,
GamMain in 'GamMain.pas' {MainForm},
ComText in 'ComText.pas' {TextForm},
GamSplash in 'GamSplash.pas' {SplashForm},
GamSpeicherung in 'GamSpeicherung.pas' {SpeicherungForm},
ComInfo in 'ComInfo.pas' {InfoForm},
GamCheat in 'GamCheat.pas' {CheatForm},
Global in 'Global.pas';
Global in 'Global.pas',
System.UITypes;
 
{$R *.RES}
 
var
Fehler: boolean;
Sem: THandle;
directory: string;
 
begin
{ Programm schon gestartet? }
38,33 → 36,14
Application.Initialize;
Application.showmainform := False;
Application.Title := 'SpaceMission';
{ Dateien vorhanden? }
Fehler := false;
directory := extractfilepath(paramstr(0));
if not fileexists(directory+'Bilder\Delphi.bmp') then Fehler := true;
if not fileexists(directory+'Bilder\SplSplash.jpg') then Fehler := true;
if not fileexists(directory+'DirectX\Graphic.dxg') then Fehler := true;
if not fileexists(directory+'DirectX\Sound.dxw') then Fehler := true;
if not fileexists(directory+'Musik\Boss.mid') then Fehler := true;
if not fileexists(directory+'Musik\Game.mid') then Fehler := true;
if not fileexists(directory+'Musik\Scene.mid') then Fehler := true;
if not fileexists(directory+'Musik\Title.mid') then Fehler := true;
//if not fileexists(directory+'Texte\Mitwirkende.txt') then Fehler := true;
if Fehler then
if WaveOutGetNumDevs < 1 then
begin
MessageDLG('Dateien, die die Programmstabilität gewährleisten, sind ' +
'nicht mehr vorhanden!'+#13#10+'Bitte installieren Sie SpaceMission erneut...',
mtWarning, [mbOK], 0);
exit;
end;
{ Keine Soundkarte?! }
if WaveOutGetNumDevs < 1 then
MessageDlg('Es wurde keine Soundkarte gefunden!' + #13#10 +
'Entweder ist keine Soundkarte angeschlossen oder sie ist nicht ' +
'ordnungsgemäß installiert.' + #13#10 + 'Es können daher keine Musik und ' +
'keine Geräusche abgespielt werden.', mtError, [mbOK], 0);
end;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTextForm, TextForm);
Application.CreateForm(TSpeicherungForm, SpeicherungForm);
Application.CreateForm(TInfoForm, InfoForm);
Application.CreateForm(TCheatForm, CheatForm);
/SpaceMission.dproj
0,0 → 1,165
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{3BF3030C-7166-4C6E-8DCC-7CFAE9EEFEBF}</ProjectGuid>
<MainSource>SpaceMission.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>14.6</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DCC_UnitSearchPath>VCL_DELPHIX_D6;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<VerInfo_MinorVer>1</VerInfo_MinorVer>
<DCC_N>true</DCC_N>
<VerInfo_Locale>1031</VerInfo_Locale>
<DCC_HIDDEN_VIRTUAL>false</DCC_HIDDEN_VIRTUAL>
<DCC_WriteableConstants>true</DCC_WriteableConstants>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
<DCC_ImageBase>00400000</DCC_ImageBase>
<VerInfo_Release>4</VerInfo_Release>
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Ein spannendes Weltraumspiel...;FileVersion=1.1.4.0;InternalName=SpaceMission 1.1;LegalCopyright=© Copyright 2001 - 2011 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=SpaceMission.exe;ProductName=SpaceMission 1.1;ProductVersion=1.1.0.0;Homepage=www.viathinksoft.de;Projektleiter=Daniel Marschall - www.daniel-marschall.de;Webseite=www.viathinksoft.de</VerInfo_Keys>
<DCC_Description>SpaceMission 1.1</DCC_Description>
<DCC_UsePackage>VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;packapi;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_E>false</DCC_E>
<DCC_K>false</DCC_K>
<DCC_F>false</DCC_F>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_S>false</DCC_S>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>SpaceMission_Icon.ico</Icon_MainIcon>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>SpaceMission_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="GamMain.pas">
<Form>MainForm</Form>
</DCCReference>
<DCCReference Include="GamSplash.pas">
<Form>SplashForm</Form>
</DCCReference>
<DCCReference Include="GamSpeicherung.pas">
<Form>SpeicherungForm</Form>
</DCCReference>
<DCCReference Include="ComInfo.pas">
<Form>InfoForm</Form>
</DCCReference>
<DCCReference Include="GamCheat.pas">
<Form>CheatForm</Form>
</DCCReference>
<DCCReference Include="Global.pas"/>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">SpaceMission.dpr</Source>
</Source>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">1</VersionInfo>
<VersionInfo Name="Release">4</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1031</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription">Ein spannendes Weltraumspiel...</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.1.4.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">SpaceMission 1.1</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright">© Copyright 2001 - 2011 ViaThinkSoft</VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks">Keine</VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename">SpaceMission.exe</VersionInfoKeys>
<VersionInfoKeys Name="ProductName">SpaceMission 1.1</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Homepage">www.viathinksoft.de</VersionInfoKeys>
<VersionInfoKeys Name="Projektleiter">Daniel Marschall - www.daniel-marschall.de</VersionInfoKeys>
<VersionInfoKeys Name="Webseite">www.viathinksoft.de</VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages>
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart-Komponenten</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
/SpaceMission.res
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/SpaceMission_Icon.ico
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property