284 end;

   284 end;

   285 

   285 

   286 procedure CheckHHDamage(Gear: PGear);

   286 procedure CheckHHDamage(Gear: PGear);

   287 var 

   287 var 

   288     dmg: Longword;

   288     dmg: Longword;

   290     particle: PVisualGear;

   290     particle: PVisualGear;

   291 begin

   291 begin

   292     if _0_4 < Gear^.dY then

   292     if _0_4 < Gear^.dY then

   293         begin

   293         begin

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

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