177     particle: PVisualGear;

   177     particle: PVisualGear;

   178 begin

   178 begin

   179     if _0_4 < Gear^.dY then

   179     if _0_4 < Gear^.dY then

   180     begin

   180     begin

   181         dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear);

   181         dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear);

   182         if dmg < 1 then exit;

   183         if dmg < 1 then exit;

   183 

   184 

   184         for i:= min(12, (3 + dmg div 10)) downto 0 do

   185         for i:= min(12, (3 + dmg div 10)) downto 0 do

   185         begin

   186         begin

   186             particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12,

   187             particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12,