hedgewars/uGears.pas
changeset 2860 13a53315ae18
parent 2852 c6dff591f564
child 2877 7c0d17ac0902
equal deleted inserted replaced
2859:d44ae883896b 2860:13a53315ae18
  1967    (CountGears(gtCase) >= 5) or
  1967    (CountGears(gtCase) >= 5) or
  1968    (getrandom(cCaseFactor) <> 0) then exit;
  1968    (getrandom(cCaseFactor) <> 0) then exit;
  1969 
  1969 
  1970 FollowGear:= nil;
  1970 FollowGear:= nil;
  1971 
  1971 
  1972 if shoppa then  // FIXME -  TEMPORARY  REMOVE WHEN CRATE PROBABILITY IS ADDED
  1972 if shoppa then  // FIXME -  TEMPORARY  REMOVE WHEN CRATE PROBABILITY IS ADDED, INCLUDING DISABLING OF HEALTH CRATES
  1973     t:= 7
  1973     t:= 7
  1974 else
  1974 else
  1975     t:= getrandom(20);
  1975     t:= getrandom(20);
  1976 
  1976 
  1977 // avoid health crates if all hogs are invulnerable
  1977 // avoid health crates if all hogs are invulnerable