nBuffMape=dll39_buffer_create();
   dll39_buffer_clear(nBuffMape);
    if file_exists('Mape.dat')
     {
      nFileMape = dll39_file_open('Mape.dat',0);
      dll39_file_read(nFileMape,dll39_file_size('Mape.dat'),nBuffMape);
      dll39_file_set_pos(nFileMape,0);
      nNWidth=dll39_read_byte(nBuffMape);
      nNHeight=dll39_read_byte(nBuffMape);
      nGameWidth=nNWidth*nTileWidth;
      nGameHeight=nNHeight*nTileHeight;
      dsCityTiles=ds_grid_create(nNWidth,nNHeight);
       for(i=0;i<nNWidth;i+=1)
       {
        for(j=0;j<nNHeight;j+=1)
        {
         ds_grid_set(dsCityTiles,i,j,dll39_read_byte(nBuffMape));
        }
       }
      }
    else
     {
     nFileMape = dll39_file_open('Mape.dat',1);
     dll39_file_set_pos(nFileMape,0);
     nGameWidth=60000;
     nGameHeight=48000;
     nNWidth=scCell(nGameWidth,nTileWidth);
     nNHeight=scCell(nGameHeight,nTileHeight);
     dll39_write_byte(nNWidth,nBuffMape);
     dll39_write_byte(nNHeight,nBuffMape);
     dsCityTiles=ds_grid_create(nNWidth,nNHeight);
      for(i=0;i<nNWidth;i+=1)
       {
        for(j=0;j<nNHeight;j+=1)
        {
         nTmp1=random(9)
         ds_grid_set(dsCityTiles,i,j,nTmp1);
         dll39_write_byte(nTmp1,nBuffMape)
        }
       }
       dll39_file_write(nFileMape,nBuffMape);
     }
    dll39_file_close(nFileMape);

     nGameWidth=60000;
     nGameHeight=48000;
     nNWidth=scCell(nGameWidth,nTileWidth);
     nNHeight=scCell(nGameHeight,nTileHeight);
     dsCityTiles=ds_grid_create(nNWidth,nNHeight);

      for(i=0;i<nNWidth;i+=1)
       {
        for(j=0;j<nNHeight;j+=1)
        {
         nTmp1=random(5)
         ds_grid_set(dsCityTiles,i,j,nTmp1);

        }
       }