void SaveTileSet()	//Save bmp -- Thanks to RageCage


{


 string ScreenShot_Filename;


 int file;


 int row, col;


 int something;





 ScreenShot_Filename='screens\'+str(ScreenShot_Number)+'.bmp';


 file=FileOpen(ScreenShot_Filename,FILE_WRITE);





 FileWrite(file,'BM');


 FileWriteQuad(file,0);   // file size (ignore)


 FileWriteQuad(file,0);   // two reserved words


 FileWriteQuad(file,54);  // offset to image data


 


 FileWriteQuad(file,40);   // size of the bitmap info structure


 FileWriteQuad(file,341); // image width


 FileWriteQuad(file,240); // image height


 FileWriteWord(file,1);   // Number of planes?  *shrug*


 FileWriteWord(file,24);  // bits per pixel


 FileWriteQuad(file,0);   // no compression


 FileWriteQuad(file,0);   // size of bitmap data (ignore)


 FileWriteQuad(file,0);   // whatever, man


 FileWriteQuad(file,0);   // whatever, man...


 FileWriteQuad(file,0);   // number of colors (ignore)


 FileWriteQuad(file,0);   // important colors (ignore)





 for(row=239;row>=0;row--)


 {


  for(col=0;col<341;col++)


  {


   something=GetPixel(col,row,screen);


   FileWriteByte(file,GetB(something));


   FileWriteByte(file,GetG(something));


   FileWriteByte(file,GetR(something));


  }


 }


 FileClose(file);


 while(!b1)


 {


  Render();


  PrintString(50,100,screen,font,


    'File saved as 'screens\'+str(ScreenShot_Number)+'.bmp');


  Showpage();


 }


 ScreenShot_Number++;


}

// Writes an image to file as a 24 bit bitmap


int WriteFileBitmap24(int out_image, string name)


// Pass: Image to save, filename (and path) to save as (without extension)


// Returns: 0 on fail, and the size on image data written on success


// Started life as code by geronimo


{


  int xi, yi, out_file, out_pixel, img_size, img_xtra;


  int img_x = ImageWidth(out_image);


  int img_y = ImageHeight(out_image);


  if (img_x * img_y == 0) return 0; // Return on bad image


  if (img_x * 3 % 4) img_xtra = 4 - (img_x * 3 % 4); // Padding needed


  else img_xtra = 0; // No padding needed


  img_size = ((3 * img_x) + img_xtra) * img_y; // Size of image data in bytes


  out_file = FileOpen(name + '.bmp', FILE_WRITE);


  if (!out_file) return 0; // Return on bad path or unopenable file


  FileWriteWord(out_file, 19778); // bfType - Header of 'BM'


  FileWriteQuad(out_file, 54 + img_size); // bfSize - File size


  FileWriteQuad(out_file, 0); // bfReserved1, bfReserved2  - Two reserved words


  FileWriteQuad(out_file, 54); // bfOffBits - Offset to image data


  FileWriteQuad(out_file, 40); // biSize - Size of (windows) bitmap info structure


  FileWriteQuad(out_file, img_x); // biWidth - Image width


  FileWriteQuad(out_file, img_y); // biHeight - Image height


  FileWriteWord(out_file, 1); // biPlanes - Err... one


  FileWriteWord(out_file, 24); // biBitCount - Bits per pixel


  FileWriteQuad(out_file, 0); // biCompression - No compression


  FileWriteQuad(out_file, img_size); // biSizeImage - Size of bitmap data


  FileWriteQuad(out_file, 0); // biXPelsPerMeter


  FileWriteQuad(out_file, 0); // biYPelsPerMeter


  // X/YPelsPerMeter specifies the horizontal/vertical resolution,


  // in pixels per meter, of the target device for the bitmap.


  // An application can use this value to select a bitmap from a resource


  // group that best matches the characteristics of the current device.


  FileWriteQuad(out_file, 0); // biClrUsed - Not palletted data


  FileWriteQuad(out_file, 0); // biClrImportant - All colours important





  for(yi = img_y - 1; yi >= 0; yi--) // Move from bottom of image data up


  {


    for(xi = 0; xi < img_x; xi++) // Write row of pixels


    {


      out_pixel = GetPixel(xi, yi, out_image);


      FileWriteByte(out_file, GetB(out_pixel));


      FileWriteByte(out_file, GetG(out_pixel));


      FileWriteByte(out_file, GetR(out_pixel));


    }


    for(xi = img_xtra; xi > 0; xi--) // Pad to quad width


    {


      FileWriteByte(out_file, 0);


    }


  }


  FileClose(out_file);


  return img_size;


}