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

   430             if Gear <> nil then

   431                 begin

   431                 begin

   432                 Gear^.Invulnerable:= false;

   432                 Gear^.Invulnerable:= false;

   434                 end

   435                 end

   435 end;

   436 end;

   436 

   437 

   437 procedure chAddHH(var id: shortstring);

   438 procedure chAddHH(var id: shortstring);

   438 var s: shortstring;

   439 var s: shortstring;