hedgewars/uGearsUtils.pas
changeset 13999 a24c4a051960
parent 13901 98eaf1fe1f6b
child 14001 fd336864382e
equal deleted inserted replaced
13998:23fb123bd70c 13999:a24c4a051960
  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
       
  1350                 PlaySound(sndFirePunchHit);
       
  1351 
  1349             if Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet] then
  1352             if Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet] then
  1350                 begin
  1353                 begin
  1351                 VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);
  1354                 VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);
  1352                 if VGear <> nil then
  1355                 if VGear <> nil then
  1353                     VGear^.Angle := DxDy2Angle(-Ammo^.dX, Ammo^.dY);
  1356                     VGear^.Angle := DxDy2Angle(-Ammo^.dX, Ammo^.dY);