Changeset 133

Timestamp:

May 1, 2018, 11:49:57 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Search additional AI libraries only in subdirectories of AI subdirectory.

File:

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

trunk/GameServer.pas

@@ -209 +209 @@
   if FindFirst(HomeDir + 'AI' + DirectorySeparator + '*', faDirectory or faArchive or faReadOnly, f) = 0 then
   repeat
-    if (f.Name <> '.') and (f.Name <> '..') then begin
+    BasePath := HomeDir + 'AI' + DirectorySeparator + f.Name;
+    if (f.Name <> '.') and (f.Name <> '..') and DirectoryExists(BasePath) then begin
       with Brain[nBrain] do begin
-        BasePath := HomeDir + 'AI' + DirectorySeparator + f.Name;
         FileName := f.Name;
         DLLName := BasePath + DirectorySeparator + FileName + '.dll';