hedgewars/uGears.pas
changeset 2145 fa43619eb3e7
parent 2143 ad05f6b2d1c0
child 2152 a2811690da1b
equal deleted inserted replaced
2144:c76a2f7bd452 2145:fa43619eb3e7
  1707    (CountGears(gtCase) >= 5) or
  1707    (CountGears(gtCase) >= 5) or
  1708    (getrandom(cCaseFactor) <> 0) then exit;
  1708    (getrandom(cCaseFactor) <> 0) then exit;
  1709 
  1709 
  1710 FollowGear:= nil;
  1710 FollowGear:= nil;
  1711 
  1711 
  1712 if shoppa then  // TEMPORARY  REMOVE WHEN CRATE PROBABILITY IS ADDED
  1712 if shoppa then  // FIXME -  TEMPORARY  REMOVE WHEN CRATE PROBABILITY IS ADDED
  1713     t:= 7
  1713     t:= 7
  1714 else
  1714 else
  1715     t:= getrandom(20);
  1715     t:= getrandom(20);
  1716 
  1716 
  1717 //case getrandom(20) of
  1717 //case getrandom(20) of