hedgewars/uGearsUtils.pas
changeset 14001 fd336864382e
parent 13999 a24c4a051960
child 14005 31bdb759d98b
equal deleted inserted replaced
14000:ccb0ef084596 14001:fd336864382e
  1344             gtTarget,
  1344             gtTarget,
  1345             gtCase,
  1345             gtCase,
  1346             gtExplosives: //,
  1346             gtExplosives: //,
  1347             //gtStructure:
  1347             //gtStructure:
  1348             begin
  1348             begin
  1349             if Ammo^.Kind = gtFirePunch then
  1349             if (Ammo^.Kind = gtFirePunch) and (Gear^.Kind <> gtSMine) then
  1350                 PlaySound(sndFirePunchHit);
  1350                 PlaySound(sndFirePunchHit);
  1351 
  1351 
  1352             if Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet] then
  1352             if Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet] then
  1353                 begin
  1353                 begin
  1354                 VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);
  1354                 VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);