Changeset 715 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Jan 4, 2026, 6:07:38 PM (3 days ago)

Author:

chronos

Message:

• Modified: Do not store .png file extension in graphics names in book files. This is for compatibility with older C-evo versions.

File:

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

trunk/LocalPlayer/Tribes.pas

@@ -322 +322 @@
       Item := Get;
       sympix := GetNum;
-      symHGr := LoadGraphicSet(Item + '.png');
+      symHGr := LoadGraphicSet(Item + PngExt);
     end;
   end;
@@ -442 +442 @@
             end;
           end;
-        cHGr := LoadGraphicSet(Item + '.png');
+        cHGr := LoadGraphicSet(Item + PngExt);
         for X := 0 to 3 do
           with CityPicture[X] do begin
@@ -461 +461 @@
       else
       begin
-        faceHGr := LoadGraphicSet(Item + '.png');
+        faceHGr := LoadGraphicSet(Item + PngExt);
         facepix := GetNum;
         if faceHGr.Data.Canvas.Pixels[facepix mod 10 * 65,
@@ -493 +493 @@
         Dec(I);
       Assert(I >= 0);
-      Assert(PictureList[I].HGr = LoadGraphicSet(GrName));
+      Assert(PictureList[I].HGr = LoadGraphicSet(GrName + PngExt));
       Assert(PictureList[I].pix = pix);
       ModelPicture[mix].HGr := PictureList[I].HGr;
@@ -503 +503 @@
       with ModelPicture[mix] do
       begin
-        HGr := LoadGraphicSet(GrName);
+        HGr := LoadGraphicSet(GrName + PngExt);
         pix := Info.pix;
         Inc(HGr.PixUsed[pix]);
@@ -514 +514 @@
       begin
         Input := Script[I];
-        if Input = '#UNITS ' + ExtractFileNameOnly(GrName) then
+        if Input = '#UNITS ' + ExtractFileNameOnly(GrName + PngExt) then
           Ok := True
         else if (Input <> '') and (Input[1] = '#') then
@@ -610 +610 @@
   LeastUsed := MaxInt;
 
-  TestPic.GrName := 'StdUnits.png';
+  TestPic.GrName := 'StdUnits';
   HGr := HGrStdUnits;
   for I := 0 to StdUnitScript.Count - 1 do
@@ -625 +625 @@
     begin
       Ok := True;
-      TestPic.GrName := Copy(Input, 8, 255) + '.png';
-      HGr := GrExt.SearchByName(TestPic.GrName);
+      TestPic.GrName := Copy(Input, 8, 255);
+      HGr := GrExt.SearchByName(TestPic.GrName + PngExt);
     end
     else if (Input <> '') and (Input[1] = '#') then