# HG changeset patch
# User nemo
# Date 1242583341 0
# Node ID a735c41d97dc0a5da3f0c2390c53781bbad10995
# Parent  6e0fcbcc3f60730725816564e5fc2091751c58d3
I suck at pascal booleans

diff -r 6e0fcbcc3f60 -r a735c41d97dc hedgewars/uAmmos.pas
--- 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;