Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 3255 6d6f4241debe
parent 3254 eb1382353361
child 3259 a29ccf4aed82 
--- a/hedgewars/uGears.pas	Fri Apr 02 15:33:11 2010 +0000
+++ b/hedgewars/uGears.pas	Fri Apr 02 15:41:39 2010 +0000
@@ -2161,13 +2161,11 @@
 
 FollowGear:= nil;
 
-if shoppa then  // FIXME -  TEMPORARY  REMOVE WHEN CRATE PROBABILITY IS ADDED, INCLUDING DISABLING OF HEALTH CRATES
-    t:= 7
-else
-    t:= getrandom(20);
+t:= getrandom(20);
 
-// avoid health crates if all hogs are invulnerable
-if (t < 13) and ((GameFlags and gfInvulnerable) <> 0) then t:= t * 13 div 20 + 7;
+// FIXME - shoppa is TEMPORARY REMOVE WHEN CRATE PROBABILITY ALLOWS DISABLING OF HEALTH CRATES                               
+// avoid health crates if all hogs are invulnerable                                                                          
+if (t < 13) and (shoppa or ((GameFlags and gfInvulnerable) <> 0)) then t:= t * 13 div 20 + 7;                                
     
 //case getrandom(20) of
 case t of
hedgewars