Changeset 649 for trunk

Timestamp:

Feb 19, 2025, 10:06:19 PM (3 days ago)

Author:

chronos

Message:

• Modified: Improved brains libraries enumeration.

File:

• trunk/GameServer.pas (modified) (1 diff)

trunk/GameServer.pas

@@ -254 +254 @@
     BasePath := GetAiDir + DirectorySeparator + F.Name;
     if (F.Name <> '.') and (F.Name <> '..') and DirectoryExists(BasePath) then begin
-      NewBrain := Brains.AddNew;
+      NewBrain := TBrain.Create;
       NewBrain.Kind := btAI;
       NewBrain.LoadFromFile(BasePath + DirectorySeparator + F.Name + '.ai.txt');
       if (NewBrain.ServerVersion >= FirstAICompatibleVersion) and
         (NewBrain.ServerVersion <= CevoVersion) and
-        ((NewBrain.Flags and fDotNet = 0) or (@DotNetClient <> nil)) then begin
-        end else Brains.Delete(Brains.Count - 1);
+        ((NewBrain.Flags and fDotNet = 0) or (@DotNetClient <> nil)) and
+        (NewBrain.DLLName <> '') then begin
+          Brains.Add(NewBrain);
+        end else NewBrain.Free;
     end;
   until FindNext(F) <> 0;