Changeset 192 for trunk/GameServer.pas

Timestamp:

May 7, 2020, 12:30:04 PM (5 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Simplified initialization of brain pictures.
• Modified: Use GetAiDir function for AI subdirectory.

File:

• trunk/GameServer.pas (modified) (4 diffs)

trunk/GameServer.pas

@@ -122 +122 @@
   Directories, CityProcessing, UnitProcessing, CmdList, LCLIntf, LCLType,
   LMessages, Classes, SysUtils;
+
+resourcestring
+  SNoAiFound = 'No AI libraries found in directory %s';
 
 var
@@ -256 +259 @@
   BrainBeginner := nil;
 
-  if FindFirst(HomeDir + 'AI' + DirectorySeparator + '*', faDirectory or faArchive or faReadOnly, f) = 0 then
+  if FindFirst(GetAiDir + DirectorySeparator + '*', faDirectory or faArchive or faReadOnly, f) = 0 then
   repeat
-    BasePath := HomeDir + 'AI' + DirectorySeparator + f.Name;
+    BasePath := GetAiDir + DirectorySeparator + f.Name;
     if (f.Name <> '.') and (f.Name <> '..') and DirectoryExists(BasePath) then begin
       NewBrain := Brains.AddNew;
@@ -272 +275 @@
 
   if Brains.GetKindCount(btAI) = 0 then
-    raise Exception.Create(Format('No AI libraries found in directory %s', [HomeDir + 'AI']));
+    raise Exception.Create(Format(SNoAiFound, [GetAiDir]));
 end;
 
@@ -4584 +4587 @@
 constructor TBrain.Create;
 begin
-  Picture := nil;
+  Picture := TBitmap.Create;
+  Picture.SetSize(64, 64);
 end;
 
 destructor TBrain.Destroy;
 begin
-  if Assigned(Picture) then Picture.Free;
+  FreeAndNil(Picture);
   inherited Destroy;
 end;