425 var i: LongInt;

   425 var i: LongInt;

   426 begin

   426 begin

   427 with Team do

   427 with Team do

   428     for i:= 0 to cMaxHHIndex do

   428     for i:= 0 to cMaxHHIndex do

   429         with Hedgehogs[i] do

   429         with Hedgehogs[i] do

   430             if Gear <> nil then

   434             if Gear <> nil then

   431                 begin

   435                 begin

   432                 Gear^.Invulnerable:= false;

   436                 Gear^.Invulnerable:= false;

   433                 Gear^.Damage:= Gear^.Health;

   437                 Gear^.Damage:= Gear^.Health;

   434                 Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven

   438                 Gear^.State:= (Gear^.State or gstHHGone) and not gstHHDriven

   435                 end

   439                 end

   436 end;

   441 end;

   437 

   442 

   438 procedure chAddHH(var id: shortstring);

   443 procedure chAddHH(var id: shortstring);

   439 var s: shortstring;

   444 var s: shortstring;

   440     Gear: PGear;

   445     Gear: PGear;