equal
deleted
inserted
replaced
1601 function SpawnBoxOfSmth: PGear; |
1601 function SpawnBoxOfSmth: PGear; |
1602 var t, aTot, uTot, a, h: LongInt; |
1602 var t, aTot, uTot, a, h: LongInt; |
1603 i: TAmmoType; |
1603 i: TAmmoType; |
1604 begin |
1604 begin |
1605 SpawnBoxOfSmth:= nil; |
1605 SpawnBoxOfSmth:= nil; |
1606 if (PlacingHogs) or |
1606 if (PlacingHogs) or (PlacingKings) or |
1607 (cCaseFactor = 0) |
1607 (cCaseFactor = 0) |
1608 or (CountGears(gtCase) >= cMaxCaseDrops) |
1608 or (CountGears(gtCase) >= cMaxCaseDrops) |
1609 or (GetRandom(cCaseFactor) <> 0) then |
1609 or (GetRandom(cCaseFactor) <> 0) then |
1610 exit; |
1610 exit; |
1611 |
1611 |