1839 dec(Gear^.Health);

  1839 dec(Gear^.Health);

  1840 Gear^.Timer:= Gear^.Health*10; // This is not seconds, but at least it is *some* feedback

  1840 Gear^.Timer:= Gear^.Health*10; // This is not seconds, but at least it is *some* feedback

  1841 if (Gear^.Health = 0) or ((Gear^.Message and gm_Attack) <> 0) then

  1841 if (Gear^.Health = 0) or ((Gear^.Message and gm_Attack) <> 0) then

  1842 	begin

  1842 	begin

  1843 	FollowGear:= Gear;

  1843 	FollowGear:= Gear;

  1844 	Gear^.doStep:= @doStepCakeDown

  1845 	Gear^.doStep:= @doStepCakeDown

  1845 	end

  1846 	end

  1846 end;

  1847 end;

  1847 

  1848 

  1848 procedure doStepCakeUp(Gear: PGear);

  1849 procedure doStepCakeUp(Gear: PGear);