Changeset 532 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Apr 1, 2024, 7:13:16 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Tribes.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, LazFileUtils, Classes, SysUtils, Global,
-  GraphicSet,
+  Protocol, ScreenTools, LazFileUtils, Classes, SysUtils, Global, GraphicSet,
   {$IFDEF DPI}Dpi.Graphics{$ELSE}Graphics{$ENDIF};
-
 
 type
@@ -417 +415 @@
 
 procedure TTribe.InitAge(Age: Integer);
-type
-  TLine = array [0 .. 649, 0 .. 2] of Byte;
 var
   I, X, Gray: Integer;
@@ -435 +431 @@
     begin
       Input := Strings[I];
-      system.Delete(Input, 1, 6);
+      System.Delete(Input, 1, 6);
       Item := Get;
       cpix := GetNum;
@@ -575 +571 @@
   LeastUsed: Integer;
   TestPic: TModelPictureInfo;
-  ok: Boolean;
+  Ok: Boolean;
 
   procedure Check;
@@ -630 +626 @@
   end;
 
-  ok := False;
+  Ok := False;
   for I := 0 to Script.Count - 1 do
   begin // look through units defined in tribe script
@@ -636 +632 @@
     if Copy(Input, 1, 6) = '#UNITS' then
     begin
-      ok := True;
+      Ok := True;
       TestPic.GrName := Copy(Input, 8, 255) + '.png';
       HGr := GrExt.SearchByName(TestPic.GrName);
     end
     else if (Input <> '') and (Input[1] = '#') then
-      ok := False
-    else if ok then
+      Ok := False
+    else if Ok then
       Check;
   end;