1632 begin

  1632 begin

  1633 if (cCaseFactor = 0) or

  1633 if (cCaseFactor = 0) or

  1634    (CountGears(gtCase) >= 5) or

  1634    (CountGears(gtCase) >= 5) or

  1635    (getrandom(cCaseFactor) <> 0) then exit;

  1635    (getrandom(cCaseFactor) <> 0) then exit;

  1636 

  1636 

  1637 case getrandom(20) of

  1639 case getrandom(20) of

  1638      0..6: begin

  1640      0..6: begin

  1639         FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);

  1641         FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0);

  1640         FollowGear^.Health:= 25;

  1642         FollowGear^.Health:= 25;

  1641         FollowGear^.Pos:= posCaseHealth

  1643         FollowGear^.Pos:= posCaseHealth