309     with TeamsArray[t]^ do

   309     with TeamsArray[t]^ do

   310         begin

   310         begin

   311         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then

   311         if (not ExtDriven) and (Hedgehogs[0].BotLevel = 0) then

   312             begin

   312             begin

   313             LocalClan:= Clan^.ClanIndex;

   313             LocalClan:= Clan^.ClanIndex;

   314             LocalAmmo:= Hedgehogs[0].AmmoStore

   315             LocalAmmo:= Hedgehogs[0].AmmoStore

   315             end;

   316             end;

   316         th:= 0;

   317         th:= 0;

   317         for i:= 0 to cMaxHHIndex do

   318         for i:= 0 to cMaxHHIndex do

   318             if Hedgehogs[i].Gear <> nil then

   319             if Hedgehogs[i].Gear <> nil then

   519     PreviousTeam:= nil;

   520     PreviousTeam:= nil;

   520     CurrentHedgehog:= nil;

   521     CurrentHedgehog:= nil;

   521     TeamsCount:= 0;

   522     TeamsCount:= 0;

   522     ClansCount:= 0;

   523     ClansCount:= 0;

   523     LocalClan:= -1;

   524     LocalClan:= -1;

   524     LocalAmmo:= -1;

   526     LocalAmmo:= -1;

   525     GameOver:= false

   527     GameOver:= false

   526 end;

   528 end;

   527 

   529 

   528 procedure freeModule;

   530 procedure freeModule;