hedgewars/uAmmos.pas
changeset 1865 ebc6dfca60d4
parent 1850 a0332e79fdc9
child 1895 7ba647a88b2f
--- a/hedgewars/uAmmos.pas	Fri Mar 06 13:50:40 2009 +0000
+++ b/hedgewars/uAmmos.pas	Sat Mar 07 17:42:54 2009 +0000
@@ -69,7 +69,11 @@
 for a:= Low(TAmmoType) to High(TAmmoType) do
     begin
     cnt:= byte(s[ord(a) + 1]) - byte('0');
-    if cnt = 9 then cnt:= AMMO_INFINITE;
+    if cnt = 9 then
+        begin
+        cnt:= AMMO_INFINITE;
+        Ammoz[a].Probability:= 0 
+        end;
     ammos[a]:= cnt
     end;