129 TryDo(CurrentTeam <> nil, 'nil Team', true);

   129 TryDo(CurrentTeam <> nil, 'nil Team', true);

   130 tteam:= CurrentTeam;

   130 tteam:= CurrentTeam;

   131 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do

   131 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do

   132      if Gear <> nil then

   132      if Gear <> nil then

   133         begin

   133         begin

   134         Gear^.Message:= 0;

   135         Gear^.Message:= 0;

   135         Gear^.Z:= cHHZ;

   136         Gear^.Z:= cHHZ;

   136         RemoveGearFromList(Gear);

   137         RemoveGearFromList(Gear);

   137         InsertGearToList(Gear)

   138         InsertGearToList(Gear)

   138         end;

   139         end;

   148 

   149 

   149 TryDo(CurrentTeam <> tteam, 'Switch hedgehog: only one team?!', true);

   150 TryDo(CurrentTeam <> tteam, 'Switch hedgehog: only one team?!', true);

   150 

   151 

   151 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do

   152 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do

   152      begin

   153      begin

   154      with Gear^ do

   154      with Gear^ do

   155           begin

   155           begin

   156           Z:= cCurrHHZ;

   156           Z:= cCurrHHZ;

   157           State:= gstHHDriven;

   157           State:= gstHHDriven;

   158           Active:= true

   158           Active:= true