--- a/hedgewars/uAmmos.pas	Wed May 27 15:31:48 2009 +0000
+++ b/hedgewars/uAmmos.pas	Wed May 27 15:55:14 2009 +0000
@@ -95,10 +95,12 @@
         end
     else if shoppa then      // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED
         if cnt <> AMMO_INFINITE then
+            begin
             if a = amGirder then
                 Ammoz[a].Probability:= 0
             else
                 Ammoz[a].Probability:= 100;
+            end;
     ammos[a]:= cnt
     end;