Changeset 531 for trunk/LocalPlayer/Tribes.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Tribes.pas

@@ -430 +430 @@
     I := 0;
     while (I < Count) and (Copy(Strings[I], 1, 6) <>
-        '#AGE' + char(48 + Age) + ' ') do
+        '#AGE' + Char(48 + Age) + ' ') do
       Inc(I);
     if I < Count then
@@ -489 +489 @@
 var
   I: Integer;
-  ok: Boolean;
+  Ok: Boolean;
 begin
   with Info do
@@ -516 +516 @@
 
       // read model name from tribe script
-      ok := False;
+      Ok := False;
       for I := 0 to Script.Count - 1 do
       begin
         Input := Script[I];
         if Input = '#UNITS ' + ExtractFileNameOnly(GrName) then
-          ok := True
+          Ok := True
         else if (Input <> '') and (Input[1] = '#') then
-          ok := False
-        else if ok and (GetNum = pix) then
+          Ok := False
+        else if Ok and (GetNum = pix) then
         begin
           Get;