equal
deleted
inserted
replaced
1534 var t, aTot, uTot, a, h: LongInt; |
1534 var t, aTot, uTot, a, h: LongInt; |
1535 i: TAmmoType; |
1535 i: TAmmoType; |
1536 begin |
1536 begin |
1537 if (PlacingHogs) or |
1537 if (PlacingHogs) or |
1538 (cCaseFactor = 0) |
1538 (cCaseFactor = 0) |
1539 or (CountGears(gtCase) >= 5) |
1539 or (CountGears(gtCase) >= cMaxCaseDrops) |
1540 or (GetRandom(cCaseFactor) <> 0) then |
1540 or (GetRandom(cCaseFactor) <> 0) then |
1541 exit; |
1541 exit; |
1542 |
1542 |
1543 FollowGear:= nil; |
1543 FollowGear:= nil; |
1544 aTot:= 0; |
1544 aTot:= 0; |