diff -r 0e7cc3fb05cd -r b81a055f2d06 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Mon Jul 02 18:35:31 2007 +0000
+++ b/hedgewars/uGears.pas	Mon Jul 02 21:33:21 2007 +0000
@@ -774,37 +774,34 @@
 end;
 
 procedure AssignHHCoords;
-var Team: PTeam;
-    i, t: LongInt;
+var i, t, p: LongInt;
     ar: array[0..Pred(cMaxHHs)] of PGear;
     Count: Longword;
 begin
-Team:= TeamsList;
-
 if (GameFlags and gfForts) <> 0 then
    begin
    t:= 0;
-   while Team <> nil do
+   for p:= 0 to Pred(TeamsCount) do
+     with TeamsArray[p]^ do
       begin
       for i:= 0 to cMaxHHIndex do
-          with Team^.Hedgehogs[i] do
+          with Hedgehogs[i] do
                if Gear <> nil then FindPlace(Gear, false, t, t + 1024);
       inc(t, 1024);
-      Team:= Team^.Next
       end
    end else // mix hedgehogs
    begin
    Count:= 0;
-   while Team <> nil do
+   for p:= 0 to Pred(TeamsCount) do
+     with TeamsArray[p]^ do
       begin
       for i:= 0 to cMaxHHIndex do
-          with Team^.Hedgehogs[i] do
+          with Hedgehogs[i] do
                if Gear <> nil then
                   begin
                   ar[Count]:= Gear;
                   inc(Count)
                   end;
-      Team:= Team^.Next
       end;
 
    while (Count > 0) do