hedgewars/uVariables.pas
changeset 11739 f48408dcea36
parent 11709 1694b379c83f
child 11833 a69124eb7ce7
child 11841 1d41f297b3d3
--- a/hedgewars/uVariables.pas	Tue Apr 26 20:51:13 2016 +0200
+++ b/hedgewars/uVariables.pas	Tue Apr 26 22:09:50 2016 +0200
@@ -2392,7 +2392,7 @@
     CurrentHedgehog: PHedgehog;
     TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;
     TeamsCount: Longword;
-    ClansArray: array[0..Pred(cMaxTeams)] of PClan;
+    ClansArray, SpawnClansArray: TClansArray;
     ClansCount: Longword;
     LocalClan: LongInt;  // last non-bot, non-extdriven clan
     LocalTeam: LongInt;  // last non-bot, non-extdriven clan first team
@@ -2778,6 +2778,8 @@
         ClansArray[i]:= nil;
         end;
 
+    SpawnClansArray:= ClansArray;
+
     for i:= Low(TeamsArray) to High(TeamsArray) do
         begin
         TeamsArray[i]:= nil;