Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uTeams.pas
changeset 10635 8e8b320eefad
parent 10634 35d059bd0932
child 10643 8d6063af793a
equal deleted inserted replaced
10634:35d059bd0932 10635:8e8b320eefad 
   843 end;
 
   843 end;
 
   844 
   844 
   845 procedure freeModule;
 
   845 procedure freeModule;
 
   846 var i, h: LongWord;
 
   846 var i, h: LongWord;
 
   847 begin
 
   847 begin
 
       
   848 CurrentHedgehog:= nil;
 
   848 if TeamsCount > 0 then
 
   849 if TeamsCount > 0 then
 
   849     begin
 
   850     begin
 
   850     for i:= 0 to Pred(TeamsCount) do
 
   851     for i:= 0 to Pred(TeamsCount) do
 
   851         begin
 
   852         begin
 
   852         for h:= 0 to cMaxHHIndex do
 
   853         for h:= 0 to cMaxHHIndex do
hedgewars