hedgewars/uGearsHandlersMess.pas
changeset 14040 128fbd36eee4
parent 14019 1effb8b72b11
child 14055 82956b3ba2ab
equal deleted inserted replaced
14039:aeac678d7c79 14040:128fbd36eee4
  5804                     begin
  5804                     begin
  5805                     // always rounding down
  5805                     // always rounding down
  5806                     dmg:= dmg div Gear^.Boom;
  5806                     dmg:= dmg div Gear^.Boom;
  5807 
  5807 
  5808                     if dmg > 0 then
  5808                     if dmg > 0 then
  5809                         ApplyDamage(tmp, CurrentHedgehog, dmg, dsUnknown);
  5809                         ApplyDamage(tmp, CurrentHedgehog, dmg, dsHammer);
  5810                     end;
  5810                     end;
  5811 		tmp^.dY:= _0_03 * Gear^.Boom
  5811 		tmp^.dY:= _0_03 * Gear^.Boom
  5812                 end;
  5812                 end;
  5813 
  5813 
  5814             if (tmp^.Kind <> gtHedgehog) or (dmg > 0) or (tmp^.Health > tmp^.Damage) then
  5814             if (tmp^.Kind <> gtHedgehog) or (dmg > 0) or (tmp^.Health > tmp^.Damage) then