421 end;

   421 end;

   422 

   422 

   423 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs

   423 function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs

   424 var Gear: PGear;

   424 var Gear: PGear;

   425 begin

   425 begin

   426 CheckNoDamage:= true;

   427 CheckNoDamage:= true;

   427 Gear:= GearsList;

   428 Gear:= GearsList;

   428 while Gear <> nil do

   429 while Gear <> nil do

   429 	begin

   430 	begin

   430 	if Gear^.Kind = gtHedgehog then

   431 	if Gear^.Kind = gtHedgehog then