- Made cedserver compile with FPC 2.2.3

This commit is contained in:
Andreas Schneider 2009-08-02 18:43:32 +02:00
parent b70f03ba2a
commit dc932985e2
3 changed files with 12 additions and 8 deletions

View File

@ -256,13 +256,13 @@ begin
Writeln('Configuring Paths'); Writeln('Configuring Paths');
Writeln('================='); Writeln('=================');
Write ('map [map0.mul]: '); Write ('map [map0.mul]: ');
Readln (FMap.MapFile); Readln (FMap.FMapFile);
if FMap.MapFile = '' then FMap.MapFile := 'map0.mul'; if FMap.MapFile = '' then FMap.MapFile := 'map0.mul';
Write ('statics [statics0.mul]: '); Write ('statics [statics0.mul]: ');
Readln (FMap.StaticsFile); Readln (FMap.FStaticsFile);
if FMap.StaticsFile = '' then FMap.StaticsFile := 'statics0.mul'; if FMap.StaticsFile = '' then FMap.StaticsFile := 'statics0.mul';
Write ('staidx [staidx0.mul]: '); Write ('staidx [staidx0.mul]: ');
Readln (FMap.StaIdxFile); Readln (FMap.FStaIdxFile);
if FMap.StaIdxFile = '' then FMap.StaIdxFile := 'staidx0.mul'; if FMap.StaIdxFile = '' then FMap.StaIdxFile := 'staidx0.mul';
Write ('tiledata [tiledata.mul]: '); Write ('tiledata [tiledata.mul]: ');
Readln (FTiledata); Readln (FTiledata);

View File

@ -29,7 +29,7 @@
<PackageName Value="lnetbase"/> <PackageName Value="lnetbase"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="14"> <Units Count="15">
<Unit0> <Unit0>
<Filename Value="cedserver.lpr"/> <Filename Value="cedserver.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -100,6 +100,11 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="UClientHandling"/> <UnitName Value="UClientHandling"/>
</Unit13> </Unit13>
<Unit14>
<Filename Value="../UOLib/UStatics.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UStatics"/>
</Unit14>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

View File

@ -31,10 +31,9 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
SysUtils, Classes, SysUtils, Classes, lnetbase, UConfig, UCEDServer, URadarMap,
lnetbase, ULargeScaleOperations, UPackets, UAdminHandling, UClientHandling, ULandscape,
UConfig, UCEDServer, URadarMap, ULargeScaleOperations, UPackets, UPacketHandlers, URegions, UStatics;
UAdminHandling, UClientHandling, ULandscape, UPacketHandlers, URegions;
{$I version.inc} {$I version.inc}