hedgewars/uAmmos.pas
changeset 2061 0f99aa28b9f4
parent 2017 7845c77c8d31
child 2073 a735c41d97dc
--- a/hedgewars/uAmmos.pas	Fri May 15 17:15:37 2009 +0000
+++ b/hedgewars/uAmmos.pas	Sat May 16 14:51:04 2009 +0000
@@ -95,7 +95,12 @@
         end
     else if shoppa then      // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED
         if not cnt = AMMO_INFINITE then
-            Ammoz[a].Probability:= 100;
+            begin
+            if a = amGirder then
+                Ammoz[a].Probability:= 0
+            else
+                Ammoz[a].Probability:= 100
+            end;
     ammos[a]:= cnt
     end;