hedgewars/uAmmos.pas
changeset 1895 7ba647a88b2f
parent 1865 ebc6dfca60d4
child 1909 30fa1608b54f
--- a/hedgewars/uAmmos.pas	Sun Mar 15 14:47:59 2009 +0000
+++ b/hedgewars/uAmmos.pas	Sun Mar 15 17:47:06 2009 +0000
@@ -74,6 +74,13 @@
         cnt:= AMMO_INFINITE;
         Ammoz[a].Probability:= 0 
         end;
+    if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or
+       ((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or
+       ((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) then
+        begin
+        cnt:= 0;
+        Ammoz[a].Probability:= 0 
+        end;
     ammos[a]:= cnt
     end;