1008 		exit

  1008 		exit

  1009 		end;

  1009 		end;

  1010 

  1010 

  1011 if (Gear^.Elasticity > Gear^.Friction)

  1011 if (Gear^.Elasticity > Gear^.Friction)

  1012 or ((Gear^.Message and gm_Attack) = 0)

  1012 or ((Gear^.Message and gm_Attack) = 0)

  1013 or (HHGear^.Damage > 0) then

  1014 or (HHGear^.Damage > 0) then

  1014 	begin

  1015 	begin

  1015 	with PHedgehog(Gear^.Hedgehog)^.Gear^ do

  1016 	with PHedgehog(Gear^.Hedgehog)^.Gear^ do

  1016 		begin

  1017 		begin

  1017 		State:= State and not gstAttacking;

  1018 		State:= State and not gstAttacking;