hedgewars/uAmmos.pas
changeset 2073 a735c41d97dc
parent 2061 0f99aa28b9f4
child 2128 903fdb9f44b0
--- a/hedgewars/uAmmos.pas	Sun May 17 14:25:45 2009 +0000
+++ b/hedgewars/uAmmos.pas	Sun May 17 18:02:21 2009 +0000
@@ -94,13 +94,11 @@
         Ammoz[a].Probability:= 0 
         end
     else if shoppa then      // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED
-        if not cnt = AMMO_INFINITE then
-            begin
+        if cnt <> AMMO_INFINITE then
             if a = amGirder then
                 Ammoz[a].Probability:= 0
             else
-                Ammoz[a].Probability:= 100
-            end;
+                Ammoz[a].Probability:= 100;
     ammos[a]:= cnt
     end;