1206             begin

  1206             begin

  1207             Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);

  1207             Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);

  1208             FindPlace(Gear, false, 0, LAND_WIDTH);

  1208             FindPlace(Gear, false, 0, LAND_WIDTH);

  1209             end;

  1209             end;

  1210 //  No game flag for this for now

  1210 //  No game flag for this for now

  1212         for i:= 0 to Pred(cExplosives) do

  1211         for i:= 0 to Pred(cExplosives) do

  1213             begin

  1212             begin

  1214             Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);

  1213             Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);

  1215             FindPlace(Gear, false, 0, LAND_WIDTH);

  1214             FindPlace(Gear, false, 0, LAND_WIDTH);

  1216             end;

  1215             end;