Changeset 54 for trunk/GameServer.pas


Ignore:
Timestamp:
Jan 12, 2017, 12:25:56 AM (6 years ago)
Author:
chronos
Message:
  • Fixed: Modification of for loop variable replaced by while cycle.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/GameServer.pas

    r38 r54  
    15461546      if 1 shl p1 and GAlive <> 0 then
    15471547        inc(nAlive);
    1548     for ad := 0 to nAdv - 5 do
     1548    ad := 0;
     1549    while ad <= (nAdv - 5) do begin
    15491550      if RW[pTurn].Tech[ad] < tsSeen then
    15501551      begin
     
    15591560          inc(nTech[pTurn]);
    15601561          if Mode >= moMovie then
    1561             // TODO CallPlayer(cShowGreatLibTech, pTurn, ad);
     1562            CallPlayer(cShowGreatLibTech, pTurn, ad);
    15621563          // do not call CallPlayer(pTurn) while map is invalid
    15631564        end;
    15641565      end;
     1566      Inc(ad);
     1567    end;
    15651568  end;
    15661569
Note: See TracChangeset for help on using the changeset viewer.