equal
deleted
inserted
replaced
579 while (i < cLandMines) and (unplaced < 4) do |
579 while (i < cLandMines) and (unplaced < 4) do |
580 begin |
580 begin |
581 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
581 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
582 FindPlace(Gear, false, 0, LAND_WIDTH); |
582 FindPlace(Gear, false, 0, LAND_WIDTH); |
583 |
583 |
584 if Gear = nil then |
584 if Gear = nil then |
585 inc(unplaced) |
585 inc(unplaced) |
586 else |
586 else |
587 unplaced:= 0; |
587 unplaced:= 0; |
588 |
588 |
589 inc(i) |
589 inc(i) |
594 while (i < cExplosives) and (unplaced < 4) do |
594 while (i < cExplosives) and (unplaced < 4) do |
595 begin |
595 begin |
596 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
596 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
597 FindPlace(Gear, false, 0, LAND_WIDTH); |
597 FindPlace(Gear, false, 0, LAND_WIDTH); |
598 |
598 |
599 if Gear = nil then |
599 if Gear = nil then |
600 inc(unplaced) |
600 inc(unplaced) |
601 else |
601 else |
602 unplaced:= 0; |
602 unplaced:= 0; |
603 |
603 |
604 inc(i) |
604 inc(i) |