Changeset 417 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Nov 17, 2021, 11:11:01 AM (2 years ago)

Author:

chronos

Message:

• Modified: Merged LoadGraphicSet and LoadGraphicSet2 into single method.
• Modified: Moved brain load picture code into TBrain.LoadPicture method.
• Added: Brain pictures loaded as TGraphicSetItem.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Tribes.pas (modified) (1 diff)

trunk/LocalPlayer/Tribes.pas

@@ -430 +430 @@
         if CompareText(Item, 'stdcities') = 0 then
           case cpix of
-            3:
-              cpix := 0;
-            6:
-            begin
+            3: cpix := 0;
+            6: begin
               cpix := 0;
               Item := 'Nation2';
-            end
+            end;
           end;
         cHGr := LoadGraphicSet(Item + '.png');
         for x := 0 to 3 do
-          with CityPicture[x] do
-          begin
+          with CityPicture[x] do begin
             FindPosition(cHGr, x * 65, cpix * 49, 63, 47, $00FFFF,
               xShield, yShield);