- Added more verbose status messages

Server/ULandscape.pas

@@ -21,7 +21,7 @@
  * CDDL HEADER END
  *
  *
- *      Portions Copyright 2007 Andreas Schneider
+ *      Portions Copyright 2008 Andreas Schneider
  *)
 unit ULandscape;
 
@@ -183,12 +183,18 @@ end;
 
 constructor TLandscape.Create(AMap, AStatics, AStaIdx, ATiledata,
   ARadarCol: string; AWidth, AHeight: Word; var AValid: Boolean);
+var
+  map, statics, staidx, tiledata: TStream;
 begin
-  Create(TFileStream.Create(AMap, fmOpenReadWrite),
+  Write(TimeStamp, 'Loading Map');
-    TFileStream.Create(AStatics, fmOpenReadWrite),
+  map := TFileStream.Create(AMap, fmOpenReadWrite);
-    TBufferedReader.Create(TFileStream.Create(AStaIdx, fmOpenReadWrite), True),
+  Write(', Statics');
-    TFileStream.Create(ATiledata, fmOpenRead or fmShareDenyWrite),
+  statics := TFileStream.Create(AStatics, fmOpenReadWrite);
-    ARadarCol, AWidth, AHeight, AValid);
+  Write(', StaIdx');
+  staidx := TBufferedReader.Create(TFileStream.Create(AStaIdx, fmOpenReadWrite), True);
+  Writeln(', Tiledata');
+  tiledata := TFileStream.Create(ATiledata, fmOpenRead or fmShareDenyWrite);
+  Create(map, statics, staidx, tiledata, ARadarCol, AWidth, AHeight, AValid);
   FOwnsStreams := True;
 end;
 
@@ -210,13 +216,17 @@ begin
   AValid := Validate;
   if AValid then
   begin
+    Write(TimeStamp, 'Creating Cache');
     FBlockCache := TCacheManager.Create(256);
     FBlockCache.OnRemoveObject := @OnRemoveCachedObject;
+    Write(', Tiledata');
     FTiledataProvider := TTiledataProvider.Create(ATiledata);
+    Write(', Subscriptions');
     SetLength(FBlockSubscriptions, AWidth * AHeight);
     for blockID := 0 to AWidth * AHeight - 1 do
       FBlockSubscriptions[blockID] := TLinkedList.Create;
 
+    Writeln(', RadarMap');
     FRadarMap := TRadarMap.Create(FMap, FStatics, FStaIdx, FWidth, FHeight,
       ARadarCol);
 

Server/cedserver.lpi

@@ -28,7 +28,7 @@
         <PackageName Value="lnetbase"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="9">
+    <Units Count="14">
       <Unit0>
         <Filename Value="cedserver.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -74,6 +74,31 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="UInterfaces"/>
       </Unit8>
+      <Unit9>
+        <Filename Value="UPacketHandlers.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UPacketHandlers"/>
+      </Unit9>
+      <Unit10>
+        <Filename Value="ULandscape.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="ULandscape"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="UPackets.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UPackets"/>
+      </Unit11>
+      <Unit12>
+        <Filename Value="UAdminHandling.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UAdminHandling"/>
+      </Unit12>
+      <Unit13>
+        <Filename Value="UClientHandling.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UClientHandling"/>
+      </Unit13>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

Server/cedserver.lpr

@@ -33,11 +33,13 @@ uses
   {$ENDIF}{$ENDIF}
   SysUtils, Classes,
   lnetbase,
-  UConfig, UCEDServer, URadarMap, ULargeScaleOperations;
+  UConfig, UCEDServer, URadarMap, ULargeScaleOperations, UPackets,
+  UAdminHandling, UClientHandling, ULandscape, UPacketHandlers;
   
 {$I version.inc}
   
 begin
+  Writeln('');
   Writeln('UO CentrED Server Version ', ProductVersion);
   Writeln('Copyright ', Copyright);
   //Writeln('================================');
@@ -59,15 +61,15 @@ begin
   end;
   {$ENDIF}
   
-  Write(TimeStamp, 'Initializing ... ');
+  Writeln(TimeStamp, 'Initialization started');
   Randomize;
   CEDServerInstance := TCEDServer.Create;
-  Writeln('Done');
+  Writeln(TimeStamp, 'Initialization done');
   CEDServerInstance.Run;
-  Write(TimeStamp, 'Terminating ... ');
+  Write(TimeStamp, 'Shutting down ... ');
   FreeAndNil(CEDServerInstance);
   Config.Flush;
   FreeAndNil(Config);
-  Writeln('Done');
+  Writeln('done');
 end.
 

version.inc

@@ -2,4 +2,4 @@ const
   ProductVersion = '0.3.6';
   ProtocolVersion = 5;
   Revision = '41';
-  Copyright = '2007 Andreas Schneider';
+  Copyright = '2008 Andreas Schneider';