1642 var i: LongInt; |
1642 var i: LongInt; |
1643 Gear: PGear; |
1643 Gear: PGear; |
1644 begin |
1644 begin |
1645 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
1645 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
1646 |
1646 |
1647 // HACK: just for testing explosives! |
|
1648 if (GameFlags and gfMines) <> 0 then |
|
1649 GameFlags:= (GameFlags or gfExplosives) and not gfMines; |
|
1650 |
|
1651 if (TrainingFlags and tfSpawnTargets) <> 0 then |
1647 if (TrainingFlags and tfSpawnTargets) <> 0 then |
1652 begin |
1648 begin |
1653 TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0); |
1649 TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0); |
1654 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1650 FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH); |
1655 end; |
1651 end; |
1662 begin |
1658 begin |
1663 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1659 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1664 Gear^.TriggerId:= i + 1; |
1660 Gear^.TriggerId:= i + 1; |
1665 FindPlace(Gear, false, 0, LAND_WIDTH); |
1661 FindPlace(Gear, false, 0, LAND_WIDTH); |
1666 end; |
1662 end; |
1667 if ((GameFlags and gfExplosives) <> 0) then |
1663 // No game flag for this for now |
1668 for i:= 0 to Pred(cLandAdditions) do |
1664 // if ((GameFlags and gfExplosives) <> 0) then |
|
1665 for i:= 0 to Pred(cExplosives) do |
1669 begin |
1666 begin |
1670 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1667 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1671 Gear^.TriggerId:= i + 1; |
|
1672 FindPlace(Gear, false, 0, LAND_WIDTH); |
1668 FindPlace(Gear, false, 0, LAND_WIDTH); |
1673 end; |
1669 end; |
1674 end; |
1670 end; |
1675 |
1671 |
1676 if (GameFlags and gfLowGravity) <> 0 then |
1672 if (GameFlags and gfLowGravity) <> 0 then |