Warning: ob_start(): function 'compress_handler' not found or invalid function name in /www/htdocs/xfmantis/core.php on line 18
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)
? source/ModelSupport
? source/XForce.bdsproj
? source/XForce.bdsproj.local
? source/XForce.identcache
? source/__history
? source/components/ModelSupport
? source/components/__history
? source/components/kd4dx_delphi7.bdsproj
? source/components/kd4dx_delphi7.bdsproj.local
? source/externs/delphix/DelphiX_for7.bdsproj
? source/externs/delphix/DelphiX_for7.bdsproj.local
? source/externs/delphix/ModelSupport
? source/externs/delphix/__history
? source/pages/__history
Index: bin/languages/deutsch.dat
===================================================================
RCS file: /cvsroot/xforceffd/game/bin/languages/deutsch.dat,v
retrieving revision 1.7
diff -u -r1.7 deutsch.dat
--- bin/languages/deutsch.dat 29 Jul 2005 17:26:39 -0000 1.7
+++ bin/languages/deutsch.dat 24 Oct 2005 16:45:34 -0000
@@ -1461,6 +1461,8 @@
ST0309260044=Geben Sie hier die Scrollgeschwindigkeit im Bodeneinsatz an
ST0309260045=Gradnetz anzeigen
ST0309260046=Aktivieren Sie diese Option, um ein Gradnetz um die Erde in der Taktischen Übersicht zu legen
+ST0309260047=Maximale Meldungen
+ST0309260048=Geben sie hier an wie viele Zeilen mit Meldungen maximal auf dem Bildschirm sein sollen
{ MissionList }
ST0309270001=Lade Skript %s.
Index: bin/settings/credits.txt
===================================================================
RCS file: /cvsroot/xforceffd/game/bin/settings/credits.txt,v
retrieving revision 1.3
diff -u -r1.3 credits.txt
--- bin/settings/credits.txt 29 Jul 2005 17:26:40 -0000 1.3
+++ bin/settings/credits.txt 24 Oct 2005 17:00:20 -0000
@@ -10,6 +10,7 @@
Programmiert von
Christian Reich
Shocquer
+Paul Benedikt Bittmann alias Bennily
Story
Frank Kolb alias MemTronic
Nathanael Jöhrmann alias Natter
Index: source/XForce.cfg
===================================================================
RCS file: /cvsroot/xforceffd/game/source/XForce.cfg,v
retrieving revision 1.7
diff -u -r1.7 XForce.cfg
--- source/XForce.cfg 8 Jul 2005 18:07:03 -0000 1.7
+++ source/XForce.cfg 24 Oct 2005 11:42:08 -0000
@@ -1,4 +1,4 @@
--$A+
+-$A8
-$B-
-$C+
-$D+
@@ -32,10 +32,10 @@
-M
-$M16384,1048576
-K$00400000
--E"c:\xforce\"
+-E"G:\XForce Dev\XForce"
-N"dcus"
--LE"c:\programme\borland\delphi5\Projects\Bpl"
--LN"c:\programme\borland\delphi5\Projects\Bpl"
+-LE"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
+-LN"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
-U"pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser"
-O"pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser"
-I"pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser"
Index: source/XForce.dof
===================================================================
RCS file: /cvsroot/xforceffd/game/source/XForce.dof,v
retrieving revision 1.8
diff -u -r1.8 XForce.dof
--- source/XForce.dof 22 Oct 2005 12:46:07 -0000 1.8
+++ source/XForce.dof 23 Oct 2005 22:33:40 -0000
@@ -1,5 +1,7 @@
+[FileVersion]
+Version=7.0
[Compiler]
-A=1
+A=8
B=0
C=1
D=1
@@ -28,6 +30,55 @@
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=1
+UnsafeCode=1
+UnsafeCast=1
[Linker]
MapFile=3
OutputObjs=0
@@ -39,7 +90,7 @@
ImageBase=4194304
ExeDescription=
[Directories]
-OutputDir=c:\xforce\
+OutputDir=G:\XForce Dev\XForce
UnitOutputDir=dcus
PackageDLLOutputDir=
PackageDCPOutputDir=
@@ -51,12 +102,15 @@
[Parameters]
RunParams=
HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=0
-MinorVer=9
-Release=0
+MinorVer=8
+Release=5
Build=0
Debug=0
PreRelease=0
@@ -68,7 +122,7 @@
[Version Info Keys]
CompanyName=Rich Entertainment
FileDescription=
-FileVersion=0.9.0.0
+FileVersion=0.8.5.0
InternalName=XFORCE.EXE
LegalCopyright=Rich Entertainment (c) 2002
LegalTrademarks=
@@ -76,34 +130,26 @@
ProductName=X-Force: Fight For Destiny
ProductVersion=1.0.0.0
Comments=
-[Excluded Packages]
-$(DELPHI)\Bin\dclmid50.bpl=Borland Midas-Komponenten
-$(DELPHI)\Bin\dclite50.bpl=Borland Integrierte Übersetzungsumgebung (ITE)
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=C:\xforce-sandbox\game\source\externs\units\;C:\xforce-sandbox\game\source\externs\exCQParser\;C:\xforce-sandbox\game\source\externs\bass\
[HistoryLists\hlConditionals]
-Count=4
+Count=3
Item0=PS_NOWIDESTRING;PS_NOINTERFACES;PS_NOIDISPATCH
-Item1=PS_NOWIDESTRING
-Item2=EDITOR
-Item3=DelphiX_Delphi5;GERMAN;EDITOR
+Item1=EDITOR
+Item2=DelphiX_Delphi5;GERMAN;EDITOR
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
-Count=5
+Count=3
Item0=pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser
-Item1=$(DELPHI)\source\toolsapi;..\..\dcus;..\..\
-Item2=..\;..\api;..\units;..\utils;..\pages;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;..\dcus;$(DELPHI)\Projects\Bpl;..\externs\excqparser
-Item3=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
-Item4=$(DELPHI)\Projects\auplex.net\auplex-Server
+Item1=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
+Item2=$(DELPHI)\Projects\auplex.net\auplex-Server
[HistoryLists\hlUnitOutputDirectory]
-Count=4
+Count=2
Item0=dcus
-Item1=..\..\dcus
-Item2=..\dcus
-Item3=..\..\game\source\dcus
+Item1=..\..\game\source\dcus
[HistoryLists\hlOutputDirectorry]
Count=1
-Item0=c:\xforce\
+Item0=G:\XForce Dev\XForce
Index: source/XForce.res
===================================================================
RCS file: /cvsroot/xforceffd/game/source/XForce.res,v
retrieving revision 1.2
diff -u -r1.2 XForce.res
Binary files /tmp/cvsRRe9oM and XForce.res differ
Index: source/frmMain.pas
===================================================================
RCS file: /cvsroot/xforceffd/game/source/frmMain.pas,v
retrieving revision 1.10
diff -u -r1.10 frmMain.pas
--- source/frmMain.pas 22 Oct 2005 12:46:07 -0000 1.10
+++ source/frmMain.pas 23 Oct 2005 21:37:26 -0000
@@ -137,7 +137,7 @@
implementation
uses Defines, KD4Utils, DXInfoFrame, GlobeRenderer, game_api, highscore_api,
- JclFileUtils, JclDateTime, D3DRender;
+ JclFileUtils, JclDateTime, D3DRender, TakticPlugins;
var
StackList : TStringList;
@@ -524,6 +524,7 @@
if Values[Dummy]='ScrollTempo' then DXISOEngine.ScrollTempo:=Registry.ReadInteger('ScrollTempo')/100;
if Values[Dummy]='AlphaBlendFaktor' then Blending.AlphaBlendFaktor:=Registry.ReadInteger('AlphaBlendFaktor')/100;
if Values[Dummy]='CompatibleMode' then DXTakticScreen.SetCompatibleMode(Registry.ReadBool('CompatibleMode'));
+ if Values[Dummy]='MaxMessages' then TakticPlugins.SetMaxMessages(Registry.ReadInteger('MaxMessages'));
if Values[Dummy]='Gamma' then GameContainer.Gamma:=Registry.ReadInteger('Gamma');
if Values[Dummy]='D3DAlphaBlend' then Enabled3DAlphaBlend:=Registry.ReadBool('D3DAlphaBlend');
if Values[Dummy]='ShowSensorArea' then ShowSensorMap:=Registry.ReadBool('ShowSensorArea');
@@ -1156,6 +1157,7 @@
Registry.WriteBool('AlwaysFast',AlwaysFastTime);
Registry.WriteBool('FreeLock',FreeLook);
Registry.WriteInteger('ScrollTempo',round(DXISOEngine.ScrollTempo*100));
+ Registry.WriteInteger('MaxMessages',TakticPlugins.GetMaxMessages);
Registry.WriteInteger('AlphaBlendFaktor',round(Blending.AlphaBlendFaktor*100));
Registry.WriteInteger('Gamma',GameContainer.Gamma);
Registry.WriteBool('CompatibleMode',DXTakticScreen.GetCompatibleMode);
Index: source/Units/readlanguage.inc
===================================================================
RCS file: /cvsroot/xforceffd/game/source/Units/readlanguage.inc,v
retrieving revision 1.7
diff -u -r1.7 readlanguage.inc
--- source/Units/readlanguage.inc 29 Jul 2005 17:26:40 -0000 1.7
+++ source/Units/readlanguage.inc 23 Oct 2005 19:55:44 -0000
@@ -1296,6 +1296,8 @@
ST0309260044:=GetValue('ST0309260044');
ST0309260045:=GetValue('ST0309260045');
ST0309260046:=GetValue('ST0309260046');
+ ST0309260047:=GetValue('ST0309260047');
+ ST0309260048:=GetValue('ST0309260048');
ST0309270001:=GetValue('ST0309270001');
ST0309270002:=GetValue('ST0309270002');
ST0309270003:=GetValue('ST0309270003');
Index: source/Units/stringConst.pas
===================================================================
RCS file: /cvsroot/xforceffd/game/source/Units/stringConst.pas,v
retrieving revision 1.7
diff -u -r1.7 stringConst.pas
--- source/Units/stringConst.pas 29 Jul 2005 17:26:40 -0000 1.7
+++ source/Units/stringConst.pas 23 Oct 2005 19:51:06 -0000
@@ -1515,6 +1515,8 @@
ST0309260044 : string;
ST0309260045 : string;
ST0309260046 : string;
+ ST0309260047 : string;
+ ST0309260048 : string;
// Neue Texte 27.09.2003
// MissionList
Index: source/components/TakticPlugins.pas
===================================================================
RCS file: /cvsroot/xforceffd/game/source/components/TakticPlugins.pas,v
retrieving revision 1.5
diff -u -r1.5 TakticPlugins.pas
--- source/components/TakticPlugins.pas 8 Jul 2005 18:07:19 -0000 1.5
+++ source/components/TakticPlugins.pas 24 Oct 2005 13:03:34 -0000
@@ -114,8 +114,14 @@
MenuPos = ScreenWidth-110;
ButtonHeight = 21;
+ procedure SetMaxMessages(Messages: Integer);
+ function GetMaxMessages: Integer;
+
implementation
+var
+ MaxMessages : Integer = 20;
+
{ TTakticTimeDrawer }
constructor TTakticTimeDrawer.Create(Screen: TDXTakticScreen);
@@ -365,8 +371,13 @@
fMessages[FirstIndex]:=Date+': '#2+fMessages[FirstIndex];
for Dummy:=FirstIndex+1 to fMessages.Count-1 do
fMessages[Dummy]:=#254+fMessages[Dummy];
-// if fMessages.Count>fMaxMessages then
-// fMessages.Delete(fMaxMessages);
+
+ if fMessages.Count>MaxMessages then
+ begin
+ repeat
+ fMessages.Delete(0);
+ until fMessages.Count <= MaxMessages;
+ end;
end;
constructor TTakticMessages.Create(Screen: TDXTakticScreen);
@@ -411,4 +422,14 @@
end;
end;
+procedure SetMaxMessages(Messages: Integer);
+begin
+ MaxMessages:=Messages;
+end;
+
+function GetMaxMessages: Integer;
+begin
+ result:=MaxMessages;
+end;
+
end.
Index: source/components/XForce_types.pas
===================================================================
RCS file: /cvsroot/xforceffd/game/source/components/XForce_types.pas,v
retrieving revision 1.10
diff -u -r1.10 XForce_types.pas
--- source/components/XForce_types.pas 1 Oct 2005 18:00:30 -0000 1.10
+++ source/components/XForce_types.pas 23 Oct 2005 16:02:46 -0000
@@ -156,7 +156,8 @@
ptSensor, // Sensor
ptShield, // Raumschiffschild
ptExtension, // Erweiterung für Raumschiffe
- ptGuertel); // Gürtel für Soldaten
+ ptGuertel, // Gürtel für Soldaten
+ ptRawMaterial);
TGameDifficult = (gdVeryEasy, // sehr leicht
gdEasy, // leicht
Index: source/components/kd4dx_delphi7.cfg
===================================================================
RCS file: /cvsroot/xforceffd/game/source/components/kd4dx_delphi7.cfg,v
retrieving revision 1.3
diff -u -r1.3 kd4dx_delphi7.cfg
--- source/components/kd4dx_delphi7.cfg 21 Jun 2005 15:28:10 -0000 1.3
+++ source/components/kd4dx_delphi7.cfg 24 Oct 2005 11:42:08 -0000
@@ -32,12 +32,12 @@
-$M16384,1048576
-K$00400000
-N"..\dcus"
--LE"c:\programme\borland\delphi7\Projects\Bpl"
--LN"c:\programme\borland\delphi7\Projects\Bpl"
--U"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;c:\programme\borland\delphi7\Projects\Bpl;..\;..\utils;..\pages;..\components"
--O"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;c:\programme\borland\delphi7\Projects\Bpl;..\;..\utils;..\pages;..\components"
--I"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;c:\programme\borland\delphi7\Projects\Bpl;..\;..\utils;..\pages;..\components"
--R"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;c:\programme\borland\delphi7\Projects\Bpl;..\;..\utils;..\pages;..\components"
+-LE"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
+-LN"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
+-U"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;f:\programme\borland\bds\3.0\Projects\Bpl;..\;..\utils;..\pages;..\components"
+-O"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;f:\programme\borland\bds\3.0\Projects\Bpl;..\;..\utils;..\pages;..\components"
+-I"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;f:\programme\borland\bds\3.0\Projects\Bpl;..\;..\utils;..\pages;..\components"
+-R"..\units;..\api;..\externs\delphix;..\externs\powerdraw;..\externs\units;..\externs\thaxml;..\externs\bass;f:\programme\borland\bds\3.0\Projects\Bpl;..\;..\utils;..\pages;..\components"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
Index: source/components/kd4dx_delphi7.dof
===================================================================
RCS file: /cvsroot/xforceffd/game/source/components/kd4dx_delphi7.dof,v
retrieving revision 1.6
diff -u -r1.6 kd4dx_delphi7.dof
--- source/components/kd4dx_delphi7.dof 21 Jun 2005 15:28:10 -0000 1.6
+++ source/components/kd4dx_delphi7.dof 23 Oct 2005 22:33:42 -0000
@@ -132,17 +132,26 @@
Comments=
[Excluded Packages]
C:\Programme\Borland\Delphi7\Projects\Bpl\kd4dx_delphi7.bpl=Direkt X-Komponenten
+[HistoryLists\hlDebugSourcePath]
+Count=1
+Item0=C:\xforce-sandbox\game\source\externs\units\;C:\xforce-sandbox\game\source\externs\exCQParser\;C:\xforce-sandbox\game\source\externs\bass\
[HistoryLists\hlConditionals]
-Count=2
-Item0=EDITOR
-Item1=DelphiX_Delphi5;GERMAN;EDITOR
+Count=3
+Item0=PS_NOWIDESTRING;PS_NOINTERFACES;PS_NOIDISPATCH
+Item1=EDITOR
+Item2=DelphiX_Delphi5;GERMAN;EDITOR
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
-Count=2
-Item0=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
-Item1=$(DELPHI)\Projects\auplex.net\auplex-Server
+Count=3
+Item0=pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser
+Item1=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
+Item2=$(DELPHI)\Projects\auplex.net\auplex-Server
[HistoryLists\hlUnitOutputDirectory]
+Count=2
+Item0=dcus
+Item1=..\..\game\source\dcus
+[HistoryLists\hlOutputDirectorry]
Count=1
-Item0=..\..\game\source\dcus
+Item0=G:\XForce Dev\XForce
Index: source/components/kd4dx_delphi7.dpk
===================================================================
RCS file: /cvsroot/xforceffd/game/source/components/kd4dx_delphi7.dpk,v
retrieving revision 1.5
diff -u -r1.5 kd4dx_delphi7.dpk
--- source/components/kd4dx_delphi7.dpk 21 Jun 2005 15:28:10 -0000 1.5
+++ source/components/kd4dx_delphi7.dpk 23 Oct 2005 22:25:08 -0000
@@ -64,7 +64,8 @@
DelphiX_for7,
VclSmp,
PascalScript_Core_D7,
- DJcl;
+ DJcl,
+ Utilities_D7;
contains
KD4SaveGame in 'KD4SaveGame.pas',
Index: source/externs/delphix/DelphiX_for7.cfg
===================================================================
RCS file: /cvsroot/xforceffd/game/source/externs/delphix/DelphiX_for7.cfg,v
retrieving revision 1.1
diff -u -r1.1 DelphiX_for7.cfg
--- source/externs/delphix/DelphiX_for7.cfg 27 May 2004 17:05:57 -0000 1.1
+++ source/externs/delphix/DelphiX_for7.cfg 24 Oct 2005 11:42:08 -0000
@@ -32,12 +32,12 @@
-$M16384,1048576
-K$00400000
-N"..\..\dcus"
--LE"c:\programme\borland\delphi7\Projects\Bpl"
--LN"c:\programme\borland\delphi7\Projects\Bpl"
--U"c:\programme\borland\delphi7\Source\ToolsAPI"
--O"c:\programme\borland\delphi7\Source\ToolsAPI"
--I"c:\programme\borland\delphi7\Source\ToolsAPI"
--R"c:\programme\borland\delphi7\Source\ToolsAPI"
+-LE"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
+-LN"C:\Dokumente und Einstellungen\Paul\Eigene Dateien\Borland Studio Projects\Bpl"
+-U"f:\programme\borland\bds\3.0\Source\ToolsAPI"
+-O"f:\programme\borland\bds\3.0\Source\ToolsAPI"
+-I"f:\programme\borland\bds\3.0\Source\ToolsAPI"
+-R"f:\programme\borland\bds\3.0\Source\ToolsAPI"
-Z
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
Index: source/externs/delphix/DelphiX_for7.dof
===================================================================
RCS file: /cvsroot/xforceffd/game/source/externs/delphix/DelphiX_for7.dof,v
retrieving revision 1.4
diff -u -r1.4 DelphiX_for7.dof
--- source/externs/delphix/DelphiX_for7.dof 21 Jun 2005 15:28:12 -0000 1.4
+++ source/externs/delphix/DelphiX_for7.dof 23 Oct 2005 22:33:42 -0000
@@ -129,17 +129,26 @@
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
+[HistoryLists\hlDebugSourcePath]
+Count=1
+Item0=C:\xforce-sandbox\game\source\externs\units\;C:\xforce-sandbox\game\source\externs\exCQParser\;C:\xforce-sandbox\game\source\externs\bass\
[HistoryLists\hlConditionals]
-Count=2
-Item0=EDITOR
-Item1=DelphiX_Delphi5;GERMAN;EDITOR
+Count=3
+Item0=PS_NOWIDESTRING;PS_NOINTERFACES;PS_NOIDISPATCH
+Item1=EDITOR
+Item2=DelphiX_Delphi5;GERMAN;EDITOR
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
-Count=2
-Item0=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
-Item1=$(DELPHI)\Projects\auplex.net\auplex-Server
+Count=3
+Item0=pages;components;units;utils;externs\delphix;externs\units;externs\powerdraw;externs\thaxml;externs\bass;externs\exCQParser
+Item1=$(DELPHI)\Projects\auplex.net\auplex-Server;$(DELPHI)\Projects\KD4\components
+Item2=$(DELPHI)\Projects\auplex.net\auplex-Server
[HistoryLists\hlUnitOutputDirectory]
+Count=2
+Item0=dcus
+Item1=..\..\game\source\dcus
+[HistoryLists\hlOutputDirectorry]
Count=1
-Item0=..\..\game\source\dcus
+Item0=G:\XForce Dev\XForce
Index: source/pages/MainPage.pas
===================================================================
RCS file: /cvsroot/xforceffd/game/source/pages/MainPage.pas,v
retrieving revision 1.13
diff -u -r1.13 MainPage.pas
--- source/pages/MainPage.pas 1 Oct 2005 18:00:30 -0000 1.13
+++ source/pages/MainPage.pas 24 Oct 2005 11:48:24 -0000
@@ -100,6 +100,7 @@
procedure FreeLookChange(Sender: TObject);
procedure ChangeTastaturScroll(Sender: TObject);
procedure ChangeCompatibleMode(Sender: TObject);
+ procedure ChangeMessagesScroll(Sender: TObject);
procedure NewGameClick(Sender: TObject);
procedure SinglePlayerClick(Sender: TObject);
@@ -165,6 +166,9 @@
AllgemeinCaption : TDXGroupCaption;
AlwaysFast : TDXCheckBox;
CompatibleBox : TDXCheckBox;
+ MessagesCaption : TDXGroupCaption;//Nachrichtenanzeige-Beschreibung
+ MessagesLabel : TDXGroupCaption;//Nachrichtenanzeige-Wert
+ MessagesScroll : TDXScrollBar; //Nachrichtenanzeige-Scrollbar
// Ende Komponenten Gameplay
@@ -230,7 +234,8 @@
implementation
uses GlobeRenderer, GameMenu, game_api, highscore_api, savegame_api,
- gameset_api, MissionList, string_utils, D3DRender, ReadLanguage;
+ gameset_api, MissionList, string_utils, D3DRender, ReadLanguage,
+ TakticPlugins;
{ TMainPage }
@@ -1192,6 +1197,50 @@
OnChange:=ChangeCompatibleMode;
end;
+ // Überschrift Nachrichtenanzeige
+ MessagesCaption:=TDXGroupCaption.Create(Self);
+ with MessagesCaption do
+ begin
+ SetRect(245,202,300,21);
+ SetFont(Font);
+ RoundCorners:=rcNone;
+ Visible:=false;
+ Caption:=ST0309260043;
+ BlendColor:=bcNavy;
+ BorderColor:=coFirstColor;
+ end;
+
+ // Anzeige Nachrichtenanzeige
+ MessagesLabel:=TDXGroupCaption.Create(Self);
+ with MessagesLabel do
+ begin
+ SetRect(546,202,110,21);
+ SetFont(Font);
+ Visible:=false;
+ RoundCorners:=rcNone;
+ Alignment:=taRightJustify;
+ BlendColor:=bcNavy;
+ BorderColor:=coFirstColor;
+ end;
+
+ // Scrollbar Nachrichtenanzeige
+ MessagesScroll:=TDXScrollBar.Create(Self);
+ with MessagesScroll do
+ begin
+ max:=20;
+ min:=1;
+ FirstColor:=bcNavy;
+ SecondColor:=coScrollPen;
+ SetButtonFont(Font);
+ RoundCorners:=rcNone;
+ Kind:=sbHorizontal;
+ SetRect(245,224,411,16);
+ Hint:=ST0309260044;
+ LargeChange:=10;
+ OnChange:=ChangeMessagesScroll;
+ Interval:=50;
+ Visible:=false;
+ end;
//********************************************
// Ende Komponenten für Gameplay Einstellungen
//********************************************
@@ -2067,6 +2116,7 @@
AlwaysFast.Checked:=AlwaysFastTime;
TastaturScroll.Value:=round(DXISOEngine.ScrollTempo*100);
CompatibleBox.Checked:=DXTakticScreen.GetCompatibleMode;
+ MessagesScroll.Value:=TakticPlugins.GetMaxMessages;
LoadGame.Visible:=false;
DeleteGame.Visible:=false;
@@ -2239,6 +2289,9 @@
AlwaysFast.Visible:=Show;
Gameplay.HighLight:=Show;
CompatibleBox.Visible:=Show;
+ MessagesCaption.Visible:=Show;
+ MessagesLabel.Visible:=Show;
+ MessagesScroll.Visible:=Show;
if Show then
ShowSoundGraphic(false);
@@ -2368,4 +2421,10 @@
Container.ReadSounds(savegame_api_GetGameSet.FileName,'user');
end;
+procedure TMainPage.ChangeMessagesScroll(Sender: TObject);
+begin
+ MessagesLabel.Caption:=IntToStr(MessagesScroll.Value);
+ TakticPlugins.SetMaxMessages(MessagesScroll.Value);
+end;
+
end.