equal
deleted
inserted
replaced
1636 (CountGears(gtCase) >= 5) or |
1636 (CountGears(gtCase) >= 5) or |
1637 (getrandom(cCaseFactor) <> 0) then exit; |
1637 (getrandom(cCaseFactor) <> 0) then exit; |
1638 |
1638 |
1639 FollowGear:= nil; |
1639 FollowGear:= nil; |
1640 |
1640 |
1641 case getrandom(20) of |
1641 t:= getrandom(20); // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED |
|
1642 if shoppa then |
|
1643 t:= 7 |
|
1644 else |
|
1645 t:= getrandom(20); |
|
1646 |
|
1647 //case getrandom(20) of |
|
1648 case t of |
1642 0..6: begin |
1649 0..6: begin |
1643 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1650 FollowGear:= AddGear(0, 0, gtCase, 0, _0, _0, 0); |
1644 FollowGear^.Health:= 25; |
1651 FollowGear^.Health:= 25; |
1645 FollowGear^.Pos:= posCaseHealth |
1652 FollowGear^.Pos:= posCaseHealth |
1646 end; |
1653 end; |