hedgewars/uGearsUtils.pas
changeset 13381 caed04706564
parent 13318 9071600f7b22
child 13399 3d6aae2ae698
equal deleted inserted replaced
13380:cd55c7f25e04 13381:caed04706564
  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);