Changeset 98 for trunk/LocalPlayer/Tribes.pas

Timestamp:

May 22, 2017, 6:37:31 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Tribe special unit names were not loaded correctly.

File:

• trunk/LocalPlayer/Tribes.pas (modified) (3 diffs)

trunk/LocalPlayer/Tribes.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools,
-
+  Protocol, ScreenTools, LazFileUtils,
   Classes, Graphics, SysUtils;
 
@@ -20 +19 @@
   TModelPictureInfo = record
     trix, mix, pix, Hash: integer;
-    GrName: ShortString end;
-
-    TTribe = class symHGr, sympix, faceHGr, facepix, cHGr, cpix,
+    GrName: ShortString;
+  end;
+
+  TTribe = class
+    symHGr, sympix, faceHGr, facepix, cHGr, cpix,
     // symbol and city graphics
     cAge, mixSlaves: integer;
@@ -498 +499 @@
           begin
             Input := Script[i];
-            if Input = '#UNITS ' + GrName then
+            if Input = '#UNITS ' + ExtractFileNameOnly(GrName) then
               ok := true
             else if (Input <> '') and (Input[1] = '#') then