hedgewars/uGearsUtils.pas
changeset 13388 354ceada9c40
parent 13386 caed04706564
child 13404 3d6aae2ae698
equal deleted inserted replaced
13387:e6e4019d02be 13388:354ceada9c40
  1271         Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000);
  1271         Gear^.Hedgehog^.Effects[heFrozen]:= max(255,Gear^.Hedgehog^.Effects[heFrozen]-10000);
  1272     tmpDmg:= ModifyDamage(Damage, Gear);
  1272     tmpDmg:= ModifyDamage(Damage, Gear);
  1273     if (Gear^.State and gstNoDamage) = 0 then
  1273     if (Gear^.State and gstNoDamage) = 0 then
  1274         begin
  1274         begin
  1275 
  1275 
  1276         if (Gear^.Kind <> gtMinigun) and
  1276         if (not (Gear^.Kind in [gtMinigun, gtPortal])) and
  1277             ((Ammo^.Kind = gtDEagleShot)
  1277             ((Ammo^.Kind = gtDEagleShot)
  1278                 or (Ammo^.Kind = gtSniperRifleShot)
  1278                 or (Ammo^.Kind = gtSniperRifleShot)
  1279                 or (Ammo^.Kind = gtMinigunBullet)) then
  1279                 or (Ammo^.Kind = gtMinigunBullet)) then
  1280             begin
  1280             begin
  1281             VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);
  1281             VGear := AddVisualGear(t^.cX[i], t^.cY[i], vgtBulletHit);