1449 |
1449 |
1450 if ((GameFlags and gfForts) = 0) and ((GameFlags and gfMines) <> 0) then |
1450 if ((GameFlags and gfForts) = 0) and ((GameFlags and gfMines) <> 0) then |
1451 for i:= 0 to Pred(cLandAdditions) do |
1451 for i:= 0 to Pred(cLandAdditions) do |
1452 begin |
1452 begin |
1453 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1453 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1454 FindPlace(Gear, false, 0, LAND_WIDTH) |
1454 Gear^.TriggerId:= i + 1; |
1455 end; |
1455 FindPlace(Gear, false, 0, LAND_WIDTH); |
|
1456 { if(Gear <> nil) then |
|
1457 ParseCommand('addtrig s' + inttostr(Gear^.TriggerId) + ' 1 5 11 ' + |
|
1458 inttostr(hwRound(Gear^.X)) + ' ' + inttostr(hwRound(Gear^.Y)) + |
|
1459 ' ' + inttostr(Gear^.TriggerId), true); |
|
1460 } end; |
1456 |
1461 |
1457 if (GameFlags and gfLowGravity) <> 0 then |
1462 if (GameFlags and gfLowGravity) <> 0 then |
1458 cGravity:= cMaxWindSpeed / 2; |
1463 cGravity:= cMaxWindSpeed / 2; |
1459 |
1464 |
1460 if (GameFlags and gfVampiric) <> 0 then |
1465 if (GameFlags and gfVampiric) <> 0 then |