Changeset 531 for trunk/LocalPlayer/ClientTools.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/ClientTools.pas (modified) (2 diffs)

trunk/LocalPlayer/ClientTools.pas

@@ -446 +446 @@
     eDied - job done and died (thurst) }
 var
-  stage, NextJob, Tile: Integer;
-  Done: set of jNone .. jPoll;
+  Stage, NextJob, Tile: Integer;
+  Done: set of jNone..jPoll;
 begin
   Done := [];
@@ -470 +470 @@
   while (Result <> eOK) and (Result <> eDied) do
   begin
-    stage := -1;
+    Stage := -1;
     repeat
-      if stage = -1 then
+      if Stage = -1 then
         NextJob := jPoll
       else
-        NextJob := Jobs[Tile and fTerrain, stage];
+        NextJob := Jobs[Tile and fTerrain, Stage];
       if (NextJob = jNone) or not (NextJob in Done) then
         Break;
-      Inc(stage);
-    until stage = 5;
-    if (stage = 5) or (NextJob = jNone) then
+      Inc(Stage);
+    until Stage = 5;
+    if (Stage = 5) or (NextJob = jNone) then
     begin
       Result := eJobDone;