Changeset 54 for trunk

Timestamp:

Jan 12, 2017, 12:25:56 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Modification of for loop variable replaced by while cycle.

File:

• trunk/GameServer.pas (modified) (2 diffs)

trunk/GameServer.pas

@@ -1546 +1546 @@
       if 1 shl p1 and GAlive <> 0 then
         inc(nAlive);
-    for ad := 0 to nAdv - 5 do
+    ad := 0;
+    while ad <= (nAdv - 5) do begin
       if RW[pTurn].Tech[ad] < tsSeen then
       begin
@@ -1559 +1560 @@
           inc(nTech[pTurn]);
           if Mode >= moMovie then
-            // TODO CallPlayer(cShowGreatLibTech, pTurn, ad);
+            CallPlayer(cShowGreatLibTech, pTurn, ad);
           // do not call CallPlayer(pTurn) while map is invalid
         end;
       end;
+      Inc(ad);
+    end;
   end;