- Added more verbose status messages

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

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