| changeset 622 | cedd47d956ec |
| parent 621 | 8bdbc240f50f |
| child 649 | 26166c87dc75 |
| 621:8bdbc240f50f | 622:cedd47d956ec |
|---|---|
637 procedure AddMiscGears; |
637 procedure AddMiscGears; |
638 var i: LongInt; |
638 var i: LongInt; |
639 begin |
639 begin |
640 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
640 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
641 if (GameFlags and gfForts) = 0 then |
641 if (GameFlags and gfForts) = 0 then |
642 for i:= 0 to 3 do |
642 for i:= 0 to Pred(cLandAdditions) do |
643 FindPlace(AddGear(0, 0, gtMine, 0, _0, _0, 0), false, 0, 2048); |
643 FindPlace(AddGear(0, 0, gtMine, 0, _0, _0, 0), false, 0, 2048); |
644 end; |
644 end; |
645 |
645 |
646 procedure AddClouds; |
646 procedure AddClouds; |
647 var i: LongInt; |
647 var i: LongInt; |