I suck at pascal booleans
authornemo
Sun, 17 May 2009 18:02:21 +0000
changeset 2073 a735c41d97dc
parent 2072 6e0fcbcc3f60
child 2074 b89ffff0528d
I suck at pascal booleans
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;