1094 begin |
1094 begin |
1095 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
1095 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
1096 |
1096 |
1097 i:= 0; |
1097 i:= 0; |
1098 Gear:= PGear(1); |
1098 Gear:= PGear(1); |
1099 while (i < cLandMines) and (Gear <> nil) do |
1099 while (i < cLandMines) and {(Gear <> nil)} do // disable this check until better solution found |
1100 begin |
1100 begin |
1101 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1101 Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
1102 FindPlace(Gear, false, 0, LAND_WIDTH); |
1102 FindPlace(Gear, false, 0, LAND_WIDTH); |
1103 inc(i) |
1103 inc(i) |
1104 end; |
1104 end; |
1105 |
1105 |
1106 i:= 0; |
1106 i:= 0; |
1107 Gear:= PGear(1); |
1107 Gear:= PGear(1); |
1108 while (i < cExplosives) and (Gear <> nil) do |
1108 while (i < cExplosives){ and (Gear <> nil)} do |
1109 begin |
1109 begin |
1110 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1110 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
1111 FindPlace(Gear, false, 0, LAND_WIDTH); |
1111 FindPlace(Gear, false, 0, LAND_WIDTH); |
1112 inc(i) |
1112 inc(i) |
1113 end; |
1113 end; |