685 	begin

   685 	begin

   686 	with HHGear^ do

   686 	with HHGear^ do

   687 		begin

   687 		begin

   688 		Message:= Message and not gm_Attack;

   688 		Message:= Message and not gm_Attack;

   689 		State:= State or gstMoving;

   689 		State:= State or gstMoving;

   690 		end;

   691 		end;

   691 	DeleteGear(Gear)

   692 	DeleteGear(Gear)

   692 	end;

   693 	end;

   693 

   694 

   694 	procedure WaitCollision;

   695 	procedure WaitCollision;