equal
deleted
inserted
replaced
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 // disable this check until better solution found |
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; |